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

Do Not Go Gentle Into That Good Night

こうしす!

(前編の)放送に気がついたのが放送の翌朝で、 後編はどうしよかと思っていたのだけど…

「提供ラムダノート」!

とりあえず後編のタイマー録画仕掛けた😄

邪悪なハンコ屋

どこにあるんだろうと調べてみたら谷中なのか。 なんとなく西日本のような気がしたのだけど

実店舗「邪悪なハンコ屋 しにものぐるい」谷中銀座店のご案内 - 邪悪なハンコ屋 しにものぐるい　オリジナルハンコ、認め印通販

こちら谷中銀座店は店舗面積が1.5坪ほどの、 すれ違うのがやっとの（本当に）小さなお店です。

数人で満員になってしまう店内と、カタログでの商品閲覧になるため、 ご来店の際は、サイトにてご注文したい商品をあらかじめ決めて、 商品名、型番（m001などの数字）をメモしておかれますと よりスムーズにご注文できると思います。

谷中銀座も昨今は人出が多そうで行きづらいっちゃ行きづらい

The First Microprocessor

義〇〇

日本に染まりつつあるフランス人家族に“カツ丼”を食べさせたら……　まさかの変化に「なんだか嬉しい」「日本に早く来て欲しい」（1/2 ページ） - ねとらぼ

するとお父ちゃんは、お母ちゃんの母である義理母のことを話題に。 「義理母が作るトンカツはめっちゃおいしい」と明かしつつ、 日本の米の品質の良さについても熱く、そして誇らしげに語ります。

そこは「義理の母」とか「義母」じゃないんだろうか。

「義実家」のように、 なんか無理やり漢語っぽくしようとしているのをよく見かけるようになった気がする。

ニンジャバットマン

アニメ「ニンジャバットマン対ヤクザリーグ」制作決定！山寺宏一がバットマン役で続投 | マイナビニュース

ニンジャバットマンは公開初日に観に行ったぞ😄

ingenuity

火星ヘリコプター「インジェニュイティ」の冒険は続く - その最後の任務と未来 | TECH+（テックプラス）

どんな意味なんだろうと調べてみたら

ingenuityの意味・使い方・読み方｜英辞郎 on the WEB

  • 〔人の〕創意工夫［発明］の能力、創造力◆不可算
  • 創意あふれる［巧妙な］アイデア［構想・計略］
  • 〔創意ある〕考案品、発明品

へー。 そう言えば火星探査機って他にも色々あったよねえ。 で調べたら

ふむ。

ラス前

いよいよ次回で完結

超人ロックも(作者が亡くなられたので)もう載ってないし、 ドリフターズはいつ掲載されるかわからない。 てな状況だから、アワーズ買うのも止めるかねえ… それなりに読んでいる連載もあるにはあるんだけど

[lr]?trim

PHPのバグ？？？

詳しくは元記事を参照してもらうとして

これはPHPのバグ？？？

ってのは「(読者に対する)問いかけ」でもないのなら 「ドキュメントにあたれ」って話だよねえ

何か月か前にもPHPじゃない別のプログラミング言語で 同様の記事を見たような気がするんだけど、 はてなんだったか。

空のアーカイブ作成はご容赦願います

Windows 11 では 7z をコマンドラインでも圧縮・解凍できるようになっていた #PowerShell - Qiita

実は、Windows 10 1803 以降には tar コマンドが同梱されています。この tar コマンドは GNU tar ではなく、FreeBSD 版 tar (libarchive) です：

(略)
そのため、tar -c を実行しても GNU tar でおなじみの 空のアーカイブ作成はご容赦願います という独特な表現を見ることはできません：

