beeps are now processed sorely on the computer, added speaker driver (wip)

Former-commit-id: c8339104815a62db51e5bd26460a87f1f653a775
Former-commit-id: f22320a45734b141c4f02ca61fbd79772e32c7c5

src/net/torvald/terrarum/virtualcomputer/luaapi/Kukeiha.kt

@@ -0,0 +1,9 @@
+package net.torvald.terrarum.virtualcomputer.luaapi
+
+/**
+ * Virtual driver for 4-track squarewave soundcard
+ *
+ * Created by minjaesong on 16-09-27.
+ */
+class Kukeiha {
+}

src/net/torvald/terrarum/virtualcomputer/luaapi/PcSpeakerDriver.kt

@@ -0,0 +1,37 @@
+package net.torvald.terrarum.virtualcomputer.luaapi
+
+import li.cil.repack.org.luaj.vm2.Globals
+import li.cil.repack.org.luaj.vm2.LuaTable
+import li.cil.repack.org.luaj.vm2.LuaValue
+import li.cil.repack.org.luaj.vm2.lib.TwoArgFunction
+import li.cil.repack.org.luaj.vm2.lib.ZeroArgFunction
+import net.torvald.terrarum.virtualcomputer.computer.BaseTerrarumComputer
+
+/**
+ * PC Speaker driver and arpeggiator (MONOTONE-style 4 channels)
+ *
+ * Created by minjaesong on 16-09-27.
+ */
+class PcSpeakerDriver(globals: Globals, host: BaseTerrarumComputer) {
+
+    init {
+        globals["speaker"] = LuaTable()
+        globals["speaker"]["enqueue"] = EnqueueTone(host)
+        globals["speaker"]["clear"] = ClearQueue(host)
+    }
+
+    class EnqueueTone(val host: BaseTerrarumComputer) : TwoArgFunction() {
+        override fun call(millisec: LuaValue, freq: LuaValue): LuaValue {
+            host.enqueueBeep(millisec.checkint(), freq.tofloat())
+            return LuaValue.NONE
+        }
+    }
+
+    class ClearQueue(val host: BaseTerrarumComputer) : ZeroArgFunction() {
+        override fun call(): LuaValue {
+            host.clearBeepQueue()
+            return LuaValue.NONE
+        }
+    }
+
+}