face のフォントを変更する方法

list-faces-display で face の名前を知る

私の場合は markdown-mode の face だったので、なんかそれっぽい:

  • markdown-code-face
  • markdown-inline-code-face
  • markdown-pre-face

を変更すればいいと見当を付けた。

変更する

set-face-attribute.emacs とか init.el に書く。

(set-face-attribute 'markdown-code-face nil 
                    ;; フォントファミリー名
                    :family "Ricty" 
                    ;; フォントの高さ(px の 10 倍)
                    :height 100)

おしまい。

ゔぇは Vue.js のゔぇ

へろーわーるど

var app = new Vue( {
    el: '#app',
    data: {
        message: 'V is for Vue.js'
    }
} );
<div id="app">
  {{ message }}
</div>
  <script src="https://cdn.jsdelivr.net/npm/vue/dist/vue.js"></script>
  <script src="./index.js"></script>

これを書いてるときに、markdown-mode のコードのフォントがおかしかったので修正していた。

標準入力に入力が詰まってるかどうかを調べるには eof を使えばいいらしい

よく、標準入力を使って:

% ps ax | grep hoge

とかやるけど、Perl6 ではどーやるんだろーと思ったので、IO::Handle を調べていたら、 &eof を使えばいいっぽいということがわかったので、すくりぷよ書いてみた:

#!/usr/bin/perl6
# -*- mode: perl6; -*-
# .. file:: sink
use v6;

sub MAIN() {
    unless $*IN.eof {
        say $*IN.slurp.chomp;
    }

}

名前はてけとー。
標準入力が詰まってない場合は何もしないので、何かを入力すると何かする。
こんな風に使う:

% echo Hello, World! | ./sink
Hello, World!

MoarVM の Configure.pl を Perl6 で書こうとした話

Perl が書けなかったので、MoarVM の ./Configure.pl を Perl6 で書いて理解してみようと思った:

use v6;

use Getopt::Long;

constant $NAME    = 'moar';
constant $GENLIST = 'build/gen.list';

sub MAIN() {
    my Bool $failed = False;

    my %args;
    my %defaults;
    my %config;
    
    get-options( %args, <help|?
        debug:s optimize:s instrument! coverage 
        os=s shell=s toolchain=s compiler=s
        ar=s cc=s ld=s make=s has-sha has-libuv
        static has-libtommath has-libatomic_ops
        has-dyncall has-libffi pkgconfig=s
        build=s host=s big-endian jit! enable-jit
        prefix=s bindir=s libdir=s mastdir=s make-install asan ubsan valgrind telemeh> );

    say $args;

    # pod2usage( True ) $;

    # say 'Welcome to MoarVM!';
}

そもそも、Perl6 の Getopt::Long の definition が PerlGetopt::Long と違う可能性が微レ存だったので、いきなりそこで躓いた。
それに、Perl6 の Getopt::Long は = が必須みたいなので、PerlGetopt::Long とは全然違う感じがする。

use v6;

use Getopt::Long;
# 
# Perl5 の Getopt::Long のように実装されているなら、以下が動くはず:
# 
my $capture = Getopt::Long.new( <help|?> );
# 
# 今のところ、動かない………。
# 
say $capture;

Getopt::Tiny というのもあるんだけど、それも真偽値は =! が必要。

use v6;

use Getopt::Tiny;

my Hash $opts = {help => False, version => False};

get-options( $opts, <help=! verbose=!> );

say $opts;

ということで、Getopt::OldFashion を書くことにした。
こんな風に書けるはず:

use v6;

use Getopt::OldFashion;

my %opts = get-options( <help|? version verbose> );

say %opts;

すごくシンプル過ぎるビルドシステム書いた

2 日も空いちゃったけど、書いた。
いつしか加わってしまった Emacsmarkdown-mode の末尾の半角スペース 2 つが 2 つのアンダーバーになってしまう クソ現象で markdown-mode が使えないため、text-mode を使っている。
と思ったら、Emacs を再起動したところ、治った。

そんなことはともかく、こういうへろーわーるどな C 言語のソースコードコンパイルしていきたい。

// examples/hello.c
#include <stdio.h>

int main() {
    printf( "Hello, World!" );

    return 0;
}

こういう Build.p6 をソースツリーのトップに置き、このファイルを叩くことで基本的にビルドを行うことができる:

# examples/Build.p6
use v6;

use IO::Glob;
use Build::Simple;

my @sources = glob( './*.c' );

my @objects = gather for @sources -> $source {
    take compile $source;
}

link 'hello', |@objects;

&compile&linkBuild::Simple モジュールに入っている。
お好みで IO::Globuse するととっても便利である。
叩く時は以下のようにする:

% perl6 -I../lib ./Build.p6

-I../lib は perl6 が lib/Build/Simple.pm6 を探しやすくするために必要である。
が、perl6/ecosystem に入った暁には zef install Build::Simple すれば必要なくなる。

ということで、lib/Build/Simple.pm6 は以下の通り。
今回は is export と書くことで Build::Simple::compile と書かなくて良くなるということがわかった。

# lib/Build/Simple.pm6
use v6;

unit module Build::Simple;
    
sub compile($dependency) is export {
    my $target = $dependency.extension: 'o';

    say "compiling {$dependency}";
    shell [ 'gcc', '-c', $dependency, '-o', $target ].join(' ');

    $target;
}

