新着記事

例えば、過去ログについては現行ログからプッシュアウトされる追記しか存在
しないわけですよね。なので、こちらのほう、正規化というか不要なヌルを削除
して再アップするという対応はしてもいいかも。そして、もしそれだけのことで
ログ崩壊が発生するなら、それはもう、回線被疑確定。
そして、もしスクリプトとかではなく回線が悪いのなら、私が#5823で書いたのと
似たような対応がベターかな。すなわち、正当な内容の同一のログを、ファイル
名を変えて５つとかアップロード。そして、それらをサーバ上の名前のままで
ダウンロード。ローカルで原本と比較し、差異がないファイルを新ログとして
現行ログのファイル名にリネーム。
サーバ上でdiffとかできるスクリプトが書ければもっと楽できそうな気もする
けど、そんなスクリプトを書くよりはアップダウンを繰り返してローカルで
比較、というほうがおそらく簡単。

それはさておき。

> これは，例えば 1020 とか 1040 とかのときは遅くならないのですか？

のちほど試して見ましょう。
ん〜、会社からスマホを借り出してくるか。
いや、元々持ち出しようということになっていて、次の木曜日にも諸般の都合で
自宅に持ち帰る予定があったりするのですよ。ただ、他の皆さんと違って私は
個人携帯がガラケーなんで、家に持ってきても充電に問題が発生するので、特段
の用がなければなるべく持って帰らないようにしている。

とりあえず、ver.0.21として、ストップウォッチ計測が少しは楽にできるよう
に、終了時のメッセージを出すことと、

> #55 " " &?("%d",o) #m
> ……これを少しだけまとめて……
> #55 &?(" %d",o) #m

この変更を加えてみました。

で、例によって絨毯爆撃。

開始　　　　　　　　　としき　としき　　としき　　としき
番号　増分　めざら版　旧版　　0.20&s有　0.20&s無　0.21版&s有無
    1    1
    1   10
  990   10       15s  2m58s       25s     11s
 1010   10
 1020   10
 1030   10       15s  3m30s       38s     17s
10000   10       17s  3m12s       25s     10s

とりあえず、上記は暫定結果ということで。
ただ、時間がかかりすぎるので、たぶん、としき旧版はもうやらない。
 

> 相変わらずツリーが乱れているようですが、大丈夫でしょうか。

ツリーが乱れたまま過去ログにプッシュアウトされたりすると、ひどいことに
なりそうな気もします。回線に不具合がありそうなら、携帯電話経由なり、
何らかの方法で解決されたほうがよろしいかと。

さて、要素技術のツリーが深くなってしまったので、浅めのところにつけます。
とりあえず、当社比でかなりの高速化が達成できたのでアップします。
とはいえ、いろいろと聞き倒した要素技術のうち、実際に使ったのは検索の
戻り値だけ、というような感じです。


= renum.def(ver. 0.20)
i:初期値       initial num
a:増分         addition
n:新行番号     new num
o:旧行番号     old num
c:旧番検索結果 check count
h:処理中の行   handling line ※論理行番号 ln


N88-BASICのコードは半角大文字が前提（半角小文字はあえて未対応）


*m
1 ^^ "renum.def"
;初期設定                                       ;vwxの常駐確認とか？
    a=10,
    n=o=0,
    mp[=2, ps[=pa, RX[+, Dn[-,
    &s
    &01
    
    #^ #<                                       ;カーソルを先頭行の行頭にして
    &n i=r,                                     ;初期値取得
    (r+1)??{ &m(41) >e }                        ;準備ができていないなら終了
    
    
    ;メインループ
                                                ;先頭行は行番号の変更なし
    :w                                          ;while(次の行に動ければ)
        #> #d                                   ;次の行にカーソルを移動し
        #d (r==-1)?>u                           ;その結果が最終行ならループ脱出
        #<
        h=ln,
        c=0,                                    ;検索結果初期化
        &n o=r,                                 ;旧行番号取得
        n=i+(h-1)*a,                            ;新行番号算出
        
        #55 " " &?("%d",o) #m #r c+=r, #c c+=r, ;旧番存在確認
        &#J(h) #< #t &?("%d",n)                 ;処理している行に戻って新番化
        (c==-2)??{&10}                          ;旧番号存在時のみ置換実施
    
    >w
    :u
    
    ;後処理
    #56 "\([ \t]+\)FTHEN" #m "\1THEN" #m "ay"
    #56 "\([ \t]+\)FELSE" #m "\1ELSE" #m "ay"
    #56 "\([: \t]+\)FGOTO" #m "\1GOTO" #m "ay"
    #56 "\([: \t]+\)FGOSUB" #m "\1GOSUB" #m "ay"
    #56 "\([: \t]+\)FRESTORE" #m "\1RESTORE" #m "ay"
    #56 "\([: \t]+\)FRESUME" #m "\1RESUME" #m "ay"
    
    
    Dn], RX], ps], mp],
    :e ;end
    &d
    .

