Initial commitHEADmaster

1 files changed, 67 insertions, 0 deletions

diff --git a/lib/Gettext.pm6 b/lib/Gettext.pm6
new file mode 100644
index 0000000..55b8651
--- /dev/null
+++ b/lib/Gettext.pm6
@@ -0,0 +1,67 @@
+use v6.d;
+unit module Gettext:ver<0.0.1>;
+
+use NativeCall;
+
+enum LocaleCategory is export (
+    # Character classification and case conversion.
+    LcCType => 0,
+    # Non-monetary numeric formats.
+    LcNumeric => 1,
+    # Date and time formats.
+    LcTime => 2,
+    # Collation order.
+    LcCollate => 3,
+    # Monetary formats.
+    LcMonetary => 4,
+    # Formats of informative and diagnostic messages and interactive responses.
+    LcMessages => 5,
+    # For all.
+    LcAll => 6,
+    # Paper size.
+    LcPaper => 7,
+    # Name formats.
+    LcName => 8,
+    # Address formats and location information.
+    LcAddress => 9,
+    # Telephone number formats.
+    LcTelephone => 10,
+    # Measurement units (Metric or Other).
+    LcMeasurement => 11,
+    # Metadata about the locale information.
+    LcIdentification => 12,
+);
+
+our sub gettext(Str is encoded('utf8') --> Str) is native { … }
+sub bindtextdomain(Str:D, Str:D --> Str) is native is export {…}
+sub textdomain(Str:D --> Str) is native is export { … }
+sub setlocale(int32, Str:D --> Str ) is native is export { … } 
+
+sub _(Str:D $a --> Str) is export { gettext($a) }
+
+
+=begin pod
+
+=head1 NAME
+
+Gettext - Perl6 binding for L<GNU Gettext|http://www.gnu.org/software/gettext/>
+
+=head1 SYNOPSIS
+
+  use Gettext;
+
+=head1 DESCRIPTION
+
+Gettext is ...
+
+=head1 AUTHOR
+
+Matias Linares <matiaslina@gmail.com>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2018 Matias Linares
+
+This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.
+
+=end pod