chris
/
nymph
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

refactor: do param bounds checking in C code 

Some more code re-arranging

Signed-off-by: Christopher Arndt <chris@chrisarndt.de>
This commit is contained in:
Christopher Arndt 2024-09-30 09:25:24 +02:00
parent f40df2491e
commit e6c66ed72c
3 changed files with 14 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
examples/faustlpf_plugin.nim
View File

@ -2,24 +2,22 @@
import nymph
{.emit: "#include \"lpf.h\"".}
{.emit: """#include "lpf.h"""".}
const
PluginUri = "urn:nymph:examples:faustlpf"
minFreq = 16.0
maxFreq = 15_000.0
type
SampleBuffer = UncheckedArray[cfloat]
faustlpf {.importc, header: "lpf.h".} = object
# struct field, which represents the value of the
# FAUST UI element, which controls the cutoff
# struct field representing the value of the FAUST UI element,
# which controls the filter cutoff frequency
fHslider0: cfloat
PluginPort {.pure.} = enum
Input, Output, Frequency
SampleBuffer = UncheckedArray[cfloat]
FaustLPFPlugin = object
input: ptr SampleBuffer
output: ptr SampleBuffer
@ -34,6 +32,8 @@ proc initfaustlpf(dsp: ptr faustlpf, sample_rate: cint) {.importc.}
proc instanceClearfaustlpf(dsp: ptr faustlpf) {.importc.}
proc computefaustlpf(dsp: ptr faustlpf, count: cint, inputs, outputs: ptr ptr SampleBuffer) {.importc.}
proc NimMain() {.cdecl, importc.}
proc instantiate(descriptor: ptr Lv2Descriptor; sampleRate: cdouble;
bundlePath: cstring; features: ptr UncheckedArray[ptr Lv2Feature]):
@ -66,8 +66,7 @@ proc activate(instance: Lv2Handle) {.cdecl.} =
proc run(instance: Lv2Handle; nSamples: cuint) {.cdecl.} =
let plug = cast[ptr FaustLPFPlugin](instance)
plug.flt.fHslider0 = plug.freq[].clamp(minFreq, maxFreq)
plug.flt.fHslider0 = plug.freq[]
computefaustlpf(plug.flt, nSamples.cint, addr plug.input, addr plug.output)
@ -85,9 +84,6 @@ proc extensionData(uri: cstring): pointer {.cdecl.} =
return nil
proc NimMain() {.cdecl, importc.}
proc lv2Descriptor(index: cuint): ptr Lv2Descriptor {.
cdecl, exportc, dynlib, extern: "lv2_descriptor".} =
NimMain()

17
examples/lpf.h
View File

@ -5,7 +5,7 @@ license: "MIT"
name: "FaustLPF"
version: "0.1.0"
Code generated with Faust 2.74.6 (https://faust.grame.fr)
Compilation options: -a ./examples/minarch.h -lang c -ct 1 -cn faustlpf -es 1 -mcd 16 -mdd 1024 -mdy 33 -single -ftz 0 -vec -lv 0 -vs 32
Compilation options: -a ./examples/minarch.h -lang c -rui -ct 1 -fm def -cn faustlpf -es 1 -mcd 16 -mdd 1024 -mdy 33 -single -ftz 0 -vec -lv 0 -vs 32
------------------------------------------------------------ */
#ifndef __faustlpf_H__
@ -17,14 +17,8 @@ Compilation options: -a ./examples/minarch.h -lang c -ct 1 -cn faustlpf -es 1 -m
FAUST Architecture File for generating a very minimal C interface
************************************************************************/
#include <math.h>
#include <stdio.h>
#include "faust/gui/CInterface.h"
#define max(a,b) ((a < b) ? b : a)
#define min(a,b) ((a < b) ? a : b)
/******************************************************************************
VECTOR INTRINSICS
*******************************************************************************/
@ -47,6 +41,7 @@ extern "C" {
#define RESTRICT __restrict__
#endif
#include "faust/dsp/fastmath.cpp"
#include <math.h>
#include <stdint.h>
#include <stdlib.h>
@ -86,7 +81,7 @@ void deletefaustlpf(faustlpf* dsp) {
void metadatafaustlpf(MetaGlue* m) {
m->declare(m->metaInterface, "author", "Christopher Arndt");
m->declare(m->metaInterface, "compile_options", "-a ./examples/minarch.h -lang c -ct 1 -cn faustlpf -es 1 -mcd 16 -mdd 1024 -mdy 33 -single -ftz 0 -vec -lv 0 -vs 32");
m->declare(m->metaInterface, "compile_options", "-a ./examples/minarch.h -lang c -rui -ct 1 -fm def -cn faustlpf -es 1 -mcd 16 -mdd 1024 -mdy 33 -single -ftz 0 -vec -lv 0 -vs 32");
m->declare(m->metaInterface, "copyright", "Christopher Arndt, 2024");
m->declare(m->metaInterface, "filename", "lpf.dsp");
m->declare(m->metaInterface, "filters.lib/fir:author", "Julius O. Smith III");
@ -191,7 +186,7 @@ void buildUserInterfacefaustlpf(faustlpf* dsp, UIGlue* ui_interface) {
void computefaustlpf(faustlpf* dsp, int count, FAUSTFLOAT** RESTRICT inputs, FAUSTFLOAT** RESTRICT outputs) {
FAUSTFLOAT* input0_ptr = inputs[0];
FAUSTFLOAT* output0_ptr = outputs[0];
float fSlow0 = dsp->fConst1 * (float)(dsp->fHslider0);
float fSlow0 = dsp->fConst1 * fmaxf(16.0f, fminf(1.5e+04f, (float)(dsp->fHslider0)));
float fRec1_tmp[36];
float* fRec1 = &fRec1_tmp[4];
float fZec0[32];
@ -236,7 +231,7 @@ void computefaustlpf(faustlpf* dsp, int count, FAUSTFLOAT** RESTRICT inputs, FAU
{
int i;
for (i = 0; i < vsize; i = i + 1) {
fZec0[i] = tanf(dsp->fConst3 * fRec1[i]);
fZec0[i] = fast_tanf(dsp->fConst3 * fRec1[i]);
}
}
/* Vectorizable loop 2 */
@ -328,7 +323,7 @@ void computefaustlpf(faustlpf* dsp, int count, FAUSTFLOAT** RESTRICT inputs, FAU
{
int i;
for (i = 0; i < vsize; i = i + 1) {
fZec0[i] = tanf(dsp->fConst3 * fRec1[i]);
fZec0[i] = fast_tanf(dsp->fConst3 * fRec1[i]);
}
}
/* Vectorizable loop 2 */

6
examples/minarch.h
View File

@ -4,14 +4,8 @@
FAUST Architecture File for generating a very minimal C interface
************************************************************************/
#include <math.h>
#include <stdio.h>
#include "faust/gui/CInterface.h"
#define max(a,b) ((a < b) ? b : a)
#define min(a,b) ((a < b) ? a : b)
/******************************************************************************
VECTOR INTRINSICS
*******************************************************************************/