Skip to content

Instantly share code, notes, and snippets.

View ufobat's full-sized avatar

Martin Barth ufobat

  • Nürnberg, Germany
View GitHub Profile
@ufobat
ufobat / twoline_prompt.sh
Created July 1, 2020 11:39 — forked from mkottman/twoline_prompt.sh
A two-line colored Bash prompt (PS1) with Git branch and a line decoration which adjusts automatically to the width of the terminal. Recognizes SVN, Git and Fossil version control systems and shows the current branch/revision.
# A two-line colored Bash prompt (PS1) with Git branch and a line decoration
# which adjusts automatically to the width of the terminal.
# Recognizes and shows Git, SVN and Fossil branch/revision.
# Screenshot: http://img194.imageshack.us/img194/2154/twolineprompt.png
# Michal Kottman, 2012
RESET="\[\033[0m\]"
RED="\[\033[0;31m\]"
GREEN="\[\033[01;32m\]"
BLUE="\[\033[01;34m\]"
use v6.c;
use JSON::Fast;
use LibCurl::HTTP :subs;
sub MAIN(
Str :$url = 'https://ecosystem-api.p6c.org/projects1.json',
Str :$file,
) {
my @modules;
PS C:\Users\martin\Downloads> cd .\Inline-C-0.78\
PS C:\Users\martin\Downloads\Inline-C-0.78> perl .\Makefile.PL
Checking if your kit is complete...
Looks good
Generating a gmake-style Makefile
Writing Makefile for Inline::C
Writing MYMETA.yml and MYMETA.json
PS C:\Users\martin\Downloads\Inline-C-0.78> make
make : Die Benennung "make" wurde nicht als Name eines Cmdlet, einer Funktion, einer Skriptdatei oder eines ausführbaren Programms erkannt. Überprüfen Sie die Schreibweise des Namens, oder ob der Pfad korrekt ist (sofern enthalten), und wiederholen Sie den Vorgang.
In Zeile:1 Zeichen:1
@ufobat
ufobat / encoding
Last active January 24, 2019 10:31
martin@babylon MINGW64 /
$ perl -E 'use Devel::Peek; use utf8; say my $a = "?"; Dump $a; say unpack("H*", $a)'
Wide character in say at -e line 1.
?
SV = PV(0x600004250) at 0x6000615a8
REFCNT = 1
FLAGS = (POK,IsCOW,pPOK,UTF8)
PV = 0x600071180 "\342\234\250"\0 [UTF8 "\x{2728}"]
CUR = 3
LEN = 10
@ufobat
ufobat / StrictClass
Last active December 23, 2018 18:47
martin@babylon MINGW64 ~/repositories/papierlos/perl6-papierlos (master)
$ perl6 -e 'use StrictClass; role B { has $.foo is required }; class A does B {}; A.new( foo => 1).perl.say;'
A.new(foo => 1)
martin@babylon MINGW64 ~/repositories/papierlos/perl6-papierlos (master)
$ perl6 -e 'use StrictClass; role B { has $.foo is required }; class A does B does StrictClass {}; A.new( foo => 1).perl.say;'
The attribute '$!foo' is required, but you did not provide a value for it.
in method new at C:\rakudo\share\perl6\site\sources\9CFA02DF4E647A51F48B1D301294D0DCFA1E8357 (StrictClass) line 9
in block <unit> at -e line 1
use v6.c;
unit module My::Main;
our %*SUB-MAIN-OPTS is export = ( 'named-anywhere' => True);
multi sub MAIN() is export {
say 1;
}
multi sub MAIN('show', 'unprocessed') is export {
No such method 'container' for invocant of type 'RefSchema'
in block at /home/martin/.workspace/p6/openapi-model/lib/OpenAPI/Model/Element.pm6 (OpenAPI::Model::Element) line 61
in method reference-check at /home/martin/.workspace/p6/openapi-model/lib/OpenAPI/Model/Element.pm6 (OpenAPI::Model::Element) line 56
in method dispatch-ref at /home/martin/.workspace/p6/openapi-model/lib/OpenAPI/Model/Element.pm6 (OpenAPI::Model::Element) line 49
in block at /home/martin/.workspace/p6/openapi-model/lib/OpenAPI/Model/Element.pm6 (OpenAPI::Model::Element) line 75
in method reference-check at /home/martin/.workspace/p6/openapi-model/lib/OpenAPI/Model/Element.pm6 (OpenAPI::Model::Element) line 56
in method dispatch-ref at /home/martin/.workspace/p6/openapi-model/lib/OpenAPI/Model/Element.pm6 (OpenAPI::Model::Element) line 49
in block at /home/martin/.workspace/p6/openapi-model/lib/OpenAPI/Model/Element.pm6 (OpenAPI::Model::Element) line 69
in method reference-check at /home/martin/.workspace/p6/openapi-
import Vue from 'vue';
import Vuex from 'vuex';
import { Module, VuexModule, Mutation, Action } from 'vuex-module-decorators';
Vue.use(Vuex);
const debug = process.env.NODE_ENV !== 'production';
interface LoginCredentials {
username: string;
# my stacktrace
> perl6 -I../cro/lib ../cro/bin/cro run
Cro::Tools::Runner.new(services => Cro::Tools::Services.new(base-path => IO::Path.new("/home/martin/.workspace/voteimproved/restapp", :SPEC(IO::Spec::Unix), :CWD("/home/martin/.workspace/voteimproved/restapp"))), service-id-filter => *, trace => Bool::False, trace-filters => Array[Str].new())
An operation first awaited:
in sub run-services at /home/martin/.workspace/voteimproved/restapp/../cro/lib/Cro/Tools/CLI.pm6 (Cro::Tools::CLI) line 228
in sub MAIN at /home/martin/.workspace/voteimproved/restapp/../cro/lib/Cro/Tools/CLI.pm6 (Cro::Tools::CLI) line 198
in block <unit> at ../cro/bin/cro line 1
Died with the exception:
Cannot look up attributes in a Cro::Tools::CroFile type object
use v6;
use Cro;
use Cro::TLS;
use Cro::TCP;
class Echo does Cro::Transform {
method consumes { Cro::TCP::Message }
method produces { Cro::TCP::Message }
method transformer(Supply $messages --> Supply) {
supply {