Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-12-15 00:51:21 +01:00
Code Issues Releases Wiki Activity

Update Nyquist to v3.09.

Browse Source
This commit is contained in:
Leland Lucius
2015-04-07 22:10:17 -05:00
parent f88b27e6d8
commit 9fb0ce5b82
358 changed files with 26327 additions and 7043 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
lib-src/libnyquist/nyquist/sys/win/msvc/winfun.c
View File

@@ -14,49 +14,69 @@
xsetdir - set current directory of the process */
LVAL xsetdir() {
TCHAR ssCurDir[MAX_PATH], szCurDir[MAX_PATH];
int verbose = TRUE;
strcpy(ssCurDir, getstring(xlgastring()));
if (moreargs()) {
verbose = (xlgetarg() != NIL);
}
xllastarg();
if (SetCurrentDirectory(ssCurDir)) {
if (GetCurrentDirectory(
sizeof(szCurDir)/sizeof(TCHAR), szCurDir)) {
return cvstring(szCurDir);
/* create the result string
stdputstr("Current Directory: ");
stdputstr(szCurDir);
stdputstr("\n"); */
if (ok_to_open(ssCurDir, "r"))
if (SetCurrentDirectory(ssCurDir)) {
if (GetCurrentDirectory(
sizeof(szCurDir)/sizeof(TCHAR), szCurDir)) {
return cvstring(szCurDir);
/* create the result string
stdputstr("Current Directory: ");
stdputstr(szCurDir);
stdputstr("\n"); */
}
}
}
stdputstr("Directory Setting Error\n");
if (verbose) stdputstr("Directory Setting Error\n");
/* return nil on error*/
return NIL;
}
// test if source matches "c:\\windows" (case insensitive)
//
static int is_windows_dir(char *source)
{
char *windows_dir = "c:\\windows";
while (*source) {
if (!*windows_dir || tolower(*source++) != *windows_dir++) {
return FALSE;
}
}
return !*windows_dir;
}
/* xget_temp_path -- get a path to create temp files */
LVAL xget_temp_path()
{
char *p;
char szDir[MAX_PATH];
char szDirLC[MAX_PATH];
int rslt = GetTempPath(MAX_PATH, szDir);
if (rslt > MAX_PATH || rslt <= 0) {
return cvstring("");
} else {
/* Vista apparently treats c:\windows with
if (!(rslt > MAX_PATH || rslt <= 0)) {
/* Vista apparently treats c:\windows with
* special semantics, so just don't allow
* GetTempPath to put us in c:\windows...
*/
strcpy(szDirLC, szDir); /* convert to lower case */
for (p = szDirLC; *p; p++) {
*p = tolower(*p);
}
if (strstr(szDirLC, "c:\\windows")) {
/* c:\windows is bad. */
return cvstring("");
if (!is_windows_dir(szDir)) {
return cvstring(szDir);
}
}
// if not defined or "c:\\windows", which is bad
p = getenv("TEMP");
if (p && strlen(p) < MAX_PATH) strcpy(szDir, p);
else *szDir = 0;
if (!is_windows_dir(szDir)) {
return cvstring(szDir);
}
return cvstring("");
}
//Updated End