From a16b58a020311f7cf4912576b3e3d3e7c90be9a5 Mon Sep 17 00:00:00 2001
From: s-ol <s-ol@users.noreply.github.com>
Date: Tue, 3 Mar 2020 19:10:36 +0100
Subject: make lib/midi documentable

---
 lib/midi.moon      | 98 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 lib/midi/init.moon | 98 ------------------------------------------------------
 2 files changed, 98 insertions(+), 98 deletions(-)
 create mode 100644 lib/midi.moon
 delete mode 100644 lib/midi/init.moon

(limited to 'lib')

diff --git a/lib/midi.moon b/lib/midi.moon
new file mode 100644
index 0000000..01af84f
--- /dev/null
+++ b/lib/midi.moon
@@ -0,0 +1,98 @@
+import Value, Op, ValueInput, IOInput, match from require 'core.base'
+import input, output, inout, apply_range from require 'lib.midi.core'
+
+class gate extends Op
+  @doc: "(midi/gate port note [chan]) - gate from note-on and note-off messages"
+
+  new: =>
+    super 'bool', false
+
+  setup: (inputs) =>
+    { port, note, chan } = match 'midi/port num num?', inputs
+    super
+      port: IOInput port
+      note: ValueInput note
+      chan: ValueInput chan or Value.num -1
+
+  tick: =>
+    { :port, :note, :chan } = @inputs
+
+    if note\dirty! or chan\dirty!
+      @out\set false
+
+    if port\dirty!
+      for msg in port!\receive!
+        if msg.a == note! and (chan! == -1 or msg.chan == chan!)
+          if msg.status == 'note-on'
+            @out\set true
+          elseif msg.status == 'note-off'
+            @out\set false
+
+class trig extends Op
+  @doc: "(midi/trig port note [chan]) - gate from note-on and note-off messages"
+
+  new: =>
+    super 'bang', false
+
+  setup: (inputs) =>
+    { port, note, chan } = match 'midi/port num num?', inputs
+    super
+      port: IOInput port
+      note: ValueInput note
+      chan: ValueInput chan or Value.num -1
+
+  tick: =>
+    { :port, :note, :chan } = @inputs
+
+    if note\dirty! or chan\dirty!
+      @out\set false
+
+    if port\dirty!
+      for msg in port!\receive!
+        if msg.a == note! and (chan! == -1 or msg.chan == chan!)
+          if msg.status == 'note-on'
+            @out\set true
+
+
+class cc extends Op
+  @doc: "(midi/cc port cc [chan [range]]) - MIDI CC to number
+
+range can be one of:
+- 'raw' [ 0 - 128[
+- 'uni' [ 0 - 1[ (default)
+- 'bip' [-1 - 1[
+- 'rad' [ 0 - tau[
+- 'deg' [ 0 - 360[
+- (num) [ 0 - num["
+
+  new: =>
+    super 'num'
+
+  setup: (inputs) =>
+    { port, cc, chan, range } = match 'midi/port num num? any?', inputs
+    super
+      port:  IOInput port
+      cc:    ValueInput cc
+      chan:  ValueInput chan or Value.num -1
+      range: ValueInput range or Value.str 'uni'
+
+    if not @out\unwrap!
+      @out\set apply_range @inputs.range, 0
+
+  tick: =>
+    { :port, :cc, :chan, :range } = @inputs
+    if port\dirty!
+      for msg in port!\receive!
+        if msg.status == 'control-change' and
+           (chan! == -1 or msg.chan == chan!) and
+           msg.a == cc!
+          @out\set apply_range range, msg.b
+
+{
+  :input
+  :output
+  :inout
+  :gate
+  :trig
+  :cc
+}
diff --git a/lib/midi/init.moon b/lib/midi/init.moon
deleted file mode 100644
index 01af84f..0000000
--- a/lib/midi/init.moon
+++ /dev/null
@@ -1,98 +0,0 @@
-import Value, Op, ValueInput, IOInput, match from require 'core.base'
-import input, output, inout, apply_range from require 'lib.midi.core'
-
-class gate extends Op
-  @doc: "(midi/gate port note [chan]) - gate from note-on and note-off messages"
-
-  new: =>
-    super 'bool', false
-
-  setup: (inputs) =>
-    { port, note, chan } = match 'midi/port num num?', inputs
-    super
-      port: IOInput port
-      note: ValueInput note
-      chan: ValueInput chan or Value.num -1
-
-  tick: =>
-    { :port, :note, :chan } = @inputs
-
-    if note\dirty! or chan\dirty!
-      @out\set false
-
-    if port\dirty!
-      for msg in port!\receive!
-        if msg.a == note! and (chan! == -1 or msg.chan == chan!)
-          if msg.status == 'note-on'
-            @out\set true
-          elseif msg.status == 'note-off'
-            @out\set false
-
-class trig extends Op
-  @doc: "(midi/trig port note [chan]) - gate from note-on and note-off messages"
-
-  new: =>
-    super 'bang', false
-
-  setup: (inputs) =>
-    { port, note, chan } = match 'midi/port num num?', inputs
-    super
-      port: IOInput port
-      note: ValueInput note
-      chan: ValueInput chan or Value.num -1
-
-  tick: =>
-    { :port, :note, :chan } = @inputs
-
-    if note\dirty! or chan\dirty!
-      @out\set false
-
-    if port\dirty!
-      for msg in port!\receive!
-        if msg.a == note! and (chan! == -1 or msg.chan == chan!)
-          if msg.status == 'note-on'
-            @out\set true
-
-
-class cc extends Op
-  @doc: "(midi/cc port cc [chan [range]]) - MIDI CC to number
-
-range can be one of:
-- 'raw' [ 0 - 128[
-- 'uni' [ 0 - 1[ (default)
-- 'bip' [-1 - 1[
-- 'rad' [ 0 - tau[
-- 'deg' [ 0 - 360[
-- (num) [ 0 - num["
-
-  new: =>
-    super 'num'
-
-  setup: (inputs) =>
-    { port, cc, chan, range } = match 'midi/port num num? any?', inputs
-    super
-      port:  IOInput port
-      cc:    ValueInput cc
-      chan:  ValueInput chan or Value.num -1
-      range: ValueInput range or Value.str 'uni'
-
-    if not @out\unwrap!
-      @out\set apply_range @inputs.range, 0
-
-  tick: =>
-    { :port, :cc, :chan, :range } = @inputs
-    if port\dirty!
-      for msg in port!\receive!
-        if msg.status == 'control-change' and
-           (chan! == -1 or msg.chan == chan!) and
-           msg.a == cc!
-          @out\set apply_range range, msg.b
-
-{
-  :input
-  :output
-  :inout
-  :gate
-  :trig
-  :cc
-}
-- 
cgit v1.2.3