aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--TODO11
-rw-r--r--version-help.pd30
-rw-r--r--version.c9
3 files changed, 27 insertions, 23 deletions
diff --git a/TODO b/TODO
index c0276f0..85e2988 100644
--- a/TODO
+++ b/TODO
@@ -1,12 +1,11 @@
+- pddate compare object
+
+- make ISOdate and ISOtime accept pddate format
+
- rename [folder_list] to [file/match] and make other file lib objects
- make [file/match] handle lists of patterns
-
-- write [version] object
- - [bang( outputs list of version major minor bugfix i.e. [0 39 2(
- - [time( outputs pd_compiletime
- - [date( outputs pd_compiledate
- - this should really be handled by messages to Pd, [;pd get date(
+ - make [file/match] behave like [qlist]
- [cursor] object
diff --git a/version-help.pd b/version-help.pd
index 255334d..cf41b10 100644
--- a/version-help.pd
+++ b/version-help.pd
@@ -1,16 +1,20 @@
-#N canvas 313 142 454 312 10;
+#N canvas 313 142 458 316 10;
#X obj 364 11 import hcs;
-#X msg 90 73 bang;
+#X msg 49 57 bang;
#X text 40 12 Get the version of the currently running Pd.;
-#X obj 90 135 version;
-#X obj 90 160 unpack float float float symbol;
-#X floatatom 90 184 5 0 0 0 - - -;
-#X floatatom 160 184 5 0 0 0 - - -;
-#X floatatom 230 186 5 0 0 0 - - -;
-#X symbolatom 303 185 0 0 0 0 - - -;
+#X obj 49 119 version;
+#X floatatom 49 168 5 0 0 3 major - -;
+#X floatatom 111 168 5 0 0 3 minor - -;
+#X floatatom 173 170 5 0 0 3 bugfix - -;
+#X symbolatom 235 243 0 0 0 3 test - -;
+#X obj 49 144 unpack float float float symbol symbol symbol;
+#X symbolatom 297 203 0 0 0 3 date - -;
+#X symbolatom 359 169 0 0 0 3 time - -;
#X connect 1 0 3 0;
-#X connect 3 0 4 0;
-#X connect 4 0 5 0;
-#X connect 4 1 6 0;
-#X connect 4 2 7 0;
-#X connect 4 3 8 0;
+#X connect 3 0 8 0;
+#X connect 8 0 4 0;
+#X connect 8 1 5 0;
+#X connect 8 2 6 0;
+#X connect 8 3 7 0;
+#X connect 8 4 9 0;
+#X connect 8 5 10 0;
diff --git a/version.c b/version.c
index 6487c49..fddbf37 100644
--- a/version.c
+++ b/version.c
@@ -27,7 +27,7 @@
#include <m_pd.h>
-static char *version = "$Revision: 1.1 $";
+static char *version = "$Revision: 1.2 $";
t_int version_instance_count;
@@ -51,13 +51,15 @@ static void version_output(t_version* x)
{
DEBUG(post("version_output"););
- t_atom version_data[4];
+ t_atom version_data[6];
SETFLOAT(version_data, (float) PD_MAJOR_VERSION);
SETFLOAT(version_data + 1, (float) PD_MINOR_VERSION);
SETFLOAT(version_data + 2, (float) PD_BUGFIX_VERSION);
SETSYMBOL(version_data + 3, gensym(PD_TEST_VERSION));
+ SETSYMBOL(version_data + 4, gensym(__DATE__));
+ SETSYMBOL(version_data + 5, gensym(__TIME__));
- outlet_list(x->x_obj.ob_outlet, &s_list, 4, version_data);
+ outlet_list(x->x_obj.ob_outlet, &s_list, 6, version_data);
}
@@ -90,5 +92,4 @@ void version_setup(void)
0);
/* add inlet datatype methods */
class_addbang(version_class,(t_method) version_output);
-
}