Implement HARDWARE sytem variable

2016-12-16 23:04:17 +09:00
parent 97d057aabc
commit e106374bb6
3 changed files with 16 additions and 0 deletions
--- a/SMILEBASIC/systemvariable.d
+++ b/SMILEBASIC/systemvariable.d
@@ -116,3 +116,11 @@ class Result : SystemVariable
            return Value(vm.petitcomputer.project.result);
        }
 }
+class Hardware : SystemVariable
+{
+    @property
+        override Value value()
+        {
+            return Value(cast(int)vm.petitcomputer.hardware);
+        }
+}