void sys_setextrapath(const char *p)
{
char pathbuf[MAXPDSTRING];
namelist_free(STUFF->st_staticpath);
/* add standard place for users to install stuff first */
#ifdef __gnu_linux__
sys_expandpath("~/.local/lib/pd/extra/", pathbuf, MAXPDSTRING);
STUFF->st_staticpath = namelist_append(0, pathbuf, 0);
sys_expandpath("~/pd-externals", pathbuf, MAXPDSTRING);
STUFF->st_staticpath = namelist_append(STUFF->st_staticpath, pathbuf, 0);
STUFF->st_staticpath = namelist_append(STUFF->st_staticpath,
"/usr/local/lib/pd-externals", 0);
#endif
#ifdef __APPLE__
sys_expandpath("~/Library/Pd", pathbuf, MAXPDSTRING);
STUFF->st_staticpath = namelist_append(0, pathbuf, 0);
STUFF->st_staticpath = namelist_append(STUFF->st_staticpath, "/Library/Pd", 0);
#endif
#ifdef _WIN32
sys_expandpath("%AppData%/Pd", pathbuf, MAXPDSTRING);
STUFF->st_staticpath = namelist_append(0, pathbuf, 0);
sys_expandpath("%CommonProgramFiles%/Pd", pathbuf, MAXPDSTRING);
STUFF->st_staticpath = namelist_append(STUFF->st_staticpath, pathbuf, 0);
#endif
/* add built-in "extra" path last so its checked last */
STUFF->st_staticpath = namelist_append(STUFF->st_staticpath, p, 0);
}
void sys_setextrapath(const char *p)
{
char pathbuf[MAXPDSTRING];
namelist_free(sys_staticpath);
/* add standard place for users to install stuff first */
#ifdef __gnu_linux__
sys_expandpath("~/mousike", pathbuf, MAXPDSTRING);
sys_staticpath = namelist_append(0, pathbuf, 0);
sys_staticpath = namelist_append(sys_staticpath, "/usr/local/lib/mousike", 0);
#endif
#ifdef __APPLE__
sys_expandpath("~/Library/Pd", pathbuf, MAXPDSTRING);
sys_staticpath = namelist_append(0, pathbuf, 0);
sys_staticpath = namelist_append(sys_staticpath, "/Library/Pd", 0);
#endif
#ifdef _WIN32
sys_expandpath("%ProgramFiles%/Common Files/Pd", pathbuf, MAXPDSTRING);
sys_staticpath = namelist_append(0, pathbuf, 0);
sys_expandpath("%UserProfile%/Application Data/Pd", pathbuf, MAXPDSTRING);
sys_staticpath = namelist_append(sys_staticpath, pathbuf, 0);
#endif
/* add built-in "extra" path last so its checked last */
sys_staticpath = namelist_append(sys_staticpath, p, 0);
}
void sys_setextrapath(const char *p)
{
char pathbuf[FILENAME_MAX];
namelist_free(pd_extrapath);
/* add standard place for users to install stuff first */
#ifdef __gnu_linux__
sys_expandpath("~/pd-l2ork-externals", pathbuf);
pd_extrapath = namelist_append(0, pathbuf, 0);
pd_extrapath = namelist_append(pd_extrapath, "/usr/local/lib/pd-l2ork-externals", 0);
#endif
#ifdef __APPLE__
sys_expandpath("~/Library/Pd", pathbuf);
pd_extrapath = namelist_append(0, pathbuf, 0);
pd_extrapath = namelist_append(pd_extrapath, "/Library/Pd", 0);
#endif
#ifdef _WIN32
sys_expandpath("%ProgramFiles%/Common Files/Pd", pathbuf);
pd_extrapath = namelist_append(0, pathbuf, 0);
sys_expandpath("%UserProfile%/Application Data/Pd", pathbuf);
pd_extrapath = namelist_append(pd_extrapath, pathbuf, 0);
#endif
/* add built-in "extra" path last so its checked last */
pd_extrapath = namelist_append(pd_extrapath, p, 0);
}
static int libdir_add_to_path(const char*dirbuf, t_canvas*canvas) {
if(sys_isabsolutepath(dirbuf)) { // only include actual full paths
if (canvas) {
t_canvasenvironment *canvasenvironment = canvas_getenv(canvas);
canvasenvironment->ce_path = namelist_append(canvasenvironment->ce_path,
dirbuf, 0);
} else {
return libdir_add_to_globalpath(dirbuf);
}
return 1;
}
return 0;
}
t_namelist *namelist_append_files(t_namelist *listwas, const char *s)
{
const char *npos;
char temp[MAXPDSTRING];
t_namelist *nl = listwas, *rtn = listwas;
npos = s;
do
{
npos = strtokcpy(temp, sizeof(temp), npos, SEPARATOR);
if (! *temp) continue;
nl = namelist_append(nl, temp, 0);
}
while (npos);
return (nl);
}
static int libdir_loader_legacy(t_canvas *canvas, char *classname)
{
int fd = -1;
char fullclassname[FILENAME_MAX], dirbuf[FILENAME_MAX];
char *nameptr;
/* look for meta file (classname)/(classname)-meta.pd */
libdir_get_fullname(fullclassname, FILENAME_MAX, classname);
/* if this is being called from a canvas, then add the library path to the
* canvas-local path */
if(canvas)
/* setting the canvas to NULL causes it to ignore any canvas-local path */
fd = canvas_open(NULL, fullclassname, ".pd",
dirbuf, &nameptr, FILENAME_MAX, 0);
else
fd = open_via_path(".", fullclassname, ".pd",
dirbuf, &nameptr, FILENAME_MAX, 0);
if(fd < 0)
{
return (0);
}
sys_close(fd);
#if 0
if(!canvas) {
char helppathname[FILENAME_MAX];
strncpy(helppathname, sys_libdir->s_name, FILENAME_MAX-30);
helppathname[FILENAME_MAX-30] = 0;
strcat(helppathname, "/doc/5.reference/");
strcat(helppathname, classname);
sys_helppath = namelist_append(sys_helppath, helppathname, 0);
}
#endif
if(libdir_add_to_path(dirbuf, canvas))
logpost(NULL, 3, "libdir_loader: added '%s' to the %s objectclass path",
classname, canvas?"canvas-local":"global");
/* post("libdir_loader loaded fullclassname: '%s'\n", fullclassname); */
logpost(NULL, 14, "Loaded libdir '%s' from '%s'", classname, dirbuf);
return (1);
}
static int libdir_add_to_globalpath(const char*path) {
int major, minor, bugfix;
sys_getversion(&major, &minor, &bugfix);
if((major==0 && minor < 48)) {
sys_searchpath = namelist_append(sys_searchpath, path, 0);
} else {
const char *inptr = path;
char encoded[MAXPDSTRING];
char *outptr = encoded;
t_atom ap[2];
*outptr++='+';
while(inptr && ((outptr+2) < (encoded+MAXPDSTRING))) {
*outptr++ = *inptr++;
if ('+'==inptr[-1])
*outptr++='+';
}
*outptr=0;
SETSYMBOL(ap+0, gensym(encoded));
SETFLOAT(ap+1, 0.f);
pd_typedmess(gensym("pd")->s_thing, gensym("add-to-path"), 2, ap);
}
return 1;
}
int sys_argparse(int argc, char **argv)
{
char sbuf[MAXPDSTRING];
int i;
while ((argc > 0) && **argv == '-')
{
if (!strcmp(*argv, "-r") && argc > 1 &&
sscanf(argv[1], "%d", &sys_main_srate) >= 1)
{
argc -= 2;
argv += 2;
}
else if (!strcmp(*argv, "-inchannels") && (argc > 1))
{
sys_parsedevlist(&sys_nchin,
sys_chinlist, MAXAUDIOINDEV, argv[1]);
if (!sys_nchin)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-outchannels") && (argc > 1))
{
sys_parsedevlist(&sys_nchout, sys_choutlist,
MAXAUDIOOUTDEV, argv[1]);
if (!sys_nchout)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-channels") && (argc > 1))
{
sys_parsedevlist(&sys_nchin, sys_chinlist,MAXAUDIOINDEV,
argv[1]);
sys_parsedevlist(&sys_nchout, sys_choutlist,MAXAUDIOOUTDEV,
argv[1]);
if (!sys_nchout)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-soundbuf") || !strcmp(*argv, "-audiobuf") && (argc > 1))
{
sys_main_advance = atoi(argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-callback"))
{
sys_main_callback = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-blocksize"))
{
sys_main_blocksize = atoi(argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-sleepgrain") && (argc > 1))
{
sys_sleepgrain = 1000 * atof(argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-nodac"))
{
sys_nsoundout=0;
sys_nchout = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-noadc"))
{
sys_nsoundin=0;
sys_nchin = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-nosound") || !strcmp(*argv, "-noaudio"))
{
sys_nsoundin=sys_nsoundout = 0;
sys_nchin = sys_nchout = 0;
argc--; argv++;
}
#ifdef USEAPI_OSS
else if (!strcmp(*argv, "-oss"))
{
sys_set_audio_api(API_OSS);
argc--; argv++;
}
#endif
#ifdef USEAPI_ALSA
else if (!strcmp(*argv, "-alsa"))
{
sys_set_audio_api(API_ALSA);
argc--; argv++;
}
else if (!strcmp(*argv, "-alsaadd") && (argc > 1))
{
if (argc > 1)
alsa_adddev(argv[1]);
else goto usage;
argc -= 2; argv +=2;
}
else if (!strcmp(*argv, "-alsamidi"))
{
sys_set_midi_api(API_ALSA);
argc--; argv++;
}
#endif
#ifdef USEAPI_JACK
else if (!strcmp(*argv, "-jack"))
{
sys_set_audio_api(API_JACK);
argc--; argv++;
}
#endif
#ifdef USEAPI_PORTAUDIO
else if (!strcmp(*argv, "-pa") || !strcmp(*argv, "-portaudio")
#ifdef MSW
|| !strcmp(*argv, "-asio")
#endif
)
{
sys_set_audio_api(API_PORTAUDIO);
sys_mmio = 0;
argc--; argv++;
}
#endif
#ifdef USEAPI_MMIO
else if (!strcmp(*argv, "-mmio"))
{
sys_set_audio_api(API_MMIO);
sys_mmio = 1;
argc--; argv++;
}
#endif
#ifdef USEAPI_AUDIOUNIT
else if (!strcmp(*argv, "-audiounit"))
{
sys_set_audio_api(API_AUDIOUNIT);
argc--; argv++;
}
#endif
#ifdef USEAPI_ESD
else if (!strcmp(*argv, "-esd"))
{
sys_set_audio_api(API_ESD);
argc--; argv++;
}
#endif
else if (!strcmp(*argv, "-nomidiin"))
{
sys_nmidiin = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-nomidiout"))
{
sys_nmidiout = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-nomidi"))
{
sys_nmidiin = sys_nmidiout = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-midiindev"))
{
sys_parsedevlist(&sys_nmidiin, sys_midiindevlist, MAXMIDIINDEV,
argv[1]);
if (!sys_nmidiin)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-midioutdev") && (argc > 1))
{
sys_parsedevlist(&sys_nmidiout, sys_midioutdevlist, MAXMIDIOUTDEV,
argv[1]);
if (!sys_nmidiout)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-mididev") && (argc > 1))
{
sys_parsedevlist(&sys_nmidiin, sys_midiindevlist, MAXMIDIINDEV,
argv[1]);
sys_parsedevlist(&sys_nmidiout, sys_midioutdevlist, MAXMIDIOUTDEV,
argv[1]);
if (!sys_nmidiout)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-path") && (argc > 1))
{
sys_searchpath = namelist_append_files(sys_searchpath, argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-nostdpath"))
{
sys_usestdpath = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-stdpath"))
{
sys_usestdpath = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-helppath"))
{
sys_helppath = namelist_append_files(sys_helppath, argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-open") && argc > 1)
{
sys_openlist = namelist_append_files(sys_openlist, argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-lib") && argc > 1)
{
sys_externlist = namelist_append_files(sys_externlist, argv[1]);
argc -= 2; argv += 2;
}
else if ((!strcmp(*argv, "-font-size") || !strcmp(*argv, "-font"))
&& argc > 1)
{
sys_defaultfont = sys_nearestfontsize(atoi(argv[1]));
argc -= 2;
argv += 2;
}
else if ((!strcmp(*argv, "-font-face") || !strcmp(*argv, "-typeface"))
&& argc > 1)
{
strncpy(sys_font,*(argv+1),sizeof(sys_font)-1);
sys_font[sizeof(sys_font)-1] = 0;
argc -= 2;
argv += 2;
}
else if (!strcmp(*argv, "-font-weight") && argc > 1)
{
strncpy(sys_fontweight,*(argv+1),sizeof(sys_fontweight)-1);
sys_fontweight[sizeof(sys_fontweight)-1] = 0;
argc -= 2;
argv += 2;
}
else if (!strcmp(*argv, "-verbose"))
{
sys_verbose++;
argc--; argv++;
}
else if (!strcmp(*argv, "-version"))
{
sys_version = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-d") && argc > 1 &&
sscanf(argv[1], "%d", &sys_debuglevel) >= 1)
{
argc -= 2;
argv += 2;
}
else if (!strcmp(*argv, "-noloadbang"))
{
sys_noloadbang = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-nogui"))
{
sys_printtostderr = sys_nogui = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-guiport") && argc > 1 &&
sscanf(argv[1], "%d", &sys_guisetportnumber) >= 1)
{
argc -= 2;
argv += 2;
}
else if (!strcmp(*argv, "-stderr"))
{
sys_printtostderr = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-guicmd") && argc > 1)
{
sys_guicmd = argv[1];
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-send") && argc > 1)
{
sys_messagelist = namelist_append(sys_messagelist, argv[1], 1);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-listdev"))
{
sys_listplease = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-schedlib") && argc > 1)
{
sys_externalschedlib = 1;
strncpy(sys_externalschedlibname, argv[1],
sizeof(sys_externalschedlibname) - 1);
argv += 2;
argc -= 2;
}
else if (!strcmp(*argv, "-extraflags") && argc > 1)
{
sys_extraflags = 1;
strncpy(sys_extraflagsstring, argv[1],
sizeof(sys_extraflagsstring) - 1);
argv += 2;
argc -= 2;
}
else if (!strcmp(*argv, "-batch"))
{
sys_batch = 1;
sys_printtostderr = sys_nogui = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-noautopatch"))
{
sys_noautopatch = 1;
argc--; argv++;
}
#ifdef HAVE_UNISTD_H
else if (!strcmp(*argv, "-rt") || !strcmp(*argv, "-realtime"))
{
sys_hipriority = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-nrt"))
{
sys_hipriority = 0;
argc--; argv++;
}
#endif
else if (!strcmp(*argv, "-nosleep"))
{
sys_nosleep = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-soundindev") ||
!strcmp(*argv, "-audioindev"))
{
sys_parsedevlist(&sys_nsoundin, sys_soundindevlist,
MAXAUDIOINDEV, argv[1]);
if (!sys_nsoundin)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-soundoutdev") ||
!strcmp(*argv, "-audiooutdev"))
{
sys_parsedevlist(&sys_nsoundout, sys_soundoutdevlist,
MAXAUDIOOUTDEV, argv[1]);
if (!sys_nsoundout)
goto usage;
argc -= 2; argv += 2;
}
else if ((!strcmp(*argv, "-sounddev") || !strcmp(*argv, "-audiodev"))
&& (argc > 1))
{
sys_parsedevlist(&sys_nsoundin, sys_soundindevlist,
MAXAUDIOINDEV, argv[1]);
sys_parsedevlist(&sys_nsoundout, sys_soundoutdevlist,
MAXAUDIOOUTDEV, argv[1]);
if (!sys_nsoundout)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-noprefs")) /* did this earlier */
argc--, argv++;
else
{
unsigned int i;
usage:
for (i = 0; i < sizeof(usagemessage)/sizeof(*usagemessage); i++)
fprintf(stderr, "%s", usagemessage[i]);
return (1);
}
}
if (!sys_defaultfont)
sys_defaultfont = DEFAULTFONT;
for (; argc > 0; argc--, argv++)
sys_openlist = namelist_append_files(sys_openlist, *argv);
return (0);
}
void Pd::addToSearchPath(std::string const& path) noexcept
{
Pd& pd = Pd::get();
std::lock_guard<std::mutex> guard(pd.m_mutex);
sys_searchpath = namelist_append(sys_searchpath, path.c_str(), 0);
}
void cpd_searchpath_add(const char* path)
{
sys_searchpath = namelist_append(sys_searchpath, path, 0);
}
void sys_setextrapath(const char *p)
{
namelist_free(pd_extrapath);
pd_extrapath = namelist_append(0, p, 0);
}
void libpd_add_to_search_path(const char *s) {
sys_searchpath = namelist_append(sys_searchpath, s, 0);
}
int sys_argparse(int argc, char **argv)
{
char sbuf[MAXPDSTRING];
int i;
while ((argc > 0) && **argv == '-')
{
if (!strcmp(*argv, "-r") && argc > 1 &&
sscanf(argv[1], "%d", &sys_main_srate) >= 1)
{
argc -= 2;
argv += 2;
}
else if (!strcmp(*argv, "-inchannels") && (argc > 1))
{
sys_parsedevlist(&sys_nchin,
sys_chinlist, MAXAUDIOINDEV, argv[1]);
if (!sys_nchin)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-outchannels") && (argc > 1))
{
sys_parsedevlist(&sys_nchout, sys_choutlist,
MAXAUDIOOUTDEV, argv[1]);
if (!sys_nchout)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-channels") && (argc > 1))
{
sys_parsedevlist(&sys_nchin, sys_chinlist,MAXAUDIOINDEV,
argv[1]);
sys_parsedevlist(&sys_nchout, sys_choutlist,MAXAUDIOOUTDEV,
argv[1]);
if (!sys_nchout)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-soundbuf") || !strcmp(*argv, "-audiobuf") && (argc > 1))
{
sys_main_advance = atoi(argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-callback"))
{
sys_main_callback = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-nocallback"))
{
sys_main_callback = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-blocksize"))
{
sys_main_blocksize = atoi(argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-sleepgrain") && (argc > 1))
{
sys_sleepgrain = 1000 * atof(argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-nodac"))
{
sys_nsoundout=0;
sys_nchout = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-noadc"))
{
sys_nsoundin=0;
sys_nchin = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-nosound") || !strcmp(*argv, "-noaudio"))
{
sys_nsoundin=sys_nsoundout = 0;
sys_nchin = sys_nchout = 0;
argc--; argv++;
}
#ifdef USEAPI_OSS
else if (!strcmp(*argv, "-oss"))
{
sys_set_audio_api(API_OSS);
argc--; argv++;
}
else if (!strcmp(*argv, "-ossmidi"))
{
sys_set_midi_api(API_OSS);
argc--; argv++;
}
#endif
#ifdef USEAPI_ALSA
else if (!strcmp(*argv, "-alsa"))
{
sys_set_audio_api(API_ALSA);
argc--; argv++;
}
else if (!strcmp(*argv, "-alsaadd") && (argc > 1))
{
if (argc > 1)
alsa_adddev(argv[1]);
else goto usage;
argc -= 2; argv +=2;
}
else if (!strcmp(*argv, "-alsamidi"))
{
sys_set_midi_api(API_ALSA);
argc--; argv++;
}
#endif
#ifdef USEAPI_JACK
else if (!strcmp(*argv, "-jack"))
{
sys_set_audio_api(API_JACK);
argc--; argv++;
}
#endif
#ifdef USEAPI_PORTAUDIO
else if (!strcmp(*argv, "-pa") || !strcmp(*argv, "-portaudio")
#ifdef _WIN32
|| !strcmp(*argv, "-asio")
#endif
)
{
sys_set_audio_api(API_PORTAUDIO);
sys_mmio = 0;
argc--; argv++;
}
#endif
#ifdef USEAPI_MMIO
else if (!strcmp(*argv, "-mmio"))
{
sys_set_audio_api(API_MMIO);
sys_mmio = 1;
argc--; argv++;
}
#endif
#ifdef USEAPI_AUDIOUNIT
else if (!strcmp(*argv, "-audiounit"))
{
sys_set_audio_api(API_AUDIOUNIT);
argc--; argv++;
}
#endif
#ifdef USEAPI_ESD
else if (!strcmp(*argv, "-esd"))
{
sys_set_audio_api(API_ESD);
argc--; argv++;
}
#endif
else if (!strcmp(*argv, "-nomidiin"))
{
sys_nmidiin = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-nomidiout"))
{
sys_nmidiout = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-nomidi"))
{
sys_nmidiin = sys_nmidiout = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-midiindev") && (argc > 1))
{
sys_parsedevlist(&sys_nmidiin, sys_midiindevlist, MAXMIDIINDEV,
argv[1]);
if (!sys_nmidiin)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-midioutdev") && (argc > 1))
{
sys_parsedevlist(&sys_nmidiout, sys_midioutdevlist, MAXMIDIOUTDEV,
argv[1]);
if (!sys_nmidiout)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-mididev") && (argc > 1))
{
sys_parsedevlist(&sys_nmidiin, sys_midiindevlist, MAXMIDIINDEV,
argv[1]);
sys_parsedevlist(&sys_nmidiout, sys_midioutdevlist, MAXMIDIOUTDEV,
argv[1]);
if (!sys_nmidiout)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-midiaddindev") && (argc > 1))
{
if (sys_nmidiin < 0)
sys_nmidiin = 0;
if (sys_nmidiin < MAXMIDIINDEV)
{
int devn = sys_mididevnametonumber(0, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find MIDI input device: %s\n",
argv[1]);
else sys_midiindevlist[sys_nmidiin++] = devn + 1;
}
else fprintf(stderr, "number of MIDI devices limited to %d\n",
MAXMIDIINDEV);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-midiaddoutdev") && (argc > 1))
{
if (sys_nmidiout < 0)
sys_nmidiout = 0;
if (sys_nmidiout < MAXMIDIINDEV)
{
int devn = sys_mididevnametonumber(1, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find MIDI output device: %s\n",
argv[1]);
else sys_midioutdevlist[sys_nmidiout++] = devn + 1;
}
else fprintf(stderr, "number of MIDI devices limited to %d\n",
MAXMIDIINDEV);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-midiadddev") && (argc > 1))
{
if (sys_nmidiin < 0)
sys_nmidiin = 0;
if (sys_nmidiout < 0)
sys_nmidiout = 0;
if (sys_nmidiin < MAXMIDIINDEV && sys_nmidiout < MAXMIDIINDEV)
{
int devn = sys_mididevnametonumber(1, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find MIDI output device: %s\n",
argv[1]);
else sys_midioutdevlist[sys_nmidiin++] = devn + 1;
devn = sys_mididevnametonumber(1, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find MIDI output device: %s\n",
argv[1]);
else sys_midioutdevlist[sys_nmidiout++] = devn + 1;
}
else fprintf(stderr, "number of MIDI devices limited to %d",
MAXMIDIINDEV);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-path") && (argc > 1))
{
sys_searchpath = namelist_append_files(sys_searchpath, argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-nostdpath"))
{
sys_usestdpath = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-stdpath"))
{
sys_usestdpath = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-helppath"))
{
sys_helppath = namelist_append_files(sys_helppath, argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-open") && argc > 1)
{
sys_openlist = namelist_append_files(sys_openlist, argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-lib") && argc > 1)
{
sys_externlist = namelist_append_files(sys_externlist, argv[1]);
argc -= 2; argv += 2;
}
else if ((!strcmp(*argv, "-font-size") || !strcmp(*argv, "-font"))
&& argc > 1)
{
sys_defaultfont = sys_nearestfontsize(atoi(argv[1]));
argc -= 2;
argv += 2;
}
else if ((!strcmp(*argv, "-font-face") || !strcmp(*argv, "-typeface"))
&& argc > 1)
{
strncpy(sys_font,*(argv+1),sizeof(sys_font)-1);
sys_font[sizeof(sys_font)-1] = 0;
argc -= 2;
argv += 2;
}
else if (!strcmp(*argv, "-font-weight") && argc > 1)
{
strncpy(sys_fontweight,*(argv+1),sizeof(sys_fontweight)-1);
sys_fontweight[sizeof(sys_fontweight)-1] = 0;
argc -= 2;
argv += 2;
}
else if (!strcmp(*argv, "-verbose"))
{
sys_verbose++;
argc--; argv++;
}
else if (!strcmp(*argv, "-noverbose"))
{
sys_verbose=0;
argc--; argv++;
}
else if (!strcmp(*argv, "-version"))
{
sys_version = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-d") && argc > 1 &&
sscanf(argv[1], "%d", &sys_debuglevel) >= 1)
{
argc -= 2;
argv += 2;
}
else if (!strcmp(*argv, "-loadbang"))
{
sys_noloadbang = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-noloadbang"))
{
sys_noloadbang = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-gui"))
{
sys_nogui = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-nogui"))
{
sys_nogui = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-guiport") && argc > 1 &&
sscanf(argv[1], "%d", &sys_guisetportnumber) >= 1)
{
argc -= 2;
argv += 2;
}
else if (!strcmp(*argv, "-nostderr"))
{
sys_printtostderr = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-stderr"))
{
sys_printtostderr = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-guicmd") && argc > 1)
{
sys_guicmd = argv[1];
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-send") && argc > 1)
{
sys_messagelist = namelist_append(sys_messagelist, argv[1], 1);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-listdev"))
{
sys_listplease = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-schedlib") && argc > 1)
{
sys_externalschedlib = 1;
strncpy(sys_externalschedlibname, argv[1],
sizeof(sys_externalschedlibname) - 1);
argv += 2;
argc -= 2;
}
else if (!strcmp(*argv, "-extraflags") && argc > 1)
{
sys_extraflags = 1;
strncpy(sys_extraflagsstring, argv[1],
sizeof(sys_extraflagsstring) - 1);
argv += 2;
argc -= 2;
}
else if (!strcmp(*argv, "-batch"))
{
sys_batch = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-nobatch"))
{
sys_batch = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-autopatch"))
{
sys_noautopatch = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-noautopatch"))
{
sys_noautopatch = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-compatibility") && argc > 1)
{
float f;
if (sscanf(argv[1], "%f", &f) < 1)
goto usage;
pd_compatibilitylevel = 0.5 + 100. * f; /* e.g., 2.44 --> 244 */
argv += 2;
argc -= 2;
}
#ifdef HAVE_UNISTD_H
else if (!strcmp(*argv, "-rt") || !strcmp(*argv, "-realtime"))
{
sys_hipriority = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-nrt") || !strcmp(*argv, "-nort") || !strcmp(*argv, "-norealtime"))
{
sys_hipriority = 0;
argc--; argv++;
}
#endif
else if (!strcmp(*argv, "-sleep"))
{
sys_nosleep = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-nosleep"))
{
sys_nosleep = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-soundindev") ||
!strcmp(*argv, "-audioindev"))
{
sys_parsedevlist(&sys_nsoundin, sys_soundindevlist,
MAXAUDIOINDEV, argv[1]);
if (!sys_nsoundin)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-soundoutdev") ||
!strcmp(*argv, "-audiooutdev"))
{
sys_parsedevlist(&sys_nsoundout, sys_soundoutdevlist,
MAXAUDIOOUTDEV, argv[1]);
if (!sys_nsoundout)
goto usage;
argc -= 2; argv += 2;
}
else if ((!strcmp(*argv, "-sounddev") || !strcmp(*argv, "-audiodev"))
&& (argc > 1))
{
sys_parsedevlist(&sys_nsoundin, sys_soundindevlist,
MAXAUDIOINDEV, argv[1]);
sys_parsedevlist(&sys_nsoundout, sys_soundoutdevlist,
MAXAUDIOOUTDEV, argv[1]);
if (!sys_nsoundout)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-audioaddindev") && (argc > 1))
{
if (sys_nsoundin < 0)
sys_nsoundin = 0;
if (sys_nsoundin < MAXAUDIOINDEV)
{
int devn = sys_audiodevnametonumber(0, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find audio input device: %s\n",
argv[1]);
else sys_soundindevlist[sys_nsoundin++] = devn + 1;
}
else fprintf(stderr, "number of audio devices limited to %d\n",
MAXAUDIOINDEV);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-audioaddoutdev") && (argc > 1))
{
if (sys_nsoundout < 0)
sys_nsoundout = 0;
if (sys_nsoundout < MAXAUDIOINDEV)
{
int devn = sys_audiodevnametonumber(1, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find audio output device: %s\n",
argv[1]);
else sys_soundoutdevlist[sys_nsoundout++] = devn + 1;
}
else fprintf(stderr, "number of audio devices limited to %d\n",
MAXAUDIOINDEV);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-audioadddev") && (argc > 1))
{
if (sys_nsoundin < 0)
sys_nsoundin = 0;
if (sys_nsoundout < 0)
sys_nsoundout = 0;
if (sys_nsoundin < MAXAUDIOINDEV && sys_nsoundout < MAXAUDIOINDEV)
{
int devn = sys_audiodevnametonumber(0, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find audio input device: %s\n",
argv[1]);
else sys_soundindevlist[sys_nsoundin++] = devn + 1;
devn = sys_audiodevnametonumber(1, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find audio output device: %s\n",
argv[1]);
else sys_soundoutdevlist[sys_nsoundout++] = devn + 1;
}
else fprintf(stderr, "number of audio devices limited to %d",
MAXAUDIOINDEV);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-noprefs")) /* did this earlier */
argc--, argv++;
else
{
unsigned int i;
usage:
for (i = 0; i < sizeof(usagemessage)/sizeof(*usagemessage); i++)
fprintf(stderr, "%s", usagemessage[i]);
return (1);
}
}
if (sys_batch)
sys_nogui = 1;
if (sys_nogui)
sys_printtostderr = 1;
#ifdef _WIN32
if (sys_printtostderr)
/* we need to tell Windows to output UTF-8 */
SetConsoleOutputCP(CP_UTF8);
#endif
if (!sys_defaultfont)
sys_defaultfont = DEFAULTFONT;
for (; argc > 0; argc--, argv++)
sys_openlist = namelist_append_files(sys_openlist, *argv);
return (0);
}
int sys_argparse(int argc, char **argv)
{
char sbuf[MAXPDSTRING];
int i;
while ((argc > 0) && **argv == '-')
{
if (!strcmp(*argv, "-r") && argc > 1 &&
sscanf(argv[1], "%d", &sys_main_srate) >= 1)
{
argc -= 2;
argv += 2;
}
else if (!strcmp(*argv, "-inchannels"))
{
if (argc < 2)
goto usage;
sys_parsedevlist(&sys_nchin,
sys_chinlist, MAXAUDIOINDEV, argv[1]);
if (!sys_nchin)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-outchannels"))
{
if (argc < 2)
goto usage;
sys_parsedevlist(&sys_nchout, sys_choutlist,
MAXAUDIOOUTDEV, argv[1]);
if (!sys_nchout)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-channels"))
{
if (argc < 2)
goto usage;
sys_parsedevlist(&sys_nchin, sys_chinlist,MAXAUDIOINDEV,
argv[1]);
sys_parsedevlist(&sys_nchout, sys_choutlist,MAXAUDIOOUTDEV,
argv[1]);
if (!sys_nchout)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-soundbuf") || (!strcmp(*argv, "-audiobuf")))
{
if (argc < 2)
goto usage;
sys_main_advance = atoi(argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-callback"))
{
sys_main_callback = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-nocallback"))
{
sys_main_callback = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-blocksize"))
{
sys_main_blocksize = atoi(argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-sleepgrain"))
{
if (argc < 2)
goto usage;
sys_sleepgrain = 1000 * atof(argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-nodac"))
{
sys_nsoundout=0;
sys_nchout = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-noadc"))
{
sys_nsoundin=0;
sys_nchin = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-nosound") || !strcmp(*argv, "-noaudio"))
{
sys_nsoundin=sys_nsoundout = 0;
sys_nchin = sys_nchout = 0;
argc--; argv++;
}
#ifdef USEAPI_OSS
else if (!strcmp(*argv, "-oss"))
{
sys_set_audio_api(API_OSS);
argc--; argv++;
}
else if (!strcmp(*argv, "-ossmidi"))
{
sys_set_midi_api(API_OSS);
argc--; argv++;
}
#else
else if (!strcmp(*argv, "-oss") || !strcmp(*argv, "-ossmidi"))
{
fprintf(stderr, "Pd compiled without OSS-support, ignoring '%s' flag\n", *argv);
argc--; argv++;
}
#endif
#ifdef USEAPI_ALSA
else if (!strcmp(*argv, "-alsa"))
{
sys_set_audio_api(API_ALSA);
argc--; argv++;
}
else if (!strcmp(*argv, "-alsaadd"))
{
if (argc < 2)
goto usage;
alsa_adddev(argv[1]);
argc -= 2; argv +=2;
}
else if (!strcmp(*argv, "-alsamidi"))
{
sys_set_midi_api(API_ALSA);
argc--; argv++;
}
#else
else if (!strcmp(*argv, "-alsa") || !strcmp(*argv, "-alsamidi"))
{
fprintf(stderr, "Pd compiled without ALSA-support, ignoring '%s' flag\n", *argv);
argc--; argv++;
}
else if (!strcmp(*argv, "-alsaadd"))
{
if (argc < 2)
goto usage;
fprintf(stderr, "Pd compiled without ALSA-support, ignoring '%s' flag\n", *argv);
argc -= 2; argv +=2;
}
#endif
#ifdef USEAPI_JACK
else if (!strcmp(*argv, "-jack"))
{
sys_set_audio_api(API_JACK);
argc--; argv++;
}
else if (!strcmp(*argv, "-nojackconnect"))
{
jack_autoconnect(0);
argc--; argv++;
}
else if (!strcmp(*argv, "-jackconnect"))
{
jack_autoconnect(1);
argc--; argv++;
}
else if (!strcmp(*argv, "-jackname"))
{
if (argc < 2)
goto usage;
sys_set_audio_api(API_JACK), jack_client_name(argv[1]);
argc -= 2; argv +=2;
}
#else
else if (!strcmp(*argv, "-jack") || !strcmp(*argv, "-nojackconnect")
|| !strcmp(*argv, "-jackconnect"))
{
fprintf(stderr, "Pd compiled without JACK-support, ignoring '%s' flag\n", *argv);
argc--; argv++;
}
else if (!strcmp(*argv, "-jackname"))
{
if (argc < 2)
goto usage;
fprintf(stderr, "Pd compiled without JACK-support, ignoring '%s' flag\n", *argv);
argc -= 2; argv +=2;
}
#endif
#ifdef USEAPI_PORTAUDIO
else if (!strcmp(*argv, "-pa") || !strcmp(*argv, "-portaudio")
|| !strcmp(*argv, "-asio")
)
{
sys_set_audio_api(API_PORTAUDIO);
sys_mmio = 0;
argc--; argv++;
}
#else
else if (!strcmp(*argv, "-pa") || !strcmp(*argv, "-portaudio")
|| !strcmp(*argv, "-asio")
)
{
fprintf(stderr, "Pd compiled without PortAudio-support, ignoring '%s' flag\n", *argv);
argc--; argv++;
}
#endif
#ifdef USEAPI_MMIO
else if (!strcmp(*argv, "-mmio"))
{
sys_set_audio_api(API_MMIO);
sys_mmio = 1;
argc--; argv++;
}
#else
else if (!strcmp(*argv, "-mmio"))
{
fprintf(stderr, "Pd compiled without MMIO-support, ignoring '%s' flag\n", *argv);
argc--; argv++;
}
#endif
#ifdef USEAPI_AUDIOUNIT
else if (!strcmp(*argv, "-audiounit"))
{
sys_set_audio_api(API_AUDIOUNIT);
argc--; argv++;
}
#endif
#ifdef USEAPI_ESD
else if (!strcmp(*argv, "-esd"))
{
sys_set_audio_api(API_ESD);
argc--; argv++;
}
#endif
else if (!strcmp(*argv, "-nomidiin"))
{
sys_nmidiin = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-nomidiout"))
{
sys_nmidiout = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-nomidi"))
{
sys_nmidiin = sys_nmidiout = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-midiindev"))
{
if (argc < 2)
goto usage;
sys_parsedevlist(&sys_nmidiin, sys_midiindevlist, MAXMIDIINDEV,
argv[1]);
if (!sys_nmidiin)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-midioutdev"))
{
if (argc < 2)
goto usage;
sys_parsedevlist(&sys_nmidiout, sys_midioutdevlist, MAXMIDIOUTDEV,
argv[1]);
if (!sys_nmidiout)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-mididev"))
{
if (argc < 2)
goto usage;
sys_parsedevlist(&sys_nmidiin, sys_midiindevlist, MAXMIDIINDEV,
argv[1]);
sys_parsedevlist(&sys_nmidiout, sys_midioutdevlist, MAXMIDIOUTDEV,
argv[1]);
if (!sys_nmidiout)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-midiaddindev"))
{
if (argc < 2)
goto usage;
if (sys_nmidiin < 0)
sys_nmidiin = 0;
if (sys_nmidiin < MAXMIDIINDEV)
{
int devn = sys_mididevnametonumber(0, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find MIDI input device: %s\n",
argv[1]);
else sys_midiindevlist[sys_nmidiin++] = devn + 1;
}
else fprintf(stderr, "number of MIDI devices limited to %d\n",
MAXMIDIINDEV);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-midiaddoutdev"))
{
if (argc < 2)
goto usage;
if (sys_nmidiout < 0)
sys_nmidiout = 0;
if (sys_nmidiout < MAXMIDIINDEV)
{
int devn = sys_mididevnametonumber(1, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find MIDI output device: %s\n",
argv[1]);
else sys_midioutdevlist[sys_nmidiout++] = devn + 1;
}
else fprintf(stderr, "number of MIDI devices limited to %d\n",
MAXMIDIINDEV);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-midiadddev"))
{
if (argc < 2)
goto usage;
if (sys_nmidiin < 0)
sys_nmidiin = 0;
if (sys_nmidiout < 0)
sys_nmidiout = 0;
if (sys_nmidiin < MAXMIDIINDEV && sys_nmidiout < MAXMIDIINDEV)
{
int devn = sys_mididevnametonumber(1, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find MIDI output device: %s\n",
argv[1]);
else sys_midioutdevlist[sys_nmidiin++] = devn + 1;
devn = sys_mididevnametonumber(1, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find MIDI output device: %s\n",
argv[1]);
else sys_midioutdevlist[sys_nmidiout++] = devn + 1;
}
else fprintf(stderr, "number of MIDI devices limited to %d",
MAXMIDIINDEV);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-path"))
{
if (argc < 2)
goto usage;
STUFF->st_searchpath =
namelist_append_files(STUFF->st_searchpath, argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-nostdpath"))
{
sys_usestdpath = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-stdpath"))
{
sys_usestdpath = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-helppath"))
{
if (argc < 2)
goto usage;
STUFF->st_helppath =
namelist_append_files(STUFF->st_helppath, argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-open"))
{
if (argc < 2)
goto usage;
sys_openlist = namelist_append_files(sys_openlist, argv[1]);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-lib"))
{
if (argc < 2)
goto usage;
STUFF->st_externlist =
namelist_append_files(STUFF->st_externlist, argv[1]);
argc -= 2; argv += 2;
}
else if ((!strcmp(*argv, "-font-size") || !strcmp(*argv, "-font")))
{
if (argc < 2)
goto usage;
sys_defaultfont = sys_nearestfontsize(atoi(argv[1]));
argc -= 2;
argv += 2;
}
else if ((!strcmp(*argv, "-font-face") || !strcmp(*argv, "-typeface")))
{
if (argc < 2)
goto usage;
strncpy(sys_font,*(argv+1),sizeof(sys_font)-1);
sys_font[sizeof(sys_font)-1] = 0;
argc -= 2;
argv += 2;
}
else if (!strcmp(*argv, "-font-weight"))
{
if (argc < 2)
goto usage;
strncpy(sys_fontweight,*(argv+1),sizeof(sys_fontweight)-1);
sys_fontweight[sizeof(sys_fontweight)-1] = 0;
argc -= 2;
argv += 2;
}
else if (!strcmp(*argv, "-verbose"))
{
sys_verbose++;
argc--; argv++;
}
else if (!strcmp(*argv, "-noverbose"))
{
sys_verbose=0;
argc--; argv++;
}
else if (!strcmp(*argv, "-version"))
{
sys_version = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-d") && argc > 1 &&
sscanf(argv[1], "%d", &sys_debuglevel) >= 1)
{
argc -= 2;
argv += 2;
}
else if (!strcmp(*argv, "-loadbang"))
{
sys_noloadbang = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-noloadbang"))
{
sys_noloadbang = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-gui"))
{
sys_dontstartgui = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-nogui"))
{
sys_dontstartgui = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-guiport") && argc > 1 &&
sscanf(argv[1], "%d", &sys_guisetportnumber) >= 1)
{
argc -= 2;
argv += 2;
}
else if (!strcmp(*argv, "-nostderr"))
{
sys_printtostderr = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-stderr"))
{
sys_printtostderr = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-guicmd"))
{
if (argc < 2)
goto usage;
sys_guicmd = argv[1];
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-send"))
{
if (argc < 2)
goto usage;
sys_messagelist = namelist_append(sys_messagelist, argv[1], 1);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-listdev"))
{
sys_listplease = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-schedlib"))
{
if (argc < 2)
goto usage;
sys_externalschedlib = 1;
strncpy(sys_externalschedlibname, argv[1],
sizeof(sys_externalschedlibname) - 1);
#ifndef __APPLE__
/* no real audio please, unless overwritten by later args.
This is to circumvent a problem running pd~ subprocesses
with -nogui; they would open an audio device before pdsched.c
could set the API ito nothing. For some reason though, on
MACOSX this causes Pd to switch to JACK so we just give up
and suppress the workaround there. */
sys_set_audio_api(0);
#endif
argv += 2;
argc -= 2;
}
else if (!strcmp(*argv, "-extraflags"))
{
if (argc < 2)
goto usage;
sys_extraflags = 1;
strncpy(sys_extraflagsstring, argv[1],
sizeof(sys_extraflagsstring) - 1);
argv += 2;
argc -= 2;
}
else if (!strcmp(*argv, "-batch"))
{
sys_batch = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-nobatch"))
{
sys_batch = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-autopatch"))
{
sys_noautopatch = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-noautopatch"))
{
sys_noautopatch = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-compatibility"))
{
float f;
if (argc < 2)
goto usage;
if (sscanf(argv[1], "%f", &f) < 1)
goto usage;
pd_compatibilitylevel = 0.5 + 100. * f; /* e.g., 2.44 --> 244 */
argv += 2;
argc -= 2;
}
#ifdef HAVE_UNISTD_H
else if (!strcmp(*argv, "-rt") || !strcmp(*argv, "-realtime"))
{
sys_hipriority = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-nrt") || !strcmp(*argv, "-nort") || !strcmp(*argv, "-norealtime"))
{
sys_hipriority = 0;
argc--; argv++;
}
#else
else if (!strcmp(*argv, "-rt") || !strcmp(*argv, "-realtime")
|| !strcmp(*argv, "-nrt") || !strcmp(*argv, "-nort")
|| !strcmp(*argv, "-norealtime"))
{
fprintf(stderr, "Pd compiled without realtime priority-support, ignoring '%s' flag\n", *argv);
argc--; argv++;
}
#endif
else if (!strcmp(*argv, "-sleep"))
{
sys_nosleep = 0;
argc--; argv++;
}
else if (!strcmp(*argv, "-nosleep"))
{
sys_nosleep = 1;
argc--; argv++;
}
else if (!strcmp(*argv, "-soundindev") ||
!strcmp(*argv, "-audioindev"))
{
sys_parsedevlist(&sys_nsoundin, sys_soundindevlist,
MAXAUDIOINDEV, argv[1]);
if (!sys_nsoundin)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-soundoutdev") ||
!strcmp(*argv, "-audiooutdev"))
{
if (argc < 2)
goto usage;
sys_parsedevlist(&sys_nsoundout, sys_soundoutdevlist,
MAXAUDIOOUTDEV, argv[1]);
if (!sys_nsoundout)
goto usage;
argc -= 2; argv += 2;
}
else if ((!strcmp(*argv, "-sounddev") || !strcmp(*argv, "-audiodev")))
{
if (argc < 2)
goto usage;
sys_parsedevlist(&sys_nsoundin, sys_soundindevlist,
MAXAUDIOINDEV, argv[1]);
sys_parsedevlist(&sys_nsoundout, sys_soundoutdevlist,
MAXAUDIOOUTDEV, argv[1]);
if (!sys_nsoundout)
goto usage;
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-audioaddindev"))
{
if (argc < 2)
goto usage;
if (sys_nsoundin < 0)
sys_nsoundin = 0;
if (sys_nsoundin < MAXAUDIOINDEV)
{
int devn = sys_audiodevnametonumber(0, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find audio input device: %s\n",
argv[1]);
else sys_soundindevlist[sys_nsoundin++] = devn + 1;
}
else fprintf(stderr, "number of audio devices limited to %d\n",
MAXAUDIOINDEV);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-audioaddoutdev"))
{
if (argc < 2)
goto usage;
if (sys_nsoundout < 0)
sys_nsoundout = 0;
if (sys_nsoundout < MAXAUDIOINDEV)
{
int devn = sys_audiodevnametonumber(1, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find audio output device: %s\n",
argv[1]);
else sys_soundoutdevlist[sys_nsoundout++] = devn + 1;
}
else fprintf(stderr, "number of audio devices limited to %d\n",
MAXAUDIOINDEV);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-audioadddev"))
{
if (argc < 2)
goto usage;
if (sys_nsoundin < 0)
sys_nsoundin = 0;
if (sys_nsoundout < 0)
sys_nsoundout = 0;
if (sys_nsoundin < MAXAUDIOINDEV && sys_nsoundout < MAXAUDIOINDEV)
{
int devn = sys_audiodevnametonumber(0, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find audio input device: %s\n",
argv[1]);
else sys_soundindevlist[sys_nsoundin++] = devn + 1;
devn = sys_audiodevnametonumber(1, argv[1]);
if (devn < 0)
fprintf(stderr, "Couldn't find audio output device: %s\n",
argv[1]);
else sys_soundoutdevlist[sys_nsoundout++] = devn + 1;
}
else fprintf(stderr, "number of audio devices limited to %d",
MAXAUDIOINDEV);
argc -= 2; argv += 2;
}
else if (!strcmp(*argv, "-noprefs")) /* did this earlier */
argc--, argv++;
else if (!strcmp(*argv, "-prefsfile") && argc > 1) /* this too */
argc -= 2, argv +=2;
else
{
unsigned int i;
usage:
for (i = 0; i < sizeof(usagemessage)/sizeof(*usagemessage); i++)
fprintf(stderr, "%s", usagemessage[i]);
return (1);
}
}
if (sys_batch)
sys_dontstartgui = 1;
if (sys_dontstartgui)
sys_printtostderr = 1;
#ifdef _WIN32
if (sys_printtostderr)
/* we need to tell Windows to output UTF-8 */
SetConsoleOutputCP(CP_UTF8);
#endif
if (!sys_defaultfont)
sys_defaultfont = DEFAULTFONT;
for (; argc > 0; argc--, argv++)
sys_openlist = namelist_append_files(sys_openlist, *argv);
return (0);
}
void libpd_add_to_search_path(const char *s) {
sys_lock();
STUFF->st_searchpath = namelist_append(STUFF->st_searchpath, s, 0);
sys_unlock();
}
