Compare commits

..

No commits in common. "598748264387df8bd872ecd29d558cda3cda2648" and "29c20cb8fc364ff15a81cd26d0a867f39c6689e5" have entirely different histories.

8 changed files with 122 additions and 99 deletions

View File

@ -93,8 +93,6 @@ Required:
* [Nim] >= 2.0 * [Nim] >= 2.0
Note: [LV2] C headers *need not* to be present to build nymph plugins.
Optional: Optional:
* [lv2bm] - For benchmarking and stress-testing plugins * [lv2bm] - For benchmarking and stress-testing plugins

View File

@ -67,21 +67,17 @@ proc extensionData(uri: cstring): pointer {.cdecl.} =
proc NimMain() {.cdecl, importc.} proc NimMain() {.cdecl, importc.}
let descriptor = Lv2Descriptor(
uri: cstring(PluginUri),
instantiate: instantiate,
connectPort: connectPort,
activate: activate,
run: run,
deactivate: deactivate,
cleanup: cleanup,
extensionData: extensionData,
)
proc lv2Descriptor(index: cuint): ptr Lv2Descriptor {. proc lv2Descriptor(index: cuint): ptr Lv2Descriptor {.
cdecl, exportc, dynlib, extern: "lv2_descriptor".} = cdecl, exportc, dynlib, extern: "lv2_descriptor".} =
if index == 0: NimMain()
NimMain()
return addr(descriptor)
return nil if index == 0:
result = createShared(Lv2Descriptor)
result.uri = cstring(PluginUri)
result.instantiate = instantiate
result.connectPort = connectPort
result.activate = activate
result.run = run
result.deactivate = deactivate
result.cleanup = cleanup
result.extensionData = extensionData

View File

@ -16,6 +16,8 @@ type
freq: ptr cfloat freq: ptr cfloat
flt: ptr faustlpf flt: ptr faustlpf
proc NimMain() {.cdecl, importc.}
proc instantiate(descriptor: ptr Lv2Descriptor; sampleRate: cdouble; proc instantiate(descriptor: ptr Lv2Descriptor; sampleRate: cdouble;
bundlePath: cstring; features: ptr UncheckedArray[ptr Lv2Feature]): bundlePath: cstring; features: ptr UncheckedArray[ptr Lv2Feature]):
@ -52,30 +54,31 @@ proc run(instance: Lv2Handle; nSamples: cuint) {.cdecl.} =
computefaustlpf(plug.flt, nSamples.cint, addr plug.input, addr plug.output) computefaustlpf(plug.flt, nSamples.cint, addr plug.input, addr plug.output)
proc deactivate(instance: Lv2Handle) {.cdecl.} =
discard
proc cleanup(instance: Lv2Handle) {.cdecl.} = proc cleanup(instance: Lv2Handle) {.cdecl.} =
let plug = cast[ptr FaustLPFPlugin](instance) let plug = cast[ptr FaustLPFPlugin](instance)
deletefaustlpf(plug.flt) deletefaustlpf(plug.flt)
freeShared(plug) freeShared(plug)
proc NimMain() {.cdecl, importc.} proc extensionData(uri: cstring): pointer {.cdecl.} =
return nil
let descriptor = Lv2Descriptor(
uri: cstring(PluginUri),
instantiate: instantiate,
connectPort: connectPort,
activate: activate,
run: run,
deactivate: nil,
cleanup: cleanup,
extensionData: nil,
)
proc lv2Descriptor(index: cuint): ptr Lv2Descriptor {. proc lv2Descriptor(index: cuint): ptr Lv2Descriptor {.
cdecl, exportc, dynlib, extern: "lv2_descriptor".} = cdecl, exportc, dynlib, extern: "lv2_descriptor".} =
if index == 0: NimMain()
NimMain()
return addr(descriptor)
return nil if index == 0:
result = createShared(Lv2Descriptor)
result.uri = cstring(PluginUri)
result.instantiate = instantiate
result.connectPort = connectPort
result.activate = activate
result.run = run
result.deactivate = deactivate
result.cleanup = cleanup
result.extensionData = extensionData

View File

@ -6,6 +6,7 @@
@prefix midi: <http://lv2plug.in/ns/ext/midi#> . @prefix midi: <http://lv2plug.in/ns/ext/midi#> .
@prefix opts: <http://lv2plug.in/ns/ext/options#> . @prefix opts: <http://lv2plug.in/ns/ext/options#> .
@prefix params: <http://lv2plug.in/ns/ext/parameters#> . @prefix params: <http://lv2plug.in/ns/ext/parameters#> .
@prefix props: <http://lv2plug.in/ns/ext/port-props#> .
@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> . @prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
@prefix units: <http://lv2plug.in/ns/extensions/units#> . @prefix units: <http://lv2plug.in/ns/extensions/units#> .
@prefix urid: <http://lv2plug.in/ns/ext/urid#> . @prefix urid: <http://lv2plug.in/ns/ext/urid#> .
@ -48,7 +49,7 @@
lv2:minimum -12 ; lv2:minimum -12 ;
lv2:maximum 12 ; lv2:maximum 12 ;
units:unit units:semitone12TET units:unit units:semitone12TET
] ; ] ;
rdfs:comment "A simple MIDI transposition LV2 plugin." ; rdfs:comment "A simple MIDI transposition LV2 plugin." ;

