[PD-cvs] pd/src s_main.c,1.1.1.4.2.8.4.7,1.1.1.4.2.8.4.8 s_path.c,1.1.1.2.2.2.2.7,1.1.1.2.2.2.2.8

[Mathieu Bouchard]

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);
  	    }