From 542dc6843919bbcd6b24d4dc74fdf5dc2db92594 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Mon, 20 Nov 2006 04:30:47 +0000 Subject: oops, forgot the /extra part, that's essential. svn path=/trunk/externals/hcs/; revision=6336 --- classpath.c | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) (limited to 'classpath.c') diff --git a/classpath.c b/classpath.c index 223460b..9716682 100644 --- a/classpath.c +++ b/classpath.c @@ -1,7 +1,7 @@ /* --------------------------------------------------------------------------*/ /* */ -/* This object outputs the search path for finding objects using a similar */ -/* interface as [textfile] and [qlist] */ +/* This object outputs the global search path for finding objects using a */ +/* similar interface as [textfile] and [qlist]. */ /* */ /* Copyright (c) 2006 Hans-Christoph Steiner */ /* */ @@ -36,7 +36,7 @@ #include -static char *version = "$Revision: 1.1 $"; +static char *version = "$Revision: 1.2 $"; t_int classpath_instance_count; @@ -104,7 +104,9 @@ static void *classpath_new() } classpath_instance_count++; - x->x_top = namelist_append_files(NULL,sys_libdir->s_name); + strncpy(buffer, sys_libdir->s_name, MAXPDSTRING); + strcat(buffer, "/extra"); + x->x_top = namelist_append_files(NULL,buffer); x->x_top->nl_next = sys_searchpath; x->x_current = x->x_top; @@ -114,6 +116,12 @@ static void *classpath_new() return (x); } +void classpath_free() +{ + // TODO: look into freeing the namelist +} + + void classpath_setup(void) { DEBUG(post("classpath_setup");); -- cgit v1.2.1