Bug fix in audio blocking

svn path=/trunk/; revision=5609

7 files changed, 17 insertions, 13 deletions

diff --git a/pd/src/d_ugen.c b/pd/src/d_ugen.c
index d7cfd543..1edf5ccb 100644
--- a/pd/src/d_ugen.c
+++ b/pd/src/d_ugen.c
@@ -953,6 +953,7 @@ void ugen_done_graph(t_dspcontext *dc)
     {
         srate = parent_srate;
         vecsize = parent_vecsize;
+        calcsize = (parent_context ? parent_context->dc_calcsize : vecsize);
         downsample = upsample = 1;
         period = frequency = 1;
         phase = 0;
diff --git a/pd/src/s_audio_pablio.h b/pd/src/s_audio_pablio.h
index fe8cba83..e47934f0 100644
--- a/pd/src/s_audio_pablio.h
+++ b/pd/src/s_audio_pablio.h
@@ -7,7 +7,7 @@ extern "C"
 #endif /* __cplusplus */
 
 /*
- * $Id: s_audio_pablio.h,v 1.4 2006-08-15 04:54:15 millerpuckette Exp $
+ * $Id: s_audio_pablio.h,v 1.5 2006-08-15 16:09:57 millerpuckette Exp $
  * PABLIO.h
  * Portable Audio Blocking read/write utility.
  *
diff --git a/pd/src/s_audio_paring.c b/pd/src/s_audio_paring.c
index b2dfd95e..c824700d 100644
--- a/pd/src/s_audio_paring.c
+++ b/pd/src/s_audio_paring.c
@@ -1,5 +1,5 @@
 /*
- * $Id: s_audio_paring.c,v 1.4 2006-08-15 04:54:15 millerpuckette Exp $
+ * $Id: s_audio_paring.c,v 1.5 2006-08-15 16:09:57 millerpuckette Exp $
  * ringbuffer.c
  * Ring Buffer utility..
  *
diff --git a/pd/src/s_audio_paring.h b/pd/src/s_audio_paring.h
index ba720515..dcd218b5 100644
--- a/pd/src/s_audio_paring.h
+++ b/pd/src/s_audio_paring.h
@@ -6,7 +6,7 @@ extern "C"
 #endif /* __cplusplus */
 
 /*
- * $Id: s_audio_paring.h,v 1.4 2006-08-15 04:54:15 millerpuckette Exp $
+ * $Id: s_audio_paring.h,v 1.5 2006-08-15 16:09:57 millerpuckette Exp $
  * ringbuffer.h
  * Ring Buffer utility..
  *
diff --git a/pd/src/s_inter.c b/pd/src/s_inter.c
index 102b0474..4b73e8d1 100644
--- a/pd/src/s_inter.c
+++ b/pd/src/s_inter.c
@@ -85,6 +85,7 @@ struct _socketreceiver
     t_socketreceivefn sr_socketreceivefn;
 };
 
+extern char *pd_version;
 extern int sys_guisetportnumber;
 extern char sys_font[]; /* tb: typeface */
 
@@ -1247,7 +1248,8 @@ int sys_startgui(const char *guidir)
 #endif
          sys_get_audio_apis(buf);
          sys_get_midi_apis(buf2);
-         sys_vgui("pdtk_pd_startup %s %s {%s}\n", buf, buf2, sys_font); 
+         sys_vgui("pdtk_pd_startup {%s} %s %s {%s}\n", pd_version, buf, buf2,
+                                  sys_font); 
     }
     return (0);
 
diff --git a/pd/src/s_loader.c b/pd/src/s_loader.c
index 19d6d530..159be4bf 100644
--- a/pd/src/s_loader.c
+++ b/pd/src/s_loader.c
@@ -76,7 +76,7 @@ void sys_putonloadlist(char *classname) /* add to list of loaded modules */
     ll->ll_name = gensym(classname);
     ll->ll_next = sys_loaded;
     sys_loaded = ll;
-    post("put on list %s", classname);
+    /* post("put on list %s", classname); */
 }
 
 void class_set_extern_dir(t_symbol *s);
@@ -94,7 +94,6 @@ static int sys_do_load_lib(t_canvas *canvas, char *objectname)
     if (classname = strrchr(objectname, '/'))
         classname++;
     else classname = objectname;
-    post("classname %s", classname);
     if (sys_onloadlist(classname))
     {
         post("%s: already loaded", classname);
@@ -130,7 +129,7 @@ static int sys_do_load_lib(t_canvas *canvas, char *objectname)
     }
     else strcat(symname, "_setup");
     
-#if 1
+#if 0
     fprintf(stderr, "lib: %s\n", classname);
 #endif
         /* try looking in the path for (objectname).(sys_dllextent) ... */
diff --git a/pd/src/u_main.tk b/pd/src/u_main.tk
index 3ee5505c..2dacec81 100644
--- a/pd/src/u_main.tk
+++ b/pd/src/u_main.tk
@@ -35,8 +35,8 @@ if {$pd_nt == 1} {
     global pd_guidir
     global pd_tearoff
     set pd_gui2 [string range $argv0 0 [expr [string last \\ $argv0 ] - 1]]
-    regsub -all \\\\ $pd_gui2 / pd_guidir
-	set pd_guidir [string range $pd_guidir 0 [expr [string last / $pd_guidir] - 1]]
+    regsub -all \\\\ $pd_gui2 / pd_gui3
+    set pd_guidir $pd_gui3/..
     load $pd_guidir/bin/pdtcl.dll
     set pd_tearoff 1
 }
@@ -371,7 +371,8 @@ proc menu_opentext {filename} {
     while {![eof $f]} {
         set bigstring [read $f 1000]
         regsub -all PD_BASEDIR $bigstring $pd_guidir bigstring2
-        $name.text insert end $bigstring2
+        regsub -all PD_VERSION $bigstring2 $pd_myversion bigstring3
+        $name.text insert end $bigstring3
     }
     close $f
     set doc_number [expr $doc_number + 1] 
@@ -3243,9 +3244,10 @@ proc pdtk_pd_ctrlkey {name key shift} {
 # seven "useful" font sizes.
 
 # tb: user defined typefaces
-proc pdtk_pd_startup {apilist midiapilist fontname} {
-#    puts stderr [concat $apilist $midiapilist $fontname]
-    global pd_apilist pd_midiapilist
+proc pdtk_pd_startup {version apilist midiapilist fontname} {
+#    puts stderr [concat $version $apilist $fontname]
+    global pd_myversion pd_apilist pd_midiapilist
+    set pd_myversion $version
     set pd_apilist $apilist
     set pd_midiapilist $midiapilist
     global pd_fontlist