aboutsummaryrefslogtreecommitdiff
path: root/externals/gridflow/gridflow.c
diff options
context:
space:
mode:
Diffstat (limited to 'externals/gridflow/gridflow.c')
-rw-r--r--externals/gridflow/gridflow.c955
1 files changed, 0 insertions, 955 deletions
diff --git a/externals/gridflow/gridflow.c b/externals/gridflow/gridflow.c
deleted file mode 100644
index 000b1dc3..00000000
--- a/externals/gridflow/gridflow.c
+++ /dev/null
@@ -1,955 +0,0 @@
-/*
- $Id: rubyext.c 3621 2008-04-19 01:47:38Z matju $
-
- GridFlow
- Copyright (c) 2001-2009 by Mathieu Bouchard
-
- 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 ../COPYING 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 "gridflow.h.fcs"
-#include <ctype.h>
-#include <stdarg.h>
-#include <unistd.h>
-#include <sys/time.h>
-#include <sys/resource.h>
-#include <errno.h>
-#include <signal.h>
-#include <setjmp.h>
-#include <stdlib.h>
-//#include <cstdlib>
-#include <sys/stat.h>
-#include <time.h>
-#include <string.h>
-#include <stdio.h>
-#include <fcntl.h>
-#include <limits.h>
-
-#ifdef HAVE_GEM
-struct CPPExtern {
- static t_object *m_holder;
- static char *m_holdname;
-};
-#endif
-
-#ifndef HAVE_DESIREDATA
-#include "bundled/g_canvas.h"
-#endif
-// from pd/src/g_canvas.c
-struct _canvasenvironment {
- t_symbol *ce_dir; /* directory patch lives in */
- int ce_argc; /* number of "$" arguments */
- t_atom *ce_argv; /* array of "$" arguments */
- int ce_dollarzero; /* value of "$0" */
-};
-
-/* for exception-handling in 0.9.0... Linux-only */
-#ifndef MACOSX
-#include <exception>
-#include <execinfo.h>
-#endif
-#undef check
-
-std::map<string,FClass *> fclasses;
-std::map<t_class *,FClass *> fclasses_pd;
-
-//using namespace std;
-
-BuiltinSymbols bsym;
-
-Barf::Barf(const char *s, ...) {
- std::ostringstream os;
- va_list ap;
- va_start(ap,s);
- voprintf(os,s,ap);
- va_end(ap);
- text = os.str();
-}
-Barf::Barf(const char *file, int line, const char *func, const char *fmt, ...) {
- std::ostringstream os;
- va_list ap;
- va_start(ap,fmt);
- voprintf(os,fmt,ap);
- //oprintf(os,"\n%s:%d:in `%s'",file,line,func);
- va_end(ap);
- text = os.str();
-}
-
-void Barf::error(BFObject *bself) {
- if (bself) pd_error(bself,"%s: %s",bself->binbuf_string().data(),text.data());
- else ::error( "%s: %s",bself->binbuf_string().data(),text.data());
-}
-
-void pd_oprint (std::ostream &o, int argc, t_atom *argv) {
- for (int i=0; i<argc; i++) {
- t_atomtype t = argv[i].a_type;
- if (t==A_FLOAT) o << argv[i].a_float;
- else if (t==A_SYMBOL) o << argv[i].a_symbol->s_name;
- else if (t==A_POINTER) o << "(pointer)";
- else if (t==A_COMMA) o << ",";
- else if (t==A_SEMI) o << ";";
- else if (t==A_LIST) {
- t_binbuf *b = (t_binbuf *)argv[i].a_gpointer;
- o << "[";
- pd_oprint(o,binbuf_getnatom(b),binbuf_getvec(b));
- o << "]";
- } else o << "(atom of type " << t << ")";
- if (i!=argc-1) o << " ";
- }
-}
-
-void pd_post (const char *s, int argc, t_atom *argv) {
- std::ostringstream os;
- if (s) os << s << ": ";
- pd_oprint(os,argc,argv);
- post("%s",os.str().data());
-}
-
-void pd_oprintf (std::ostream &o, const char *s, int argc, t_atom *argv) {
- int i=0;
- for (; *s; s++) {
- if (*s!='%') {o << (char)*s; continue;}
- s++; // skip the %
- switch (*s) {
- case 'f':
- if (!argc) RAISE("not enough args");
- if (argv[i].a_type != A_FLOAT) RAISE("expected float");
- o << argv[i].a_float;
- break;
- case 's':
- if (!argc) RAISE("not enough args");
- if (argv[i].a_type != A_SYMBOL) RAISE("expected symbol");
- o << argv[i].a_symbol->s_name;
- break;
- case '_':
- if (!argc) RAISE("not enough args");
- char buf[MAXPDSTRING];
- atom_string(&argv[i],buf,MAXPDSTRING);
- o << buf;
- break;
- case '%':
- o << "%";
- break;
- default:
- RAISE("sorry, the format character '%c' is not supported yet",*s);
- }
- }
-}
-
-//----------------------------------------------------------------
-// Dim
-
-void Dim::check() {
- if (n>MAX_DIM) RAISE("too many dimensions");
- for (int i=0; i<n; i++) if (v[i]<0) RAISE("Dim: negative dimension");
-}
-
-// !@#$ big leak machine?
-// returns a string like "Dim[240,320,3]"
-char *Dim::to_s() {
- // if you blow 256 chars it's your own fault
- char buf[256];
- char *s = buf;
- s += sprintf(s,"Dim[");
- for(int i=0; i<n; i++) s += sprintf(s,"%s%d", ","+!i, v[i]);
- s += sprintf(s,"]");
- return strdup(buf);
-}
-
-NumberTypeE NumberTypeE_find (string s) {
- if (number_type_dict.find(s)==number_type_dict.end()) RAISE("unknown number type \"%s\"", s.data());
- return number_type_dict[s]->index;
-}
-
-NumberTypeE NumberTypeE_find (const t_atom &x) {
- if (x.a_type!=A_SYMBOL) RAISE("expected number-type (as symbol)");
- return NumberTypeE_find(string(x.a_symbol->s_name));
-}
-
-// don't touch.
-static void gfmemcopy32(int32 *as, int32 *bs, long n) {
- ptrdiff_t ba = bs-as;
-#define FOO(I) as[I] = (as+ba)[I];
- UNROLL_8(FOO,n,as)
-#undef FOO
-}
-
-void gfmemcopy(uint8 *out, const uint8 *in, long n) {
- for (; n>16; in+=16, out+=16, n-=16) {
- ((int32*)out)[0] = ((int32*)in)[0];
- ((int32*)out)[1] = ((int32*)in)[1];
- ((int32*)out)[2] = ((int32*)in)[2];
- ((int32*)out)[3] = ((int32*)in)[3];
- }
- for (; n>4; in+=4, out+=4, n-=4) *(int32*)out = *(int32*)in;
- for (; n; in++, out++, n--) *out=*in;
-}
-
-//----------------------------------------------------------------
-
-uint64 gf_timeofday () {
- timeval t;
- gettimeofday(&t,0);
- return t.tv_sec*1000000+t.tv_usec;
-}
-
-#define CONVERT0(z) ((in[z] >> chop[z]) << slide[z])
-#define CONVERT1 t = CONVERT0(0) | CONVERT0(1) | CONVERT0(2)
-#define CONVERT2 for (t=0,i=0; i<self->size; i++) t |= CONVERT0(i);
-
-#define WRITE_LE \
- for (int bytes = self->bytes; bytes; bytes--, t>>=8) *out++ = t;
-
-#define WRITE_BE {int bytes; \
- bytes = self->bytes; \
- while (bytes--) {out[bytes] = t; t>>=8;}\
- out += self->bytes;}
-
-/* this macro would be faster if the _increment_
- was done only once every loop. or maybe gcc does it, i dunno */
-#define NTIMES(_x_) \
- for (; n>=4; n-=4) {_x_ _x_ _x_ _x_} \
- for (; n; n--) {_x_}
-
-/* this could be faster (use asm) */
-void swap64 (long n, uint64 *data) {
- NTIMES({
- uint64 x = *data;
- x = (x<<32) | (x>>32);
- x = ((x&0x0000ffff0000ffffLL)<<16) | ((x>>16)&0x0000ffff0000ffffLL);
- x = ((x&0x00ff00ff00ff00ffLL)<< 8) | ((x>> 8)&0x00ff00ff00ff00ffLL);
- *data++ = x;
- })
-}
-
-/* this could be faster (use asm) */
-void swap32 (long n, uint32 *data) {
- NTIMES({
- uint32 x = *data;
- x = (x<<16) | (x>>16);
- x = ((x&0xff00ff)<<8) | ((x>>8)&0xff00ff);
- *data++ = x;
- })
-}
-
-/* this could be faster (use asm or do it in int32 chunks) */
-void swap16 (long n, uint16 *data) {NTIMES({ uint16 x = *data; *data++ = (x<<8) | (x>>8); })}
-
-/* **************************************************************** */
-
-template <class T>
-static void default_pack(BitPacking *self, long n, T *in, uint8 *out) {
- uint32 t;
- int i;
- int sameorder = self->endian==2 || self->endian==::is_le();
- int size = self->size;
- uint32 mask[4]; memcpy(mask,self->mask,size*sizeof(uint32));
- uint32 hb[4]; for (i=0; i<size; i++) hb[i] = highest_bit(mask[i]);
- uint32 span[4]; for (i=0; i<size; i++) span[i] = hb[i] - lowest_bit(mask[i]);
- uint32 chop[4]; for (i=0; i<size; i++) chop[i] = 7-span[i];
- uint32 slide[4]; for (i=0; i<size; i++) slide[i] = hb[i]-span[i];
-
- if (sameorder && size==3) {
- switch(self->bytes) {
- case 2: NTIMES(CONVERT1; *((int16 *)out)=t; out+=2; in+=3;) return;
- case 4: NTIMES(CONVERT1; *((int32 *)out)=t; out+=4; in+=3;) return;
- }
- }
- if (self->is_le()) {
- switch (size) {
- case 3: for (; n--; in+=3) {CONVERT1; WRITE_LE;} break;
- case 4: for (; n--; in+=4) {CONVERT1; WRITE_LE;} break;
- default:for (; n--; in+=size) {CONVERT2; WRITE_LE;}}
- } else {
- switch (size) {
- case 3: for (; n--; in+=3) {CONVERT1; WRITE_BE;} break;
- case 4: for (; n--; in+=4) {CONVERT1; WRITE_BE;} break;
- default:for (; n--; in+=size) {CONVERT2; WRITE_BE;}}
- }
-}
-
-#define LOOP_UNPACK(_reader_) \
- for (; n; n--) { \
- int bytes=0; uint32 temp=0; _reader_; \
- for (int i=0; i<self->size; i++, out++) { \
- uint32 t=temp&self->mask[i]; \
- *out = (t<<(7-hb[i]))|(t>>(hb[i]-7));}}
-
-template <class T>
-static void default_unpack(BitPacking *self, long n, uint8 * in, T * out) {
- int hb[4];
- for (int i=0; i<self->size; i++) hb[i] = highest_bit(self->mask[i]);
- if (is_le()) { // smallest byte first
- LOOP_UNPACK(
- for(; self->bytes>bytes; bytes++, in++) temp |= *in<<(8*bytes);
- )
- } else { // biggest byte first
- LOOP_UNPACK(
- bytes=self->bytes; for (; bytes; bytes--, in++) temp=(temp<<8)|*in;
- )
- }
-}
-
-/* **************************************************************** */
-
-template <class T>
-static void pack2_565(BitPacking *self, long n, T * in, uint8 * out) {
-// const int hb[3] = {15,10,4};
-// const uint32 mask[3] = {0x0000f800,0x000007e0,0x0000001f};
-// uint32 span[3] = {4,5,4};
- uint32 chop[3] = {3,2,3};
- uint32 slide[3] = {11,5,0};
- uint32 t;
- NTIMES(CONVERT1; *((short *)out)=t; out+=2; in+=3;)
-}
-
-template <class T>
-static void pack3_888(BitPacking *self, long n, T *in, uint8 *out) {
- int32 * o32 = (int32 *)out;
- while (n>=4) {
- o32[0] = (in[5]<<24) | (in[ 0]<<16) | (in[ 1]<<8) | in[2];
- o32[1] = (in[7]<<24) | (in[ 8]<<16) | (in[ 3]<<8) | in[4];
- o32[2] = (in[9]<<24) | (in[10]<<16) | (in[11]<<8) | in[6];
- o32+=3; in+=12;
- n-=4;
- }
- out = (uint8 *)o32;
- NTIMES( out[2]=in[0]; out[1]=in[1]; out[0]=in[2]; out+=3; in+=3; )
-}
-
-template <class T>
-static void unpack3_888(BitPacking *self, long n, uint8 *in, T *out) {
- NTIMES( out[2]=in[0]; out[1]=in[1]; out[0]=in[2]; out+=3; in+=3; )
-}
-
-/*
-template <>
-static void pack3_888(BitPacking *self, long n, uint8 * in, uint8 * out) {
- uint32 * o32 = uint32 *((uint32 *)out.p,n*3/4);
- uint32 * i32 = uint32 *((uint32 *)in.p,n*3/4);
- while (n>=4) {
-#define Z(w,i) ((word##w>>(i*8))&255)
- uint32 word0 = i32[0];
- uint32 word1 = i32[1];
- uint32 word2 = i32[2];
- o32[0] = (Z(1,1)<<24) | (Z(0,0)<<16) | (Z(0,1)<<8) | Z(0,2);
- o32[1] = (Z(1,3)<<24) | (Z(2,0)<<16) | (Z(0,3)<<8) | Z(1,0);
- o32[2] = (Z(2,1)<<24) | (Z(2,2)<<16) | (Z(2,3)<<8) | Z(1,2);
- o32+=3; i32+=3;
- n-=4;
- }
-#undef Z
- out = (uint8 *)o32;
- in = (uint8 *)i32;
- NTIMES( out[2]=in[0]; out[1]=in[1]; out[0]=in[2]; out+=3; in+=3; )
-}
-*/
-
-template <class T>
-static void pack3_888b(BitPacking *self, long n, T * in, uint8 * out) {
- int32 * o32 = (int32 *)out;
- while (n>=4) {
- o32[0] = (in[0]<<16) | (in[1]<<8) | in[2];
- o32[1] = (in[3]<<16) | (in[4]<<8) | in[5];
- o32[2] = (in[6]<<16) | (in[7]<<8) | in[8];
- o32[3] = (in[9]<<16) | (in[10]<<8) | in[11];
- o32+=4; in+=12;
- n-=4;
- }
- NTIMES( o32[0] = (in[0]<<16) | (in[1]<<8) | in[2]; o32++; in+=3; )
-}
-
-// (R,G,B,?) -> B:8,G:8,R:8,0:8
-// fishy
-template <class T>
-static void pack3_bgrn8888(BitPacking *self, long n, T * in, uint8 * out) {
-/* NTIMES( out[2]=in[0]; out[1]=in[1]; out[0]=in[2]; out+=4; in+=4; ) */
- int32 * i32 = (int32 *)in;
- int32 * o32 = (int32 *)out;
- while (n>=4) {
- o32[0] = ((i32[0]&0xff)<<16) | (i32[0]&0xff00) | ((i32[0]>>16)&0xff);
- o32[1] = ((i32[1]&0xff)<<16) | (i32[1]&0xff00) | ((i32[1]>>16)&0xff);
- o32[2] = ((i32[2]&0xff)<<16) | (i32[2]&0xff00) | ((i32[2]>>16)&0xff);
- o32[3] = ((i32[3]&0xff)<<16) | (i32[3]&0xff00) | ((i32[3]>>16)&0xff);
- o32+=4; i32+=4; n-=4;
- }
- NTIMES( o32[0] = ((i32[0]&0xff)<<16) | (i32[0]&0xff00) | ((i32[0]>>16)&0xff); o32++; i32++; )
-}
-
-static uint32 bp_masks[][4] = {
- {0x0000f800,0x000007e0,0x0000001f,0},
- {0x00ff0000,0x0000ff00,0x000000ff,0},
-};
-
-static Packer bp_packers[] = {
- {default_pack, default_pack, default_pack},
- {pack2_565, pack2_565, pack2_565},
- {pack3_888, pack3_888, pack3_888},
- {pack3_888b, default_pack, default_pack},
- {pack3_bgrn8888, default_pack, default_pack},
-};
-
-static Unpacker bp_unpackers[] = {
- {default_unpack, default_unpack, default_unpack},
- {unpack3_888, unpack3_888, unpack3_888},
-};
-
-static BitPacking builtin_bitpackers[] = {
- BitPacking(2, 2, 3, bp_masks[0], &bp_packers[1], &bp_unpackers[0]),
- BitPacking(1, 3, 3, bp_masks[1], &bp_packers[2], &bp_unpackers[1]),
- BitPacking(1, 4, 3, bp_masks[1], &bp_packers[3], &bp_unpackers[0]),
- BitPacking(1, 4, 4, bp_masks[1], &bp_packers[4], &bp_unpackers[0]),
-};
-
-/* **************************************************************** */
-
-bool BitPacking::eq(BitPacking *o) {
- if (!(bytes == o->bytes)) return false;
- if (!(size == o->size)) return false;
- for (int i=0; i<size; i++) {
- if (!(mask[i] == o->mask[i])) return false;
- }
- if (endian==o->endian) return true;
- /* same==little on a little-endian; same==big on a big-endian */
- return (endian ^ o->endian ^ ::is_le()) == 2;
-}
-
-BitPacking::BitPacking(int endian, int bytes, int size, uint32 *mask, Packer *packer, Unpacker *unpacker) {
- this->endian = endian;
- this->bytes = bytes;
- this->size = size;
- for (int i=0; i<size; i++) this->mask[i] = mask[i];
- if (packer) {
- this->packer = packer;
- this->unpacker = unpacker;
- return;
- }
- int packeri=-1;
- this->packer = &bp_packers[0];
- this->unpacker = &bp_unpackers[0];
- for (int i=0; i<(int)(sizeof(builtin_bitpackers)/sizeof(BitPacking)); i++) {
- BitPacking *bp = &builtin_bitpackers[i];
- if (this->eq(bp)) {
- this->packer = bp->packer;
- this->unpacker = bp->unpacker;
- packeri=i;
- goto end;
- }
- }
-end:;
-#if 0
- ::post("Bitpacking: endian=%d bytes=%d size=%d packeri=%d",
- endian, bytes, size, packeri);
- ::post(" packer=0x%08x unpacker=0x%08x",this->packer,this->unpacker);
- ::post(" mask=[0x%08x,0x%08x,0x%08x,0x%08x]",mask[0],mask[1],mask[2],mask[3]);
-#endif
-}
-
-bool BitPacking::is_le() {
- return endian==1 || (endian ^ ::is_le())==3;
-}
-
-template <class T>
-void BitPacking::pack(long n, T * in, uint8 * out) {
- switch (NumberTypeE_type_of(in)) {
- case uint8_e: packer->as_uint8(this,n,(uint8 *)in,out); break;
- case int16_e: packer->as_int16(this,n,(int16 *)in,out); break;
- case int32_e: packer->as_int32(this,n,(int32 *)in,out); break;
- default: RAISE("argh");
- }
-}
-
-template <class T>
-void BitPacking::unpack(long n, uint8 * in, T * out) {
- switch (NumberTypeE_type_of(out)) {
- case uint8_e: unpacker->as_uint8(this,n,in,(uint8 *)out); break;
- case int16_e: unpacker->as_int16(this,n,in,(int16 *)out); break;
- case int32_e: unpacker->as_int32(this,n,in,(int32 *)out); break;
- default: RAISE("argh");
- }
-}
-
-// i'm sorry... see the end of grid.c for an explanation...
-//static
-void make_hocus_pocus () {
-// exit(1);
-#define FOO(S) \
- ((BitPacking*)0)->pack(0,(S *)0,(uint8 *)0); \
- ((BitPacking*)0)->unpack(0,(uint8 *)0,(S *)0);
-EACH_NUMBER_TYPE(FOO)
-#undef FOO
-}
-
-std::vector<string> gf_data_path;
-string gf_find_file (string x) {
- if (strchr(x.data(),'/')) return x;
- int n = gf_data_path.size();
- struct stat dummy;
- for (int i=0; i<n; i++) {
- string s = gf_data_path[i]+"/"+x;
- if (lstat(s.data(),&dummy)==0) return s;
- }
- return x;
-}
-
-/* **************************************************************** */
-
-#undef pd_class
-#define pd_class(x) (*(t_pd *)x)
-#define pd_classname(x) (fclasses_pd[pd_class(x)]->name.data())
-
-static FMethod funcall_lookup (FClass *fclass, const char *sel) {
- int n = fclass->methodsn;
- for (int i=0; i<n; i++) if (strcmp(fclass->methods[i].selector,sel)==0) return fclass->methods[i].method;
- if (fclass->super) return funcall_lookup(fclass->super,sel);
- return 0;
-}
-static FMethod funcall_lookup (BFObject *bself, const char *sel) {
- return funcall_lookup(fclasses_pd[pd_class(bself)],sel);
-}
-
-void call_super(int argc, t_atom *argv) {/* unimplemented */}
-
-//****************************************************************
-// BFObject
-
-struct BFProxy : t_object {
- BFObject *parent;
- t_inlet *inlet;
- int id;
-};
-
-static t_class *BFProxy_class;
-
-static void BFObject_anything (BFObject *bself, int winlet, t_symbol *selector, int ac, t_atom2 *at) {
- try {
- t_atom2 argv[ac+1];
- for (int i=0; i<ac; i++) argv[i+1] = at[i];
- int argc = handle_braces(ac,argv+1);
- SETFLOAT(argv+0,winlet);
- char buf[256];
- sprintf(buf,"_n_%s",selector->s_name);
- FMethod m;
- m = funcall_lookup(bself,buf);
- if (m) {m(bself->self,argc+1,argv); return;}
- sprintf(buf,"_%d_%s",winlet,selector->s_name);
- m = funcall_lookup(bself,buf);
- if (m) {m(bself->self,argc,argv+1); return;}
- m = funcall_lookup(bself,"anything");
- if (m) {SETSYMBOL(argv+0,gensym(buf)); m(bself->self,argc+1,argv); return;}
- pd_error((t_pd *)bself, "method '%s' not found for inlet %d in class '%s'",selector->s_name,winlet,pd_classname(bself));
- } catch (Barf &oozy) {oozy.error(bself);}
-}
-static void BFObject_anything0 (BFObject *self, t_symbol *s, int argc, t_atom2 *argv) {
- BFObject_anything(self,0,s,argc,argv);
-}
-static void BFProxy_anything (BFProxy *self, t_symbol *s, int argc, t_atom2 *argv) {
- BFObject_anything(self->parent,self->id,s,argc,argv);
-}
-
-static void *BFObject_new (t_symbol *classsym, int ac, t_atom *at) {
- string name = string(classsym->s_name);
- if (fclasses.find(name)==fclasses.end()) {post("GF: class not found: '%s'",classsym->s_name); return 0;}
- t_class *qlass = fclasses[name]->bfclass;
- BFObject *bself = (BFObject *)pd_new(qlass);
- try {
- int argc = ac;
- t_atom argv[argc];
- for (int i=0; i<argc; i++) argv[i] = at[i];
- argc = handle_braces(argc,argv);
- //pd_post(classsym->s_name,argc,argv);
-#ifdef HAVE_GEM
- CPPExtern::m_holder = (t_object *)bself;
- CPPExtern::m_holdname = const_cast<char *>("juste_pour_que_gem_reste_content");
-#endif
- int j;
- for (j=0; j<argc; j++) if (argv[j].a_type==A_COMMA) break;
-
- bself->self = 0;
- bself->mom = (t_canvas *)canvas_getcurrent();
- bself->ninlets = 1;
- bself->noutlets = 0;
- bself->inlets = new BFProxy*[1];
- bself->outlets = new t_outlet*[1];
- bself->inlets[0] = 0; // inlet 0 of this table is not in use
- bself->ninlets_set( fclasses[classsym->s_name]->ninlets ,false);
- bself->noutlets_set(fclasses[classsym->s_name]->noutlets,false);
- t_allocator alloc = fclasses[string(classsym->s_name)]->allocator;
- bself->self = alloc(bself,0,j,(t_atom2 *)argv);
-#ifdef HAVE_GEM
- CPPExtern::m_holder = 0;
-#ifdef HAVE_HOLDNAME
- CPPExtern::m_holdname=0;
-#endif
-#endif
-
- while (j<argc) {
- j++;
- int k=j;
- for (; j<argc; j++) if (argv[j].a_type==A_COMMA) break;
- if (argv[k].a_type==A_SYMBOL) pd_typedmess((t_pd *)bself,argv[k].a_symbol,j-k-1,argv+k+1);
- }
- return bself;
- } catch (Barf &oozy) {oozy.error(bself); return 0;}
-}
-
-static void BFObject_delete (BFObject *bself) {
- try {delete bself->self;} catch (Barf &oozy) {oozy.error(bself);}
- bself->ninlets_set(1,false);
- delete[] bself->inlets;
- delete[] bself->outlets;
-}
-
-//****************************************************************
-
-static void BFObject_undrawio (BFObject *bself) {
-#ifndef HAVE_DESIREDATA
- if (!bself->mom || !glist_isvisible(bself->mom)) return;
- t_rtext *rt = glist_findrtext(bself->mom,bself);
- if (!rt) return;
- glist_eraseiofor(bself->mom,bself,rtext_gettag(rt));
-#endif
-}
-
-static void BFObject_redraw (BFObject *bself) {
-#ifndef HAVE_DESIREDATA
- if (!bself->mom || !glist_isvisible(bself->mom)) return;
- t_rtext *rt = glist_findrtext(bself->mom,bself);
- if (!rt) return;
- gobj_vis((t_gobj *)bself,bself->mom,0);
- gobj_vis((t_gobj *)bself,bself->mom,1);
- canvas_fixlinesfor(bself->mom,(t_text *)bself);
-#endif
-}
-
-/* warning: deleting inlets that are connected will cause pd to crash */
-void BFObject::ninlets_set (int n, bool draw) {
- if (!te_binbuf) draw=false;
- if (n<1) RAISE("ninlets_set: n=%d must be at least 1",n);
- if (draw) BFObject_undrawio(this);
- if (ninlets<n) {
- BFProxy **noo = new BFProxy*[n];
- memcpy(noo,inlets,ninlets*sizeof(BFProxy*));
- delete[] inlets;
- inlets = noo;
- while (ninlets<n) {
- BFProxy *p = inlets[ninlets] = (BFProxy *)pd_new(BFProxy_class);
- p->parent = this;
- p->id = ninlets;
- p->inlet = inlet_new(this, &p->ob_pd, 0,0);
- ninlets++;
- }
- } else {
- while (ninlets>n) {
- ninlets--;
- inlet_free(inlets[ninlets]->inlet);
- pd_free((t_pd *)inlets[ninlets]);
- }
- }
- if (draw) BFObject_redraw(this);
-}
-/* warning: deleting outlets that are connected will cause pd to crash */
-void BFObject::noutlets_set (int n, bool draw) {
- if (!te_binbuf) draw=false;
- if (n<0) RAISE("noutlets_set: n=%d must be at least 0",n);
- if (draw) BFObject_undrawio(this);
- if (noutlets<n) {
- t_outlet **noo = new t_outlet*[n>0?n:1];
- memcpy(noo,outlets,noutlets*sizeof(t_outlet*));
- delete[] outlets;
- outlets = noo;
- while (noutlets<n) outlets[noutlets++] = outlet_new(this,&s_anything);
- } else {
- while (noutlets>n) outlet_free(outlets[--noutlets]);
- }
- if (draw) BFObject_redraw(this);
-}
-
-string BFObject::binbuf_string () {
- if (!te_binbuf) return "[???]";
- std::ostringstream s;
- int n = binbuf_getnatom(te_binbuf);
- t_atom *at = binbuf_getvec(te_binbuf);
- for (int i=0; i<n; i++) s << (i ? " " : "[") << at[i];
- s << "]";
- return s.str();
-}
-
-void add_creator2(FClass *fclass, const char *name) {
- fclasses[string(name)] = fclass;
- class_addcreator((t_newmethod)BFObject_new,gensym((char *)name),A_GIMME,0);
-}
-typedef struct _methodentry
-{
- t_symbol *me_name;
- t_gotfn me_fun;
- t_atomtype me_arg[MAXPDARG+1];
-} t_methodentry;
-struct _class {
- t_symbol *c_name; /* name (mostly for error reporting) */
- t_symbol *c_helpname; /* name of help file */
- t_symbol *c_externdir; /* directory extern was loaded from */
- size_t c_size; /* size of an instance */
- t_methodentry *c_methods; /* methods other than bang, etc below */
- int c_nmethod; /* number of methods */
- // ...
-};
-void add_creator3(FClass *fclass, const char *name) {
- fclasses[string(name)] = fclass;
- t_class *c = pd_objectmaker;
- t_symbol *want = gensym(name);
- for (int i=c->c_nmethod-1; i>=0; i--) {
- t_methodentry *m = c->c_methods+i;
- if (m->me_name==want) {m->me_fun = t_gotfn(BFObject_new); m->me_arg[0]=A_GIMME; m->me_arg[1]=A_NULL; break;}
- }
-}
-
-//****************************************************************
-
-struct t_namelist;
-extern t_namelist *sys_searchpath, *sys_helppath;
-extern "C" t_namelist *namelist_append_files(t_namelist *, char *);
-static void add_to_path(char *dir) {
- static bool debug = false;
- char bof[1024];
- if (debug) post("gridflow was found in %s",dir);
- gf_data_path.push_back(string(dir)+"/images");
- if (debug) post("adding gf_data_path %s/images",dir);
- sprintf(bof,"%s/abstractions",dir); sys_searchpath = namelist_append_files(sys_searchpath,bof);
- if (debug) post("adding -path %s",bof);
- sprintf(bof,"%s/deprecated",dir); sys_searchpath = namelist_append_files(sys_searchpath,bof);
- if (debug) post("adding -path %s",bof);
- sprintf(bof,"%s/doc/flow_classes",dir); sys_helppath = namelist_append_files(sys_helppath, bof);
- if (debug) post("adding -helppath %s",bof);
-}
-
-//----------------------------------------------------------------
-
-t_list *list_new (int argc, t_atom *argv) {
- t_list *b = binbuf_new();
- binbuf_add(b,argc,argv);
- return b;
-}
-void list_free (t_list *self) {binbuf_free(self);}
-
-//----------------------------------------------------------------
-
-void fclass_install(FClass *fclass, FClass *super, size_t bytes) {
- fclass->super = super;
- if (fclass->startup) fclass->startup(fclass);
- fclass->bytes = bytes;
-}
-
-void install2(FClass *fclass, const char *name, int inlets, int outlets) {
- fclass->ninlets = inlets;
- fclass->noutlets = outlets;
- fclass->name = string(name);
- fclass->bfclass = class_new(gensym((char *)name), (t_newmethod)BFObject_new, (t_method)BFObject_delete,
- sizeof(BFObject), CLASS_DEFAULT, A_GIMME,0);
- fclasses[string(name)] = fclass;
- fclasses_pd[fclass->bfclass] = fclass;
- class_addanything(fclass->bfclass,(t_method)BFObject_anything0);
-}
-
-/* This code handles nested lists because PureData (all versions including 0.40) doesn't do it */
-int handle_braces(int ac, t_atom *av) {
- int stack[16];
- int stackn=0;
- int j=0;
- t_binbuf *buf = binbuf_new();
- for (int i=0; i<ac; ) {
- int close=0;
- if (av[i].a_type==A_SYMBOL) {
- const char *s = av[i].a_symbol->s_name;
- while (*s=='(') {
- if (stackn==16) {binbuf_free(buf); RAISE("too many nested lists (>16)");}
- stack[stackn++]=j;
- s++;
- }
- const char *se = s+strlen(s);
- while (se>s && se[-1]==')') {se--; close++;}
- if (s!=se) {
- binbuf_text(buf,(char *)s,se-s);
- if ((binbuf_getnatom(buf)==1 && binbuf_getvec(buf)[0].a_type==A_FLOAT) || binbuf_getvec(buf)[0].a_type==A_COMMA) {
- av[j++] = binbuf_getvec(buf)[0];
- } else {
- char ss[MAXPDSTRING];
- int n = min(long(se-s),long(MAXPDSTRING-1));
- sprintf(ss,"%.*s",n,s);
- SETSYMBOL(av+j,gensym(ss)); j++; // av[j++] = gensym(s);
- }
- }
- } else av[j++]=av[i];
- i++;
- while (close--) {
- if (!stackn) {binbuf_free(buf); RAISE("close-paren without open-paren",av[i]);}
- t_binbuf *a2 = binbuf_new(); /* leak because there is no deallocation mechanism whatsoever */
- int j2 = stack[--stackn];
- binbuf_add(a2,j-j2,av+j2);
- j=j2;
- SETLIST(av+j,a2);
- j++;
- }
- }
- binbuf_free(buf);
- if (stackn) RAISE("too many open-paren (%d)",stackn);
- return j;
-}
-
-// foreach macro from desiredata:
-#define foreach(ITER,COLL) for(typeof(COLL.begin()) ITER = COLL.begin(); ITER != (COLL).end(); ITER++)
-
-\class FObject
-\def 0 get (t_symbol *s=0) {
- FClass *fc = fclasses_pd[pd_class(bself)];
- if (!s) {
- t_atom a[1];
- foreach(attr,fc->attrs) {
- SETSYMBOL(a,gensym((char *)attr->second->name.data()));
- pd_typedmess((t_pd *)bself,gensym("get"),1,a);
- }
- } else {
- //t_atom a[1];
- //outlet_anything(bself->outlets[bself->noutlets-1],s,1,a);
- FMethod m = funcall_lookup(bself,"___get");
- t_atom2 a[1];
- SETSYMBOL(a,s);
- if (m) m(this,1,a);
- }
-}
-\def 0 help () {
- FClass *fc = fclasses_pd[pd_class(bself)];
- post("attributes (");
- foreach(attr,fc->attrs) post(" %s %s;",attr->second->type.data(),attr->second->name.data());
- post(")");
- post("methods (");
- for (int i=0; i<fc->methodsn; i++) post(" %s",fc->methods[i].selector);
- post(")");
-}
-\classinfo {}
-\end class
-
-void startup_number();
-void startup_flow_objects();
-void startup_flow_objects2();
-void startup_format();
-STARTUP_LIST(void)
-
-void blargh () {
-#ifdef MACOSX
- fprintf(stderr,"unhandled exception\n");
-#else
- void *array[25];
- int nSize = backtrace(array, 25);
- char **symbols = backtrace_symbols(array, nSize);
- for (int i=0; i<nSize; i++) fprintf(stderr,"%d: %s\n",i,symbols[i]);
- free(symbols);
-#endif
-}
-
-static t_gobj *canvas_last (t_canvas *self) {
-#ifdef DESIRE
- t_gobj *g = canvas_first(self);
- while (gobj_next(g)) g=gobj_next(g);
-#else
- t_gobj *g = self->gl_list;
- while (g->g_next) g=g->g_next;
-#endif
- return g;
-}
-
-#ifdef DESIRE
-extern "C" void canvas_delete(t_canvas *, t_gobj *);
-#define glist_delete canvas_delete
-#endif
-
-static void canvas_else (t_canvas *self, t_symbol *s, int argc, t_atom *argv) {
- t_gobj *g = canvas_last(self);
- if (pd_newest()) return;
- glist_delete(self,g);
- if (argc<1 || argv[0].a_type!=A_SYMBOL) {error("$1 must be a symbol"); return;}
- pd_typedmess((t_pd *)self,argv[0].a_w.w_symbol,argc-1,argv+1);
-}
-
-// those are not really leaks but deleting them make them disappear from valgrind
-// however, there's still a problem doing it, so, we won't do it.
-static void gridflow_unsetup () {
-/*
- foreach(iter,fclasses_pd) {
- FClass *fc = iter->second;
- foreach(iter2,fc->attrs) delete iter2->second;
- fc->FClass::~FClass();
- }
-*/
-}
-
-void allow_big_stack () {
- struct rlimit happy;
- if (0>getrlimit(RLIMIT_STACK,&happy))
- error("GF: getrlimit: %s",strerror(errno));
- happy.rlim_cur = happy.rlim_max;
- if (0>setrlimit(RLIMIT_STACK,&happy))
- error("GF: setting stack size to %ld: %s",happy.rlim_cur,strerror(errno));
- else
- post( "GF: setting stack size to %ld",happy.rlim_cur);
-}
-
-// note: contrary to what m_pd.h says, pd_getfilename() and pd_getdirname()
-// don't exist; also, canvas_getcurrentdir() isn't available during setup
-// (segfaults), in addition to libraries not being canvases ;-)
-// AND ALSO, CONTRARY TO WHAT m_pd.h SAYS, open_via_path()'s args are reversed!!!
-extern "C" void gridflow_setup () {
- post("GridFlow " GF_VERSION ", Copyright (c) 2001-2008 Mathieu Bouchard");
- post("GridFlow was compiled on "__DATE__", "__TIME__);
- //std::set_terminate(__gnu_cxx::__verbose_terminate_handler);
- std::set_terminate(blargh);
- allow_big_stack();
- try {
- char *dirname = new char[MAXPDSTRING];
- char *dirresult = new char[MAXPDSTRING];
- char *nameresult;
- char *zz=getcwd(dirname,MAXPDSTRING); /* zz only exists because gcc 4.3.3 gives me a bogus warning otherwise. */
- if (zz<0) {post("AAAARRRRGGGGHHHH!"); exit(69);}
- int fd=open_via_path(dirname,"gridflow/gridflow",PDSUF,dirresult,&nameresult,MAXPDSTRING,1);
- if (fd<0) fd=open_via_path(dirname, "gridflow",PDSUF,dirresult,&nameresult,MAXPDSTRING,1);
- if (fd>=0) close(fd); else post("%s was not found via the -path!","gridflow"PDSUF);
- /* nameresult is only a pointer in dirresult space so don't delete[] it. */
- add_to_path(dirresult);
- BFProxy_class = class_new(gensym("gf.proxy"),0,0,sizeof(BFProxy),CLASS_PD|CLASS_NOINLET, A_NULL);
- class_addanything(BFProxy_class,BFProxy_anything);
- srandom(rdtsc());
-#define FOO(_sym_,_name_) bsym._sym_ = gensym(_name_);
-BUILTIN_SYMBOLS(FOO)
-#undef FOO
- startup_number();
- \startall
- startup_flow_objects();
- startup_flow_objects2();
- startup_format();
- STARTUP_LIST()
- //sys_gui("bind . <Motion> {puts %W}\n");
- sys_vgui(".mbar.help add command -label \"GridFlow index\" -command {pd pd open index.pd %s/doc \\;}\n",dirresult);
- delete[] dirresult;
- delete[] dirname;
- } catch (Barf &oozy) {oozy.error(0);}
- signal(SIGSEGV,SIG_DFL);
- signal(SIGABRT,SIG_DFL);
- signal(SIGBUS, SIG_DFL);
- atexit(gridflow_unsetup);
- extern t_class *canvas_class;
- class_addmethod(canvas_class,(t_method)canvas_else,gensym("else"),A_GIMME,0);
-}