/usr/include/flext/flxlet.cpp is in pd-flext-dev 0.6.0+git20161101.1.01318a94-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 | /*
flext - C++ layer for Max and Pure Data externals
Copyright (c) 2001-2015 Thomas Grill (gr@grrrr.org)
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.
*/
#ifndef __FLEXT_XLET_CPP
#define __FLEXT_XLET_CPP
#include "flext.h"
#include "flinternal.h"
#include <cstring>
#include <cstdarg>
#include "flpushns.h"
#define MAXLETS 256
FLEXT_TEMPIMPL(FLEXT_TEMPSUB(FLEXT_CLASSDEF(flext_base))::xlet FLEXT_CLASSDEF(flext_base))::inlist[MAXLETS];
FLEXT_TEMPIMPL(FLEXT_TEMPSUB(FLEXT_CLASSDEF(flext_base))::xlet FLEXT_CLASSDEF(flext_base))::outlist[MAXLETS];
FLEXT_TEMPIMPL(FLEXT_CLASSDEF(flext_base))::xlet::xlet(): tp(xlet_none),desc(NULL) {}
FLEXT_TEMPIMPL(FLEXT_CLASSDEF(flext_base))::xlet::~xlet() { if(desc) delete[] desc; }
FLEXT_TEMPIMPL(void FLEXT_CLASSDEF(flext_base))::xlet::Desc(const char *c)
{
if(desc) delete[] desc;
if(c) {
size_t l = strlen(c);
desc = new char[l+1];
memcpy(desc,c,l+1);
}
else
desc = NULL;
}
FLEXT_TEMPIMPL(void FLEXT_CLASSDEF(flext_base))::AddInlet(xlettype tp,int mult,const char *desc)
{
if(UNLIKELY(incnt+mult >= MAXLETS))
post("%s - too many inlets",thisName());
else
for(int i = 0; i < mult; ++i) {
xlet &x = inlist[incnt++];
x.tp = tp;
x.Desc(desc);
}
}
FLEXT_TEMPIMPL(void FLEXT_CLASSDEF(flext_base))::AddOutlet(xlettype tp,int mult,const char *desc)
{
if(UNLIKELY(outcnt+mult >= MAXLETS))
post("%s - too many outlets",thisName());
else
for(int i = 0; i < mult; ++i) {
xlet &x = outlist[outcnt++];
x.tp = tp;
x.Desc(desc);
}
}
FLEXT_TEMPIMPL(void FLEXT_CLASSDEF(flext_base))::DescInlet(int ix,const char *d)
{
if(UNLIKELY(ix >= incnt))
post("%s - inlet %i not found",thisName(),ix);
else
inlist[ix].Desc(d);
}
FLEXT_TEMPIMPL(void FLEXT_CLASSDEF(flext_base))::DescOutlet(int ix,const char *d)
{
if(UNLIKELY(ix >= incnt))
post("%s - outlet %i not found",thisName(),ix);
else
outlist[ix].Desc(d);
}
FLEXT_TEMPIMPL(unsigned long FLEXT_CLASSDEF(flext_base))::XletCode(xlettype tp,...)
{
unsigned long code = 0;
va_list marker;
va_start(marker,tp);
int cnt = 0;
xlettype arg = tp;
for(; arg; ++cnt) {
#ifdef FLEXT_DEBUG
if(cnt > 9) {
error("%s - Too many in/outlets defined - truncated to 9",thisName());
break;
}
#endif
code = code*10+(int)arg;
arg = (xlettype)va_arg(marker,int);
}
va_end(marker);
return code;
}
FLEXT_TEMPIMPL(void FLEXT_CLASSDEF(flext_base))::AddInlets(unsigned long code)
{
for(; code; code /= 10) AddInlet((xlettype)(code%10));
}
FLEXT_TEMPIMPL(void FLEXT_CLASSDEF(flext_base))::AddOutlets(unsigned long code)
{
for(; code; code /= 10) AddOutlet((xlettype)(code%10));
}
#include "flpopns.h"
#endif // __FLEXT_XLET_CPP
|