Cross Reference: Langinfo.xs
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
ext
/
I18N
/
Langinfo
/
Langinfo.xs
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#
include
"
EXTERN.h
"
1
N/A
#
include
"
perl.h
"
1
N/A
#
include
"
XSUB.h
"
1
N/A
1
N/A
#
ifdef
I_LANGINFO
1
N/A
#
define
__USE_GNU
1
/* Enables YESSTR, otherwise only __YESSTR. */
1
N/A
#
include
<
langinfo.h
>
1
N/A
#
endif
1
N/A
1
N/A
#
include
"const-c.inc"
1
N/A
1
N/A
MODULE
=
I18N
::
Langinfo
PACKAGE
=
I18N
::
Langinfo
1
N/A
1
N/A
PROTOTYPES
:
ENABLE
1
N/A
1
N/A
INCLUDE
:
const
-
xs
.
inc
1
N/A
1
N/A
SV
*
1
N/A
langinfo
(
code
)
1
N/A
int
code
1
N/A
CODE
:
1
N/A
#
ifdef
HAS_NL_LANGINFO
1
N/A
{
1
N/A
char
*s;
1
N/A
1
N/A
if
((s =
nl_langinfo
(
code
)))
1
N/A
RETVAL
=
newSVpvn
(s,
strlen
(s));
1
N/A
else
1
N/A
RETVAL
= &
PL_sv_undef
;
1
N/A
}
1
N/A
#
else
1
N/A
croak
(
"nl_langinfo() not implemented on this architecture"
);
1
N/A
#
endif
1
N/A
OUTPUT
:
1
N/A
RETVAL