Orz日記 by Akio Morita

_ [FreeBSD]CVSup

cvsup10.freebsd.orgから差分が落ちて来ない... Orz

接続はしてるようなので、上流からのフィードが止まってるっぽい

cvsup2.jp.freebsd.orgへ切替え

_ [SAD]Tkinter改良

Tkinter.n内部には、X11で使用するフォントをXLFDな名前空間から 探すときに一部のフォントに付いては代替フォントを探すために いろいろなヒント情報がハードコードされています。

で、これは余り嬉しくないので PkgConfig APIで外に押し出しました。

まず、特定のFont Familyで優先する Font Foundryや Registryを設定する変数

XLFD:Foundry:(family)
XLFD:Registry:(family)

設定するべき値は、Foundryや Registry文字列のリストです

例えば、X.Orgで標準的に用意されている symbol fontして Registry-Encodingがadobe-fontspecificが有りますが、 MathML環境のために symbol fontを追加している場合、 Registry-Encodingがadobe-symbolな symbol fontが有ります。 (Mozilla推奨の MathML関連 fontを導入した場合)

両者が共存しているとき、Tkinter.nのデフォルト動作では *-*でマッチングするので前者のadobe-fontspecificを 選びますが、これは bitmap fontなので実は Type1 fontな後者を選んで 欲しかったりします。 この場合、XLFD:Registry:symbol変数に優先する Registryとして adobe-symbolを登録しておくと幸せになれます。

また、指定したFont Familyがない場合に代替Font Familyを検索する際の データベースとして変数

XLFD:Family:(family)

が参照されます。ここで、変数名に含まれるfamily部分には、 最も優先度の低い代替family名を入れて下さい。

たとえば、Tkinter.nの標準に組み込まれている例では、 timesに代替される系列として、 XLFD:Family:timesに{"utopia", "times"}が設定されています

_ [FreeBSD]devdで色々実装

devdを使ったイベントベースの処理を実装

• AC lineイベント経由での LCD brightnessの自動切換
• wired LAN LINK UP/DOWNイベント経由での wireless LANの自動OFF/ON

起動時の AC lineステータス、wired LAN linkステータスによる初期化コードを合わせて実装

必要とされる機能の実装＆試験完了したので、三代目を実戦投入

_ [SAD]EPICS\$CaPutとEPICS\$CaPutCBの違い

調査結果のまとめ

• バックエンドで呼び出されるCA APIがca_array_putであるかca_array_put_callbackが異なる
• Putの場合 ca_state APIにて、接続状態(cs_conn)であるかを確認している
  • 確認出来ない場合、CA::Channelメッセージを引数 "put error"で発生させる
• Put/PutCB成功時は、Nullを返す

_ [SAD]CaMonitor系のCallback実装について

src/CaSearch2.cから繋がっているEPICS CA callbackのまとめ

• EPICS\$CaAddEvent[] → ca_add_masked_array_event → cavalue@CaSearch2.c → tfepicsvaluecb_@src/tfepicsconstatcb.f → CaMonitor@rl[chid]@Packages/CaSad2c.n
• EPICS\$CaOpen[] → ca_create_channel → cachange@src/CaSearch2.c → tfepicsconstatcb_@src/tfepicsconstatcb.f → CaMonitor@rl[chid]@Packages/CaSad2c.n
• EPICS\$CaPutCB[] → tfcaputcb@src/tfefun3ep.f → ecaput_@src/CaSearch2.c → ca_array_put_callback → caputcb@src/CaSearch2.c → EPICS\$PutCB[chid]@Packages/CaSad2c.n

tfepicsvaluecb_とtfepicsstatcb_にて、CaMonitor@rl[chid]を検索する部分は共通化出来る 古い実装では、EPICS\$ConStatCB[chid, con-stat]とEPICS\$ValueCB[chid, value, stat]を呼び出していた様で、Packages/CaSad2c.nに痕跡が見られる

_ [SAD]LLVM/flangの状況

前回のコンパイル試験の続報

ports/devel/flang 7.0-g20191020によるコンパイル試験結果

• -gを付けるとcommon blockの処理で内部エラーが発生する
• src/tfefun_math.f
  • F90-S-0155-Intrinsic not supported in initialization: spacing
    • 初期化式に即値引数なspacing elemental functionが使えない
• src/tfefun.f
  • F90-S-0038-Symbol, atan, has not been explicitly declared
  • F90-S-0074-Illegal number or type of arguments to asinh - keyword argument x
  • F90-S-0074-Illegal number or type of arguments to acosh - keyword argument x
  • F90-S-0074-Illegal number or type of arguments to atanh - keyword argument x
  • F90-S-0038-Symbol, atan, has not been explicitly declared
    • 数学関数(asinh, acosh, atanh)が実数版・複素数版ともに未実装
    • atanの2引数版が未実装(ISO Fortran 2008以降で規格入り)
      • atan2と同一なので置き換え可能
• src/tfwrite.f
  • F90-S-0038-Symbol, fgetc, has not been explicitly declared
    • GNU拡張fgetcが未実装
• src/gamma.f
  • F90-S-0155-Intrinsic not supported in initialization: spacing

_ [SAD]LLVM/flang対応

r5592で基本的には対応完了

• -g付きだとcommon blockでコンパイルエラー
  • https://github.com/flang-compiler/flang/issues/671
• Tkinterをbuild時にlinkしようとするとシステム側のTcl/Tkと混線してlinkに失敗する
  • flang driverがlinkerに渡す引数から渡された-Lオプションより先に設定されるlibrary search pathに/usr/local/libを含むため
    • WORKAROUND
      • extension module版を使う
      • flang driverにパッチを当てる
      • SAD側のTcl/Tk libraryの名前を変える (r5593にて実装)
        • libtkVER.soの別名を用意して、リンク時にはそれを使う

_ [SAD]LLVM/flang VS GNU Fortran

同一機材(Ryzen Threadripper 2950X)上での比較

• Revision 5593
• オプションは、-O3 -fno-omit-frame-pointer