aboutsummaryrefslogtreecommitdiff
path: root/externals/grill/flext/source/flxlet.cpp
blob: 881769daa59a0e411e112206daabe0482e4c5335 (plain)
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
77
78
79
80
81
82
83
84
85
86
87
88
/* 

flext - C++ layer for Max/MSP and pd (pure data) externals

Copyright (c) 2001,2002 Thomas Grill (xovo@gmx.net)
For information on usage and redistribution, and for a DISCLAIMER OF ALL
WARRANTIES, see the file, "license.txt," in this distribution.  

*/

/*! \file flxlet.cpp
    \brief Implementation of the variable inlet/outlet functionality.
*/
 
#include "flext.h"
#include "flinternal.h"
#include <string.h>
#include <stdarg.h>

//namespace flext {

flext_base::xlet::xlet(type t,const char *d): 
	tp(t),nxt(NULL)
{ 
	if(d) {
		int ln = strlen(d);
		desc = new char[ln];
		strncpy(desc,d,ln);
	}
	else desc = NULL;
}

flext_base::xlet::~xlet() 
{ 
	if(desc) delete[] desc;
	if(nxt) delete nxt; 
}

void flext_base::AddXlet(xlet::type tp,int mult,const char *desc,xlet *&root)
{
	if(!root && mult) { root = new xlet(tp,desc); --mult; }
	if(mult) {
		xlet *xi = root; 
		while(xi->nxt) xi = xi->nxt;
		while(mult--) xi = xi->nxt = new xlet(tp,desc);
	}
}

void flext_base::DescXlet(int ix,const char *desc,xlet *&root)
{
	post("%s - sorry, not implemented",thisName());
}

unsigned long flext_base::XletCode(xlet::type tp,...)
{
	unsigned long code = 0;

	va_list marker;
	va_start(marker,tp);
	int cnt = 0;
	xlet::type *args = NULL,arg = tp;
	for(; arg; ++cnt) {
#ifdef _DEBUG
		if(cnt > 9) {
			error("%s - Too many in/outlets defined - truncated to 9",thisName());
			break;			
		}
#endif			

		code = code*10+(int)arg;
		arg = (xlet::type)va_arg(marker,int);
	}
	va_end(marker);

	return code;
}

void flext_base::AddInlets(unsigned long code) 
{ 
	for(; code; code /= 10) AddInlet((xlet::type)(code%10));
}

void flext_base::AddOutlets(unsigned long code) 
{ 
	for(; code; code /= 10) AddOutlet((xlet::type)(code%10));
}

//} // namespace flext