github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-27 17:12:42 +00:00
Code Issues Projects Releases Wiki Activity

Resolves error and style complaints by Gemini code review

Browse Source
This commit is contained in:
Nick Briggs
2025-10-20 15:50:52 -07:00
parent d4a882adc2
commit 51a33680f4
2 changed files with 5 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/dir.c
View File

@@ -951,7 +951,7 @@ static int enum_dsk(char *dir, char *name, char *ver, FINFO **finfo_buf)
nextp->dirp = 1;
quote_dname(namebuf, sizeof(namebuf));
strlcpy(nextp->lname, namebuf, sizeof(nextp->lname));
strlcat(nextp->lname, LISPDIRCHAR, sizeof(nextp->lname));
strlcat(nextp->lname, LISPDIRSTR, sizeof(nextp->lname));
nextp->lname_len = strlen(nextp->lname);
} else {
/* All other types than directory. */
@@ -1324,18 +1324,14 @@ static int enum_ufs(char *dir, char *name, char *ver, FINFO **finfo_buf)
nextp->dirp = 1;
quote_dname(namebuf, sizeof(namebuf));
strlcpy(nextp->lname, namebuf, sizeof(nextp->lname));
len = strlen(namebuf);
*(nextp->lname + len) = LISPDIRCHAR;
*(nextp->lname + len + 1) = '\0';
nextp->lname_len = len + 1;
strlcat(nextp->lname, LISPDIRSTR, sizeof(nextp->lname));
nextp->lname_len = strlen(nextp->lname);
} else {
/* All other types than directory. */
nextp->dirp = 0;
quote_fname_ufs(namebuf, sizeof(namebuf));
len = strlen(namebuf);
strlcpy(nextp->lname, namebuf, sizeof(nextp->lname));
*(nextp->lname + len) = '\0';
nextp->lname_len = len;
nextp->lname_len = strlen(nextp->lname);
}
strlcpy(namebuf, dirp.name, sizeof(namebuf));

1
src/dsk.c
View File

@@ -664,6 +664,7 @@ LispPTR COM_closefile(LispPTR *args)
for (; rval == 0; S_TOUT(rval = _dos_findnext(&dirp))) {
snprintf(file, sizeof(file), "%s\\%s", dir, dirp.name);
}
alarm(0);
}
#ifndef DOS /* effectively NEVER, since we're in an ifdef DOS */
time[0].tv_sec = (long)sbuf.st_atime;