sub link($target, *@objects) is export {
    say "linking {$target}";
    shell [ 'gcc', |@objects, '-o', $target ];
}

%*ENV<CC> とかでコンパイラのコマンドを環境変数からとってきたりしたいなーなどと思っている。
ということで、また次回。

Perl6 の参照の話

というわけで、アドベントカレンダーを登録してないけどそんな気持ちでクソエントリを書いていこうと思う。

前もやったかもしれないけど、Perl6 の参照の話をしよう。

my @puyo = (1, 2, 3);

簡単な配列を入れた @puyo を宣言する。
そして、それを $myon に入れる。

my $myon = @puyo;

ここで、$myon は何を持っているだろう?それは、@puyo が持っている配列の参照だ。
えーと、配列の参照って?

╰( ´◔ ω ◔ `)╯ わからん

じゃあ、$myon をまた別の配列変数に入れてみよう:

my @hunyo = $myon;

ここで @hunyo@puyo は等価だろうか?
say で中身を表示してみよう:

[[1 2 3]]

違う。
@hunyo の中身は [[1, 2, 3]] となぜかネストした配列になっている。
これは、$myon には配列そのものではなく、配列のリファレンスが入っていることが原因だ((おそらくそうなんだろうなと言う意味))。

別の表現をすると、配列型の変数には配列しか設定できないため、スカラー変数の値を配列変数に設定した場合、暗黙のキャストが起こり、配列は配列の配列へと変容してしまう。
これを防ぐには、変数の前に | (パイプ)を付ける:

my @hunyo = |$myon;

このような現象は以下のように Map の値が配列であるというような場合に起こりやすい:

my  %already  = (
    authors => ['John Due']
);

{
    my @authors = do if %already<authors>:exists {
        %already<authors>                             # %already<authors> はスカラーを返す! パイプを使え!
    } else {
        []
    };

    say @authors;                                     # ウボァーーーーー!!!! @authors は [['John Due']] だ!!!!
}

私はJSON を扱う際にこの現象にぶち当たり、うぎゃーーーーーとなった。
みなさんも Perl6 を書く時には注意して欲しい。

虚無い

虚無(きょむ)い。
あるいは nil い。
つまるところ、こういう風に書いたら:

(null? me)

#t が返ってきそうな塩梅ということになる。

これは最近というわけでもなく、だいぶ前からだということになるんだけれども、例外が飛び出るわけでもなく、あまり問題がなさそうなのでほっといている。
まあ、問題はあるんだけれども。

………という風にクソエントリを書くと次のエントリを書く敷居というものが大幅に下がるため、このように書いているというわけだ。

なんと Perl6 ではホームディレクトリを表すチルダを変換してくれない

嘘だろ?! って思ったんだけど、ほんとっぽい。
~/.bashrc/home/alice/.bashrc って変換してくれるようなバンドルされてるメソッドとか関数がないって意味ね。

# -*- mode: per6; -*-
# \file: 00-childa.t
use v6;

use Test;

plan 2;

is $*HOME.add( '.bashrc' ).Str, '~/.bashrc'.IO.absolute, '.absolute でチルダを変換できるだろ、常識的に考えて……';
is $*HOME.add( '.bashrc' ).Str, '~/.bashrc'.IO.resolve , '.resolve でチルダを変換できるだろ、常識的に考えて……';

done-testing;

これを実行してみると:

% perl6 ./00-childa.t
1..2
not ok 1 - .absolute でチルダを変換できるだろ、常識的に考えて……

# Failed test '.absolute でチルダを変換できるだろ、常識的に考えて……'
# at ./00-childa.t line 8
# expected: '/home/rihine/workspace/p6-midi-converter-demo/~/.bashrc'
#      got: '/home/rihine/.bashrc'
not ok 2 - .resolve でチルダを変換できるだろ、常識的に考えて……

# Failed test '.resolve でチルダを変換できるだろ、常識的に考えて……'
# at ./00-childa.t line 9
# expected: '/home/rihine/workspace/p6-midi-converter-demo/~/.bashrc'
#      got: '/home/rihine/.bashrc'
# Looks like you failed 2 tests of 2

グワーーーーーーーーーーーーーーーーーーー!!!!!!

ちょー簡単な &expand-filepath はこんな感じかもだ:

sub expand-filepath($filepath) {
    $filepath.subst( '~', $*HOME.Str )
}

.subst とかで変換できるんだし、無くてよくね?って感じなのかもしれない。

NativeCall つらい

GLib とか Gtk を NativeCall で呼び出そうとしてるんだけど、つらい。

C 言語でやるような typedef はどーやんの?

GLib とかでこーいう感じの gsize は:

typedef    unsinged long    gsize;

Perl6 では以下のように constant る。

constant gsize = uint32;

構造体ってどーすんの?

Perl6 Document に書いてあるけど、こんな風に class として書くよ!書くよ!

class GtkApplication is repr( 'CStruct' ) {
    has GtkApplication $.parent;
    
    has Pointer        $.priv;
}

列挙体を渡したい時は?

わからん。
こんな風にやったら、ダメだった:

enum GApplicationFlags (
    G_APPLICATION_FLAGS_NONE => 0
);

sub gtk_application_new(Str, GApplicationFlags) returns Pointer[GtkApplication] is native('gtk-3') { * }

is repr('CEnum') とかできるんだろーか?