1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76
|
/***************************************************************************
* File: system.c
* Auth: Iain Mott [iain.mott@bigpond.com]
* Maintainer: Iain Mott [iain.mott@bigpond.com]
* Version: Part of motex_1.1.2
* Date: January 2001
*
* Description: Pd external. Send a system message to the console
* See supporting Pd patch: system.pd
*
* Copyright (C) 2001 by Iain Mott [iain.mott@bigpond.com]
*
* 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, or (at your option)
* any later version.
*
* 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, which should be included with this
* program, for more details.
*
****************************************************************************/
/* code for system pd class */
#include "m_pd.h"
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
typedef struct system
{
t_object t_ob;
} t_system;
void system_anything(t_system *x, t_symbol *s, int ac, t_atom *av, t_floatarg f)
{
char buf[MAXPDSTRING], message[MAXPDSTRING];
int i;
strcpy(message, s->s_name);
strcat(message, " ");
for (i = 0; i < ac; i++)
{
atom_string(av+i, buf, MAXPDSTRING);
strcat(message, buf);
if (i < (ac - 1))
strcat(message, " ");
}
system(message);
}
void system_free(void)
{
/* post("system_free"); */
}
t_class *system_class;
void *system_new(void)
{
t_system *x = (t_system *)pd_new(system_class);
return (void *)x;
}
void system_setup(void)
{
post("system_setup");
system_class = class_new(gensym("system"), (t_newmethod)system_new,
(t_method)system_free, sizeof(t_system), 0, 0);
class_addanything(system_class, system_anything);
}
|