para

use v6.d;
unit module Date::Calendar::Armenian::Names:ver<0.1.0>:auth<zef:jforget>:api<1>;

my @month-names = < nawasard-i  hoṙ-i       sahm-i
                    trē         kʿało-cʿ    ara-cʿ
                    mehekan-i   areg        ahekan-i
                    marer-i     marga-cʿ    hroti-cʿ
                    aweleacʿ
                  >
;

my @month-abbr = < Naw Hor Sah Tre Kal Ara
                   Meh Are Ahe Mrr Mrg Hro Awe >;
;
my @day-names = < kiraki erkušabatʿi erekʿšabatʿi čʿorekʿšabatʿi hingšabatʿi urbatʿ šabatʿi >;
my @day-abbr  = < kir    erk         ere          cor            hin         urb    sab     >;

my @day-of-month = < areg     hrand   aram    margar   ahrankʿ
                     mazdeł   astłik  mihr    jopaber  murcʿ
                     erezkan  ani     parxar  vanat    aramazd
                     mani     asak    masis   anahit   aragac
                     gorgor   kordi   cmak    lusnak   cʿrōn
                     npat     vahagn  sēin    varag    gišeravar
                   >;

my @day-of-awe  = < pʿaylažu arusyak hrat lusntʿag erewak >;

our sub month-name(Int:D $month --> Str) {
  return @month-names[$month - 1];
}

our sub month-abbr(Int:D $month --> Str) {
  return @month-abbr[$month - 1];
}

our sub day-name(Int:D $day7 --> Str) {
  return @day-names[$day7 - 1];
}

our sub day-abbr(Int:D $day7 --> Str) {
  return @day-abbr[$day7 - 1];
}

our sub day-of-month(Int:D $month, Int:D $day --> Str) {
  if $month == 13 {
    return @day-of-awe[$day - 1];
  }
  else {
    return @day-of-month[$day - 1];
  }
}




head

Date::Calendar::Armenian::Names - string values for the Armenian calendar


code

=begin code :lang<raku>

use Date::Calendar::Armenian;

=end code


Date::Calendar::Armenian::Names is a utility module, providing
string values for the main module Date::Calendar::Armenian.


The day names and month names come from
L<http://www.epistemeacademy.org/calendars/yearly_calendar.html?cyear=2020&vADBC=AD&CCode=Armenian&day=1>


Other webpages have been used to cross-check these values:
L<https://en.wikipedia.org/wiki/Armenian_calendar>,
L<http://www.tacentral.com/astronomy.asp?story_no=3>,
L<https://icalendrier.fr/calendriers-saga/calendriers/armenien> (in French).


But I  do not bother about  differences caused by the  conversion from
Armenian script to Latin script.


The only  problem is  the translation of  Sunday, which  was initially
"miašabatʿi" and later "kiraki". The module uses "kiraki".


The abbreviations  have been chosen  by me, they  do not come  from an
authoritative source. Patches welcome.


Jean Forget <J2N-FORGET at orange dot fr>


This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.


root

Armenian

README

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<AI|file:../mcp/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>
    =item2 L<Hand these documents to an AI assistant|file:../mcp/index.podlite>

=end nested
=begin nested :!nested
=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>

=end nested
=end React


Built with L<Podlite|https://podlite.org> — the markup and publishing tools behind this site.


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Names

NAME

SYNOPSIS

DESCRIPTION

SOURCES

AUTHOR

COPYRIGHT AND LICENSE

Date::Calendar::Armenian v0.1.0

Authors

License

Dependencies

Test Dependencies

Provides

Documentation