summaryrefslogtreecommitdiff
path: root/portmidi/pm_test/sendvirtual.c
diff options
context:
space:
mode:
authorMitja Felicijan <mitja.felicijan@gmail.com>2024-10-07 19:30:56 +0200
committerMitja Felicijan <mitja.felicijan@gmail.com>2024-10-07 19:30:56 +0200
commit40a899bd6ee536eae093337bf2d0dcc8db4e46f1 (patch)
tree485ace3e6fd28b91f394efd277732651e10824d8 /portmidi/pm_test/sendvirtual.c
parent6fc4bddfdf8e056469f316c1a0fe488efbb4253a (diff)
downloadttdaw-40a899bd6ee536eae093337bf2d0dcc8db4e46f1.tar.gz
Moved example code examples folder
Diffstat (limited to 'portmidi/pm_test/sendvirtual.c')
-rw-r--r--portmidi/pm_test/sendvirtual.c194
1 files changed, 0 insertions, 194 deletions
diff --git a/portmidi/pm_test/sendvirtual.c b/portmidi/pm_test/sendvirtual.c
deleted file mode 100644
index a60a48f..0000000
--- a/portmidi/pm_test/sendvirtual.c
+++ /dev/null
@@ -1,194 +0,0 @@
-/* sendvirtual.c -- test for creating a virtual device and sending to it */
-/*
- * Roger B. Dannenberg
- * Sep 2021
- */
-#include "portmidi.h"
-#include "porttime.h"
-#include "stdlib.h"
-#include "stdio.h"
-#include "string.h"
-#include "assert.h"
-
-#define OUTPUT_BUFFER_SIZE 0
-#define TIME_PROC ((PmTimeProcPtr) Pt_Time)
-#define TIME_INFO NULL
-#define TIME_START Pt_Start(1, 0, 0) /* timer started w/millisecond accuracy */
-
-int latency = 0;
-PmSysDepInfo *sysdepinfo = NULL;
-char *port_name = "portmidi";
-
-static void set_sysdepinfo(char m_or_p, const char *name)
-{
- if (!sysdepinfo) {
- // allocate some space we will alias with open-ended PmDriverInfo:
- // there is space for 4 parameters:
- static char dimem[sizeof(PmSysDepInfo) + sizeof(void *) * 8];
- sysdepinfo = (PmSysDepInfo *) dimem;
- // build the driver info structure:
- sysdepinfo->structVersion = PM_SYSDEPINFO_VERS;
- sysdepinfo->length = 0;
- }
- if (sysdepinfo->length > 1) {
- printf("Error: sysdepinfo was allocated to hold 2 parameters\n");
- exit(1);
- }
- int i = sysdepinfo->length++;
- enum PmSysDepPropertyKey k = pmKeyNone;
- if (m_or_p == 'm') k = pmKeyCoreMidiManufacturer;
- else if (m_or_p == 'p') k = pmKeyAlsaPortName;
- else if (m_or_p == 'c') k = pmKeyAlsaClientName;
- sysdepinfo->properties[i].key = k;
- sysdepinfo->properties[i].value = name;
-}
-
-
-static void prompt_and_exit(void)
-{
- printf("type ENTER...");
- while (getchar() != '\n') ;
- /* this will clean up open ports: */
- exit(-1);
-}
-
-
-static PmError checkerror(PmError err)
-{
- if (err == pmHostError) {
- /* it seems pointless to allocate memory and copy the string,
- * so I will do the work of Pm_GetHostErrorText directly
- */
- char errmsg[80];
- Pm_GetHostErrorText(errmsg, 80);
- printf("PortMidi found host error...\n %s\n", errmsg);
- prompt_and_exit();
- } else if (err < 0) {
- printf("PortMidi call failed...\n %s\n", Pm_GetErrorText(err));
- prompt_and_exit();
- }
- return err;
-}
-
-
-void wait_until(PmTimestamp when)
-{
- PtTimestamp now = Pt_Time();
- if (when > now) {
- Pt_Sleep(when - now);
- }
-}
-
-
-void main_test_output(int num)
-{
- PmStream *midi;
- int32_t next_time;
- PmEvent buffer[1];
- PmTimestamp timestamp;
- int pitch = 60;
- int id;
-
- /* It is recommended to start timer before Midi; otherwise, PortMidi may
- start the timer with its (default) parameters
- */
- TIME_START;
-
- /* create a virtual output device */
- id = checkerror(Pm_CreateVirtualOutput(port_name, NULL, sysdepinfo));
- checkerror(Pm_OpenOutput(&midi, id, sysdepinfo, OUTPUT_BUFFER_SIZE,
- TIME_PROC, TIME_INFO, latency));
-
- printf("Midi Output Virtual Device \"%s\" created.\n", port_name);
- printf("Type ENTER to send messages: ");
- while (getchar() != '\n') ;
-
- buffer[0].timestamp = Pt_Time();
-#define PROGRAM 0
- buffer[0].message = Pm_Message(0xC0, PROGRAM, 0);
- Pm_Write(midi, buffer, 1);
- next_time = Pt_Time() + 1000; /* wait 1s */
- while (num > 0) {
- wait_until(next_time);
- Pm_WriteShort(midi, next_time, Pm_Message(0x90, pitch, 100));
- printf("Note On pitch %d\n", pitch);
- num--;
- next_time += 500;
-
- wait_until(next_time);
- Pm_WriteShort(midi, next_time, Pm_Message(0x90, pitch, 0));
- printf("Note Off pitch %d\n", pitch);
- num--;
- pitch = (pitch + 1) % 12 + 60;
- next_time += 500;
- }
-
- /* close device (this not explicitly needed in most implementations) */
- printf("ready to close...");
- Pm_Close(midi);
- printf("done closing.\nNow delete the virtual device...");
- checkerror(Pm_DeleteVirtualDevice(id));
- printf("done deleting.\n");
-}
-
-
-void show_usage()
-{
- printf("Usage: sendvirtual [-h] [-l latency-in-ms] [-m manufacturer] "
- "[-c clientname] [-p portname] [n]\n"
- " -h for this message,\n"
- " -l ms designates latency for precise timing (default 0),\n"
- " -m name designates a manufacturer name (macOS only),\n"
- " -c name designates a client name (linux only),\n"
- " -p name designates a port name (linux only),\n"
- " n is number of message to send.\n"
- "sends change program to 1, then one note per second with 0.5s on,\n"
- "0.5s off, for n/2 seconds. Latency >0 uses the device driver for \n"
- "precise timing (see PortMidi documentation).\n");
- exit(0);
-}
-
-
-int main(int argc, char *argv[])
-{
- int num = 10;
- int i;
- if (argc <= 1) {
- show_usage();
- }
- for (i = 1; i < argc; i++) {
- if (strcmp(argv[i], "-h") == 0) {
- show_usage();
- } else if (strcmp(argv[i], "-l") == 0 && (i + 1 < argc)) {
- i = i + 1;
- latency = atoi(argv[i]);
- printf("Latency will be %d\n", latency);
- } else if (strcmp(argv[i], "-m") == 0 && (i + 1 < argc)) {
- i = i + 1;
- set_sysdepinfo('m', argv[i]);
- printf("Manufacturer name will be %s\n", argv[i]);
- } else if (strcmp(argv[i], "-p") == 0 && (i + 1 < argc)) {
- i = i + 1;
- port_name = argv[i];
- set_sysdepinfo('p', port_name);
- printf("Port name will be %s\n", port_name);
- } else if (strcmp(argv[i], "-c") == 0 && (i + 1 < argc)) {
- i = i + 1;
- set_sysdepinfo('c', argv[i]);
- printf("Client name will be %s\n", argv[i]);
- } else {
- num = atoi(argv[i]);
- if (num <= 0) {
- printf("Zero value or non-number for n\n");
- show_usage();
- }
- printf("Sending %d messages.\n", num);
- }
- }
-
- main_test_output(num);
-
- printf("finished sendvirtual test...type ENTER to quit...");
- while (getchar() != '\n') ;
- return 0;
-}