aboutsummaryrefslogtreecommitdiff
path: root/iemlib2
diff options
context:
space:
mode:
Diffstat (limited to 'iemlib2')
-rw-r--r--iemlib2/iem_pbank.pbank10
-rw-r--r--iemlib2/src/makefile_linux3
-rw-r--r--iemlib2/test-parentdollarzero.pd14
-rw-r--r--iemlib2/test_dollarg.pd45
4 files changed, 71 insertions, 1 deletions
diff --git a/iemlib2/iem_pbank.pbank b/iemlib2/iem_pbank.pbank
new file mode 100644
index 0000000..22e9e29
--- /dev/null
+++ b/iemlib2/iem_pbank.pbank
@@ -0,0 +1,10 @@
+1,2,3,4,5,6,abc;
+11,12,13,14,15,16,def;
+21,22,23,24,25,26,ghi;
+31,32,33,34,35,36,jkl;
+41,42,43,44,45,46,mno;
+51,52,53,54,55,56,pqr;
+61,62,63,64,65,66,stu;
+71,72,73,74,75,76,vwx;
+81,82,83,84,85,86,y_z;
+91,92,93,94,95,96,+-+;
diff --git a/iemlib2/src/makefile_linux b/iemlib2/src/makefile_linux
index ea9e468..0c6aef3 100644
--- a/iemlib2/src/makefile_linux
+++ b/iemlib2/src/makefile_linux
@@ -66,13 +66,14 @@ OBJ = $(SRC:.c=.o)
#
clean:
- rm $(TARGET)
+ rm ../$(TARGET)
rm *.o
all: $(OBJ)
@echo :: $(OBJ)
$(LD) $(LDFLAGS) -o $(TARGET) *.o $(LIB)
strip --strip-unneeded $(TARGET)
+ mv $(TARGET) ..
$(OBJ) : %.o : %.c
$(CC) $(CFLAGS) $(INCLUDE) -c -o $*.o $*.c
diff --git a/iemlib2/test-parentdollarzero.pd b/iemlib2/test-parentdollarzero.pd
new file mode 100644
index 0000000..baeb910
--- /dev/null
+++ b/iemlib2/test-parentdollarzero.pd
@@ -0,0 +1,14 @@
+#N canvas 0 0 470 320 10;
+#X obj 64 89 parent$0;
+#X obj 64 64 inlet;
+#X obj 64 115 outlet;
+#X text 110 65 input: <bang>;
+#X text 121 107 output: <symbol> of parent unique number;
+#X text 106 195 IEM KUG;
+#X text 90 183 musil;
+#X text 120 183 @;
+#X text 126 183 iem.at;
+#X text 41 172 (c) Thomas Musil 2000 - 2005;
+#X text 89 205 Graz \, Austria;
+#X connect 0 0 2 0;
+#X connect 1 0 0 0;
diff --git a/iemlib2/test_dollarg.pd b/iemlib2/test_dollarg.pd
new file mode 100644
index 0000000..69fbb8a
--- /dev/null
+++ b/iemlib2/test_dollarg.pd
@@ -0,0 +1,45 @@
+#N canvas 75 94 758 543 10;
+#X obj 126 224 dollarg;
+#X obj 126 40 inlet;
+#X obj 32 387 outlet;
+#X obj 415 374 outlet;
+#X obj 251 150 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X floatatom 420 352 5 0 0 0 - - -;
+#X obj 25 310 prepend set;
+#X msg 25 339 aa bb cc dd ee ff gg 33 44 55 66 77 88 99;
+#X floatatom 247 181 5 0 0 0 - - -;
+#X text 11 6 dollarg;
+#X text 93 7 receives the parent initial arguments <list> \, like a
+$n;
+#X text 250 61 into internal buffer and to output;
+#X text 83 406 or output float or symbol of list-atom at index (if
+input:;
+#X text 235 47 at creation-time dollarg copy parent initial arguments
+;
+#X text 302 88 pargs = parent arguments;
+#X text 302 101 n_pa = number of pargs;
+#X text 468 347 output n_pa (if input: n = 0 \, or bang);
+#X text 471 363 or output index of parg (if input: n != 0);
+#X text 475 378 or output 0 (if input: n > n_pa);
+#X text 82 389 output list of pargs (if input: n = 0 \, or bang);
+#X text 485 402 -n_pa <= n <= n_pa);
+#X text 276 149 if (input == bang) -> dollarg output all pargs;
+#X text 302 181 if (input = 0) -> dollarg output all pargs;
+#X text 302 195 if (input > 0) -> dollarg output the n-th parg;
+#X text 526 207 (n_pa + 1 + input)-th parg;
+#X text 304 208 if (input < 0) -> dollarg output the;
+#X text 106 485 IEM KUG;
+#X text 90 473 musil;
+#X text 120 473 @;
+#X text 126 473 iem.at;
+#X text 41 462 (c) Thomas Musil 2000 - 2005;
+#X text 89 495 Graz \, Austria;
+#X connect 0 0 2 0;
+#X connect 0 0 6 0;
+#X connect 0 1 3 0;
+#X connect 0 1 5 0;
+#X connect 1 0 0 0;
+#X connect 4 0 0 0;
+#X connect 6 0 7 0;
+#X connect 8 0 0 0;