Commit: 2f311f66e33679bdfb1be6dfa06a09a33ccae4bc - CC-Castle (hg)

Commit MetaInfo

• Revisión: 2f311f66e33679bdfb1be6dfa06a09a33ccae4bc (tree)
• Tiempo: 2010-03-03 19:21:44
• Autor: Albert Mietus < albert AT ons-huis DOT net >
• Commiter: Albert Mietus < albert AT ons-huis DOT net >

Log Message

init

Cambiar Resumen

• add: src-example/small/RekenMachine.Castle
• add: support/Castle-mode.el

Diferencia incremental

diff -r 000000000000 -r 2f311f66e336 src-example/small/RekenMachine.Castle
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src-example/small/RekenMachine.Castle	Wed Mar 03 11:21:44 2010 +0100
@@ -0,0 +1,70 @@
+
+//-----------Rekenmachine
+//   /*Keypad*/ // with Keys
+//   +---------------------+
+//   | +-+  +-+  +-+   +-+ |     /*Display*/ // a LCD-line
+//   | |7|  |8|  |8|   |*| |     +-----------------------+
+//   | +-+  +-+  +-+   +-+ |     |                       |
+//   |                     |     |                       <====\\
+//   | +-+  +-+  +-+   +-+ |     +-----------------------+     ||
+//   | |4|  |5|  |6|   |/| |                                   ||
+//   | +-+  +-+  +-+   +-+ |                                   ||//p:C2D
+//   |                     |      /*Chip */                    ||
+//   | +-+  +-+  +-+   +-+ |      /* hidden subcomp */         ||
+//   | |1|  |2|  |3|   |+| |      +----------------------------^^--+
+//   | +-+  +-+  +-+   +-+ |      |                                |
+//   |                     >======> //p: K2C                       |
+//   | +-+  +-+  +-+   +-+ |      |                                |
+//   | |7|  |8|  |8|   |-| |      |                                |
+//   | +-+  +-+  +-+   +-+ |      |                                |
+//   |                     |      |                                |
+//   | +-+  +-+  +-+   +-+ |      |                                |
+//   | |.|  |0|  |<|   |=| |      +--------------------------------+
+//   | +-+  +-+  +-+   +-+ |
+//   +---------------------+
+
+
+protocol  K2C: Protocol {
+  kind: event;
+  pressed(int: key);
+}
+
+protocol C2D: Protocol {
+  kind: event;
+  show(string: value); // This --typical numbers-- will be show, erasing the current line
+}
+
+
+component Key : Component {
+  port K2C<out>:outlet;
+}
+
+component Keypad: Component {
+  port K2C<out>:outlet;
+}
+
+component Chip : Component {
+  port K2C<in>  parseKey;
+  port C2D<out> show;
+}
+
+component Display: Component {
+  port K2C<in>:show;
+}
+
+component main : Board {
+ // main doesn't need any ports; as 'Board' has a build-in Power, that will be connected to all power port of all sub's
+}
+
+
+implement main  {
+  // This RekenMachine has 3 subcomponents
+  sub chip    = new Chip;
+  sub display = new Display;
+  sub keypad  = new Keypad;
+
+  // Make connections
+  chip.parseKey = keypad.out; // **NOTE: the order does not matter! 'keypad.out = chip.parseKey' has same meaning
+  display.show  = chip.show;  // **NOTE: again: the oder is trivial, typical we respect the flow
+
+}

diff -r 000000000000 -r 2f311f66e336 support/Castle-mode.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/support/Castle-mode.el	Wed Mar 03 11:21:44 2010 +0100
@@ -0,0 +1,55 @@
+;;;  Castle-mode.el -- simple major mode to highlight and edit Caste code (see below)
+;; (C) ALbert Mietus, 2010. 	-- Use, copy, change at will
+;; 				http://albert.mietus.nl
+;;				http://SoftwareBeterMaken.mnl
+
+;;; *Castle* is an experimental language to introduce/try a _new_ programming concept:
+;;  _*_Connected Components_*_: A component has ports/connectors to communicate with
+;;  other components. "Input-ports" are much like functions/methods of classes of
+;;  OO languages.
+;;; The improvement is the "output-port". As a components only describes it own behavoir,
+;;  it can/may change one of it own output-ports. Depending on the connections, this will
+;;  result in a change of a input-port, typical of another component. However, the component
+;;  has no direct controll over other components; unlike classes that directly call lots of
+;;  methods in lots of other classes.
+;; Note 1: like in functions, and classes, components can be build out of other components. 
+;;  This is done by instantating (like in OO) components and connecting them. So, a component
+;;  has direct controll over inputs of "subcomponents".
+;; Note 2: Changing a input-port typical triggers a component. However, a component does/can have
+;;  own behavoir.
+
+;;; Caste-mode is experimental, and build around generic-mode. It's main use is to be able to
+;;  write Caste-code in emacs to find the best syntax. There is no compiler yet!
+
+(require 'generic-x)
+
+(defconst Caste-CC-kinds '("event" "stream" "power" "in" "out" "bidirect")
+  "list of all Caste kind keywords")
+
+(defconst Caste-CC-keywords '("component" "protocol" "implement" "port" "sub" "kind")
+  "list of all Caste's 'Connected Components' keywords")
+
+(defconst Caste-CC-Bases '("Component" "Protocol" "Power" "Board")
+  "list of all basic CC-components")
+
+(defconst Caste-normal-keywords
+  '("int" "float" "char" "string"	; basic C-like types -- string is more complex
+    "for" "return")			; basic C-line flow-keywords
+  "keywords of Caste, that are normal, as in othert languages like C")
+
+(defun Caste-mk-fontlock-re (wordlist)
+ (concat "\\([^A-Za-z0-9_]\\|^\\)\\("
+	 (mapconcat (lambda (w) w )  wordlist  "\\|")
+	  "\\)\\b"))
+
+(define-generic-mode 'Castle-mode
+  '("//" ("/*" . "*/")) 				;comment
+  (append Caste-CC-keywords Caste-normal-keywords)
+  (list					               ; more highlighting
+   (list (Caste-mk-fontlock-re Caste-CC-kinds)	 2 font-lock-type-face)
+   (list (Caste-mk-fontlock-re Caste-CC-Bases) 	 2 font-lock-preprocessor-face)
+   '("\\([A-Za-z0-9_]+\\)([^)]*)"                1 font-lock-function-name-face)
+   (list (concat "\\(" (Caste-mk-fontlock-re Caste-CC-keywords) "\\)" " +" "\\(" "[A-Za-z0-9_]+" "\\)") 4 font-lock-type-face)
+    )
+  '(".Castle\\'")                               ;ext to trigger this mode
+  nil)                                          ; list of setup-functions