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 */