re-release before system upgrade !

build.sh

@@ -0,0 +1,4 @@
+# 
+
+find . -name '*~1' -delete
+jekyll build

style.css

@@ -0,0 +1,19 @@
+body {
+  background-color: #400244;
+}
+body > div:first-child {
+  background-color: #fdfcff;
+  max-width: 720px;
+  margin: auto;
+  padding: 0.7rem;
+  opacity: 0.99;
+}
+div#nav {
+  position: fixed;
+  top: 0;
+  right: 0;
+}
+
+textarea {
+  width: calc(100% - 1rem);
+}

t/botname.t

@@ -0,0 +1,29 @@
+
+
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use seed;
+use botname qw(botname fullname);
+
+my $seed = &seed::setseed(5451361247321);
+printf "seed: %s\n",$seed;
+my $n0 = seed::rand64(); # n < 18446744073709551616
+my $n1 = seed::rand64();
+printf "n0:%s\n",$n0;
+printf "n1:%s\n",$n1;
+my $q2 = pack'Q2',$n0,$n1;
+
+my @fullnames = &fullname($q2);
+printf "fullname: %s\n",join', ',@fullnames;
+
+my $data58 = "ZHjX1cimgEBVjmyxXsGyPU7YLXDG5SM5oDaaYwuKivtuuJtfBmyPDt5cMyN7nidCDQuKtMowxThXS58AKFz97yFqaYh6L9adQhY";
+my $databin = &botname::decode_base58f($data58);
+printf "fullname: %s\n",join', ',fullname($databin);
+printf "botname: %s\n",botname($data58);
+printf "uname: %s\n",lc(substr((&fullname($databin))[0],0,1)) . lc((&fullname($databin))[-2]);
+
+
+exit $?;
+
+1;
+

t/coinbase.t

@@ -0,0 +1,57 @@
+#
+
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+our $dbug=1;
+print "--- $0\n";
+
+use YAML::Syck qw(Dump);
+
+use seed qw(readsalt);
+use encode qw(mbase58);
+use CAStore qw(CASRead);
+use botname qw(botname);
+use ECKeys qw($keys ecsign ecverif loadKeys eckeygen saveKeys);
+printf "--- keys %s...\n",Dump($keys);
+
+use Genesis qw(createCoinBaseTx);
+
+
+my $nonce = &readsalt($ENV{SITE}.'/salts/CBtxi.yml');
+printf "=== createCoinBaseTx w/ default message ===\n";
+# &createCoinBaseTx($tic,$msg,$nonce,$type,$dif);
+# using default message ...
+my ($txaddr,$txcoin) = &createCoinBaseTx(1625714463012468224,undef,$nonce,'CBtxi',($dbug?4:7));
+printf "txaddr: %s\n",$txaddr;
+
+printf "=== get it from the pool (for verification) ===\n";
+my $tx = &CASRead($ENV{SITE}.'/txpool',$txaddr);
+printf "--- tx %s...\n",Dump($tx);
+
+
+use TXPOOL qw(isTxValid);
+$TXPOOL::UTXO->{coinbase} = 100;
+my $valid = isTxValid($tx);
+printf "tx: %s is %s\n",$txaddr,($valid?'valid':'rejected');
+
+
+if (0) {
+my $msg= qq'["coinbase","100","default coinbase"]';
+my $sig = &ecsign('coinbase',$msg);
+printf "- default coinbase: %s\n",$sig;
+
+my $key58 = $keys->{coinbase}{public};
+print "verification ...";
+my $sigok = &ecverif($key58,$sig,$msg);
+print ($sigok?'ok':'failed'),"\n";
+}
+
+
+
+
+printf "DBUG %s @%s\n",$::db++,__LINE__; # <-------------------------------------  /!\ ---
+exit $?;
+
+1;
+
+

t/dagread.t

@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+use YAML::Syck qw(Dump);
+use DAG qw(DAGRead);
+
+
+my $blk = &DAGRead('blocks','123');
+
+
+printf "--- # blk %s...\n",Dump($blk);
+
+exit $?;
+1;
+

t/eckey0.t

