ときどきの雑記帖 RE* (新南口)

Flutter into Life

丸の内オアゾ

行ってきた。 ゲルニカ実物大レプリカも確認。 行って確かめてみて、今まで気がつかなかった理由も納得した😓

ソフデの値段

なんのかんので1500円するのか今 (今まであまり気にしてなかった)。

東京豚饅

「もう大阪行かなくてもいい」「味の違いが分からなくて悔しい」“ジェネリック551蓬莱”こと『羅家 東京豚饅』に“本家超え”と絶賛の声 | 週刊女性PRIME

そういやまだ行ってない。 自由が丘って意外に(?)行かないんだよな。 「通過」は毎日のようにしてるんだけど。

Inside the Cult of the Haskell Programmer

WIREDでこういう記事がでるのは珍しい気がする

読書

[B! エンジニア] エンジニア3年目までに読んで良かった書籍 - Yuki Watanabe’s Blog

古い記事がなぜ今話題に? というのはさておき、

TAoCP や コルメン本のようなものが皆無なのが気になった。 そんなもの読まなくても仕事にはなる(できる)ということなのかもしれないけど。 読むにしても大変だしね

エディター

GNU nanoはlinked listっぽい

GNU nano

/* More structure types. */
typedef struct linestruct {
        char *data;
                /* The text of this line. */
        ssize_t lineno;
                /* The number of this line. */
        struct linestruct *next;
                /* Next node. */
        struct linestruct *prev;
                /* Previous node. */
#ifdef ENABLE_COLOR
        short *multidata;
                /* Array of which multi-line regexes apply to this line. */
#endif
#ifndef NANO_TINY
        bool has_anchor;
                /* Whether the user has placed an anchor at this line. */
#endif
} linestruct;

ed (v7)

ところでUNIX v7のedのソースを眺めていたら

v7/usr/src/cmd/ed.c

append(f, a)
int *a;
int (*f)();
{
    register *a1, *a2, *rdot;
    int nline, tl;

    nline = 0;
    dot = a;
    while ((*f)() == 0) {
        if ((dol-zero)+1 >= nlall) {
            int *ozero = zero;
            nlall += 512;
            free((char *)zero);
            if ((zero = (int *)realloc((char *)zero, nlall*sizeof(int)))==NULL) {
                lastc = '\n';
                zero = ozero;
                error("MEM?");
            }
            dot += zero - ozero;
            dol += zero - ozero;
        }
        tl = putline();
        nline++;
        a1 = ++dol;
        a2 = a1+1;
        rdot = ++dot;
        while (a1 > rdot)
            *--a2 = *--a1;
        *rdot = tl;
    }
    return(nline);
}

freeした領域をreallocの引数に使っていいんだっけ? それにreallocに失敗したときに実行される zero = ozero;のozeroって…?

んで、どうもこのedではファイル丸ごとを一つの領域で管理しているような。 GNU edだとgap bufferぽい気がする(要確認)

gap buffer

まあv7の時代にはまだgap bufferはなかったような気がするし。

TINY BASIC

前回TINY BASICの比較演算子のことを書いたの だけど、ソースコードではどうなっていたのか気になったので ソースコードを確かめようとしたら

