scel: use in-process library recompilation

scel is modified to support in-process library recompilation. the key
binding has slightly been changed:
C-c C-l - recompile the library
C-c C-o - restart the interpreter

Signed-off-by: Tim Blechmann <tim@klingt.org>

el/sclang-interp.el

@@ -342,6 +342,13 @@ If EOB-P is non-nil, positions cursor at end of buffer."
   (sclang-kill)
   (sclang-release-command-fifo))
 
+(defun sclang-recompile ()
+  "Recompile class library."
+  (interactive)
+  (when (sclang-get-process)
+    (process-send-string sclang-process "\x18")
+    ))
+
 ;; =====================================================================
 ;; command process
 ;; =====================================================================

el/sclang-mode.el

@@ -74,6 +74,7 @@
    '(
      ["Start Interpreter"	sclang-start :included (not (sclang-library-initialized-p))]
      ["Restart Interpreter"	sclang-start :included (sclang-library-initialized-p)]
+     ["Recompile Class Library"	sclang-recompile :included (sclang-library-initialized-p)]
      ["Stop Interpreter"	sclang-stop  :included (sclang-get-process)]
      ["Kill Interpreter"	sclang-kill  :included (sclang-get-process)]
      "-"
@@ -107,7 +108,8 @@
 
 (defun sclang-fill-mode-map (map)
   ;; process control
-  (define-key map "\C-c\C-l"			'sclang-start)
+  (define-key map "\C-c\C-l"			'sclang-recompile)
+  (define-key map "\C-c\C-o"			'sclang-start)
   ;; post buffer control
   (define-key map "\C-c<"			'sclang-clear-post-buffer)
   (define-key map "\C-c>"			'sclang-show-post-buffer)

sc/extPlatform.sc

@@ -5,3 +5,11 @@
 		};
 	}
 }
+
++ LinuxPlatform {
+	recompile{
+		if ( this.hasFeature( \emacs ) ) {
+			Emacs.evalLispExpression( "(sclang-recompile)" );
+		};
+	}
+}