- JohnはAliceからの通信をtriggerに起床します
- Johnは起床後、Bobに通知を送ります
sequenceDiagram
participant Alice
participant Bob
Alice->>John: Hello John, how are you?| set fileencodings=ucs-bom,utf-8,cp51932,euc-jp-ms,cp932,gb18030 | |
| autocmd BufReadPost * if search('\%x1b\(\$[B@]\|([BJI]\)', 'w') > 0 | | |
| \ e ++enc=cp50221 | endif | |
| autocmd BufReadPost * if &fileencoding ==# 'cp50221' | | |
| \ setlocal fileencoding=iso-2022-jp | endif | |
| autocmd BufReadPost * if &fileencoding ==# 'cp51932' | | |
| \ setlocal fileencoding=euc-jp | endif | |
| autocmd BufReadPost * if &fileencoding ==# 'euc-jp-ms' | | |
| \ setlocal fileencoding=euc-jp | endif | |
| #!/usr/bin/env python | |
| # See: https://github.com/textlint/textlint/issues/852 | |
| import json | |
| import subprocess | |
| import sys | |
| from functools import cache | |
| from os import getenv | |
| from unicodedata import east_asian_width | |
| r""" |
| #!/usr/bin/env python3 | |
| import socket | |
| import ssl | |
| import sys | |
| from cryptography import x509 | |
| from cryptography.hazmat.backends import default_backend | |
| from cryptography.x509.oid import NameOID | |
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| { | |
| package Tie::DefaultDict; | |
| require Tie::Hash; | |
| our @ISA = qw(Tie::ExtraHash); | |
| sub TIEHASH { |
| function luhn(value) { | |
| return value.split('').reduce(function (s, d, i) { | |
| var n = (!(i & 1) + 1) * d; | |
| if (n > 9) n -= 9; | |
| return s + n; | |
| }, 0) % 10 === 0; | |
| } | |
| console.log(luhn('1234567890123452')); |
| From 88d965c5740c5ad09a97e1e576fe3bc14abcc382 Mon Sep 17 00:00:00 2001 | |
| From: Shin Kojima <[email protected]> | |
| Date: Fri, 25 Jan 2019 15:17:18 +0900 | |
| Subject: [PATCH] Parse SKIP directives to produce "<skipped />" | |
| Signed-off-by: Shin Kojima <[email protected]> | |
| --- | |
| lib/TAP/Formatter/JUnit/Result.pm | 1 + | |
| lib/TAP/Formatter/JUnit/Session.pm | 13 +++++++++++++ | |
| t/data/tap/junit/skip | 5 ++++- |
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use utf8; # Meaning "This lexical scope (i.e. file) contains utf8" | |
| use open qw(:std :utf8); | |
| use autodie; | |
| use Encode; | |
| use File::Temp qw(tempdir); |
| #!/usr/bin/env perl | |
| use strict; | |
| use warnings; | |
| use utf8; | |
| use open qw(:std :utf8); | |
| our $VERSION = '0.02'; | |
| my $app = App::Weld->new; | |
| $app->run; |
| #/bin/sh | |
| set -eu | |
| ip2dec () { | |
| local ip="$1" | |
| if test -z "$ip"; then | |
| printf "Argument required" 1>&2 | |
| return 1 | |
| fi |