/[guile]/guile/guile-core/libguile/win32-dirent.c
ViewVC logotype

Diff of /guile/guile-core/libguile/win32-dirent.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by mvo, Fri Nov 2 00:18:22 2001 UTC revision 1.3 by hanwen, Fri Aug 16 22:01:10 2002 UTC
# Line 57  opendir (const char * name) Line 57  opendir (const char * name)
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, "/*");
# Line 70  opendir (const char * name) Line 70  opendir (const char * name)
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;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26