@@ -0,0 +1,14 @@
+
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use ECKeys qw(eckeygen);
+use YAML::Syck qw(Dump);
+
+my $id = eckeygen('tb','Test Bot');
+
+printf "keys: %s\n",Dump($ECKeys::keys);
+
+exit $?;
+
+1;
+

t/getChainHeight.t

@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use toychain;
+use YAML::Syck qw(Dump);
+
+print "// testing $0\n";
+my $height = getChainHeight();
+
+printf "height: %s\n",$height;
+
+
+
+exit $?;
+1;#

t/getTxMeta.t

@@ -0,0 +1,12 @@
+
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use TXPOOL qw(getTxMeta);
+
+my $txmeta = &getTxMeta();
+
+
+exit $?;
+
+1;
+

t/getnip.t

@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+#
+# Intent:
+#  testing getnip !
+#
+# Note:
+#   This work has been done during my time at Doctor I·T
+# 
+# -- Copyright drit, 2021 --
+#
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use essential qw(getnip);
+
+
+my $nip = &getnip();
+printf "nip: 0x%08x\n",$nip;
+
+exit $?;
+
+1;
+
+
+

t/gettics.t

@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+#
+# Intent:
+#  getting time w/ nanosecond accuracy ...
+#
+# Note:
+#   This work has been done during my time at Doctor I·T
+# 
+# -- Copyright drit, 2021 --
+#
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use essential qw(gettics);
+
+
+my $tics = &gettics();
+printf "tics: %u, 0x%08x\n",$tics,$tics;
+
+exit $?;
+
+1;
+

t/head.t

@@ -0,0 +1,23 @@
+#
+
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use toychain;
+use DAG qw(DAGRead);
+
+
+my $headblock = $toychain::HEADs[0];
+my $headhash = $headblock->{bkhash};
+my $headaddr = $headblock->{bkaddr};
+printf "headhash: %s\n",$headhash;
+printf "headaddr: %s\n",$headaddr;
+
+my $blk = &DAGRead('blocks',$headhash);
+#printf "--- blk %s...\n",Dump($blk);
+
+&displayBlock($blk);
+
+exit $?;
+
+1;
+

t/isvalid.t

@@ -0,0 +1,25 @@
+#
+
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use TXPOOL qw(isTxValid);
+use misc qw(kwdigest);
+use YAML::Syck qw(LoadFile Dump);
+#printf "--- keys %s...\n",Dump($ECKeys::keys);
+printf "--- nicknames %s...\n",Dump($ECKeys::nicknames);
+
+$UTXO->{$ECKeys::keys->{verification}{public}} = $config->{coinbase}{reward};
+printf "--- UTXO %s...\n",Dump($UTXO);
+
+my $tx = LoadFile($ENV{SITE}.'/templ/txcb01.yml');
+my $txkw = &kwdigest($tx);
+printf "--- tx (%s) %s...\n",$txkw,Dump($tx);
+
+
+my $txok = &isTxValid($tx);
+printf "is %s valid: ? %s\n",$txkw,$txok;
+
+exit $?;
+
+1;
+

t/minepool.t

@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use seed;
+use toychain;
+use TXPOOL qw(getTxMeta);
+use YAML::Syck qw(Dump);
+
+my $seed =  &seed::setseed('beautiful toy chain');
+my $height = &getChainHeight();
+my $n = $height + 1;
+printf "height: %s\n",$height;
+my $txmeta = getTxMeta();
+
+my $payload = "testing $0";
+my $comment = "new block $n";
+
+my $block = &createBlock($seed,$payload,$txmeta,$comment);
+#printf "--- # block %s...\n",Dump($block);
+
+my $blk = &insertBlock($block);
+printf "--- # blk %s...\n",Dump($blk);
+
+exit $?;
+
+1;
+

t/mkdir.t

@@ -0,0 +1,22 @@
+#!/usr/bin/perl -w
+
+use Cwd;
+my $pwd = Cwd::cwd();
+&mkdirp($pwd.'/a/b/c');
+
+die unless -d 'a/b/c';
+system 'rm -rf a/';
+exit $?;
+
+sub mkdirp { # TBD : implemend a mkdir -p
+  my @fp = ();
+  for my $p (split('/',$_[0])) {
+    push @fp,$p;
+    my $fp = join'/',@fp;
+    printf "fp: %s\n",$fp;
+    mkdir $fp unless -d $fp;
+  }
+  return $?;
+}
+
+

