mdbe 0.1.0

data/public/amber/js/parser.pegjs

@@ -0,0 +1,223 @@
+start = method
+
+separator      = [ \t\v\f\u00A0\uFEFF\n\r\u2028\u2029]+
+comments       = (["][^"]*["])+
+ws             = (separator / comments)*
+identifier     = first:[a-zA-Z] others:[a-zA-Z0-9]* {return first + others.join("")}
+varIdentifier  = first:[a-z] others:[a-zA-Z0-9]* {return first + others.join("")}
+keyword        = first:identifier last:[:] {return first + last}
+className      = first:[A-Z] others:[a-zA-Z0-9]* {return first + others.join("")}
+string         = ['] val:(("''" {return "'"} / [^'])*) ['] {
+               	   return smalltalk.ValueNode._new()
+               	   	._value_(val.join("").replace(/\"/ig, '"'))
+	         }
+
+symbol         = "#"val:(
+			digits:[a-zA-Z0-9\:]+ {return digits.join("")} / 
+			node:string {return node._value()})* {
+		  		    return smalltalk.ValueNode._new()
+               	   		    	   ._value_(smalltalk.symbolFor(val.join("").replace(/\"/ig, '"')))
+               	 }
+number         = n:(float / integer) {
+		  return smalltalk.ValueNode._new()
+               	   	._value_(n)
+               	 }
+float          = neg:[-]?int:[0-9]+ "." dec:[0-9]+ {return parseFloat((neg + int.join("") + "." + dec.join("")), 10)}
+integer        = neg:[-]?digits:[0-9]+ {return (parseInt(neg+digits.join(""), 10))}
+literalArray   = "#(" ws lits:(lit:literal ws {return lit._value()})* ws ")" {
+		  return smalltalk.ValueNode._new()
+               	   	._value_(lits)
+               	 }
+dynamicArray   = "{" ws expressions:expressions? ws "}" {
+	       	  return smalltalk.DynamicArrayNode._new()
+		        ._nodes_(expressions)
+		  }
+dynamicDictionary = "#{" ws expressions: expressions? ws "}" {
+	       	  return smalltalk.DynamicDictionaryNode._new()
+		        ._nodes_(expressions)
+		  }
+pseudoVariable = val:(
+	          'true' {return true} 
+	       	/ 'false' {return false}
+		/ 'nil' {return nil}) {
+			return smalltalk.ValueNode._new()._value_(val)
+		    }
+literal        = pseudoVariable / number / literalArray / dynamicDictionary / dynamicArray / string / symbol / block
+
+
+variable       = identifier:varIdentifier {
+		  return smalltalk.VariableNode._new()
+			._value_(identifier)
+		  }
+classReference = className:className {
+		  return smalltalk.ClassReferenceNode._new()
+		  	._value_(className)
+		  }
+
+reference      = variable / classReference
+
+keywordPair    = key:keyword ws arg:binarySend ws {return {key:key, arg: arg}}
+
+binarySelector = bin:[\\+*/=><,@%~|&-]+ {return bin.join("").replace(/\\/g, '\\\\')}
+unarySelector  = identifier
+
+keywordPattern = pairs:(ws key:keyword ws arg:identifier {return {key:key, arg: arg}})+ {
+	             var keywords = [];
+                     var params = [];
+                     for(var i=0;i<pairs.length;i++){
+                         keywords.push(pairs[i].key);
+                     }
+                     for(var i=0;i<pairs.length;i++){
+                         params.push(pairs[i].arg);
+                     }
+		     return [keywords.join(""), params]
+	         }
+binaryPattern  = ws selector:binarySelector ws arg:identifier {return [selector, [arg]]}
+unaryPattern   = ws selector:unarySelector {return [selector, []]}
+
+expression     = assignment / cascade / keywordSend / binarySend / jsStatement
+
+expressionList = ws "." ws expression:expression {return expression}
+expressions    = first:expression others:expressionList* {
+	       	     var result = [first];
+		     for(var i=0;i<others.length;i++) {
+		 	 result.push(others[i]);
+		     }
+		     return result;
+	       } 
+
+assignment     = variable:variable ws ':=' ws expression:expression {
+	       	     return smalltalk.AssignmentNode._new()
+	       	     	._left_(variable)
+	       	     	._right_(expression)
+		 }
+
+ret            = '^' ws expression:expression ws '.'? {
+	       	     return smalltalk.ReturnNode._new()
+	       	     	._nodes_([expression])
+	       }
+  
+temps          = "|" vars:(ws variable:identifier ws {return variable})* "|" {return vars}
+
+blockParamList = params:((ws ":" ws param:identifier {return param})+) ws "|" {return params}
+
+subexpression  = '(' ws expression:expression ws ')' {return expression}
+
+statements    = ret:ret [.]* {return [ret]}
+  	      / exps:expressions ws [.]+ ws ret:ret [.]* {
+      	      	  var expressions = exps;
+      		  expressions.push(ret);
+      		  return expressions
+  		}
+  	      / expressions:expressions? [.]* {
+      	          return expressions || []
+  	        }
+
+sequence      = temps:temps? ws statements:statements? ws {
+	      	  return smalltalk.SequenceNode._new()
+	      	  	._temps_(temps || [])
+	      	  	._nodes_(statements || [])
+		}
+
+block         = '[' ws params:blockParamList? ws sequence:sequence? ws ']' {
+	          return smalltalk.BlockNode._new()
+	          	._parameters_(params || [])
+	          	._nodes_([sequence._asBlockSequenceNode()])
+		}
+
+operand       = literal / reference / subexpression
+
+
+
+unaryMessage  = ws selector:unarySelector ![:] {
+	      	return smalltalk.SendNode._new()
+	      		._selector_(selector)
+	      }
+
+unaryTail     = message:unaryMessage ws tail:unaryTail? ws {
+		  if(tail) {
+          	      return tail._valueForReceiver_(message);
+      		  }
+      		  else {
+          	      return message;
+      		  }
+  	      }
+
+unarySend     = receiver:operand ws tail:unaryTail? {
+		  if(tail) {
+          	      return tail._valueForReceiver_(receiver);
+      		  }
+      		  else {
+          	      return receiver;
+      		  }
+	      }
+
+binaryMessage = ws selector:binarySelector ws arg:(unarySend / operand) {
+	          return smalltalk.SendNode._new()
+	          	._selector_(selector)
+	          	._arguments_([arg])
+	      }
+
+binaryTail    = message:binaryMessage tail:binaryTail? {
+      	          if(tail) {
+          	      return tail._valueForReceiver_(message);
+      		  }
+      		  else {
+          	      return message;
+      		  }
+  	      }
+
+binarySend    = receiver:unarySend tail:binaryTail? {
+	      	  if(tail) {
+          	      return tail._valueForReceiver_(receiver);
+      		  }
+      		  else {
+          	      return receiver;
+      		  }
+	      }
+	      
+
+keywordMessage = ws pairs:(pair:keywordPair ws {return pair})+ {
+      		  var selector = [];
+      		  var args = [];
+      		  for(var i=0;i<pairs.length;i++) {
+          	      selector.push(pairs[i].key);
+          	      args.push(pairs[i].arg);
+      		  }
+      		  return smalltalk.SendNode._new()
+      		  	._selector_(selector.join(""))
+      		  	._arguments_(args)
+  	      }
+
+keywordSend   = receiver:binarySend tail:keywordMessage {
+	          return tail._valueForReceiver_(receiver);
+	      }
+
+message       = binaryMessage / unaryMessage / keywordMessage
+
+cascade       = ws send:(keywordSend / binarySend) messages:(ws ";" ws mess:message ws {return mess})+ 
+  	      {
+		var cascade = [];
+      		cascade.push(send);
+      		for(var i=0;i<messages.length;i++) {
+          		cascade.push(messages[i]);
+      		}
+      		return smalltalk.CascadeNode._new()
+          	       ._receiver_(send._receiver())
+          	       ._nodes_(cascade)
+  	      }
+
+jsStatement   = "<" val:((">>" {return ">"} / [^>])*) ">"
+  	      {
+		return smalltalk.JSStatementNode._new()
+			._source_(val.join(""))
+  	      }
+
+
+method        = ws pattern:(keywordPattern / binaryPattern / unaryPattern) ws sequence:sequence? ws {
+	      	return smalltalk.MethodNode._new()
+		       ._selector_(pattern[0])
+		       ._arguments_(pattern[1])
+		       ._nodes_([sequence])
+	      }
+

data/public/amber/learn.html

@@ -0,0 +1,40 @@
+<!DOCTYPE html>
+<html>
+  <head>
+    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+    <title>Learn Smalltalk with ProfStef</title>
+    <link href='http://fonts.googleapis.com/css?family=Istok+Web' rel='stylesheet' type='text/css'> 
+    <meta name="author" content="Nicolas Petton">
+    <link rel="stylesheet" type="text/css" href="css/profstef.css">
+    <script type="text/javascript" src="js/amber.js"></script>
+  </head>
+  <body>
+
+    <div class="main">
+      <a id="back" href="./index.html"> &larr; back to main page </a>
+      <img src="images/profstef.png"/>
+      <h1>Hey there! Got 5 minutes? I'm prof Stef and I want to teach you Smalltalk. I promise, it won't take long!</h1> 
+      
+      <div id="tutorial"><h2>Loading...</h2></div>
+      <script> 
+	function loadTutorial() {
+		jQuery('#tutorial').empty();
+		smalltalk.TrySmalltalkWidget._new()._appendToJQuery_(jQuery('#tutorial'));
+	}
+      </script>
+    </div>
+    
+    <div id="footer">
+      <div class="main">
+	<p>Copyright © 2011 <a href="http://www.nicolas-petton.fr/">Nicolas Petton</a>. The content of this website in licensed under <a href="http://creativecommons.org/licenses/by-nc/3.0/">CC-BY-NC 3.0</a>.</p>
+	<p>Amber is an opensource project sponsored by <a href="http://www.objectfusion.fr/">objectfusion</a>.</p>
+      </div> 
+    </div>
+
+    <script type="text/javascript">
+      loadAmber({files: ['TrySmalltalk.js'], prefix: 'examples/trysmalltalk/js', ready: loadTutorial});
+    </script>    
+
+
+  </body>
+</html>

data/public/amber/repl/Makefile

@@ -0,0 +1,8 @@
+repl.js: REPL.st
+	../bin/amberc -m Repl -l Compiler,parser REPL.st amber
+
+run: repl.js
+	../bin/amber
+
+clean:
+	rm -f amber.js REPL.js

data/public/amber/repl/REPL.js

@@ -0,0 +1,124 @@
+smalltalk.addPackage('REPL', {});
+smalltalk.addClass('Repl', smalltalk.Object, ['readline', 'interface', 'util'], 'REPL');
+smalltalk.addMethod(
+unescape('_prompt'),
+smalltalk.method({
+selector: unescape('prompt'),
+category: 'accessing',
+fn: function (){
+var self=this;
+return unescape("amber%20%3E%3E%20");
+return self;},
+args: [],
+source: unescape('prompt%0A%09%5E%27amber%20%3E%3E%20%27'),
+messageSends: [],
+referencedClasses: []
+}),
+smalltalk.Repl);
+
+smalltalk.addMethod(
+unescape('_createInterface'),
+smalltalk.method({
+selector: unescape('createInterface'),
+category: 'actions',
+fn: function (){
+var self=this;
+(self['@interface']=smalltalk.send(self['@readline'], "_createInterface_stdout_", [smalltalk.send((typeof process == 'undefined' ? nil : process), "_stdin", []), smalltalk.send((typeof process == 'undefined' ? nil : process), "_stdout", [])]));
+smalltalk.send(self['@interface'], "_on_do_", ["line", (function(buffer){return smalltalk.send(self, "_eval_", [buffer]);})]);
+smalltalk.send(self['@interface'], "_on_do_", ["close", (function(){return smalltalk.send(self, "_close", []);})]);
+smalltalk.send(self, "_setPrompt", []);
+smalltalk.send(self['@interface'], "_prompt", []);
+return self;},
+args: [],
+source: unescape('createInterface%0A%09%22No%20completion%20for%20now%22%0A%09interface%20%3A%3D%20readline%20createInterface%3A%20process%20stdin%20stdout%3A%20process%20stdout.%0A%09interface%20on%3A%20%27line%27%20do%3A%20%5B%3Abuffer%20%20%7C%20self%20eval%3A%20buffer%5D.%0A%09interface%20on%3A%20%27close%27%20do%3A%20%5Bself%20close%5D.%0A%09self%20setPrompt.%0A%09interface%20prompt'),
+messageSends: ["createInterface:stdout:", "stdin", "stdout", "on:do:", "eval:", "close", "setPrompt", "prompt"],
+referencedClasses: []
+}),
+smalltalk.Repl);
+
+smalltalk.addMethod(
+unescape('_setPrompt'),
+smalltalk.method({
+selector: unescape('setPrompt'),
+category: 'actions',
+fn: function (){
+var self=this;
+smalltalk.send(self['@interface'], "_setPrompt_", [smalltalk.send(self, "_prompt", [])]);
+return self;},
+args: [],
+source: unescape('setPrompt%0A%09interface%20setPrompt%3A%20self%20prompt'),
+messageSends: ["setPrompt:", "prompt"],
+referencedClasses: []
+}),
+smalltalk.Repl);
+
+smalltalk.addMethod(
+unescape('_close'),
+smalltalk.method({
+selector: unescape('close'),
+category: 'actions',
+fn: function (){
+var self=this;
+smalltalk.send(smalltalk.send((typeof process == 'undefined' ? nil : process), "_stdin", []), "_destroy", []);
+return self;},
+args: [],
+source: unescape('close%0A%09process%20stdin%20destroy'),
+messageSends: ["destroy", "stdin"],
+referencedClasses: []
+}),
+smalltalk.Repl);
+
+smalltalk.addMethod(
+unescape('_eval_'),
+smalltalk.method({
+selector: unescape('eval%3A'),
+category: 'actions',
+fn: function (buffer){
+var self=this;
+var result=nil;
+((($receiver = smalltalk.send(buffer, "_isEmpty", [])).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self, "_try_catch_", [(function(){(result=smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler), "_new", []), "_loadExpression_", [buffer]));return smalltalk.send((smalltalk.Transcript || Transcript), "_show_", [result]);}), (function(e){return ((($receiver = smalltalk.send(e, "_isSmalltalkError", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send((smalltalk.ErrorHandler || ErrorHandler), "_new", []), "_handleError_", [e]);})() : (function(){return smalltalk.send(smalltalk.send((typeof process == 'undefined' ? nil : process), "_stdout", []), "_write_", [smalltalk.send(e, "_jsStack", [])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send((smalltalk.ErrorHandler || ErrorHandler), "_new", []), "_handleError_", [e]);}), (function(){return smalltalk.send(smalltalk.send((typeof process == 'undefined' ? nil : process), "_stdout", []), "_write_", [smalltalk.send(e, "_jsStack", [])]);})]));})]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self, "_try_catch_", [(function(){(result=smalltalk.send(smalltalk.send((smalltalk.Compiler || Compiler), "_new", []), "_loadExpression_", [buffer]));return smalltalk.send((smalltalk.Transcript || Transcript), "_show_", [result]);}), (function(e){return ((($receiver = smalltalk.send(e, "_isSmalltalkError", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send((smalltalk.ErrorHandler || ErrorHandler), "_new", []), "_handleError_", [e]);})() : (function(){return smalltalk.send(smalltalk.send((typeof process == 'undefined' ? nil : process), "_stdout", []), "_write_", [smalltalk.send(e, "_jsStack", [])]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send((smalltalk.ErrorHandler || ErrorHandler), "_new", []), "_handleError_", [e]);}), (function(){return smalltalk.send(smalltalk.send((typeof process == 'undefined' ? nil : process), "_stdout", []), "_write_", [smalltalk.send(e, "_jsStack", [])]);})]));})]);})]));
+smalltalk.send(self['@interface'], "_prompt", []);
+return self;},
+args: ["buffer"],
+source: unescape('eval%3A%20buffer%0A%09%7C%20result%20%7C%0A%09buffer%20isEmpty%20ifFalse%3A%20%5B%0A%09%09self%20try%3A%20%5B%0A%09%09%09result%20%3A%3D%20Compiler%20new%20loadExpression%3A%20buffer.%0A%09%09%09Transcript%20show%3A%20result%5D%0A%09%09catch%3A%20%5B%3Ae%20%7C%0A%09%09%09e%20isSmalltalkError%0A%09%09%09%20%20%20%20ifTrue%3A%20%5BErrorHandler%20new%20handleError%3A%20e%5D%0A%09%09%09%20%20%20%20ifFalse%3A%20%5Bprocess%20stdout%20write%3A%20e%20jsStack%5D%5D%5D.%0A%09interface%20prompt'),
+messageSends: ["ifFalse:", "isEmpty", "try:catch:", "loadExpression:", "new", "show:", "ifTrue:ifFalse:", "isSmalltalkError", "handleError:", "write:", "stdout", "jsStack", "prompt"],
+referencedClasses: ["Compiler", "Transcript", "ErrorHandler"]
+}),
+smalltalk.Repl);
+
+smalltalk.addMethod(
+unescape('_initialize'),
+smalltalk.method({
+selector: unescape('initialize'),
+category: 'initialization',
+fn: function (){
+var self=this;
+smalltalk.send(self, "_initialize", [], smalltalk.Object);
+(self['@readline']=smalltalk.send((typeof require == 'undefined' ? nil : require), "_value_", ["readline"]));
+(self['@util']=smalltalk.send((typeof require == 'undefined' ? nil : require), "_value_", ["util"]));
+return self;},
+args: [],
+source: unescape('initialize%0A%09super%20initialize.%0A%09readline%20%3A%3D%20require%20value%3A%20%27readline%27.%0A%09util%20%3A%3D%20require%20value%3A%20%27util%27'),
+messageSends: ["initialize", "value:"],
+referencedClasses: []
+}),
+smalltalk.Repl);
+
+
+smalltalk.addMethod(
+unescape('_main'),
+smalltalk.method({
+selector: unescape('main'),
+category: 'not yet classified',
+fn: function (){
+var self=this;
+smalltalk.send(smalltalk.send(self, "_new", []), "_createInterface", []);
+return self;},
+args: [],
+source: unescape('main%0A%09self%20new%20createInterface'),
+messageSends: ["createInterface", "new"],
+referencedClasses: []
+}),
+smalltalk.Repl.klass);
+
+

