blob: 348ecc9c966e3faad15bdd9b8bdcf850fe0213ec (
plain)
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
|
#! /usr/bin/env raku
use lib "lib";
use BinaryMorse2;
multi sub MAIN (BinaryMorse2::BinaryMorse $binary-morse)
{
say BinaryMorse2::demorsify($binary-morse);
}
multi sub MAIN (:$binary where $binary.IO.f && $binary.IO.r)
{
my $fh = open $binary, :bin;
my $data = $fh.read;
$fh.close;
my $result = "";
$result ~= $_.base(2).fmt("%08d") for @($data);
$result.substr-rw(0,1) = "" while $result.chars && $result.substr(0,1) eq "0";
say BinaryMorse2::demorsify($result);
}
multi sub MAIN (Str $text, :$roundtrip, :$binary)
{
if $binary
{
if my $fh = open $binary, :w, :bin
{
my @values = BinaryMorse2::morsify($text).parse-base(2).polymod(256 xx 200).reverse;
@values.shift while @values && @values[0] == 0;
die "Set a higher polymod value" if @values[0] > 255;
$fh.write: Blob.new(@values);
$fh.close;
MAIN(:$binary) if $roundtrip;
}
else
{
die "Unable to open file $binary";
}
}
else
{
my $encoded = BinaryMorse2::morsify($text);
say $encoded;
say BinaryMorse2::demorsify($encoded) if $roundtrip;
}
}
|
