gcc/ada/adaint.c

283    length of a path name to Ada code. max_path_len is also provided
412 __gnat_readlink (char *path ATTRIBUTE_UNUSED,
420   return readlink (path, buf, bufsiz);
672 __gnat_unlink (char *path)
678     S2WSC (wpath, path, GNAT_MAX_PATH_LEN);
682   return unlink (path);
707 __gnat_chdir (char *path)
713     S2WSC (wpath, path, GNAT_MAX_PATH_LEN);
717   return chdir (path);
724 __gnat_rmdir (char *path)
730     S2WSC (wpath, path, GNAT_MAX_PATH_LEN);
737   return rmdir (path);
761 __gnat_fopen (char *path, char *mode, int encoding ATTRIBUTE_UNUSED)
770     S2WSC (wpath, path, GNAT_MAX_PATH_LEN);
772     S2WSU (wpath, path, GNAT_MAX_PATH_LEN);
774     S2WS (wpath, path, GNAT_MAX_PATH_LEN);
779   return GNAT_FOPEN (path, mode);
784 __gnat_freopen (char *path,
796     S2WSC (wpath, path, GNAT_MAX_PATH_LEN);
798     S2WSU (wpath, path, GNAT_MAX_PATH_LEN);
800     S2WS (wpath, path, GNAT_MAX_PATH_LEN);
804   return freopen (path, mode, stream);
809 __gnat_open_read (char *path, int fmode)
818   fd = open (path, O_RDONLY | o_fmode, 0444);
823    S2WSC (wpath, path, GNAT_MAX_PATH_LEN);
827   fd = GNAT_OPEN (path, O_RDONLY | o_fmode);
840 __gnat_open_rw (char *path, int fmode)
852     S2WSC (wpath, path, GNAT_MAX_PATH_LEN);
856   fd = GNAT_OPEN (path, O_RDWR | o_fmode, PERM);
863 __gnat_open_create (char *path, int fmode)
875     S2WSC (wpath, path, GNAT_MAX_PATH_LEN);
879   fd = GNAT_OPEN (path, O_WRONLY | O_CREAT | O_TRUNC | o_fmode, PERM);
886 __gnat_create_output_file (char *path)
893     S2WSC (wpath, path, GNAT_MAX_PATH_LEN);
897   fd = GNAT_OPEN (path, O_WRONLY | O_CREAT | O_TRUNC | O_TEXT, PERM);
904 __gnat_create_output_file_new (char *path)
911     S2WSC (wpath, path, GNAT_MAX_PATH_LEN);
915   fd = GNAT_OPEN (path, O_WRONLY | O_CREAT | O_TRUNC | O_TEXT | O_EXCL, PERM);
922 __gnat_open_append (char *path, int fmode)
934     S2WSC (wpath, path, GNAT_MAX_PATH_LEN);
938   fd = GNAT_OPEN (path, O_WRONLY | O_CREAT | O_APPEND | o_fmode, PERM);
947 __gnat_open_new (char *path, int fmode)
959     S2WSC (wpath, path, GNAT_MAX_PATH_LEN);
963   fd = GNAT_OPEN (path, O_WRONLY | O_CREAT | O_EXCL | o_fmode, PERM);
972 __gnat_open_new_temp (char *path, int fmode)
977   strcpy (path, "GNAT-XXXXXX");
981   return mkstemp (path);
983   mktemp (path);
985   if (mktemp (path) == NULL)
992   fd = GNAT_OPEN (path, O_WRONLY | O_CREAT | O_EXCL | o_fmode, PERM);
997 __gnat_open (char *path, int fmode)
1005     S2WSC (wpath, path, GNAT_MAX_PATH_LEN);
1009   fd = GNAT_OPEN (path, fmode, PERM);
1137     /* If pname start with a back slash and not path information it means that
1464      into a path.  */
1588  ** Whether name is an absolute path
1595   /* On VxWorks systems, an absolute path can be represented (depending on
1697       /* Is this a relative path, if so get current drive type. */
2590 /* Locate file on path, that matches a predicate */
2631      a path name relative to the current directory */
2684       /* Skip path separator */
2749      ".;" to the path to match normal NT path search semantics */