data/public/amber/repl/REPL.st

@@ -0,0 +1,56 @@
+Object subclass: #Repl
+	instanceVariableNames: 'readline interface util'
+	category: 'REPL'!
+
+!Repl methodsFor: 'accessing'!
+
+prompt
+	^'amber >> '
+! !
+
+!Repl methodsFor: 'actions'!
+
+createInterface
+	"No completion for now"
+	interface := readline createInterface: process stdin stdout: process stdout.
+	interface on: 'line' do: [:buffer  | self eval: buffer].
+	interface on: 'close' do: [self close].
+	self setPrompt.
+	interface prompt
+!
+
+setPrompt
+	interface setPrompt: self prompt
+!
+
+close
+	process stdin destroy
+!
+
+eval: buffer
+	| result |
+	buffer isEmpty ifFalse: [
+		self try: [
+			result := Compiler new loadExpression: buffer.
+			Transcript show: result]
+		catch: [:e |
+			e isSmalltalkError
+			    ifTrue: [ErrorHandler new handleError: e]
+			    ifFalse: [process stdout write: e jsStack]]].
+	interface prompt
+! !
+
+!Repl methodsFor: 'initialization'!
+
+initialize
+	super initialize.
+	readline := require value: 'readline'.
+	util := require value: 'util'
+! !
+
+!Repl class methodsFor: 'not yet classified'!
+
+main
+	self new createInterface
+! !
+