aboutsummaryrefslogtreecommitdiff
path: root/pd/src
diff options
context:
space:
mode:
Diffstat (limited to 'pd/src')
-rw-r--r--pd/src/d_ugen.c1
-rw-r--r--pd/src/s_audio_pablio.h2
-rw-r--r--pd/src/s_audio_paring.c2
-rw-r--r--pd/src/s_audio_paring.h2
-rw-r--r--pd/src/s_inter.c4
-rw-r--r--pd/src/s_loader.c5
-rw-r--r--pd/src/u_main.tk14
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