From 0077c941b9f516c2aee9233b8cbd36800f578260 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Thu, 17 Jan 2013 11:07:27 +0000 Subject: added [longload] (to simulate long loading times shan't that go to [iemguts]? svn path=/trunk/externals/zexy/; revision=16890 --- src/Makefile.am | 4 +++- src/longload.c | 65 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ src/z_zexy.c | 11 +++++----- src/z_zexy.h | 11 +++++----- 4 files changed, 80 insertions(+), 11 deletions(-) create mode 100644 src/longload.c diff --git a/src/Makefile.am b/src/Makefile.am index a89b3e7..50bdbc8 100644 --- a/src/Makefile.am +++ b/src/Makefile.am @@ -65,6 +65,7 @@ pkglib_LTLIBRARIES+= \ lister.la \ listfind.la \ liststorage.la \ + longload.la \ lpt.la \ lp.la \ makesymbol.la \ @@ -165,6 +166,7 @@ lister_la_SOURCES = lister.c l_la_SOURCES = lister.c listfind_la_SOURCES = listfind.c liststorage_la_SOURCES = liststorage.c +longload_la_SOURCES = longload.c if LPT lpt_la_SOURCES = lpt.c lp_la_SOURCES = lpt.c @@ -231,7 +233,7 @@ zexy_la_SOURCES = zexy.c z_zexy.c \ blockmirror~.c blockshuffle~.c blockswap~.c \ date.c demultiplex~.c demultiplex.c dfreq~.c dirac~.c drip.c envrms~.c \ fifop.c freadln.c fwriteln.c glue.c index.c length.c lifop.c limiter~.c \ - list2int.c list2lists.c list2symbol.c lister.c listfind.c liststorage.c lpt.c \ + list2int.c list2lists.c list2symbol.c lister.c listfind.c liststorage.c longload.c lpt.c \ makesymbol.c matchbox.c mavg.c minmax.c msgfile.c multiline~.c multiplex~.c \ multiplex.c multireceive.c niagara.c noish~.c noisi~.c operating_system.c pack~.c \ pack.c packel.c pdf~.c prime.c quantize~.c rawprint.c regex.c relay.c repack.c \ diff --git a/src/longload.c b/src/longload.c new file mode 100644 index 0000000..f6844a2 --- /dev/null +++ b/src/longload.c @@ -0,0 +1,65 @@ +/* + * longload: takes a long time to load + * + * (c) 1999-2011 IOhannes m zmölnig, forum::für::umläute, institute of electronic music and acoustics (iem) + * + * 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. + * + * 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, see . + */ + +#include "zexy.h" + + +/* ------------------------- longload ------------------------------- */ +#ifdef _WIN32 +# include +#else +# include +#endif + + +static t_class *longload_class; + +typedef struct _longload +{ + t_object x_obj; +} t_longload; + +int millisleep(unsigned int milli) { +#ifdef _WIN32 + Sleep(milli); +#else + usleep(milli*1000); +#endif +} + +static void *longload_new(t_float f) +{ + t_longload *x = (t_longload *)pd_new(longload_class); + if(f>0.f) + millisleep(f); + else + millisleep(1000); + return (x); +} + +void longload_setup(void) +{ + longload_class = class_new(gensym("longload"), + (t_newmethod)longload_new, + 0, + sizeof(t_longload), + CLASS_NOINLET, + A_DEFFLOAT, 0); + zexy_register("longload"); +} diff --git a/src/z_zexy.c b/src/z_zexy.c index 35e3ba6..4efc3d8 100644 --- a/src/z_zexy.c +++ b/src/z_zexy.c @@ -14,8 +14,8 @@ void z_zexy_setup(void) setup_0x3e0x7e(); /* 0x3e0x7e */ setup_0x7c0x7c0x7e(); /* 0x7c0x7c0x7e */ a2l_setup(); /* a2l */ - absgn_tilde_setup(); /* absgn~ */ abs_tilde_setup(); /* abs~ */ + absgn_tilde_setup(); /* absgn~ */ atof_setup(); /* atof */ atoi_setup(); /* atoi */ avg_tilde_setup(); /* avg~ */ @@ -23,8 +23,8 @@ void z_zexy_setup(void) blockshuffle_tilde_setup(); /* blockshuffle~ */ blockswap_tilde_setup(); /* blockswap~ */ date_setup(); /* date */ - demultiplex_setup(); /* demultiplex */ demultiplex_tilde_setup(); /* demultiplex~ */ + demultiplex_setup(); /* demultiplex */ dfreq_tilde_setup(); /* dfreq~ */ dirac_tilde_setup(); /* dirac~ */ drip_setup(); /* drip */ @@ -43,6 +43,7 @@ void z_zexy_setup(void) lister_setup(); /* lister */ listfind_setup(); /* listfind */ liststorage_setup(); /* liststorage */ + longload_setup(); /* longload */ lpt_setup(); /* lpt */ makesymbol_setup(); /* makesymbol */ matchbox_setup(); /* matchbox */ @@ -50,16 +51,16 @@ void z_zexy_setup(void) minmax_setup(); /* minmax */ msgfile_setup(); /* msgfile */ multiline_tilde_setup(); /* multiline~ */ - multiplex_setup(); /* multiplex */ multiplex_tilde_setup(); /* multiplex~ */ + multiplex_setup(); /* multiplex */ multireceive_setup(); /* multireceive */ niagara_setup(); /* niagara */ noish_tilde_setup(); /* noish~ */ noisi_tilde_setup(); /* noisi~ */ operating_system_setup(); /* operating_system */ + pack_tilde_setup(); /* pack~ */ pack_setup(); /* pack */ packel_setup(); /* packel */ - pack_tilde_setup(); /* pack~ */ pdf_tilde_setup(); /* pdf~ */ prime_setup(); /* prime */ quantize_tilde_setup(); /* quantize~ */ @@ -86,8 +87,8 @@ void z_zexy_setup(void) tabset_setup(); /* tabset */ tavg_tilde_setup(); /* tavg~ */ time_setup(); /* time */ - unpack_setup(); /* unpack */ unpack_tilde_setup(); /* unpack~ */ + unpack_setup(); /* unpack */ urn_setup(); /* urn */ wrap_setup(); /* wrap */ z_tilde_setup(); /* z~ */ diff --git a/src/z_zexy.h b/src/z_zexy.h index c35e767..2699361 100644 --- a/src/z_zexy.h +++ b/src/z_zexy.h @@ -12,8 +12,8 @@ void setup_0x3d0x3d0x7e(void); /* 0x3d0x3d0x7e */ void setup_0x3e0x7e(void); /* 0x3e0x7e */ void setup_0x7c0x7c0x7e(void); /* 0x7c0x7c0x7e */ void a2l_setup(void); /* a2l */ -void absgn_tilde_setup(void); /* absgn~ */ void abs_tilde_setup(void); /* abs~ */ +void absgn_tilde_setup(void); /* absgn~ */ void atof_setup(void); /* atof */ void atoi_setup(void); /* atoi */ void avg_tilde_setup(void); /* avg~ */ @@ -21,8 +21,8 @@ void blockmirror_tilde_setup(void); /* blockmirror~ */ void blockshuffle_tilde_setup(void); /* blockshuffle~ */ void blockswap_tilde_setup(void); /* blockswap~ */ void date_setup(void); /* date */ -void demultiplex_setup(void); /* demultiplex */ void demultiplex_tilde_setup(void); /* demultiplex~ */ +void demultiplex_setup(void); /* demultiplex */ void dfreq_tilde_setup(void); /* dfreq~ */ void dirac_tilde_setup(void); /* dirac~ */ void drip_setup(void); /* drip */ @@ -41,6 +41,7 @@ void list2symbol_setup(void); /* list2symbol */ void lister_setup(void); /* lister */ void listfind_setup(void); /* listfind */ void liststorage_setup(void); /* liststorage */ +void longload_setup(void); /* longload */ void lpt_setup(void); /* lpt */ void makesymbol_setup(void); /* makesymbol */ void matchbox_setup(void); /* matchbox */ @@ -48,16 +49,16 @@ void mavg_setup(void); /* mavg */ void minmax_setup(void); /* minmax */ void msgfile_setup(void); /* msgfile */ void multiline_tilde_setup(void); /* multiline~ */ -void multiplex_setup(void); /* multiplex */ void multiplex_tilde_setup(void); /* multiplex~ */ +void multiplex_setup(void); /* multiplex */ void multireceive_setup(void); /* multireceive */ void niagara_setup(void); /* niagara */ void noish_tilde_setup(void); /* noish~ */ void noisi_tilde_setup(void); /* noisi~ */ void operating_system_setup(void); /* operating_system */ +void pack_tilde_setup(void); /* pack~ */ void pack_setup(void); /* pack */ void packel_setup(void); /* packel */ -void pack_tilde_setup(void); /* pack~ */ void pdf_tilde_setup(void); /* pdf~ */ void prime_setup(void); /* prime */ void quantize_tilde_setup(void); /* quantize~ */ @@ -84,8 +85,8 @@ void tabread4_tilde_tilde_setup(void); /* tabread4~~ */ void tabset_setup(void); /* tabset */ void tavg_tilde_setup(void); /* tavg~ */ void time_setup(void); /* time */ -void unpack_setup(void); /* unpack */ void unpack_tilde_setup(void); /* unpack~ */ +void unpack_setup(void); /* unpack */ void urn_setup(void); /* urn */ void wrap_setup(void); /* wrap */ void z_tilde_setup(void); /* z~ */ -- cgit v1.2.1