View File

@ -28,42 +28,46 @@ type
proc instantiate(descriptor: ptr Lv2Descriptor; sampleRate: cdouble; proc instantiate(descriptor: ptr Lv2Descriptor; sampleRate: cdouble;
bundlePath: cstring; features: ptr UncheckedArray[ptr Lv2Feature]): bundlePath: cstring; features: ptr UncheckedArray[ptr Lv2Feature]):
Lv2Handle {.cdecl.} = Lv2Handle {.cdecl.} =
let plug: ptr MidiTransposePlugin = createShared(MidiTransposePlugin) let amp: ptr MidiTransposePlugin = createShared(MidiTransposePlugin)
plug.map = cast[ptr UridMap](lv2FeaturesData(features, lv2UridMap)) amp.map = cast[ptr UridMap](lv2FeaturesData(features, lv2UridMap))
if plug.map.isNil: if amp.map.isNil:
freeShared(plug) freeShared(amp)
return nil return nil
plug.midi_urid = plug.map.map(plug.map.handle, lv2MidiMidiEvent) amp.midi_urid = amp.map.map(amp.map.handle, lv2MidiMidiEvent)
return cast[Lv2Handle](plug) return cast[Lv2Handle](amp)
proc connectPort(instance: Lv2Handle; port: cuint; proc connectPort(instance: Lv2Handle; port: cuint;
dataLocation: pointer) {.cdecl.} = dataLocation: pointer) {.cdecl.} =
let plug = cast[ptr MidiTransposePlugin](instance) let amp = cast[ptr MidiTransposePlugin](instance)
case cast[PluginPort](port) case cast[PluginPort](port)
of PluginPort.Input: of PluginPort.Input:
plug.input = cast[ptr AtomSequence](dataLocation) amp.input = cast[ptr AtomSequence](dataLocation)
of PluginPort.Output: of PluginPort.Output:
plug.output = cast[ptr AtomSequence](dataLocation) amp.output = cast[ptr AtomSequence](dataLocation)
of PluginPort.Transposition: of PluginPort.Transposition:
plug.transposition = cast[ptr cfloat](dataLocation) amp.transposition = cast[ptr cfloat](dataLocation)
proc activate(instance: Lv2Handle) {.cdecl.} =
discard
proc run(instance: Lv2Handle; nSamples: cuint) {.cdecl.} = proc run(instance: Lv2Handle; nSamples: cuint) {.cdecl.} =
let plug = cast[ptr MidiTransposePlugin](instance) let amp = cast[ptr MidiTransposePlugin](instance)
let outCapacity = plug.output.atom.size let outCapacity = amp.output.atom.size
atomSequenceClear(plug.output) atomSequenceClear(amp.output)
plug.output.atom.type = plug.input.atom.type amp.output.atom.type = amp.input.atom.type
if not atomSequenceIsEmpty(plug.input): if not atomSequenceIsEmpty(amp.input):
#echo &"Event sequence size: {plug.input.atom.size}" #echo &"Event sequence size: {amp.input.atom.size}"
let noteOffset = clamp(floor(plug.transposition[] + 0.5), -12, 12).uint8 let noteOffset = clamp(floor(amp.transposition[] + 0.5), -12, 12).uint8
for ev in plug.input: for ev in amp.input:
if ev.body.`type` == plug.midi_urid: if ev.body.`type` == amp.midi_urid:
var msg = cast[ptr UncheckedArray[uint8]](atomContents(AtomEvent, ev)) var msg = cast[ptr UncheckedArray[uint8]](atomContents(AtomEvent, ev))
#echo &"0x{toHex(msg[0], 2)} 0x{toHex(msg[1], 2)} 0x{toHex(msg[2], 2)}" #echo &"0x{toHex(msg[0], 2)} 0x{toHex(msg[1], 2)} 0x{toHex(msg[2], 2)}"
@ -73,31 +77,35 @@ proc run(instance: Lv2Handle; nSamples: cuint) {.cdecl.} =
else: else:
discard discard
discard atomSequenceAppendEvent(plug.output, outCapacity, ev) discard atomSequenceAppendEvent(amp.output, outCapacity, ev)
proc deactivate(instance: Lv2Handle) {.cdecl.} =
discard
proc cleanup(instance: Lv2Handle) {.cdecl.} = proc cleanup(instance: Lv2Handle) {.cdecl.} =
freeShared(cast[ptr MidiTransposePlugin](instance)) freeShared(cast[ptr MidiTransposePlugin](instance))
proc extensionData(uri: cstring): pointer {.cdecl.} =
return nil
proc NimMain() {.cdecl, importc.} proc NimMain() {.cdecl, importc.}
let descriptor = Lv2Descriptor(
uri: cstring(PluginUri),
instantiate: instantiate,
connectPort: connectPort,
activate: nil,
run: run,
deactivate: nil,
cleanup: cleanup,
extensionData: nil,
)
proc lv2Descriptor(index: cuint): ptr Lv2Descriptor {. proc lv2Descriptor(index: cuint): ptr Lv2Descriptor {.
cdecl, exportc, dynlib, extern: "lv2_descriptor".} = cdecl, exportc, dynlib, extern: "lv2_descriptor".} =
if index == 0: NimMain()
NimMain()
return addr(descriptor)
return nil if index == 0:
result = createShared(Lv2Descriptor)
result.uri = cstring(PluginUri)
result.instantiate = instantiate
result.connectPort = connectPort
result.activate = activate
result.run = run
result.deactivate = deactivate
result.cleanup = cleanup
result.extensionData = extensionData

