57 |
|
|
58 |
if (!name || !*name) |
if (!name || !*name) |
59 |
return NULL; |
return NULL; |
60 |
file = malloc (strlen (name) + 3); |
file = scm_malloc (strlen (name) + 3); |
61 |
strcpy (file, name); |
strcpy (file, name); |
62 |
if (file[strlen (name) - 1] != '/' && file[strlen (name) - 1] != '\\') |
if (file[strlen (name) - 1] != '/' && file[strlen (name) - 1] != '\\') |
63 |
strcat (file, "/*"); |
strcat (file, "/*"); |
70 |
return NULL; |
return NULL; |
71 |
} |
} |
72 |
|
|
73 |
dir = malloc (sizeof (DIR)); |
dir = scm_malloc (sizeof (DIR)); |
74 |
dir->mask = file; |
dir->mask = file; |
75 |
dir->fd = (int) hnd; |
dir->fd = (int) hnd; |
76 |
dir->data = malloc (sizeof (WIN32_FIND_DATA)); |
dir->data = scm_malloc (sizeof (WIN32_FIND_DATA)); |
77 |
dir->allocation = sizeof (WIN32_FIND_DATA); |
dir->allocation = sizeof (WIN32_FIND_DATA); |
78 |
dir->size = dir->allocation; |
dir->size = dir->allocation; |
79 |
dir->filepos = 0; |
dir->filepos = 0; |