Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31131
Modified Files: Tag: impd_0_37 s_main.c s_path.c Log Message: telling Tcl which pdrc got loaded
Index: s_main.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_main.c,v retrieving revision 1.1.1.4.2.8.4.7 retrieving revision 1.1.1.4.2.8.4.8 diff -C2 -d -r1.1.1.4.2.8.4.7 -r1.1.1.4.2.8.4.8 *** s_main.c 30 Mar 2004 00:23:43 -0000 1.1.1.4.2.8.4.7 --- s_main.c 3 Apr 2004 13:16:38 -0000 1.1.1.4.2.8.4.8 *************** *** 52,55 **** --- 52,56 ---- static int sys_version; int sys_oldtclversion; /* hack to warn g_rtext.c about old text sel */ + char *rcfilename;
int sys_nmidiout = 1; *************** *** 257,262 ****
sys_vgui("global cmdline; set cmdline(console) {%d}; " ! "set cmdline(look) {%s}; set cmdline(statusbar) {%d}; make_console\n", ! console_scrollback,option_look,option_statusbar);
/* open audio and MIDI */ --- 258,265 ----
sys_vgui("global cmdline; set cmdline(console) {%d}; " ! "set cmdline(look) {%s}; set cmdline(statusbar) {%d}; " ! "set cmdline(rcfilename) {%s}; " ! "make_console\n", ! console_scrollback,option_look,option_statusbar,rcfilename?rcfilename:"");
/* open audio and MIDI */
Index: s_path.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_path.c,v retrieving revision 1.1.1.2.2.2.2.7 retrieving revision 1.1.1.2.2.2.2.8 diff -C2 -d -r1.1.1.2.2.2.2.7 -r1.1.1.2.2.2.2.8 *** s_path.c 30 Mar 2004 05:07:40 -0000 1.1.1.2.2.2.2.7 --- s_path.c 3 Apr 2004 13:16:38 -0000 1.1.1.2.2.2.2.8 *************** *** 350,353 **** --- 350,355 ---- }
+ EXTERN char *rcfilename; + int sys_rcfile(void) { *************** *** 376,379 **** --- 378,382 ---- if (file) { post("reading startup file: %s", fname); + rcfilename = strdup(fname); return sys_this_rcfile(file); }