というのが気になったので(ry

gnutar/gnutar/po/ja.po at master · aosm/gnutar

#: src/tar.c:2226
msgid "Cowardly refusing to create an empty archive"
msgstr "空のアーカイブ作成はご容赦願います"

なるほど。そういう原文からの翻訳なのか。

ところで他の部分を見てみると

gnutar/gnutar/po/ja.po at master · aosm/gnutar

#: lib/paxerror.c:179 lib/paxerror.c:211
#, c-format
msgid "%s: Read error at byte %s, while reading %lu byte"
msgid_plural "%s: Read error at byte %s, while reading %lu bytes"
msgstr[0] "%s: %s バイト目で読み込みエラー (%lu バイト読み込み中)"
msgstr[1] "%s: %s バイト目で読み込みエラー (%lu バイト読み込み中)"

#: lib/paxerror.c:192
#, c-format
msgid "%s: Warning: Read error at byte %s, while reading %lu byte"
msgid_plural "%s: Warning: Read error at byte %s, while reading %lu bytes"
msgstr[0] "%s: 警告: %s バイト目で読み込みエラー (%lu バイト読み込み中)"
msgstr[1] "%s: 警告: %s バイト目で読み込みエラー (%lu バイト読み込み中)"

ん、なんじゃこれ。 目的はわかるけどこんなのあったの知らなかった(忘れていた?)。

新刊近刊

囲碁ＡＩの技術と思想

この本、書店で見かけたのでパラパラ眺めてみたのだけど 自分の興味に合いそうな感じだった (まだ買ってない)

囲碁ＡＩの技術と思想 | 書籍 | 第三文明社

【目次】

まえがき
第１章　計算機の歴史
第２章　ＡＩの誕生と発展
第３章　コンピューター囲碁からＡＩ囲碁へ
終 章　ＡＩが人類につきつけるもの

［特別収録］ 対談　AI・囲碁・教育――その未来を展望する　劉知青（北京郵電大学教授）×坂じゅんいち

関数電卓がすごい

ハヤカワ新書も面白そうなものが多い(全部は買っていられない…)

江戸の天才数学者　世界を驚かせた和算家たち

awk

v7

ん、でもif (var in array)がない?

もうちょっとv7のawkのソース v7unix/v7/usr/src/cmd/awk at master ・ v7unix/v7unix ・ GitHub を追いかけてみた

inの処理は v7unix/v7/usr/src/cmd/awk/run.c at master · v7unix/v7unix にあるんだけど

instat 
obj instat(a, n) node **a;
{
        cell *vp, *arrayp, *cp, **tp;
        obj x;
        int i;

        vp = (cell *) a[0];
        arrayp = (cell *) a[1];
        if (!(arrayp->tval & ARR))
                error(FATAL, "%s is not an array", arrayp->nval);
        tp = (cell **) arrayp->sval;
        for (i = 0; i < MAXSYM; i++) {  /* this routine knows too much */
                for (cp = tp[i]; cp != NULL; cp = cp->nextval) {
                        xfree(vp->sval);
                        vp->sval = tostring(cp->nval);
                        vp->tval = STR;
                        x = execute(a[2]);
                        if (isbreak(x)) {
                                x = true;
                                return(x);
                        }
                        if (isnext(x) || isexit(x))
                                return(x);
                        tempfree(x);
                }
        }
}

どうみても全要素を列挙するものですねえ。

やっぱりあるキーが連想配列にあるかどうかを調べる方のin はないのかと思いつつ検索してみたら 最初のawkとnawk(現在one true awkになったやつ)の違いを まとめたページ AwkChannelWiki: oawk があった。 そこでいろいろ挙げられている中にこれがあった

Can’t test for an element being “in” an array:

$ /usr/xpg4/bin/awk 'BEGIN{ a[1]=7; if (1 in a) print a[1]; exit }'
7
$ /usr/bin/awk 'BEGIN{ a[1]=7; if (1 in a) print a[1]; exit }'
awk: syntax error near line 1
awk: illegal statement near line 1

あ。やっぱり。 そのほか挙げられている項目には知っていたものも 知らなかったものも。

ところで

v7unix/v7/usr/src/cmd/awk/awk.def at master · v7unix/v7unix

#define BOTCH   1
struct nd {
        char ntype;
        char subtype;
        struct nd *nnext;
        int nobj;
        struct nd *narg[BOTCH]; /* C won't take a zero length array */
};

BOTCHて😄

makefileの中を見ると

v7unix/v7/usr/src/cmd/awk/makefile at master · v7unix/v7unix

token.c:        awk.h
        ed - <tokenscript
        rm temp

と、edを使っていた。 こういう使い方ができるのは知っていたけど 実際に使っている例はあまり見た覚えがない。

実際どういう操作をしているかというと

v7unix/v7/usr/src/cmd/awk/tokenscript at master · v7unix/v7unix

e y.tab.h
1,$s/# *define *//
1,$s/^/"/
1,$s/ /", /
1,$s/$/,/
w temp
e token.c
/= *{$/+1,/^};$/-1d
-r temp
w token.c
q

こう。

ちなみにOTAではinが関係している部分がどうなっているかというと

awk/awkgram.y at master · onetrueawk/awk

for:
	  FOR '(' opt_simple_stmt ';' opt_nl pattern ';' opt_nl opt_simple_stmt rparen {inloop++;} stmt
		{ --inloop; $$ = stat4(FOR, $3, notnull($6), $9, $12); }
	| FOR '(' opt_simple_stmt ';'  ';' opt_nl opt_simple_stmt rparen {inloop++;} stmt
		{ --inloop; $$ = stat4(FOR, $3, NIL, $7, $10); }
	| FOR '(' varname IN varname rparen {inloop++;} stmt
		{ --inloop; $$ = stat3(IN, $3, makearr($5), $8); }
	;

awk/awkgram.y at master · onetrueawk/awk

	| pattern IN varname		{ $$ = op2(INTEST, $1, makearr($3)); }

こんな感じに二つ(INとINTEST)にわかれていて、 後者に対応する関数は

awk/run.c at 5dab2871759082fb9037c23af5e9387bb6366e1d · onetrueawk/awk

intest 
Cell *intest(Node **a, int n)	/* a[0] is index (list), a[1] is symtab */
{
	Cell *ap, *k;
	char *buf;

	ap = execute(a[1]);	/* array name */
	if (!isarr(ap)) {
		DPRINTF("making %s into an array\n", ap->nval);
		if (freeable(ap))
			xfree(ap->sval);
		ap->tval &= ~(STR|NUM|DONTFREE);
		ap->tval |= ARR;
		ap->sval = (char *) makesymtab(NSYMTAB);
	}
	buf = makearraystring(a[0], __func__);
	k = lookup(buf, (Array *) ap->sval);
	tempfree(ap);
	free(buf);
	if (k == NULL)
		return(False);
	else
		return(True);
}

こう。まあそうだよね。という内容すね

もうひとつ、連想配列のキー列挙の方も見てみると

awk/run.c at 5dab2871759082fb9037c23af5e9387bb6366e1d · onetrueawk/awk

instat 
Cell *instat(Node **a, int n)	/* for (a[0] in a[1]) a[2] */
{
	Cell *x, *vp, *arrayp, *cp, *ncp;
	Array *tp;
	int i;

	vp = execute(a[0]);
	arrayp = execute(a[1]);
	if (!isarr(arrayp)) {
		return True;
	}
	tp = (Array *) arrayp->sval;
	tempfree(arrayp);
	for (i = 0; i < tp->size; i++) {	/* this routine knows too much */
		for (cp = tp->tab[i]; cp != NULL; cp = ncp) {
			setsval(vp, cp->nval);
			ncp = cp->cnext;
			x = execute(a[2]);
			if (isbreak(x)) {
				tempfree(vp);
				return True;
			}
			if (isnext(x) || isexit(x) || isret(x)) {
				tempfree(vp);
				return(x);
			}
			tempfree(x);
		}
	}
	return True;
}

v7時代の面影がありますな。

FORTRAN Compiler on IBM 704

nmake

マジで。 とリンク先を見ると

NMAKE マクロを使用する | Microsoft Learn

マクロの関数

NMAKE には、文字列、項目の一覧、ファイル パスを変更するために使用できる一連の関数が含まれています。 それらの関数は、Visual Studio 2022 以降の NMAKE で使用できます。

関数の構文

関数では、次の構文を使用します。


$(function_name arg0,arg1,arg2...)

おー。 でももうVisual Studio使って何かを作ることはないかなあ。

class

Alan Kay’s answer to Why are object-oriented classes named classes? What is the etymology of object- oriented classes? - Quora

The second version of Simula (Simula-67) used the term “Class” for the descriptions that could be instantiated into “objects” which carried out the descriptions. Some of the background for this term very likely came from its use in mathematics. (以下略)

へー。

で、

とあるのでスレッドを追いかけると

In Japan, it is often explained that a mold for baking sweets called Taiyaki is a class, and the finished Taiyaki is an object.

これか。 それに対する返事がこう

In a completely object-oriented language, you would also need a mold for the mold, and a mold for that, etc., and “molds” for the parts of the Taiyaki, etc.

It’s interesting that most “natural languages” are powerful enough to handle meta relationships, but most programming languages are not (including so-called “object-oriented” languages).

アセンブラ

最初の(定年退職された)方がどんなCPU向けのアセンブリ言語を使うのかが ちょっと気になる😄

その昔、何度か言及したことのあるAMDの29000という(正確にはそのバリエーション) RISC向けのプログラムをアセンブリ言語で書いたとき(無論お仕事)に、 「こんなの人間が手で書くもんじゃねえ」 と思いましたですね😄

29000は命令体系なんかも好きではあるんだけど、 さすがに丸ごとアセンブリ言語で(それなりの大きさの)プログラムを書くのは無理😓 29000は大昔のものだけど、RISCっぽい石はどれもそんな感じじゃないかなあ (異論は認める)

愛の逆上がり 無用の巻 ≪ prev
next ≫ 小さな防衛線