Commits

Pierre Surply committed c1b93df

website: Fixed Highlight

Comments (0)

Files changed (7)

 **    along with Mara.  If not, see <http://www.gnu.org/licenses/>.
 **
 ** Started on  Tue Dec 25 17:11:59 2012 Pierre Surply
-** Last update Fri Mar 15 18:34:19 2013 Pierre Surply
+** Last update Tue Mar 26 08:55:27 2013 Pierre Surply
 *)
 
 type t =
 
 let conf =
   {
-    version = 5;
+    version = 8;
     mmcu = "atmega8";
     cur_file = "";
     files = Queue.create ();
 ## <pierre.surply@gmail.com>
 ## 
 ## Started on  Sun Jan 20 12:24:46 2013 Pierre Surply
-## Last update Sat Mar 23 13:42:36 2013 Pierre Surply
+## Last update Sun Mar 24 09:48:38 2013 Pierre Surply
 ##
 
 MCU		= 644
-DEVPROG		= /dev/ttyUSB2
+DEVPROG		= /dev/ttyUSB1
 DEVCOM		= /dev/ttyUSB0
 
 MARAC		= marac
 ## <pierre.surply@gmail.com>
 ## 
 ## Started on  Fri Jan 25 17:57:37 2013 Pierre Surply
-## Last update Sat Mar 23 21:08:27 2013 Pierre Surply
+## Last update Sat Mar 23 23:55:27 2013 Pierre Surply
 ##
 
 using eeprom
     self.arg <- arg
     self.mem <- mem
     self.com <- com
-    self.vm <- new vm(self.mem, com)
+    self.vm <- none
     self.size <- 0
     return self
   end
   end
 
   func run()
+    self.vm <- new vm(self.mem, self.com)
     self.vm.max_sp <- self.size
     waitfor self.vm.exec()
     self.com.newline()
   end
 
   func debug()
+    self.vm <- new vm(self.mem, self.com)
     self.vm.max_sp <- self.size
     var d <- 0
     var c <- true
       self.mem.set(self.sp, self.reg[src])
       self.sp -- 1
       if self.sp < self.max_sp then
-        self.com.write("Stack Overflow")
+        self.com.write("VM error : Stack overflow")
         return false
       endif
     elif op = 2 then # pop
       self.sp ++ 1
       if self.sp >= self.mem.length then
-        self.com.write("Stack Empty")
+        self.com.write("VM error : The stack is empty")
         return false
       else
         self.reg.set(src, self.mem[self.sp])
       return false
     elif instr <> 0 then
       self.buffer.itoa_hex(instr, 4)
-      self.com.write("VM Error : unknown instruction $")
+      self.com.write("VM error : unknown instruction $")
       self.com.write(self.buffer.s)
       return false
     endif

website/cgi-bin/highlight.ml

 ** <pierre.surply@gmail.com>
 ** 
 ** Started on  Sat Mar 16 14:58:18 2013 Pierre Surply
-** Last update Mon Mar 18 19:18:10 2013 Pierre Surply
+** Last update Tue Mar 26 08:23:20 2013 Pierre Surply
 *)
 
 let code_dir = "../res/code/"
       "\\baction\\b\\|"         ^
       "\\binput\\b\\|"          ^
       "\\bstatic\\b\\|"         ^
-      "\\bclass\\b\\|"          ^
-      "\\bsetup\\b\\|"          ^
-      "\\bloop\\b\\|"           ^
-      "\\blib\\b\\|"            ^
       "\\bfsm\\b\\|"            ^
       "\\busing\\b\\)"
   end

website/res/design/highlight.css

 ** <pierre.surply@gmail.com>
 ** 
 ** Started on  Sat Mar 16 15:25:48 2013 Pierre Surply
-** Last update Mon Mar 18 19:18:31 2013 Pierre Surply
+** Last update Tue Mar 26 08:22:16 2013 Pierre Surply
 */
 
 .structkw