[PD-cvs] pd/src s_path.c,1.1.1.2.2.2.2.4,1.1.1.2.2.2.2.5

[carmen rocco]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2980

Modified Files:
      Tag: impd_0_37
	s_path.c 
Log Message:
check for .pdrc in "My Documents" on windoze .


Index: s_path.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/s_path.c,v
retrieving revision 1.1.1.2.2.2.2.4
retrieving revision 1.1.1.2.2.2.2.5
diff -C2 -d -r1.1.1.2.2.2.2.4 -r1.1.1.2.2.2.2.5
*** s_path.c	30 Mar 2004 00:40:39 -0000	1.1.1.2.2.2.2.4
--- s_path.c	30 Mar 2004 04:28:37 -0000	1.1.1.2.2.2.2.5
***************
*** 21,24 ****
--- 21,25 ----
  #endif
  #ifdef MSW
+ #include <windows.h>
  #include <io.h>
  #endif
***************
*** 358,363 ****
  #ifdef UNIX
      char *home = getenv("HOME");
-     dnames[ndirs++] = home ? home : ".";
  #endif
      dnames[ndirs++] = sys_libdir->s_name;
      /* find a startup file */
--- 359,369 ----
  #ifdef UNIX
      char *home = getenv("HOME");
  #endif
+ #ifdef MSW
+     char *home;
+     GetEnvironmentVariable("USERPROFILE", home, 255);
+     strcat(home,"/My Documents");
+ #endif
+     dnames[ndirs++] = home ? home : ".";
      dnames[ndirs++] = sys_libdir->s_name;
      /* find a startup file */