para

use Template::Jinja2;

use App::Ariza::Resources;
use App::Ariza::Tools;

unit class App::Ariza::Update;

our constant UPDATE-PROTOCOL-VERSION is export = 1;
our constant UPDATE-HANDOFF-EXIT is export = 75;
our constant UPDATE-CHECK-INTERVAL is export = 604_800;
our constant UPDATE-VERSION-REGEX is export =
    /^ <[0..9]>+ '.' <[0..9]>+ '.' <[0..9]>+ $/;

my constant TEMPLATE = 'templates/update-coordinator.raku.j2';

our sub valid-update-version(Str:D $version --> Bool:D) is export {
    so $version ~~ UPDATE-VERSION-REGEX
}

our sub compare-update-versions(Str:D $left, Str:D $right --> Order:D) is export {
    die "ariza: update version '$left' must match X.Y.Z"
        unless valid-update-version($left);
    die "ariza: update version '$right' must match X.Y.Z"
        unless valid-update-version($right);
    for $left.split('.') Z $right.split('.') -> ($a, $b) {
        my $aa = $a.subst(/^ '0'+ /, '') || '0';
        my $bb = $b.subst(/^ '0'+ /, '') || '0';
        return More if $aa.chars > $bb.chars;
        return Less if $aa.chars < $bb.chars;
        return More if $aa gt $bb;
        return Less if $aa lt $bb;
    }
    Same
}

#| The coordinator and platform-private installer locations inside a bundle.
method coordinator-rel(--> Str) { 'libexec/ariza/update.raku' }

method installer-rel(Str:D $slug --> Str) {
    $slug.starts-with('windows-')
        ?? 'libexec/ariza/install.ps1'
        !! 'libexec/ariza/install.sh'
}

#| Quote one build-time value as a single-quoted Raku string literal.
#| Configuration strings are data, never generated source.
method raku-quote(Str:D $value --> Str) {
    "'" ~ $value
        .subst('\\', '\\\\', :g)
        .subst("'", "\\'", :g)
        .subst("\r", '\\r', :g)
        .subst("\n", '\\n', :g)
        .subst("\t", '\\t', :g)
      ~ "'"
}

#| Render-time facts for the bundle-private, App::Ariza-free coordinator.
#| Paths are bundle-relative and the installer path is selected here so the
#| generated program never has to infer its platform at run time.
method context(
    Str:D :$app-name!,
    Str:D :$app-exec!,
    Str:D :$app-display!,
    Str:D :$app-version!,
    Str:D :$repo!,
    Str:D :$slug!,
    --> Hash
) {
    die "ariza: update repository must be an owner/name GitHub repository"
        unless $repo ~~ /^ <[A..Za..z0..9_.-]>+ '/' <[A..Za..z0..9_.-]>+ $/;
    die "ariza: update-enabled version '$app-version' is not x.y.z"
        unless valid-update-version($app-version);

    my %values =
        app_name      => $app-name,
        app_exec      => $app-exec,
        app_display   => $app-display,
        app_version   => $app-version,
        repo          => $repo,
        installer_rel => self.installer-rel($slug),
    ;
    %values.map({ .key ~ '_q' => self.raku-quote(.value) }).Hash
}

method render(*%ctx --> Str) {
    my $out = Template::Jinja2.new
        .from-string(resource(TEMPLATE).slurp)
        .render(|%ctx);
    $out ~= "\n" unless $out.ends-with("\n");
    $out
}

#| Stage only the coordinator. The exact-candidate installer is supplied by
#| the platform installer work and lives at the already-baked path returned in
#| C<installer-rel>; launcher integration is deliberately a separate step.
method write(
    IO() :$bundle-dir!,
    Str:D :$app-name!,
    Str:D :$app-exec!,
    Str:D :$app-display!,
    Str:D :$app-version!,
    Str:D :$repo!,
    Str:D :$slug!,
    --> Hash
) {
    my %ctx = self.context(:$app-name, :$app-exec, :$app-display,
                           :$app-version, :$repo, :$slug);
    my $path = ensure-dir($bundle-dir.add('libexec').add('ariza'))
        .add('update.raku');
    $path.spurt(self.render(|%ctx));
    $path.chmod(0o644);
    %(
        coordinator => $path,
        installer   => $bundle-dir.add(self.installer-rel($slug)),
    )
}



head

App::Ariza::Update - render the bundle-private update coordinator


This is build-time code only. It bakes application identity, current version,
repository and the platform-local installer path into one core-only Raku
program at C<libexec/ariza/update.raku>. The generated program has no run-time
dependency on App::Ariza.


root

Versions

Tools

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


Update

NAME

DESCRIPTION

App::Ariza v0.2.4

Authors

License

Dependencies

Test Dependencies

Provides

Documentation