01:
;最初のチェック
;例えば、全ての論理行が行番号＋半角空白で始まっていることの確認、とか。

.


10:
#56 "\([ \t]+\)THEN\([ \t]+\)" &?("%d",o) "$$" #m
    "\1FTHEN\2" &?("%d",n) #m "ay"
#56 "\([ \t]+\)THEN\([ \t]+\)" &?("%d",o) "\([^0-9]\)" #m
    "\1FTHEN\2" &?("%d",n) "\3" #m "ay"

#56 "\([ \t]+\)ELSE\([ \t]+\)" &?("%d",o) "$$" #m
    "\1FELSE\2" &?("%d",n) #m "ay"
#56 "\([ \t]+\)ELSE\([ \t]+\)" &?("%d",o) "\([^0-9]\)" #m
    "\1FELSE\2" &?("%d",n) "\3" #m "ay"

#56 "\([: \t]+\)GOTO\([ \t]+\)" &?("%d",o) "$$" #m
    "\1FGOTO\2" &?("%d",n) #m "ay"
#56 "\([: \t]+\)GOTO\([ \t]+\)" &?("%d",o) "\([^0-9]\)" #m
    "\1FGOTO\2" &?("%d",n) "\3" #m "ay"

#56 "\([: \t]+\)GOSUB\([ \t]+\)" &?("%d",o) "$$" #m
    "\1FGOSUB\2" &?("%d",n) #m "ay"
#56 "\([: \t]+\)GOSUB\([ \t]+\)" &?("%d",o) "\([^0-9]\)" #m
    "\1FGOSUB\2" &?("%d",n) "\3" #m "ay"

#56 "\([: \t]+\)RESTORE\([ \t]+\)" &?("%d",o) "$$" #m
    "\1FRESTORE\2" &?("%d",n) #m "ay"
#56 "\([: \t]+\)RESTORE\([ \t]+\)" &?("%d",o) "\([^0-9]\)" #m
    "\1FRESTORE\2" &?("%d",n) "\3" #m "ay"

#56 "\([: \t]+\)RESUME\([ \t]+\)" &?("%d",o) "$$" #m
    "\1FRESUME\2" &?("%d",n) #m "ay"
#56 "\([ \t]+\)RESUME\([ \t]+\)" &?("%d",o) "\([^0-9]\)" #m
    "\1FRESUME\2" &?("%d",n) "\3" #m "ay"
    
*

旧バージョンは、とにかく全ての行を変換する、というものでした。
ある意味、わかりやすいロジック。だけど、それが遅くなる根本原因。
なので、必要なところだけ変換するようにしました。
そして、必要なところはどこか、というのを確認するのに検索を使いました。
また、今回は論理行番号を使うコードということもあって、検索後の戻りに
ついても論理行番号を使ってみました。



さて、実際にどのくらい高速化したか測定してみました。
測定に使った行番号変換に使ったBASICプログラムは、自作のオセロのコード。
論理行数約２２０行。
あいにく、ストップウォッチは手元にありません。会社で使っているスマホなら
ストップウォッチがついているのですが、手元のガラケーにはストップウォッチ
の機能がないので、デジタルの時計表示を目で追いかける形。なので、精度に
ついては気にしてはいけない。

まず、めざらさんのマクロ。１５秒から１６秒で完了です。
次、私の旧バージョン。&sを使わないと、概ね３分くらいかかります。
&sを使ったときの速度は測っていませんが、半分にはならない。
そして、私の今回のバージョン。
&sを使わないと３０秒前後。
そして、&sを使うと、やった、１０秒強。

ただ、測定して不思議に思ったこと。
元のBASICは、行番号1000から始まるコードです。
これを、10000から始まるコードに変換することをクリアするのが最初。
これができなければロジックにバグがある。
つぎに、変なバグが紛れ込んでいたらわかるように、990から始まる変換と、
1030から始まる変換を行ってみました。
変換結果はいずれも、めざらさんのマクロと一致したので、あまりにも致命的な
バグはないと思うというか、全く異なるロジックであるにもかかわらず同じ誤り
を犯すというのは考えにくいので、この辺は大丈夫でしょう。
ただ、所要時間の面では面白い結果となりました。
私の作ったマクロでは、なぜか1030から始まる変換だけ遅い。
旧バージョンは、他の変換が３分前後なのに対して２０秒くらい遅いだけなので、
比率ではたいした事はない。
ところが新バージョン。
画面表示を止めないものは、他が２５秒くらいに対して３８秒。
画面表示を止めたものは、他が１０秒くらいに対して１７秒。
ん〜、変換前後の桁数の問題ではないな。
なんか、重複した番号が発生したときに著しく遅くなる、とかありそう。
この辺を解決できて常に一定の速度が出せるアルゴリズムを思いつければ面白い
のだけど、なかなか難しそう。
また、想定外の何か特殊な場合に変換を誤ることもありそう。
これはそういうものにお目にかからないと実際に解決するのは無理そうだけど。