}
+#if defined(_WIN32)
+char *
+strtok_r( char *s, const char *t, char **next)
+{
+ char *p, *r;
+ if( ! s ) s = *next;
+ if( ! s ) return NULL;
+ while( *s && strchr(t, *s) ) s++;
+ if( ! *s ) return NULL;
+ r = s;
+ while( *s && ! (p = strchr(t, *s)) ) s++;
+ *next = s + 1;
+ if( ! *s ) *next = NULL;
+ *s = '\0';
+ return r;
+}
+#endif
+
int CONV
procedure( tree_t * restrict ptree )
{