cl-alsa-seq/package.lisp at master · LispLima/cl-alsa-seq · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
;;;; package.lisp

(defpackage :cl-alsaseq
  (:use :cl :cffi :calispel :optima :optima.extra)
  (:import-from :let-over-lambda
                :g!-symbol-p
                :defmacro/g!
                :o!-symbol-p
                :o!-symbol-to-g!-symbol
                :defmacro!)
  (:export :open-port
           :close-port
           :open-seq
           :close-seq
           :with-seq
           :send-queue-ctrl
           :send-ctrl
           :send-note
           :recv
           :velocity
           :note
           :channel
           :param
           ))

(defpackage :cl-alsaseq.quick
  (:use :cl :cl-alsaseq)
  (:export :send-note-on
           :send-note-off
           :send-pgmchange
           :send-chanpress
           :send-pitchbend
           :send-control
           ))

(defpackage :midihelper
  (:use :cl :cffi :cl-alsaseq :optima :optima.extra :calispel)
  (:export :*clock-ochan*
           :*clock-ctrl-chan*
           :*reader-ichan*
           :*reader-ochan*
           :set-master-bpm
           :inspect-midihelper
           :start-midihelper
           :stop-midihelper
           :check-midihelper
           :if-gesture
           :if-clock
           :macromatch
           :drain-channel
           :send-event
           :ev-noteon
           :ev-noteoff
           :ev-tick
           :ev-microtick
           :ev-start
           :ev-stop
           :ev-continue
           :ev-songpos
           ))

(defpackage #:midiloops
  (:use :cl :cl-alsaseq :midihelper :optima :optima.extra :calispel)
  (:import-from :let-over-lambda
                :g!-symbol-p
                :defmacro/g!
                :o!-symbol-p
                :o!-symbol-to-g!-symbol
                :defmacro!)
  (:nicknames :mloops))