t/sdate.t

@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use essential qw(sdate gettics);
+
+my $tics = &gettics();
+printf "tics: %s\n",$tics;
+my $sdate = &sdate($tics);
+printf "sdate: %s\n",$sdate;
+
+exit $?;
+
+1;

t/seed.t

@@ -0,0 +1,15 @@
+
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use seed;
+
+my $s0 = &seed::setseed(54321);
+printf "s0:%s\n",$s0;
+my $n0 = seed::rand64(); # n < 18446744073709551616
+printf "n0:%s\n",$n0;
+
+
+exit $?;
+
+1;
+

t/sendhead.t

@@ -0,0 +1 @@
+

t/signtx.t

@@ -0,0 +1,37 @@
+#
+
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use config qw($config);
+use ECKeys qw($keys $registration);
+use TXPOOL qw(signTx isTxValid);
+use misc qw(kwdigest);
+use botname qw(botname);
+use YAML::Syck qw(LoadFile Dump);
+
+printf "--- registration %s...\n",Dump($registration);
+
+printf "registration.coinbase.public: %s (%s)\n",
+  $registration->{'coinbase'}{public},
+  &botname($registration->{'coinbase'}{public});
+printf "keys.verification.public: %s (%s)\n",
+  $keys->{'verification'}{public},
+  &botname($keys->{'verification'}{public});
+
+$UTXO->{$ECKeys::keys->{verification}{public}} = $config->{coinbase}{reward};
+printf "--- UTXO %s...\n",Dump($UTXO);
+
+my $tx = LoadFile($ENV{SITE}.'/templ/txcb01.yml');
+my $txkw = &kwdigest($tx);
+printf "txkw: %s\n",$txkw;
+
+my $tx = &signTx($tx);
+#printf "--- tx (%s) %s...\n",$txkw,Dump($tx);
+
+my $txok = &isTxValid($tx);
+printf "is %s valid: ? %s\n",$txkw,$txok;
+
+exit $?;
+
+1;
+

t/test.t

@@ -0,0 +1,15 @@
+
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use seed qw();
+
+my $s0 = &seed::setseed(54321);
+printf "s0:%s\n",$s0;
+my $n0 = seed::rand64(); # n < 18446744073709551616
+printf "n0:%s\n",$n0;
+
+
+exit $?;
+
+1;
+

t/txmeta.t

@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use toychain;
+use TXPOOL qw(getTxMeta);
+use YAML::Syck qw(Dump);
+
+print "// testing getTxMeta\n";
+my $txblock = getTxMeta();
+
+printf "--- txblock %s...\n",Dump($txblock);
+
+
+
+exit $?;
+1;

t/txtime.t

@@ -0,0 +1,28 @@
+#
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use toychain qw(by_txtime $config);
+use YAML::Syck qw(Dump);
+
+my $tics = time;
+my $meta = 'no meta data here';
+
+printf "--- config %s...\n",Dump($config);
+
+  my $txs = [
+      {'coinbase' => [ $config->{coinbase}{reward}, 'in', $tics, $meta ] },
+      { 'user1' => [ $config->{coinbase}{reward}, 'out', $tics+1, $meta ] },
+      { 'user2' => [ $config->{coinbase}{reward}, 'out', $tics-1, $meta ] }
+  ];
+
+  printf "--- txs %s...\n",Dump($txs);
+
+my $sorted = [ sort by_txtime @{$txs} ];
+printf "sorted: %s\n",join"\n",@{$sorted};
+
+
+exit $?;
+
+1;
+
+

t/unlinked.t

@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
+
+use seed;
+use toychain qw(unlinkedBlock);
+use YAML::Syck qw(Dump);
+
+my $seed =  &seed::setseed('beautiful toy chain');
+
+my $bkcontent = { key1 => 'value1', key2 => 'value2' };
+my $blk = &unlinkedBlock($bkcontent);
+
+printf "--- # blk %s...\n",Dump($blk);
+
+exit $?;
+
+1;
+