diff options
author | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
---|---|---|
committer | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
commit | c6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch) | |
tree | 1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/texk/kpathsea/absolute.c | |
parent | 07ee7222e389b0777456b427a55c22d0e6ffd267 (diff) |
French translation for tlmgr updated
git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/kpathsea/absolute.c')
-rw-r--r-- | Build/source/texk/kpathsea/absolute.c | 96 |
1 files changed, 0 insertions, 96 deletions
diff --git a/Build/source/texk/kpathsea/absolute.c b/Build/source/texk/kpathsea/absolute.c deleted file mode 100644 index 6fc386b053b..00000000000 --- a/Build/source/texk/kpathsea/absolute.c +++ /dev/null @@ -1,96 +0,0 @@ -/* absolute.c: test if a filename is absolute or explicitly relative. - - Copyright 1993, 1994, 1995, 2008, 2009, 2010, 2011 Karl Berry. - Copyright 1997, 2002, 2005 Olaf Weber. - - This library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public - License as published by the Free Software Foundation; either - version 2.1 of the License, or (at your option) any later version. - - This library is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public License - along with this library; if not, see <http://www.gnu.org/licenses/>. */ - -#include <kpathsea/config.h> - -#include <kpathsea/absolute.h> -#include <kpathsea/c-pathch.h> - -/* Sorry this is such a system-dependent mess, but I can't see any way - to usefully generalize. */ - -boolean -kpathsea_absolute_p (kpathsea kpse, const_string filename, boolean relative_ok) -{ -#ifdef VMS -#include <string.h> - (void)kpse; /* currenty not used */ - return strcspn (filename, "]>:") != strlen (filename); -#else /* not VMS */ - boolean absolute; - boolean explicit_relative; - - absolute = IS_DIR_SEP (*filename) -#ifdef DOSISH - /* Novell allows non-alphanumeric drive letters. */ - || (*filename && IS_DEVICE_SEP (filename[1])) -#endif /* DOSISH */ -#ifdef WIN32 - /* UNC names */ - || (*filename == '\\' && filename[1] == '\\') - || (*filename == '/' && filename[1] == '/') -#endif /* WIN32 */ -#ifdef AMIGA - /* Colon anywhere means a device. */ - || strchr (filename, ':') -#endif /* AMIGA */ - ; - explicit_relative - = relative_ok -#ifdef AMIGA - /* Leading / is like `../' on Unix and DOS. Allow Unix syntax, - too, though, because of possible patch programs like - `UnixDirsII' by Martin Scott. */ - && IS_DIR_SEP (*filename) || 0 -#endif /* AMIGA */ - && (*filename == '.' && (IS_DIR_SEP (filename[1]) - || (filename[1] == '.' && IS_DIR_SEP (filename[2])))); - - (void)kpse; /* currenty not used */ - /* FIXME: On UNIX an IS_DIR_SEP of any but the last character in the name - implies relative. */ - return absolute || explicit_relative; -#endif /* not VMS */ -} - -#if defined (KPSE_COMPAT_API) -boolean -kpse_absolute_p (const_string filename, boolean relative_ok) -{ - return kpathsea_absolute_p (kpse_def, filename, relative_ok); -} -#endif - -#ifdef TEST -int main() -{ - char **name; - char *t[] = { "./foo", "\\\\server\\foo\\bar", "ftp://localhost/foo" }; - - for (name = t; name - t < sizeof(t)/sizeof(char*); name++) { - printf ("Path `%s' %s absolute.\n", *name, - kpse_absolute_p(*name, true) ? "is" : "is not"); - } -} -#endif /* TEST */ - -/* -Local variables: -standalone-compile-command: "gcc -g -I. -I.. -DTEST absolute.c kpathsea.a" -End: -*/ |