2 Copyright (C) 1996-2012 Free Software Foundation, Inc.
3 This file is part of GNU Make.
5 GNU Make is free software; you can redistribute it and/or modify it under the
6 terms of the GNU General Public License as published by the Free Software
7 Foundation; either version 3 of the License, or (at your option) any later
10 GNU Make is distributed in the hope that it will be useful, but WITHOUT ANY
11 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 A PARTICULAR PURPOSE. See the GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License along with
15 this program. If not, see <http://www.gnu.org/licenses/>. */
36 struct DIR *dir
= xcalloc (sizeof (struct DIR));
37 struct NAM
*dnam
= xmalloc (sizeof (struct NAM
));
38 struct FAB
*dfab
= &dir
->fab
;
39 char *searchspec
= xmalloc (MAXNAMLEN
+ 1);
43 sprintf (searchspec
, "%s*.*;", dspec
);
45 dfab
->fab$l_fna
= searchspec
;
46 dfab
->fab$b_fns
= strlen (searchspec
);
47 dfab
->fab$l_nam
= dnam
;
50 dnam
->nam$l_esa
= searchspec
;
51 dnam
->nam$b_ess
= MAXNAMLEN
;
53 if (! (sys$
parse (dfab
) & 1))
64 #define uppercasify(str) \
68 for (tmp = (str); *tmp != '\0'; tmp++) \
69 if (islower ((unsigned char)*tmp)) \
70 *tmp = toupper ((unsigned char)*tmp); \
77 struct FAB
*dfab
= &dir
->fab
;
78 struct NAM
*dnam
= (struct NAM
*)(dfab
->fab$l_nam
);
79 struct direct
*dentry
= &dir
->dir
;
82 memset (dentry
, 0, sizeof *dentry
);
84 dnam
->nam$l_rsa
= dir
->d_result
;
85 dnam
->nam$b_rss
= MAXNAMLEN
;
87 DB (DB_VERBOSE
, ("."));
89 if (!((i
= sys$
search (dfab
)) & 1))
91 DB (DB_VERBOSE
, (_("sys$search() failed with %d\n"), i
));
96 if (dnam
->nam$w_fid
== 0)
99 dentry
->d_fileno
= dnam
->nam$w_fid
[0] + (dnam
->nam$w_fid
[1] << 16);
101 dentry
->d_reclen
= sizeof (struct direct
);
102 dentry
->d_namlen
= dnam
->nam$b_name
+ dnam
->nam$b_type
;
103 strncpy (dentry
->d_name
, dnam
->nam$l_name
, dentry
->d_namlen
);
104 dentry
->d_name
[dentry
->d_namlen
] = '\0';
106 #ifdef HAVE_CASE_INSENSITIVE_FS
107 uppercasify (dentry
->d_name
);
118 struct FAB
*dfab
= &dir
->fab
;
119 struct NAM
*dnam
= (struct NAM
*)(dfab
->fab$l_nam
);
121 free (dnam
->nam$l_esa
);
128 #endif /* compiled for OpenVMS prior to V7.x */
133 static char buf
[512];
136 return (getcwd (cwd
, 512));
138 return (getcwd (buf
, 512));
143 * Is this used? I don't see any reference, so I suggest to remove it.
146 vms_stat (char *name
, struct stat
*buf
)
151 static struct FAB Fab
;
152 static struct NAM Nam
;
153 static struct fibdef Fib
; /* short fib */
154 static struct dsc$descriptor FibDesc
=
155 { sizeof (Fib
), DSC$K_DTYPE_Z
, DSC$K_CLASS_S
, (char *) &Fib
};
156 static struct dsc$descriptor_s DevDesc
=
157 { 0, DSC$K_DTYPE_T
, DSC$K_CLASS_S
, &Nam
.nam$t_dvi
[1] };
158 static char EName
[NAM$C_MAXRSS
];
159 static char RName
[NAM$C_MAXRSS
];
160 static struct dsc$descriptor_s FileName
=
161 { 0, DSC$K_DTYPE_T
, DSC$K_CLASS_S
, 0 };
162 static struct dsc$descriptor_s string
=
163 { 0, DSC$K_DTYPE_T
, DSC$K_CLASS_S
, 0 };
164 static unsigned long Rdate
[2];
165 static unsigned long Cdate
[2];
166 static struct atrdef Atr
[] =
170 { sizeof (Rdate
), ATR$C_REVDATE
, (unsigned int) &Rdate
[0] },
172 { sizeof (Cdate
), ATR$C_CREDATE
, (unsigned int) &Cdate
[0] },
175 { sizeof (Rdate
), ATR$C_REVDATE
, &Rdate
[0] },
177 { sizeof (Cdate
), ATR$C_CREDATE
, &Cdate
[0]},
181 static short int DevChan
;
182 static short int iosb
[4];
184 name
= vmsify (name
, 0);
186 /* initialize RMS structures, we need a NAM to retrieve the FID */
188 Fab
.fab$l_fna
= name
; /* name of file */
189 Fab
.fab$b_fns
= strlen (name
);
190 Fab
.fab$l_nam
= &Nam
; /* FAB has an associated NAM */
193 Nam
.nam$l_esa
= EName
; /* expanded filename */
194 Nam
.nam$b_ess
= sizeof (EName
);
195 Nam
.nam$l_rsa
= RName
; /* resultant filename */
196 Nam
.nam$b_rss
= sizeof (RName
);
198 /* do $PARSE and $SEARCH here */
199 status
= sys$
parse (&Fab
);
203 DevDesc
.dsc$w_length
= Nam
.nam$t_dvi
[0];
204 status
= sys$
assign (&DevDesc
, &DevChan
, 0, 0);
208 FileName
.dsc$a_pointer
= Nam
.nam$l_name
;
209 FileName
.dsc$w_length
= Nam
.nam$b_name
+ Nam
.nam$b_type
+ Nam
.nam$b_ver
;
211 /* Initialize the FIB */
212 for (i
= 0; i
< 3; i
++)
215 Fib
.fib$w_fid
[i
] = Nam
.nam$w_fid
[i
];
216 Fib
.fib$w_did
[i
] = Nam
.nam$w_did
[i
];
218 Fib
.fib$r_fid_overlay
.fib$w_fid
[i
] = Nam
.nam$w_fid
[i
];
219 Fib
.fib$r_did_overlay
.fib$w_did
[i
] = Nam
.nam$w_did
[i
];
223 status
= sys$
qiow (0, DevChan
, IO$_ACCESS
, &iosb
, 0, 0,
224 &FibDesc
, &FileName
, 0, 0, &Atr
, 0);
225 sys$
dassgn (DevChan
);
232 status
= stat (name
, buf
);
236 buf
->st_mtime
= ((Rdate
[0] >> 24) & 0xff) + ((Rdate
[1] << 8) & 0xffffff00);
237 buf
->st_ctime
= ((Cdate
[0] >> 24) & 0xff) + ((Cdate
[1] << 8) & 0xffffff00);
244 cvt_time (unsigned long tval
)
246 static long int date
[2];
248 static struct dsc$descriptor date_str
=
249 { 26, DSC$K_DTYPE_T
, DSC$K_CLASS_S
, str
};
251 date
[0] = (tval
& 0xff) << 24;
252 date
[1] = ((tval
>> 8) & 0xffffff);
254 if ((date
[0] == 0) && (date
[1] == 0))
257 sys$
asctim (0, &date_str
, date
, 0);