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

愛の逆上がり 無用の巻

パスワード変更

某社も定期的(半年ごと)なパスワード変更が要求されているんだけど、 その是非はさておき、 期限二週間前から警告が出始めて 期限内にパスワード変更しないと面倒なことになるので、 たとえば6/1にパスワード変更したとすると その次は11月の後半までにはしないといけない。

すると切りのいい日付で変更しても その次はちょっと前の「ずれた」日付になってしまうのが 以下略。

世田文

おお、世田文(世田谷文学館)でやるのか。 あそこなかなか面白い企画展をよくやるんだよねえ

意訳

辞書に載っている意味がすべてとは言わないけど、 どういう意味で「意訳」を使っているのか ちょっと(かなり?)気になるところではある。

Microsoft Build 2024 キーノート完全日本語化まとめ・意訳 - 吉田の備忘録

〇年越し

気になると言えばこの見出しの「8年ごし」もどういう意味で使っているのか以下略

さよなら「ロナルド・レーガン」8年ごしの離日 アメリカ最大級の空母はなぜ“横須賀”へ？【前編】 | 乗りものニュース

↓のような記事で取り上げられている使い方とも違うような…

Carcinisation

redditのコメントにあった

Carcinisation.
All paths lead to crab.

にちょっとウケた

BDFL

メモ。

As you can read below, everyone present was bestowed a title starting with First Interim, but mine was the only jocular one. While I can’t prove my title (with or without the First Interim prefix) was never used before, I’m pretty certain that it originated in this meeting.

なんですと😲

新刊近刊

awk

gawk

Documentation update.

ドキュメントの修正というコミットなのだけど

diff --git a/doc/gawk.info b/doc/gawk.info
index fcce95d..bf1e4ee 100644
--- a/doc/gawk.info
+++ b/doc/gawk.info
@@ -14570,6 +14570,11 @@ if the time zone is set to UTC:
          exit exitval
      }' "$@"
 
+   This script was written before the ‘strftime()’ function acquired its
+third argument, UTC-FLAG.  Consider how you might modify the program to
+work entirely in ‘awk’ and process the ‘-u’ option for printing the time
+in UTC.
+

gawk拡張のstrftimeもバージョン間で微妙に差がある(場合がある) ということなのね。ここに引っかかることはそうそうなさそうだけど

in

この前後のツイート(ポスト)を見ても どの辺に疑問を感じたのかよくわからなかったのだけど

このリプライから続くやり取りで、 どうもセミコロンの扱いに関するものらしい?

それはさておきこのリプライにある 「この時点で for に in がない」がちょっと気になった。 というのも、通常のfor(やそのほかの手段)では 連想配列のキーの列挙ができない(はずな)ので、 いくらなんでもそんなはずは…

とリンク先のman v7unix/v7/usr/man/man1/awk.1 at master · v7unix/v7unix を見ると確かに見当たらない。

が、ソースコードを見てみると

v7unix/v7/usr/src/cmd/awk/awk.g.y at master · v7unix/v7unix

for:
	  FOR '(' simple_stat ';' conditional ';' simple_stat ')' optNL statement
		{ PUTS("for(e;e;e)"); $$ = stat4(FOR, $3, $5, $7, $10); }
	| FOR '(' simple_stat ';'  ';' simple_stat ')' optNL statement
		{ PUTS("for(e;e;e)"); $$ = stat4(FOR, $3, nullstat, $6, $9); }
	| FOR '(' VAR IN VAR ')' optNL statement
		{ PUTS("for(v in v)"); $$ = stat3(IN, $3, $5, $8); }
	;

v7unix/v7/usr/src/cmd/awk/awk.lx.l at master · v7unix/v7unix

<A>in		RETURN(IN);

あるぢゃん。

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

conditional:
	  expr	{ PUTS("expr"); $$ = op2(NE, $1, valtonode(lookup("0", symtab), CCON)); }
	| rel_expr		{ PUTS("relexpr"); }
	| lex_expr		{ PUTS("lexexpr"); }
	| compound_conditional	{ PUTS("compcond"); }
	;

else:
	  ELSE optNL	{ PUTS("else"); }
	;

field:
	  FIELD		{ PUTS("field"); $$ = valtonode($1, CFLD); }
	| INDIRECT term { PUTS("ind field"); $$ = op1(INDIRECT, $2); }
	;

if:
	  IF '(' conditional ')' optNL	{ PUTS("if(cond)"); $$ = $3; }
	;

