Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15946
Modified Files: Tag: desiredata m_pd.h Log Message: added some documentation
Index: m_pd.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_pd.h,v retrieving revision 1.4.4.11.2.33.2.4 retrieving revision 1.4.4.11.2.33.2.5 diff -C2 -d -r1.4.4.11.2.33.2.4 -r1.4.4.11.2.33.2.5 *** m_pd.h 2 Dec 2006 05:41:19 -0000 1.4.4.11.2.33.2.4 --- m_pd.h 3 Dec 2006 00:10:31 -0000 1.4.4.11.2.33.2.5 *************** *** 87,95 **** #endif
! typedef struct _symbol ! { ! char *s_name; ! t_pd *s_thing; ! struct _symbol *s_next; } t_symbol;
--- 87,95 ---- #endif
! typedef struct _symbol { ! char *s_name; /* the const string that represents this symbol */ ! t_pd *s_thing; /* pointer to the target of a receive-symbol, ! or to the bindlist of several targets */ ! struct _symbol *s_next; /* brochette of all symbols */ } t_symbol;
*************** *** 106,115 **** #define GP_ARRAY 2 /* ... or array */
! typedef struct _gstub ! { ! union ! { ! struct _glist *gs_glist; /* glist we're in */ ! struct _array *gs_array; /* array we're in */ } gs_un; int gs_which; /* GP_GLIST/GP_ARRAY */ --- 106,113 ---- #define GP_ARRAY 2 /* ... or array */
! typedef struct _gstub { ! union { ! struct _glist *gs_glist; ! struct _array *gs_array; } gs_un; int gs_which; /* GP_GLIST/GP_ARRAY */ *************** *** 117,124 **** } t_gstub;
! typedef struct _gpointer /* pointer to a gobj in a glist */ ! { ! union ! { struct _scalar *gp_scalar; /* scalar we're in (if glist) */ union word *gp_w; /* raw data (if array) */ --- 115,120 ---- } t_gstub;
! typedef struct _gpointer { ! union { struct _scalar *gp_scalar; /* scalar we're in (if glist) */ union word *gp_w; /* raw data (if array) */ *************** *** 128,161 **** } t_gpointer;
! typedef union word ! { ! t_float w_float; ! t_symbol *w_symbol; ! t_gpointer *w_gpointer; ! t_array *w_array; ! struct _glist *w_list; ! int w_index; } t_word;
! typedef enum ! { ! A_NULL, ! A_FLOAT, ! A_SYMBOL, ! A_POINTER, ! A_SEMI, ! A_COMMA, ! A_DEFFLOAT, ! A_DEFSYM, ! A_DOLLAR, ! A_DOLLSYM, ! A_GIMME, ! A_CANT } t_atomtype;
#define A_DEFSYMBOL A_DEFSYM /* better name for this */
! typedef struct _atom ! { t_atomtype a_type; union word a_w; --- 124,149 ---- } t_gpointer;
! typedef union word { ! t_float w_float; /* A_FLOAT */ ! t_symbol *w_symbol; /* A_SYMBOL */ ! t_gpointer *w_gpointer; /* A_POINTER */ ! t_array *w_array; /* DS nested array? */ ! struct _glist *w_list; /* DS nested list? */ ! int w_index; /* what's this? */ } t_word;
! typedef enum { ! A_NULL, /* non-type: represents end of typelist */ ! A_FLOAT, A_SYMBOL, A_POINTER, /* stable elements */ ! A_SEMI, A_COMMA, /* radioactive elements of the first kind */ ! A_DEFFLOAT, A_DEFSYM, /* pseudo-types for optional (DEFault) arguments */ ! A_DOLLAR, A_DOLLSYM, /* radioactive elements of the second kind */ ! A_GIMME, /* non-type: represents varargs */ ! A_CANT /* bottom type */ } t_atomtype;
#define A_DEFSYMBOL A_DEFSYM /* better name for this */
! typedef struct _atom { t_atomtype a_type; union word a_w; *************** *** 604,630 ****
/* tb: exporting basic arithmetic dsp functions { ! * ! * for (n % 8) != 0 ! */ ! EXTERN t_int *plus_perform(t_int *args); EXTERN t_int *zero_perform(t_int *args); EXTERN t_int *copy_perform(t_int *args); ! ! EXTERN t_int *plus_perform(t_int *args); ! EXTERN t_int *scalarplus_perform(t_int *args); ! EXTERN t_int *minus_perform(t_int *args); ! EXTERN t_int *scalarminus_perform(t_int *args); ! EXTERN t_int *times_perform(t_int *args); ! EXTERN t_int *scalartimes_perform(t_int *args); ! EXTERN t_int *over_perform(t_int *args); ! EXTERN t_int *scalarover_perform(t_int *args); ! ! EXTERN t_int *max_perform(t_int *args); ! EXTERN t_int *scalarmax_perform(t_int *args); ! EXTERN t_int *min_perform(t_int *args); ! EXTERN t_int *scalarmin_perform(t_int *args); ! EXTERN t_int *sig_tilde_perform(t_int *args); - EXTERN t_int *clip_perform(t_int *args);
--- 592,606 ----
/* tb: exporting basic arithmetic dsp functions { ! * for (n % 8) != 0 */ ! EXTERN t_int *zero_perform(t_int *args); EXTERN t_int *copy_perform(t_int *args); ! EXTERN t_int *plus_perform( t_int *args); EXTERN t_int *scalarplus_perform( t_int *args); ! EXTERN t_int *minus_perform(t_int *args); EXTERN t_int *scalarminus_perform(t_int *args); ! EXTERN t_int *times_perform(t_int *args); EXTERN t_int *scalartimes_perform(t_int *args); ! EXTERN t_int *over_perform( t_int *args); EXTERN t_int *scalarover_perform( t_int *args); ! EXTERN t_int *max_perform( t_int *args); EXTERN t_int *scalarmax_perform( t_int *args); ! EXTERN t_int *min_perform( t_int *args); EXTERN t_int *scalarmin_perform( t_int *args); EXTERN t_int *sig_tilde_perform(t_int *args); EXTERN t_int *clip_perform(t_int *args);
*************** *** 632,651 **** EXTERN t_int *zero_perf8(t_int *args); EXTERN t_int *copy_perf8(t_int *args); ! ! EXTERN t_int *plus_perf8(t_int *args); ! EXTERN t_int *scalarplus_perf8(t_int *args); ! EXTERN t_int *minus_perf8(t_int *args); ! EXTERN t_int *scalarminus_perf8(t_int *args); ! EXTERN t_int *times_perf8(t_int *args); ! EXTERN t_int *scalartimes_perf8(t_int *args); EXTERN t_int *sqr_perf8(t_int *args); - EXTERN t_int *over_perf8(t_int *args); - EXTERN t_int *scalarover_perf8(t_int *args); - - EXTERN t_int *max_perf8(t_int *args); - EXTERN t_int *scalarmax_perf8(t_int *args); - EXTERN t_int *min_perf8(t_int *args); - EXTERN t_int *scalarmin_perf8(t_int *args); - EXTERN t_int *sig_tilde_perf8(t_int *args);
--- 608,618 ---- EXTERN t_int *zero_perf8(t_int *args); EXTERN t_int *copy_perf8(t_int *args); ! EXTERN t_int *plus_perf8( t_int *args); EXTERN t_int *scalarplus_perf8( t_int *args); ! EXTERN t_int *minus_perf8(t_int *args); EXTERN t_int *scalarminus_perf8(t_int *args); ! EXTERN t_int *times_perf8(t_int *args); EXTERN t_int *scalartimes_perf8(t_int *args); ! EXTERN t_int *over_perf8( t_int *args); EXTERN t_int *scalarover_perf8( t_int *args); ! EXTERN t_int *max_perf8( t_int *args); EXTERN t_int *scalarmax_perf8( t_int *args); ! EXTERN t_int *min_perf8( t_int *args); EXTERN t_int *scalarmin_perf8( t_int *args); EXTERN t_int *sqr_perf8(t_int *args); EXTERN t_int *sig_tilde_perf8(t_int *args);
*************** *** 655,678 **** EXTERN t_int *zero_perf_simd(t_int *args); EXTERN t_int *copy_perf_simd(t_int *args); ! ! EXTERN t_int *plus_perf_simd(t_int *args); ! EXTERN t_int *scalarplus_perf_simd(t_int *args); ! EXTERN t_int *minus_perf_simd(t_int *args); ! EXTERN t_int *scalarminus_perf_simd(t_int *args); ! EXTERN t_int *times_perf_simd(t_int *args); ! EXTERN t_int *scalartimes_perf_simd(t_int *args); EXTERN t_int *sqr_perf_simd(t_int *args); - EXTERN t_int *over_perf_simd(t_int *args); - EXTERN t_int *scalarover_perf_simd(t_int *args); - - EXTERN t_int *max_perf_simd(t_int *args); - EXTERN t_int *scalarmax_perf_simd(t_int *args); - EXTERN t_int *min_perf_simd(t_int *args); - EXTERN t_int *scalarmin_perf_simd(t_int *args); - EXTERN t_int *sig_tilde_perf_simd(t_int *args); - EXTERN t_int *clip_perf_simd(t_int *args); - /* } tb */
--- 622,634 ---- EXTERN t_int *zero_perf_simd(t_int *args); EXTERN t_int *copy_perf_simd(t_int *args); ! EXTERN t_int *plus_perf_simd( t_int *args); EXTERN t_int *scalarplus_perf_simd( t_int *args); ! EXTERN t_int *minus_perf_simd(t_int *args); EXTERN t_int *scalarminus_perf_simd(t_int *args); ! EXTERN t_int *times_perf_simd(t_int *args); EXTERN t_int *scalartimes_perf_simd(t_int *args); ! EXTERN t_int *over_perf_simd( t_int *args); EXTERN t_int *scalarover_perf_simd( t_int *args); ! EXTERN t_int *max_perf_simd( t_int *args); EXTERN t_int *scalarmax_perf_simd( t_int *args); ! EXTERN t_int *min_perf_simd( t_int *args); EXTERN t_int *scalarmin_perf_simd( t_int *args); EXTERN t_int *sqr_perf_simd(t_int *args); EXTERN t_int *sig_tilde_perf_simd(t_int *args); EXTERN t_int *clip_perf_simd(t_int *args); /* } tb */