Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 65 lines (55 sloc) 1.749 kB
a0d0e21 perl 5.000
Larry Wall authored
1 /* util.h
a687059 @TimToady perl 3.0: (no announcement message available)
TimToady authored
2 *
663f364 Fix up copyright years for files modified in 2007.
Nicholas Clark authored
3 * Copyright (C) 1991, 1992, 1993, 1999, 2001, 2002, 2003, 2004, 2005,
4 * 2007, by Larry Wall and others
a687059 @TimToady perl 3.0: (no announcement message available)
TimToady authored
5 *
d48672a perl 4.0 patch 9: patch #4, continued
Larry Wall authored
6 * You may distribute under the terms of either the GNU General Public
7 * License or the Artistic License, as specified in the README file.
8d063cd a "replacement" for awk and sed
Larry Wall authored
8 *
9 */
57843af another change towards a shareable optree: avoid pointer to filegv
Gurusamy Sarathy authored
10
11 #ifdef VMS
12 # define PERL_FILE_IS_ABSOLUTE(f) \
13 (*(f) == '/' \
14 || (strchr(f,':') \
15 || ((*(f) == '[' || *(f) == '<') \
16 && (isALNUM((f)[1]) || strchr("$-_]>",(f)[1])))))
17
18 #else /* !VMS */
546cd22 Re: [perl #30633] Perl's "do" operator with a variety of absolute pat…
Yitzchak Scott-Thoennes authored
19 # if defined(WIN32) || defined(__CYGWIN__)
57843af another change towards a shareable optree: avoid pointer to filegv
Gurusamy Sarathy authored
20 # define PERL_FILE_IS_ABSOLUTE(f) \
f2ed23b integrate change#18320 from maint-5.6 branch
Gurusamy Sarathy authored
21 (*(f) == '/' || *(f) == '\\' /* UNC/rooted path */ \
22 || ((f)[0] && (f)[1] == ':')) /* drive name */
57843af another change towards a shareable optree: avoid pointer to filegv
Gurusamy Sarathy authored
23 # else /* !WIN32 */
2986a63 @jhi NetWare port from Guruprasad S <SGURUPRASAD@novell.com>.
jhi authored
24 # ifdef NETWARE
25 # define PERL_FILE_IS_ABSOLUTE(f) \
26 (((f)[0] && (f)[1] == ':') /* drive name */ \
27 || ((f)[0] == '\\' && (f)[1] == '\\') /* UNC path */ \
28 || ((f)[3] == ':')) /* volume name, currently only sys */
29 # else /* !NETWARE */
9969cdd @jhi missed some SYMBIAN ifdefs
jhi authored
30 # if defined(DOSISH) || defined(EPOC) || defined(__SYMBIAN32__)
57843af another change towards a shareable optree: avoid pointer to filegv
Gurusamy Sarathy authored
31 # define PERL_FILE_IS_ABSOLUTE(f) \
32 (*(f) == '/' \
33 || ((f)[0] && (f)[1] == ':')) /* drive name */
27da23d @jhi Symbian port of Perl
jhi authored
34 # else /* NEITHER DOSISH NOR EPOCISH NOR SYMBIANISH */
e37778c Remove all #ifdef MACOS_TRADITIONAL code in core and non-dual-life XS…
Nicholas Clark authored
35 # define PERL_FILE_IS_ABSOLUTE(f) (*(f) == '/')
57843af another change towards a shareable optree: avoid pointer to filegv
Gurusamy Sarathy authored
36 # endif /* DOSISH */
2986a63 @jhi NetWare port from Guruprasad S <SGURUPRASAD@novell.com>.
jhi authored
37 # endif /* NETWARE */
57843af another change towards a shareable optree: avoid pointer to filegv
Gurusamy Sarathy authored
38 # endif /* WIN32 */
39 #endif /* VMS */
e9a8c09 Add editor blocks to some header files.
Marcus Holland-Moritz authored
40
41 /*
e6226b1 Change name of ibcmp to foldEQ
Karl Williamson authored
42 =for apidoc ibcmp
43
44 This is a synonym for (! foldEQ())
45
46 =for apidoc ibcmp_locale
47
48 This is a synonym for (! foldEQ_locale())
49
50 =cut
51 */
52 #define ibcmp(s1, s2, len) cBOOL(! foldEQ(s1, s2, len))
53 #define ibcmp_locale(s1, s2, len) cBOOL(! foldEQ_locale(s1, s2, len))
54
55
56 /*
e9a8c09 Add editor blocks to some header files.
Marcus Holland-Moritz authored
57 * Local variables:
58 * c-indentation-style: bsd
59 * c-basic-offset: 4
14d04a3 @rjbs update the editor hints for spaces, not tabs
rjbs authored
60 * indent-tabs-mode: nil
e9a8c09 Add editor blocks to some header files.
Marcus Holland-Moritz authored
61 * End:
62 *
14d04a3 @rjbs update the editor hints for spaces, not tabs
rjbs authored
63 * ex: set ts=8 sts=4 sw=4 et:
e9a8c09 Add editor blocks to some header files.
Marcus Holland-Moritz authored
64 */
Something went wrong with that request. Please try again.