[PD-cvs] externals/hcs classpath.c, NONE, 1.1 classpath-help.pd, NONE, 1.1
Hans-Christoph Steiner
eighthave at users.sourceforge.net
Fri Nov 17 07:03:17 CET 2006
Update of /cvsroot/pure-data/externals/hcs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2241
Added Files:
classpath.c classpath-help.pd
Log Message:
functional classpath getter like [textfile]; need to add setting capabilities
--- NEW FILE: classpath-help.pd ---
#N canvas 375 22 462 312 10;
#X obj 85 99 classpath;
#X msg 82 68 bang;
#X obj 99 145 print;
#X symbolatom 74 182 0 0 0 0 - - -;
#X obj 146 120 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 124 71 rewind;
#X connect 0 0 2 0;
#X connect 0 0 3 0;
#X connect 0 1 4 0;
#X connect 1 0 0 0;
#X connect 5 0 0 0;
--- NEW FILE: classpath.c ---
/* --------------------------------------------------------------------------*/
/* */
/* This object outputs the search path for finding objects using a similar */
/* interface as [textfile] and [qlist] */
/* */
/* Copyright (c) 2006 Hans-Christoph Steiner */
/* */
/* This program is free software; you can redistribute it and/or */
/* modify it under the terms of the GNU General Public License */
/* as published by the Free Software Foundation; either version 2 */
/* of the License, or (at your option) any later version. */
/* */
/* See file LICENSE for further informations on licensing terms. */
/* */
/* This program is distributed in the hope that it will be useful, */
/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
/* GNU General Public License for more details. */
/* */
/* You should have received a copy of the GNU General Public License */
/* along with this program; if not, write to the Free Software Foundation, */
/* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
/* */
/* --------------------------------------------------------------------------*/
#include <m_pd.h>
#include <s_stuff.h>
#ifdef _WIN32
#define _WIN32_WINNT 0x0400
#include <windows.h>
#include <stdio.h>
#else
#include <stdlib.h>
#endif
#include <string.h>
static char *version = "$Revision: 1.1 $";
t_int classpath_instance_count;
#define DEBUG(x)
//#define DEBUG(x) x
/*------------------------------------------------------------------------------
* CLASS DEF
*/
static t_class *classpath_class;
typedef struct _classpath {
t_object x_obj;
t_namelist *x_top;
t_namelist *x_current;
t_outlet *x_data_outlet;
t_outlet *x_status_outlet;
} t_classpath;
/*------------------------------------------------------------------------------
* IMPLEMENTATION
*/
static void classpath_output(t_classpath* x)
{
DEBUG(post("classpath_output"););
if(x->x_current)
{
outlet_symbol( x->x_data_outlet, gensym(x->x_current->nl_string) );
x->x_current = x->x_current->nl_next;
}
else
outlet_bang(x->x_status_outlet);
}
static void classpath_rewind(t_classpath* x)
{
DEBUG(post("classpath_output"););
x->x_current = x->x_top;
}
static void classpath_add(t_classpath* x, t_symbol *s)
{
DEBUG(post("classpath_add"););
}
static void *classpath_new()
{
DEBUG(post("classpath_new"););
t_classpath *x = (t_classpath *)pd_new(classpath_class);
t_symbol *currentdir;
char buffer[MAXPDSTRING];
if(!classpath_instance_count)
{
post("[classpath] %s",version);
post("\twritten by Hans-Christoph Steiner <hans at at.or.at>");
post("\tcompiled on "__DATE__" at "__TIME__ " ");
}
classpath_instance_count++;
x->x_top = namelist_append_files(NULL,sys_libdir->s_name);
x->x_top->nl_next = sys_searchpath;
x->x_current = x->x_top;
x->x_data_outlet = outlet_new(&x->x_obj, &s_symbol);
x->x_status_outlet = outlet_new(&x->x_obj, 0);
return (x);
}
void classpath_setup(void)
{
DEBUG(post("classpath_setup"););
classpath_class = class_new(gensym("classpath"),
(t_newmethod)classpath_new,
0,
sizeof(t_classpath),
0,
0);
/* add inlet datatype methods */
class_addbang(classpath_class,(t_method) classpath_output);
/* add inlet message methods */
class_addmethod(classpath_class,(t_method) classpath_rewind,
gensym("rewind"), 0);
class_addmethod(classpath_class,(t_method) classpath_add,gensym("add"),
A_DEFSYMBOL, 0);
}
More information about the Pd-cvs
mailing list