Mercurial > emacs
annotate src/ndir.h @ 73934:0a6f264ee5b6
(ada-prj-default-check-cmd): New variable, replacing deleted variable
`ada-check-switch'.
(ada-project-file-extension): Rename to `ada-prj-file-extension'.
(ada-xref-project-files): Improve doc string.
(ada-find-executable): New function.
(ada-initialize-runtime-library): Use `ada-find-executable'.
(ada-xref-set-default-prj-values): In compile commands, don't
need `ada-cd-command'; `compile' does that more portably.
Use ada-prj-default-check-cmd.
(ada-parse-prj-file): Don't set 'debug_post_cmd, 'debug_pre_cmd
properties if not specified in project file.
(ada-goto-declaration): Display useful message for new error
'error-file-not-found.
(ada-get-ada-file-name, ada-find-in-src-path): Signal new error
'error-file-not-found.
(ada-get-all-references): Match latest ali syntax.
Signal new error 'error-file-not-found.
(ada-find-in-ali): Match latest ali syntax.
(ada-make-filename-from-adaname): Handle different semantics
of gnatkr in GNAT 3.15p vs later.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Sun, 12 Nov 2006 17:06:31 +0000 |
parents | 695cf19ef79e |
children | 9511dc88835c 375f2633d815 |
rev | line source |
---|---|
484 | 1 /* |
2 <dir.h> -- definitions for 4.2BSD-compatible directory access | |
3 | |
4 last edit: 09-Jul-1983 D A Gwyn | |
5 */ | |
6 | |
7 #ifdef VMS | |
8 #ifndef FAB$C_BID | |
9 #include <fab.h> | |
10 #endif | |
11 #ifndef NAM$C_BID | |
12 #include <nam.h> | |
13 #endif | |
14 #ifndef RMS$_SUC | |
15 #include <rmsdef.h> | |
16 #endif | |
5877 | 17 #include "vmsdir.h" |
484 | 18 #endif /* VMS */ |
19 | |
20 #define DIRBLKSIZ 512 /* size of directory block */ | |
21 #ifdef VMS | |
22 #define MAXNAMLEN (DIR$S_NAME + 7) /* 80 plus room for version #. */ | |
23 #define MAXFULLSPEC NAM$C_MAXRSS /* Maximum full spec */ | |
24 #else | |
9792
b8fc349121d1
(MAXNAMLEN) [WINDOWSNT]: Define as 255.
Richard M. Stallman <rms@gnu.org>
parents:
5877
diff
changeset
|
25 #ifdef WINDOWSNT |
b8fc349121d1
(MAXNAMLEN) [WINDOWSNT]: Define as 255.
Richard M. Stallman <rms@gnu.org>
parents:
5877
diff
changeset
|
26 #define MAXNAMLEN 255 |
b8fc349121d1
(MAXNAMLEN) [WINDOWSNT]: Define as 255.
Richard M. Stallman <rms@gnu.org>
parents:
5877
diff
changeset
|
27 #else /* not WINDOWSNT */ |
484 | 28 #define MAXNAMLEN 15 /* maximum filename length */ |
9792
b8fc349121d1
(MAXNAMLEN) [WINDOWSNT]: Define as 255.
Richard M. Stallman <rms@gnu.org>
parents:
5877
diff
changeset
|
29 #endif /* not WINDOWSNT */ |
484 | 30 #endif /* VMS */ |
31 /* NOTE: MAXNAMLEN must be one less than a multiple of 4 */ | |
32 | |
33 struct direct /* data from readdir() */ | |
34 { | |
35 long d_ino; /* inode number of entry */ | |
36 unsigned short d_reclen; /* length of this record */ | |
37 unsigned short d_namlen; /* length of string in d_name */ | |
38 char d_name[MAXNAMLEN+1]; /* name of file */ | |
39 }; | |
40 | |
41 typedef struct | |
42 { | |
43 int dd_fd; /* file descriptor */ | |
44 int dd_loc; /* offset in block */ | |
45 int dd_size; /* amount of valid data */ | |
46 char dd_buf[DIRBLKSIZ]; /* directory block */ | |
47 } DIR; /* stream data from opendir() */ | |
48 | |
49 extern DIR *opendir(); | |
50 extern struct direct *readdir(); | |
51 extern long telldir(); | |
52 extern void seekdir(); | |
53 extern void closedir(); | |
54 | |
55 #define rewinddir( dirp ) seekdir( dirp, 0L ) | |
52401 | 56 |
57 /* arch-tag: aea50570-ffb7-43fd-b423-7743b10fbe6e | |
58 (do not change this comment) */ |