View File

@ -72,29 +72,33 @@ proc run(instance: Lv2Handle; nSamples: cuint) {.cdecl.} =
plug.output[pos] = plug.svf.process(plug.input[pos]) plug.output[pos] = plug.svf.process(plug.input[pos])
proc deactivate(instance: Lv2Handle) {.cdecl.} =
discard
proc cleanup(instance: Lv2Handle) {.cdecl.} = proc cleanup(instance: Lv2Handle) {.cdecl.} =
freeShared(cast[ptr SVFPlugin](instance)) freeShared(cast[ptr SVFPlugin](instance))
proc extensionData(uri: cstring): pointer {.cdecl.} =
return nil
proc NimMain() {.cdecl, importc.} proc NimMain() {.cdecl, importc.}
let descriptor = Lv2Descriptor(
uri: cstring(PluginUri),
instantiate: instantiate,
connectPort: connectPort,
activate: activate,
run: run,
deactivate: nil,
cleanup: cleanup,
extensionData: nil,
)
proc lv2Descriptor(index: cuint): ptr Lv2Descriptor {. proc lv2Descriptor(index: cuint): ptr Lv2Descriptor {.
cdecl, exportc, dynlib, extern: "lv2_descriptor".} = cdecl, exportc, dynlib, extern: "lv2_descriptor".} =
NimMain()
if index == 0: if index == 0:
NimMain() result = createShared(Lv2Descriptor)
return addr(descriptor) result.uri = cstring(PluginUri)
result.instantiate = instantiate
return nil result.connectPort = connectPort
result.activate = activate
result.run = run
result.deactivate = deactivate
result.cleanup = cleanup
result.extensionData = extensionData

View File

@ -72,28 +72,33 @@ proc run(instance: Lv2Handle; nSamples: cuint) {.cdecl.} =
plug.output[pos] = plug.flt.process(plug.input[pos]) plug.output[pos] = plug.flt.process(plug.input[pos])
proc deactivate(instance: Lv2Handle) {.cdecl.} =
discard
proc cleanup(instance: Lv2Handle) {.cdecl.} = proc cleanup(instance: Lv2Handle) {.cdecl.} =
freeShared(cast[ptr TiltFilterPlugin](instance)) freeShared(cast[ptr TiltFilterPlugin](instance))
proc extensionData(uri: cstring): pointer {.cdecl.} =
return nil
proc NimMain() {.cdecl, importc.} proc NimMain() {.cdecl, importc.}
let descriptor = Lv2Descriptor(
uri: cstring(PluginUri),
instantiate: instantiate,
connectPort: connectPort,
activate: activate,
run: run,
deactivate: nil,
cleanup: cleanup,
extensionData: nil,
)
proc lv2Descriptor(index: cuint): ptr Lv2Descriptor {. proc lv2Descriptor(index: cuint): ptr Lv2Descriptor {.
cdecl, exportc, dynlib, extern: "lv2_descriptor".} = cdecl, exportc, dynlib, extern: "lv2_descriptor".} =
if index == 0: NimMain()
NimMain()
return addr(descriptor) if index == 0:
result = createShared(Lv2Descriptor)
result.uri = cstring(PluginUri)
result.instantiate = instantiate
result.connectPort = connectPort
result.activate = activate
result.run = run
result.deactivate = deactivate
result.cleanup = cleanup
result.extensionData = extensionData
return nil

8
src/nymph/plugin.nim Normal file
View File

@ -0,0 +1,8 @@
plugin:
urid: urn:foobar#v1
port_group:
name: "stereo"
audio_input:
"in_l"
audio_input:
"in_r"