lex_expr:
	  expr MATCHOP regular_expr	{ PUTS("expr~re"); $$ = op2($2, $1, makedfa($3)); }
	| '(' lex_expr ')'	{ PUTS("(lex_expr)"); $$ = $2; }
	;

OTAだと awk/awkgram.y at master · onetrueawk/awk

if:
	  IF '(' pattern rparen		{ $$ = notnull($3); }
	

pattern:
	  var ASGNOP pattern		{ $$ = op2($2, $1, $3); }
	| pattern '?' pattern ':' pattern %prec '?'
	 	{ $$ = op3(CONDEXPR, notnull($1), $3, $5); }
	| pattern bor pattern %prec BOR
		{ $$ = op2(BOR, notnull($1), notnull($3)); }
	| pattern and pattern %prec AND
		{ $$ = op2(AND, notnull($1), notnull($3)); }
	| pattern EQ pattern		{ $$ = op2($2, $1, $3); }
	| pattern GE pattern		{ $$ = op2($2, $1, $3); }
	| pattern GT pattern		{ $$ = op2($2, $1, $3); }
	| pattern LE pattern		{ $$ = op2($2, $1, $3); }
	| pattern LT pattern		{ $$ = op2($2, $1, $3); }
	| pattern NE pattern		{ $$ = op2($2, $1, $3); }
	| pattern MATCHOP reg_expr	{ $$ = op3($2, NIL, $1, (Node*)makedfa($3, 0)); free($3); }
	| pattern MATCHOP pattern
		{ if (constnode($3)) {
			$$ = op3($2, NIL, $1, (Node*)makedfa(strnode($3), 0));
			free($3);
		  } else
			$$ = op3($2, (Node *)1, $1, $3); }
	| pattern IN varname		{ $$ = op2(INTEST, $1, makearr($3)); }
	| '(' plist ')' IN varname	{ $$ = op2(INTEST, $2, makearr($5)); }
	| pattern '|' GETLINE var	{
			if (safe) SYNTAX("cmd | getline is unsafe");
			else $$ = op3(GETLINE, $4, itonp($2), $1); }
	| pattern '|' GETLINE		{
			if (safe) SYNTAX("cmd | getline is unsafe");
			else $$ = op3(GETLINE, (Node*)0, itonp($2), $1); }
	| pattern term %prec CAT	{ $$ = op2(CAT, $1, $2); }
	| re
	| term
	;

FORTRAN Compiler on IBM 704

sort –debug

sortの+POS1 -POS2と-k POS1,POS2 の違い #Linux - Qiita

この記事のコメントで、GNU coreutilsのsortにある--debugオプションを (たぶん初めて)知ったのだけど、

GNU Coreutils 9.5

‘–debug’
Highlight the portion of each line used for sorting. Also issue warnings about questionable usage to standard error.

いつ頃からあるものなのかが気になった。ので(ry

ChangeLogの記述によれば

2010-05-12  Pádraig Brady  

        sort: add a --debug option to highlight key extents
        * src/sort (usage): Add description for --debug.

この辺のようだ。リリースされたバージョンでは8.6かららしい

* Noteworthy changes in release 8.6 (2010-10-15) [stable]

(略)

** New features

sort now accepts the –debug option, to highlight the part of the line significant in the sort, and warn about questionable options.

実際ソースコードを見ても

8.5のsort.cでは

static struct option const long_options[] =
{
  {"ignore-leading-blanks", no_argument, NULL, 'b'},
  {"check", optional_argument, NULL, CHECK_OPTION},
  {"compress-program", required_argument, NULL, COMPRESS_PROGRAM_OPTION},
  {"dictionary-order", no_argument, NULL, 'd'},

となっているオプション文字列が 8.6のsort.cでは

static struct option const long_options[] =
{
  {"ignore-leading-blanks", no_argument, NULL, 'b'},
  {"check", optional_argument, NULL, CHECK_OPTION},
  {"compress-program", required_argument, NULL, COMPRESS_PROGRAM_OPTION},
  {"debug", no_argument, NULL, DEBUG_PROGRAM_OPTION},
  {"dictionary-order", no_argument, NULL, 'd'},

と"debug"が増えている。

○○○○

「遊星より愛をこめて」はとある上映会で (昭和の昔に) 観ることができたのだけど、 これは観たことがないのだよね。

愛の逆上がり 地の巻 ≪ prev
next ≫ Do Not Go Gentle Into That Good Night