1 /* $Header: directory.c,v 3.0.1.1 90/03/27 16:07:37 lwall Locked $
3 * (C) Copyright 1987, 1988, 1990 Diomidis Spinellis.
5 * You may distribute under the terms of the GNU General Public License
6 * as specified in the README file that comes with the perl 3.0 kit.
8 * $Log: directory.c,v $
9 * Revision 3.0.1.1 90/03/27 16:07:37 lwall
10 * patch16: MSDOS support
12 * Revision 1.3 90/03/16 22:39:40 dds
13 * Fixed malloc problem.
15 * Revision 1.2 88/07/23 00:08:39 dds
16 * Added inode non-zero filling.
18 * Revision 1.1 88/07/23 00:03:50 dds
24 * UNIX compatible directory access functions
27 #include <sys/types.h>
36 * File names are converted to lowercase if the
37 * CONVERT_TO_LOWER_CASE variable is defined.
39 #define CONVERT_TO_LOWER_CASE
44 static char rcsid[] = "$Header: director.c;v 1.3 90/03/16 22:39:40 dds Exp
49 opendir(char *filename)
52 char *oldresult, *result;
56 char scannamespc[PATHLEN];
57 char *scanname = scannamespc; /* To take address we need a pointer */
60 * Structure used by the MS-DOS directory system calls.
63 char reserved[21]; /* Reserved for MS-DOS */
64 unsigned char attribute; /* Attribute */
65 unsigned int time; /* Time */
66 unsigned int date; /* Date */
67 long size; /* Size of file */
68 char fn[13]; /* Filename */
69 } buffspc, *buff = &buffspc;
72 if (!(p = (DIR *) malloc(sizeof(DIR))))
75 /* Initialize result to use realloc on it */
76 if (!(result = malloc(1))) {
81 /* Create the search pattern */
82 strcpy(scanname, filename);
83 if (strchr("/\\", *(scanname + strlen(scanname) - 1)) == NULL)
84 strcat(scanname, "/*.*");
86 strcat(scanname, "*.*");
89 #if ( defined(M_I86LM) || defined(M_I86CM) || defined(M_I86HM) )
90 segregs.ds = FP_SEG(buff);
91 srv.x.dx = FP_OFF(buff);
93 srv.x.dx = (unsigned int) buff;
95 srv.h.ah = 0x1a; /* Set DTA to DS:DX */
96 intdosx(&srv, &srv, &segregs);
98 #if ( defined(M_I86LM) || defined(M_I86CM) || defined(M_I86HM) )
99 segregs.ds = FP_SEG(scanname);
100 srv.x.dx = FP_OFF(scanname);
102 srv.x.dx = (unsigned int) scanname;
104 srv.x.cx = 0xff; /* Search mode */
106 for (srv.h.ah = 0x4e; !intdosx(&srv, &srv, &segregs); srv.h.ah = 0x4f) {
107 if ((result = (char *) realloc(result, reslen + strlen(buff->fn) + 1)) ==
114 #ifdef CONVERT_TO_LOWER_CASE
115 strcpy(result + reslen, strlwr(buff->fn));
117 strcpy(result + reslen, buff->fn);
119 reslen += strlen(buff->fn) + 1;
122 if (!(result = realloc(result, reslen + 1))) {
129 *(result + reslen) = '\0';
145 dirp->curr += len + 1;
146 strcpy(dirp->dirstr.d_name, p);
147 dirp->dirstr.d_namlen = len;
148 /* To fool programs */
149 dirp->dirstr.d_ino = ++dummy;
150 return &(dirp->dirstr);
158 return (long) dirp->curr; /* ouch! pointer to long cast */
162 seekdir(DIR *dirp, long loc)
164 dirp->curr = (char *) loc; /* ouch! long to pointer cast */
170 dirp->curr = dirp->start;