で紹介されているソースコードが置かれていたサイトがなくなっているようだ。 問題のファイルは以前ダウンロードしてどこかに保存していたと思うのだけど 探すのが面倒なので(ry

それはそれとして別のマニュアルでも比較演算子に><があるのを見つけた

http://retro.hansotten.nl/uploads/tinybasic/Tiny%20Basic%20User%20Manual.pdf

The IF statement compares two expressions according to one of six relational operators/ If the relationship is True, the statement is executed; if False, the associated statement is skipped. The six relational operators are:
= equality
< less than
> greator tham
<= less or equal (not greator)
>= greator or equal (not less)
<>, >< not equal (greator or less)

さらに検索すると(せーせーAI様にお尋ね申し上げた方が早かった?) Z80版がgithubにあるのがわかったので

これを読んでみた

Z80-FPGA/Tinybasic/Basic.asm at master · Obijuan/Z80-FPGA

TAB8:                                   ;RELATION OPERATORS
        DB '>='
        DWA XP11
        DB '#'
        DWA XP12
        DB '>'
        DWA XP13
        DB '='
        DWA XP15
        DB '<='
        DWA XP14
        DB '<'
        DWA XP16
        DWA XP17

><はおろか<>もない? そして#ってナニ?

式の評価部分を見ると

Z80-FPGA/Tinybasic/Basic.asm at master · Obijuan/Z80-FPGA

;*************************************************************
;
; *** EXPR ***
;
; 'EXPR' EVALUATES ARITHMETICAL OR LOGICAL EXPRESSIONS.
; <EXPR>::<EXPR2>
;         <EXPR2><REL.OP.><EXPR2>
; WHERE <REL.OP.> IS ONE OF THE OPERATORS IN TAB8 AND THE
; RESULT OF THESE OPERATIONS IS 1 IF TRUE AND 0 IF FALSE.
; <EXPR2>::=(+ OR -)<EXPR3>(+ OR -<EXPR3>)(....)
; WHERE () ARE OPTIONAL AND (....) ARE OPTIONAL REPEATS.
; <EXPR3>::=<EXPR4>(* OR /><EXPR4>)(....)
; <EXPR4>::=<VARIABLE>
;           <FUNCTION>
;           (<EXPR>)
; <EXPR> IS RECURSIVE SO THAT VARIABLE '@' CAN HAVE AN <EXPR>
; AS INDEX, FUNCTIONS CAN HAVE AN <EXPR> AS ARGUMENTS, AND
; <EXPR4> CAN BE AN <EXPR> IN PARANTHESE.
;*************************************************************

EXPR1:
        LD HL,TAB8-1                    ;LOOKUP REL.OP.
        JP EXEC                         ;GO DO IT
XP11:
        CALL XP18                       ;REL.OP.">="
        RET C                           ;NO, RETURN HL=0
        LD L,A                          ;YES, RETURN HL=1
        RET
XP12:
        CALL XP18                       ;REL.OP."#"
        RET Z                           ;FALSE, RETURN HL=0
        LD L,A                          ;TRUE, RETURN HL=1
        RET
XP13:
        CALL XP18                       ;REL.OP.">"
        RET Z                           ;FALSE
        RET C                           ;ALSO FALSE, HL=0
        LD L,A                          ;TRUE, HL=1
        RET
XP14:
        CALL XP18                       ;REL.OP."<="
        LD L,A                          ;SET HL=1
        RET Z                           ;REL. TRUE, RETURN
        RET C
        LD L,H                          ;ELSE SET HL=0
        RET
XP15:
        CALL XP18                       ;REL.OP."="
        RET NZ                          ;FALSE, RETURN HL=0
        LD L,A                          ;ELSE SET HL=1
        RET
XP16:
        CALL XP18                       ;REL.OP."<"
        RET NC                          ;FALSE, RETURN HL=0
        LD L,A                          ;ELSE SET HL=1
        RET
XP17:
        POP HL                          ;NOT .REL.OP
        RET                             ;RETURN HL=<EXPR2>
XP18:
        LD A,C                          ;SUBROUTINE FOR ALL
        POP HL                          ;REL.OP.'S
        POP BC
        PUSH HL                         ;REVERSE TOP OF STACK
        PUSH BC
        LD C,A
        CALL EXPR2                      ;GET 2ND <EXPR2>
        EX DE,HL                        ;VALUE IN DE NOW
        EX (SP),HL                      ;1ST <EXPR2> IN HL
        CALL CKHLDE                     ;COMPARE 1ST WITH 2ND
        POP DE                          ;RESTORE TEXT POINTER
        LD HL,0000H                     ;SET HL=0, A=1
        LD A,01H
        RET

#がnot equal? 実際このtiny basicのマニュアルっぽい Tiny BASIC for the CPUville Z80 Computer を見ると

Arithmetic and Compare operators

/ divide.
* multiply.
subtract.
+ add.
> greater than (compare).
< less than (compare).
= equal to (compare).
# not equal to (compare).
>= greater than or equal to (compare).
<= less than or equal to (compare).

+, , *, and / operations result in a value between 32767 and 32767. (32768 is also allowed in some cases). All compare operators result in a 1 if true and a 0 if not true.

となっていた。

さらに DR. WANG’S PALO ALTO TINY BASIC にも

# compare if not equal to.

という記述があった。

とすると、Tiny BASICにはいくつかの「源流」があったようなのは事実だったようなので(要確認)、 この辺の表記に「ゆれ」があったということなんだろうか。

で、><(や<>)を使っていたと思われるTiny BASICの例。

Nakamozu Tiny Basic /ASCII

https://hyamasynth.web.fc2.com/ACII_NTB/NTB_sourcecode_Part2.pdf

EX11	ORA B #1
	FCB   $8C
EX12	ORA B #2
	FCB   $8C
EX13	ORA B #4
	FCB   $8C
	INX
	FCB   $C1
EX14	CLR B
	BSR   PKUP
	CMP A #'>'
        BEQ   EX11
	CMP A #'='
        BEQ   EX12
	CMP A #'<'
        BEQ   EX13
	CLR A
        RTS

このコードだと><は<>と同じ結果になるよね。 CPU(MPU)が違うけど、GW-BASICもこんな感じのコードだった

sort -u

いつもの人のいつものような記事なのはさておき

[B! tutorial] なぜsortコマンドはuniq機能を含んでいるのか？（Unix哲学はどこ行った！？） - Qiita

v7のsort(1)にuオプションがあったというのを見て気になったので(ry

v7unix/v7/usr/man/man1/sort.1 at master ・ v7unix/v7unix ・ GitHub

.B  u
Suppress all but one in each
set of equal lines.
Ignored bytes
and bytes outside keys
do not participate in
this comparison.

ホントだ。 今まで知らなかったけどなんで「ない」と思い込んでいたんだろう? まあ先に(あのちょっと使い物にならない)DOSのソートコマンドに慣れ親しんでいたから というのはあるかもしれない。

sortf

ソートと言えばDOS時代からsortfという「フリーソフト」を愛用していて、 それはソースコードも公開されていたので 自分で移植(というほど大したことはしていない)して使い続けていたのだけど、 数年前にふとそのソースコードを読みたくなって(謎)探してみたところ 公開も配布も停止されたようでベクターにも見当たらなかった。

残念。

C

すげー長いのでまだ飛ばし読みしかしていない

strb_t: A new string buffer type (1 of 2) | by Christopher Bazley | May, 2024 | ITNEXT

Although C23 adopted strdup and strndup from POSIX, other functions that would be useful for dealing with strings of unbounded maximum size are absent.

No function is provided to:

  • allocate storage for a string generated under control of a format string, as a single operation.
  • allocate storage for a copy of one string concatenated with another, as a single operation.
  • insert characters into a string, reallocating storage as necessary.

この辺はまあごもっとも。

今日見たら2/2も公開されていた strb_t: A new string buffer type (2 of 2) | by Christopher Bazley | May, 2024 | ITNEXT

smart pointer

(2015) or earlier

新刊近刊

awk

OTA

前回ちょっと触れたissueのはなし。

spurious syntax error with ? : in combination with print · Issue #233 · onetrueawk/awk

$ printf 'foo\n\nbar\n' |nawk '{print $0 !~ /^$/ ? $0 : "[blank]"}'
foo
[blank]
bar

$ printf 'foo\n\nbar\n' |nawk '{print ($0 != "") ? $0 : "[blank]"}'
foo
[blank]
bar

をちょっと書き換えると

$ printf 'foo\n\nbar\n' |nawk '{print $0 != "" ? $0 : "[blank]"}'
nawk: syntax error at source line 1
 context is
	{print $0 >>>  != <<< 
nawk: illegal statement at source line 1
nawk: illegal statement at source line 1

構文エラーになる。と、

This may fix it, but it increases the number of shift/reduce and reduce/reduce conflicts. And I didn’t run the test suite on it.

In general, the grammar is a MESS; in particular I don’t understand the reason for separate pattern and ppattern and related non-terminals.

という意見があり、

I agree the grammar is in need of some careful cleanup. I had spent some time working on that for eg. issue #149 but left unfinished. I will take a close look at this one as well, and see if I can come up with a solution without increasing the conflicts.

ということになった模様。 構文定義絡みでは同様の問題が以前にもあったようで、 このリプライにある #149はこれ

Cannot build IANA tz database 2022b · Issue #149 · onetrueawk/awk

Hugo メモ

ふと最新版て試したらどうなるんだろうかと思って試してみたところ

PS C:\Users\kbk> $env:HUGO_ENV="" ; hugo --buildFuture server --source C:\Users\kbk\home\mypage\z3 --logLevel error --verbose
Watching for changes in C:\Users\kbk\home\mypage\z3\{content,layouts,static,themes}
Watching for config changes in C:\Users\kbk\home\mypage\z3\config.toml
Start building sites …
hugo v0.126.0-32c967551be308fbd14e5f0dfba0ff50a60e7f5e+extended windows/amd64 BuildDate=2024-05-14T13:24:11Z VendorInfo=gohugoio

ERROR render of "home" failed: execute of template failed: html/template:index.html:43:18: no such template "_internal/google_analytics_async.html"
ERROR render of "section" failed: execute of template failed: html/template:_default/list.html:43:18: no such template "_internal/google_analytics_async.html"
ERROR render of "page" failed: execute of template failed: html/template:page/single.html:43:18: no such template "_internal/google_analytics_async.html"
ERROR render of "page" failed: execute of template failed: html/template:_default/single.html:43:18: no such template "_internal/google_analytics_async.html"
Built in 3022 ms
Error: error building site: render: failed to render pages: render of "404" failed: execute of template failed: html/template:404.html:43:18: no such template "_internal/google_analytics_async.html"
PS C:\Users\kbk>

なんか見たことないエラーが発生。なんじゃこれはと調べると すでに同様の報告が出ていて

Build error on v0.125.2 Calling internal template “_internal/google_analytics_async.html” - support - HUGO

Upgraded to the latest version of hugo, 0.125.2, and now several of my sites are failing to build with errors that end in the following…

no such template “_internal/google_analytics_async.html”

Was this deprecated?

Any help is appreciated. Thanks!

そのリプライによれば

Yes, this was deprecated. We’ve been emitting a deprecation notice for a while…

Which theme?

Use this instead:

{{ template "_internal/google_analytics.html" . }}

とのこと。先ほどのエラーメッセージが正しくエラーの原因の場所を指摘していないので ちょっと手間取ったけど

layouts/_detaults/naseof.html

    {{ if eq (getenv "HUGO_ENV") "production" | or (eq .Site.Params.env "production")  }}
      {{ template "_internal/google_analytics_async.html" . }}
    {{ end }}

これをアドバイスに従って書き換えると

PS C:\Users\kbk> $env:HUGO_ENV="" ; hugo --buildFuture server --source C:\Users\kbk\home\mypage\z3 --logLevel error --verbose
Watching for changes in C:\Users\kbk\home\mypage\z3\{content,layouts,static,themes}
Watching for config changes in C:\Users\kbk\home\mypage\z3\config.toml
Start building sites …
hugo v0.126.0-32c967551be308fbd14e5f0dfba0ff50a60e7f5e+extended windows/amd64 BuildDate=2024-05-14T13:24:11Z VendorInfo=gohugoio

ERROR failed to fetch remote resource: Forbidden
Built in 13136 ms
Error: error building site: logged 1 error(s)
PS C:\Users\kbk>

見慣れた(?)エラーに。 めでたしめでたし(か?)

キー配置

実は会社で使っているPCと自宅で使っているPCとで fnキーとCtrlキーの位置関係が逆で、 (省略されました)

格納庫

わりと最近(でもないか)まで、 格納庫内の飛行機は規則正しく並べられているもの (発艦時の飛行甲板のイメージ)だと思っていたのだけど、 考えてみればそれだと「無駄」が結構でてしまい 格納できる機数が減ってしまう。と。

んで、メリケンの空母の格納庫はもっと「すっきりした形」で 日本の空母はなんでこんな(ry という話もあるんだけど、それはそれで「いろいろある」んだよねえ… (イギリスのはしらない)

小田原

へー。小田原のどのへんだろうと調べてみると

小田原駅からはちょっと(かなり?)離れたところのようだ。

あと

工学特化の大学構想　小田原、関東学院大の敷地内に | 社会 | カナロコ by 神奈川新聞

米マイクロソフト副社長やアスキー社長などを歴任した西和彦氏らは２４日、 小田原市荻窪に工学に特化した新たな４年制大学を開設する構想を明らかにした。 関東学院大のキャンパス内に整備し、同大も一般教養の講義などで協力する。 デジタル医療情報工学など３学科で計１１２０人の学生を集め、教員は世界中からエンジニアらを招く計画。 今後、各種手続きを進め２０２２～２３年の開学を目指すという。

関東学院大は当面の間、教育機関を残すが、将来的には新設大学と連携を図る事務所のみになるという。 規矩学長は「撤退ではなく、深くコミットして協力していく」とした。 同大小田原キャンパスは１９９１年に法学部が開校して開設。 その後、受験者数の低迷などから２０１７年に同学部が横浜に移転、材料・表面工学研究所が小田原に移り、 大学院が新設され「国際研究研修センター」として活用されている。

日本先端大学（仮称） 関東学院大の施設を取得へ 開学は2025年4月予定 | 小田原・箱根・湯河原・真鶴 | タウンニュース

学校法人小田原教育メディア（西和彦理事長）が１月15日に、関東学院大学小田原キャンパス（小田原市荻窪） の建物の売買契約及び土地の譲渡契約を締結したことが本紙の取材で分かった。 同法人は日本先端大学（仮称）の開学を２０２５年４月に予定している。 　　　

この大学と博物館の関係は?

そういや1980年代末期辺りから都心にあった大学キャンパスが 郊外に移転ってけっこうあったような (近年回帰してるけど)。

メモ

同じような意味のことを他の人も言っていたような気がするけど調べない

Stop Killing Games

なんか気になったので(ry

一か月ほど前にGIGAZINEが記事にしてたのね。気がつかなかった(か忘れた)。 まあそれはさておき、プロジェクトのサイトへ行ってみると

Stop Killing Games

An increasing number of videogames are sold as goods, but designed to be completely unplayable for everyone as soon as support ends. The legality of this practice is untested worldwide, and many governments do not have clear laws regarding these actions. It is our goal to have authorities examine this behavior and hopefully end it, as it is an assault on both consumer rights and preservation of media. We are pursuing this in two ways:

sold as goodsがちょっと気になった。 オンラインのみのゲームって対象になるの?

FAQもあったのでみてみたが

FAQ - Stop Killing Games

Q.Aren’t you asking companies to support games forever? isn’t that unrealistc?

A: No, we are not asking that at all. We are in favor of publishers ending support for a game whenever they choose. What we are asking for is that they implement an end-of-life plan to modify or patch the game so that it can run on customer systems with no further support from the company being necessary. We agree it is unrealistic to expect companies to support games indefinitely and do not advocate for that in any way. Additionally, there are already real-world examples of publishers ending support for online-only games in a responsible way, such as:

  • ‘Gran Turismo Sport’ published by Sony
  • ‘Knockout City’ published by Electronic Arts
  • ‘Mega Man X DiVE’ published by Capcom
  • ‘Scrolls / Caller’s Bane’ published by Mojang AB
  • ‘Duelyst’ published by Bandai Namco Entertainment etc.

Q. What about large scale MMOROGs, isn’t it impossible for customers to run those when servers are shitdow?

A: Not at all, however limitations can apply. Several MMORPGs that have been shut down have seen ‘server emulators’ emerge that are capable of hosting thousands of other players, just on a single user’s system. Not all will be this scalable, however. For extra demanding videogames that require powerful servers the average user will not have access to, the game will not be playable on the same scale as when the developer or publisher was hosting it. That said, that is no excuse for players not to be able to continue playing the game in some form once support ends. So, if a server could originally support 5000 people, but the end user version can only support 500, that’s still a massive improvement from no one being able to play the game ever again.

まあよくわからん。 が、第一印象と思いこみで言及するようなことではなさげ。

PasocomMini PC-8801mkIISR

おー。 発売予定詳細発表が2024年8月8日というのは 「ハチハチの日」?😄

よんぶんのさん ≪ prev
next ≫ 愛の逆上がり 天の巻