Skip to content

Commit

Permalink
single Completorium.txt for all versions / languages
Browse files Browse the repository at this point in the history
  • Loading branch information
@mbab
mbab committed May 10, 2024
1 parent 9ad5685 commit 0c42509
Show file tree
Hide file tree
Showing 73 changed files with 860 additions and 2,250 deletions.
26 changes: 26 additions & 0 deletions web/cgi-bin/horas/horas.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -823,6 +823,27 @@ sub canticum : ScriptFunc {
psalm($psnum, $lang);
}

sub Nunc_dimittis {
my $lang = shift;
my $ant, $ant2, $_antl;
my($w,$c) = getproprium("Ant 4$vespera", $lang, 1);
if ($w) {
setbuild1($ite, 'special');
($ant, $ant2) = split("\n", $w)
} else {
my %a = %{setupstring($lang, "Psalterium/Psalmi minor.txt")};
$ant = $a{'Ant Nunc dimittis'};
if (alleluia_required($dayname[0], $votive)) {
ensure_single_alleluia(\$ant, $lang);
}
}
push(@s, translate('#Canticum Nunc dimittis',$lang),
'Ant. ' . ($version =~ /196/ ? $ant : substr($ant, 0, index($ant, ' *'))),
'&psalm(233)',
'Ant. ' . ($ant2 || $ant =~ s/\ \*//r));
# FIXME Ordo Praedicatorum has Ant depended on Tempora
}

sub Divinum_auxilium : ScriptFunc {
my $lang = shift;
my @text = split(/\n/, prayer("Divinum auxilium", $lang));
Expand Down Expand Up @@ -1074,6 +1095,11 @@ sub getordinarium {
if ($version =~ /(1955|1960|Newcal)/) { $suffix .= "1960"; }
elsif ($version =~ /Monastic/i) { $suffix .= "M"; }
elsif ($version =~ /Ordo Praedicatorum/i) { $suffix .= "OP"; }

# don't loose time for non existent files
$suffix = '' if $command =~ /^Completorium$/;
$lang = 'Latin' if $command !~ /^(?:Matutinum|Prima)$/;

my $fname = checkfile($lang, "Ordinarium/$command$suffix.txt");

@script = process_conditional_lines(do_read($fname));
Expand Down
103 changes: 52 additions & 51 deletions web/cgi-bin/horas/specials.pl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -126,8 +126,11 @@ sub specials {
$skipflag = !preces($item);
setcomment($label, 'Preces', $skipflag, $lang);
setbuild1($item, $skipflag ? 'omit' : 'include');
if (!$skipflag && $hora =~ /Laudes|Tertia|Sexta|Nona|Vespera/) {
next if $skipflag;
if ($hora =~ /Laudes|Tertia|Sexta|Nona|Vespera/) {
push(@s, prayer("Preces feriales $hora", $lang));
} elsif ($hora eq 'Completorium') {
push(@s, prayer("Preces Dominicales", $lang));
}
next;
}
Expand Down Expand Up @@ -193,52 +196,54 @@ sub specials {
next;
}

if ($item =~ /Capitulum/i && $hora =~ /Completorium/i) {
$tind--;
while ($tind < @t && $t[$tind] !~ /^\s*(?:V|R.br)\./) { push(@s, $t[$tind++]); }
my @resp = ();
while ($tind < @t && $t[$tind] !~ /^\s*\#/) { push(@resp, $t[$tind++]); }
postprocess_short_resp(@resp, $lang);
push(@s, @resp);
next;
if ($item =~ /Lectio brevis/i && $hora eq 'Completorium') {
my %lectio = %{setupstring($lang, 'Psalterium/Minor Special.txt')};
push(@s, $item, $lectio{'Lectio Completorium'});
next
}

if ($item =~ /Capitulum/i && $hora =~ /(Tertia|Sexta|Nona)/i) {
if ($item =~ /Capitulum/i && $hora =~ /^(?:Tertia|Sexta|Nona|Completorium)$/i) {
my %capit = %{setupstring($lang, 'Psalterium/Minor Special.txt')};
my $name = minor_getname();
$name .= 'M' if ($version =~ /monastic/i);
$name = 'Completorium' if $hora eq 'Completorium';
my $capit = $capit{$name};
my $resp = '';

if ($capit !~ /\_\nR\.br. (.*)/is) {
if ($version !~ /^Monastic/) {
$resp = $capit{"Responsory $name"};
$capit =~ s/\s*$//;
$capit .= "\n_\n$resp";
} else {
$resp = "R.br. $1";
}
my @capit = split("\n", $capit);
$comment = ($name =~ /(Dominica|Feria)/i) ? 5 : 1;
setbuild('Psalterium/Minor Special', $name, 'Capitulum ord');

#look for special from prorium the tempore of sancti
my ($w, $c) = getproprium("Capitulum $hora", $lang, $seasonalflag, 1);
if ($name eq "Completorium" && $version !~ /^Ordo Praedicatorum/) {
push(@capit, '_', split("\n", $capit{'Versum 4'}));
} else {
$comment = ($name =~ /(Dominica|Feria)/i) ? 5 : 1;
setbuild('Psalterium/Minor Special', $name, 'Capitulum ord');

if ($w !~ /\_\nR\.br/i) {
($wr, $cr) = getproprium("Responsory $hora", $lang, $seasonalflag, 1);
$w =~ s/\s*$//;
if ($wr) { $w .= "\n_\n$wr"; }
}
#look for special from prorium the tempore of sancti
my ($w, $c) = getproprium("Capitulum $hora", $lang, $seasonalflag, 1);

if ($w && $w !~ /\_\nR\.br/i && !($version =~ /monastic/i && $w =~ /\_\nV\. /)) {
$w =~ s/\s*//;
$w .= "\n_\n$resp";
}
if ($w) {
@capit = split("\n", $w); $comment = $c;
if ($w !~ /\_\nR\.br/i) {
($wr, $cr) = getproprium("Responsory $hora", $lang, $seasonalflag, 1);
$w =~ s/\s*$//;
if ($wr) { $w .= "\n_\n$wr"; }
}

if ($w && $w !~ /\_\nR\.br/i && !($version =~ /monastic/i && $w =~ /\_\nV\. /)) {
$w =~ s/\s*//;
$w .= "\n_\n$resp";
}
if ($w) { @capit = split("\n", $w); $comment = $c; }
}
postprocess_short_resp(@capit, $lang);
setcomment($label, 'Source', $comment, $lang);
if ($hora eq 'Completorium') {
push(@s, translate($item, $lang))
} else {
setcomment($label, 'Source', $comment, $lang);
}
push(@s, @capit);
next;
}
Expand Down Expand Up @@ -346,6 +351,9 @@ sub specials {
} else {
$name = "Hymnus $hora";
$name =~ s/ / Pasc7 / if ($hora =~ /Tertia/ && $dayname[0] =~ /Pasc7/);
if ($hora eq 'Completorium' && $version =~ /^Ordo Praedicatorum/) {
$versum = %{setupstring($lang, 'Psalterium/Minor Special.txt')}{'Versum 4'};
}
$hymnsource = 'Minor';
$section = "#". $section;
}
Expand All @@ -361,7 +369,10 @@ sub specials {
$hymn =~ s/\*\s*//g;
$hymn =~ s/_\n(?!!)/_\nr. /g;
push(@s, "$section\n$hymn");
push(@s, "\n_\n$versum") if $versum;
if ($versum) {
postprocess_vr($versum, $lang);
push(@s, "_\n$versum");
}
next;
}

Expand All @@ -372,24 +383,7 @@ sub specials {
}

if ($item =~ /Nunc Dimittis/i) {
my $w = $w{"Ant 4$vespera"};
my $c;
if (!$w && $communetype =~ /ex/) { ($w, $c) = getproprium("Ant 4$vespera", $lang, 1); }
if ($w) { setbuild1($ite, 'special'); }
$tind--;
my $non_first_ant = 0;

while ($t[$tind] !~ /^\s*$/) {
if ($t[$tind] =~ /^Ant/) {
if ($w) {
$t[$tind] = (split("\n", $w))[-1 * $non_first_ant];
} else {
postprocess_ant($t[$tind], $lang) if ($version =~ /1960/ || $non_first_ant);
}
$non_first_ant = 1;
}
push(@s, $t[$tind++]);
}
Nunc_dimittis($lang);
next;
}

Expand Down Expand Up @@ -698,7 +692,7 @@ sub psalmi_minor {
setbuild("Psalterium/Psalmi minor", "$hora Day$dayofweek", 'Psalmi ord');
$comment = 0;

if ($hora =~ /completorium/i && $version !~ /trident/i) {
if ($hora =~ /completorium/i && $version !~ /trident|monastic/i) {
if ($winner =~ /tempora/i && $dayofweek > 0 && $winner{Rank} =~ /Dominica/i && $rank < 6) {
;
}
Expand Down Expand Up @@ -780,8 +774,15 @@ sub psalmi_minor {
$prefix = translate("Psalmi Dominica, antiphonae", $lang) . ' ';
setbuild2('Psalmi dominica');
}
} else {
$ant = '' if $version =~ /Monastic/
}

if ($hora eq 'Completorium' && $version =~ /^(?:Trident|Monastic)/) {
push(@s, '#' . translate('Psalmi', $lang))
} else {
setcomment($label, 'Source', $comment, $lang, $prefix);
}

if ($w{Rule} =~ /Minores sine Antiphona/i) {
$ant = '';
Expand All @@ -792,7 +793,7 @@ sub psalmi_minor {
postprocess_ant($ant, $lang);
my @ant = split('\*', $ant);
$ant1 = ($version !~ /196/) ? $ant[0] : $ant; #difference between 1955 and 1960
setcomment($label, 'Source', $comment, $lang, $prefix);

$psalms =~ s/\s//g;
@psalm = split(',', $psalms);

Expand All @@ -813,7 +814,7 @@ sub psalmi_minor {
setbuild2("First psalms #99 and #92");
}
}
push(@s, $ant1);
push(@s, $ant1) if $ant1;

foreach $p (@psalm) {
if ($p =~ /[\[\]]/ && ($laudes != 2 || $version =~ /1960/)) { next; }
Expand Down
80 changes: 0 additions & 80 deletions web/www/horas/Dansk/Ordinarium/Completorium1960.txt
View file

This file was deleted.

42 changes: 42 additions & 0 deletions web/www/horas/Dansk/Psalterium/Minor Special.txt
View file
Original file line number Diff line number Diff line change
Expand Up @@ -341,3 +341,45 @@ And to the Holy Paraclete;
And may Christ send us from above
That Holy Spirit's gift of love.
Amen

[Hymnus Completorium]
v. Før dagens lys er helt forbi,
Alverdens skaber, beder vi,
At du med vanlig kærlighed
Vil se til os som vægter ned.
_
Lad ingen syndig drøm i nat
Og inter mørkets koglere
Er mærke på min sjæl få sat,
Men os fra Satans snare fri.
_
* Bønhør os, Fader, nåderig,
Guds Søn, din Fader evigt lig,
Med Ånden ét i herlighed,
Højlovet i al evighed.
Amen.


[Lectio Completorium]
!1 Pet 5:8-9
v. Brødre: Vær årvågne og på vagt! Jeres modstander, Djævelen, går omkring som en brølende løve og leder efter nogen at sluge; stå ham imod, faste i troen:
$Tu autem

[Completorium_]
!Jer 14:9
v. Du bor dog hos os, Herre,~
dit navn er nævnt over os:~
gå ikke fra os, Herre vor Gud.
$Deo gratias

[Responsory Completorium]
R.br. I dine hænders varetægt * befaler jeg min ånd, o Herre.
R. I dine hænders varetægt * befaler jeg min ånd, o Herre.
V. Du forløser mig, Herre, sandheds Gud, vor Frelser.
R. Befaler jeg min ånd, o Herre.
&Gloria1
R. I dine hænders varetægt * befaler jeg min ånd, o Herre.

[Versum 4]
V. Vogt os, o Herre, som din øjesten.
R. Skjul os i dine vingers skygge.
20 changes: 20 additions & 0 deletions web/www/horas/Dansk/Psalterium/Prayers.txt
View file
Original file line number Diff line number Diff line change
Expand Up @@ -16,6 +16,14 @@ v. Jeg tror på Gud, den Almægtige Fader, himlens og jordens Skaber.
Jeg tror på Jesus Kristus, hans énbårne Søn, vor Herre; som er undfanget ved Helligånden og født af Jomfru Maria, har lidt under Pontius Pilatus, blev korsfæstet, døde og blev begravet: nedfor til Dødsriget; opstod på den tredje dag fra de døde; opfor til Himlen; sidder ved Gud, den Almægtiges Faders højre hånd: hvorfra han skal komme for at dømme de levende og de døde.
Jeg tror på Helligånden, den hellige katolske Kirke, de Helliges samfund, syndernes forladelse. Kødets opstandelse, og det evige liv. Amen.

[Adjutorium nostrum]
V. Vor hjælp er + i Herrens navn,
R. Han som skabte himmel og jord.

[Converte nos]
V. Omvend os, vor frelses Gud:
R. Og stands din vrede mod os.

[Gloria]
V. Ære være Faderen og Sønnen * og Helligånden.
R. Som det var i begyndelsen, så nu og altid * og i al evighed. Amen.
Expand Down Expand Up @@ -211,3 +219,15 @@ $Kyrie
[Alleluia Duplex]
Halleluja, halleluja.

[Oratio Visita_]
v. Besøg denne bolig, beder vi dig Herre, og jag fjendens snarer fjernt herfra; lad dine hellige engle bo her så de kan bevare os i fred, og lad din velsignelse altid være over os.

[Examen]
/:Nu følger en privat samvittighedsransagelse, eller et stille Fadervor.:/

[Benedictio Completorium_]
V. Herre, giv din velsignelse.
Benedictio. En rolig nat og en salig død skænke os Herren, den Almægtige.

[Benedictio Completorium2]
Benedictio. Den almægtige og barmhjertige Gud, + Fader, Søn og Helligånd, velsigne og bevare os.
2 changes: 2 additions & 0 deletions web/www/horas/Dansk/Psalterium/Psalmi minor.txt
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
[Ant Nunc dimittis]
Frels du os, * Herre Gud, når vi våger; beskyt du os, når vi sover, og lad os våge med Kristus og i din fred finde hvile.
Loading

0 comments on commit 0c42509

Please sign in to comment.