File: gettext.xs

package info (click to toggle)
liblocale-gettext-perl 1.01-8
  • links: PTS
  • area: main
  • in suites: potato
  • size: 48 kB
  • ctags: 7
  • sloc: makefile: 51; perl: 28
file content (57 lines) | stat: -rw-r--r-- 932 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <string.h>

static double
constant(name, arg)
char *name;
int arg;
{
    errno = 0;
    if (strEQ(name, "LC_CTYPE"))
	return LC_CTYPE;
    if (strEQ(name, "LC_NUMERIC"))
	return LC_NUMERIC;
    if (strEQ(name, "LC_COLLATE"))
	return LC_COLLATE;
    if (strEQ(name, "LC_MONETARY"))
	return LC_MONETARY;
    if (strEQ(name, "LC_MESSAGES"))
	return LC_MESSAGES;
    if (strEQ(name, "LC_ALL"))
	return LC_ALL;
    errno = EINVAL;
    return 0;
}

MODULE = Locale::gettext	PACKAGE = Locale::gettext

double
constant(name,arg)
	char *		name
	int		arg

char *
gettext(msgid)
	char *		msgid

char *
dcgettext(domainname, msgid, category)
	char *		domainname
	char *		msgid
	int		category

char *
dgettext(domainname, msgid)
	char *		domainname
	char *		msgid

char *
textdomain(domain)
	char *		domain

char *
bindtextdomain(domain, dirname)
	char *		domain
	char *		dirname