static void sys_loadstartup(void)
{
char startupdir[PATH_MAX];
struct stat statbuf;
strncpy(startupdir, sys_libdir->s_name, PATH_MAX - 8);
strcat(startupdir, "/startup");
if (stat(startupdir, &statbuf) == 0 && statbuf.st_mode & S_IFDIR)
{
DIR* dirp;
struct dirent *dp;
struct stat statbuf;
char buf[PATH_MAX];
char* extension;
logpost(NULL, 5, "Using %s as startup.", startupdir);
dirp = opendir(startupdir);
while ((dp = readdir(dirp)) != NULL)
{
if(strcmp(".", dp->d_name) == 0 || strcmp("..", dp->d_name) == 0)
continue;
strncpy(buf, startupdir, PATH_MAX - 1);
strcat(buf, "/");
strncat(buf, dp->d_name, PATH_MAX - strlen(buf) - 1);
#ifdef _WIN32
char resolved_path[PATH_MAX];
strncpy(resolved_path, buf, PATH_MAX);
#elif defined(__gnu_linux__) || defined(__AVAILABLE_MAC_OS_X_VERSION_10_6_AND_LATER)
/* safe, non-standard format of realpath(), with NULL resolved_name */
char* tmp = realpath(buf, NULL);
char resolved_path[strlen(tmp)];
strcpy(resolved_path, tmp);
free(tmp);
#else
char resolved_path[PATH_MAX];
realpath(buf, resolved_path);
#endif /* _WIN32 elif __gnu_linux__ */
stat(resolved_path, &statbuf);
if (S_ISREG(statbuf.st_mode))
{
logpost(NULL, 4, "Loading %s", buf);
/* remove the extension for sys_load_lib() */
extension = strrchr(resolved_path, '.');
if (extension != NULL)
*extension = 0;
if (!sys_load_lib(0, resolved_path))
error("%s: can't load startup library'!\n", buf);
}
else if (S_ISDIR(statbuf.st_mode))
{
/* try lib-in-folder style, i.e. mylib/mylib.pd_linux */
logpost(NULL, 4, "Loading %s in %s", dp->d_name, buf);
if (!sys_load_lib(0, dp->d_name))
error("%s: can't load startup library'!\n", buf);
}
}
(void)closedir(dirp);
}
}
void glob_initfromgui(void *dummy, t_symbol *s, int argc, t_atom *argv)
{
char *cwd = atom_getsymbolarg(0, argc, argv)->s_name;
t_namelist *nl;
unsigned int i;
int did_fontwarning = 0;
int j;
sys_oldtclversion = atom_getfloatarg(1, argc, argv);
if (argc != 2 + 3 * NZOOM * NFONT)
bug("glob_initfromgui");
for (j = 0; j < NZOOM; j++)
for (i = 0; i < NFONT; i++)
{
int size = atom_getfloatarg(3 * (i + j * NFONT) + 2, argc, argv);
int width = atom_getfloatarg(3 * (i + j * NFONT) + 3, argc, argv);
int height = atom_getfloatarg(3 * (i + j * NFONT) + 4, argc, argv);
if (!(size && width && height))
{
size = (j+1)*sys_fontspec[i].fi_pointsize;
width = (j+1)*sys_fontspec[i].fi_width;
height = (j+1)*sys_fontspec[i].fi_height;
if (!did_fontwarning)
{
verbose(1, "ignoring invalid font-metrics from GUI");
did_fontwarning = 1;
}
}
sys_gotfonts[j][i].fi_pointsize = size;
sys_gotfonts[j][i].fi_width = width;
sys_gotfonts[j][i].fi_height = height;
#if 0
fprintf(stderr, "font (%d %d %d)\n",
sys_gotfonts[j][i].fi_pointsize, sys_gotfonts[j][i].fi_width,
sys_gotfonts[j][i].fi_height);
#endif
}
/* load dynamic libraries specified with "-lib" args */
if (sys_oktoloadfiles(0))
{
for (nl = STUFF->st_externlist; nl; nl = nl->nl_next)
if (!sys_load_lib(0, nl->nl_string))
post("%s: can't load library", nl->nl_string);
sys_oktoloadfiles(1);
}
/* open patches specifies with "-open" args */
for (nl = sys_openlist; nl; nl = nl->nl_next)
openit(cwd, nl->nl_string);
namelist_free(sys_openlist);
sys_openlist = 0;
/* send messages specified with "-send" args */
for (nl = sys_messagelist; nl; nl = nl->nl_next)
{
t_binbuf *b = binbuf_new();
binbuf_text(b, nl->nl_string, strlen(nl->nl_string));
binbuf_eval(b, 0, 0, 0);
binbuf_free(b);
}
namelist_free(sys_messagelist);
sys_messagelist = 0;
}
/* this routine is called when a new "object" is requested whose class Pd
doesn't know. Pd tries to load it as an extern, then as an abstraction. */
void new_anything(void *dummy, t_symbol *s, int argc, t_atom *argv)
{
t_pd *current;
int fd;
char dirbuf[MAXPDSTRING], *nameptr;
if (tryingalready) return;
newest = 0;
class_loadsym = s;
if (sys_load_lib(canvas_getcurrent(), s->s_name))
{
tryingalready = 1;
typedmess(dummy, s, argc, argv);
tryingalready = 0;
return;
}
class_loadsym = 0;
current = s__X.s_thing;
if ((fd = canvas_open(canvas_getcurrent(), s->s_name, ".pd",
dirbuf, &nameptr, MAXPDSTRING, 0)) >= 0 ||
(fd = canvas_open(canvas_getcurrent(), s->s_name, ".pat",
dirbuf, &nameptr, MAXPDSTRING, 0)) >= 0)
{
close (fd);
if (!pd_setloadingabstraction(s))
{
canvas_setargs(argc, argv);
binbuf_evalfile(gensym(nameptr), gensym(dirbuf));
if (s__X.s_thing != current)
canvas_popabstraction((t_canvas *)(s__X.s_thing));
canvas_setargs(0, 0);
}
else error("%s: can't load abstraction within itself\n", s->s_name);
}
else newest = 0;
}
/* this routine is called when a new "object" is requested whose class Pd
doesn't know. Pd tries to load it as an extern, then as an abstraction. */
void new_anything(void *dummy, t_symbol *s, int argc, t_atom *argv)
{
int fd;
char dirbuf[MAXPDSTRING], classslashclass[MAXPDSTRING], *nameptr;
if (tryingalready>MAXOBJDEPTH){
error("maximum object loading depth %d reached", MAXOBJDEPTH);
return;
}
if (s == &s_anything){
error("object name \"%s\" not allowed", s->s_name);
return;
}
pd_this->pd_newest = 0;
class_loadsym = s;
pd_globallock();
if (sys_load_lib(canvas_getcurrent(), s->s_name))
{
tryingalready++;
typedmess(dummy, s, argc, argv);
tryingalready--;
return;
}
class_loadsym = 0;
pd_globalunlock();
}
void glob_initfromgui(void *dummy, t_symbol *s, int argc, t_atom *argv)
{
char *cwd = atom_getsymbolarg(0, argc, argv)->s_name;
t_namelist *nl;
unsigned int i;
int j;
int nhostfont = (argc-2)/3;
sys_oldtclversion = atom_getfloatarg(1, argc, argv);
if (argc != 2 + 3 * nhostfont) bug("glob_initfromgui");
for (i = 0; i < NFONT; i++)
{
int best = 0;
int wantheight = sys_fontlist[i].fi_maxheight;
int wantwidth = sys_fontlist[i].fi_maxwidth;
for (j = 1; j < nhostfont; j++)
{
if (atom_getintarg(3 * j + 4, argc, argv) <= wantheight &&
atom_getintarg(3 * j + 3, argc, argv) <= wantwidth)
best = j;
}
/* best is now the host font index for the desired font index i. */
sys_fontlist[i].fi_hostfontsize =
atom_getintarg(3 * best + 2, argc, argv);
sys_fontlist[i].fi_width = atom_getintarg(3 * best + 3, argc, argv);
sys_fontlist[i].fi_height = atom_getintarg(3 * best + 4, argc, argv);
}
#if 0
for (i = 0; i < 6; i++)
fprintf(stderr, "font (%d %d %d) -> (%d %d %d)\n",
sys_fontlist[i].fi_fontsize,
sys_fontlist[i].fi_maxwidth,
sys_fontlist[i].fi_maxheight,
sys_fontlist[i].fi_hostfontsize,
sys_fontlist[i].fi_width,
sys_fontlist[i].fi_height);
#endif
/* auto-load anything in that is in startupdir */
if(!sys_nostartup)
sys_loadstartup();
/* load dynamic libraries specified with "-lib" args */
for (nl = sys_externlist; nl; nl = nl->nl_next)
if (!sys_load_lib(0, nl->nl_string))
post("%s: can't load library", nl->nl_string);
/* open patches specifies with "-open" args */
for (nl = sys_openlist; nl; nl = nl->nl_next)
openit(cwd, nl->nl_string);
namelist_free(sys_openlist);
sys_openlist = 0;
/* send messages specified with "-send" args */
for (nl = sys_messagelist; nl; nl = nl->nl_next)
{
t_binbuf *b = binbuf_new();
binbuf_text(b, nl->nl_string, strlen(nl->nl_string));
binbuf_eval(b, 0, 0, 0);
binbuf_free(b);
}
namelist_free(sys_messagelist);
sys_messagelist = 0;
}
/* this routine is called when a new "object" is requested whose class Pd
doesn't know. Pd tries to load it as an extern, then as an abstraction. */
void new_anything(void *dummy, t_symbol *s, int argc, t_atom *argv)
{
t_pd *current;
int fd;
char dirbuf[MAXPDSTRING], classslashclass[MAXPDSTRING], *nameptr;
if (tryingalready>MAXOBJDEPTH){
error("maximum object loading depth %d reached", MAXOBJDEPTH);
return;
}
newest = 0;
class_loadsym = s;
if (sys_load_lib(canvas_getcurrent(), s->s_name))
{
tryingalready++;
typedmess(dummy, s, argc, argv);
tryingalready--;
return;
}
class_loadsym = 0;
current = s__X.s_thing;
/* for class/class.pd support, to match class/class.pd_linux */
snprintf(classslashclass, MAXPDSTRING, "%s/%s", s->s_name, s->s_name);
if ((fd = canvas_open(canvas_getcurrent(), s->s_name, ".pd",
dirbuf, &nameptr, MAXPDSTRING, 0)) >= 0 ||
(fd = canvas_open(canvas_getcurrent(), s->s_name, ".pat",
dirbuf, &nameptr, MAXPDSTRING, 0)) >= 0 ||
(fd = canvas_open(canvas_getcurrent(), classslashclass, ".pd",
dirbuf, &nameptr, MAXPDSTRING, 0)) >= 0)
{
close (fd);
if (!pd_setloadingabstraction(s))
{
canvas_setargs(argc, argv);
binbuf_evalfile(gensym(nameptr), gensym(dirbuf));
canvas_initbang((t_canvas *)(s__X.s_thing));/* JMZ*/
if (s__X.s_thing != current)
canvas_popabstraction((t_canvas *)(s__X.s_thing));
canvas_setargs(0, 0);
}
else error("%s: can't load abstraction within itself\n", s->s_name);
}
else newest = 0;
}
