ねこさんの RENSAVE.DEF の再改造です。


昔FGALDCの会議室で改造したんですが、テンポラリエラーが出るようになって、
使わなくなっていました。
今回また必要性が高まったので、見直してバグを見つけました。


> 08064/08074 KFR04247  H.Konno          rensave.def ｖ2.0 にバグ？
> (14)   04/05/06 01:01
> 
> みなさんこんにちは。
> 
> 私は毎日のように rensave.def 2.0（世代管理ｾｰﾌﾞ by ねこ）の
> お世話になっています。（ねこさん、ありがとうございます。)
> これが無いとVZのバージョン管理も出来ないんですが、最近、
> バグと思われる現象に出会いました。
> 
> それは、拡張子が１文字の時に使用すると、ピリオドが消えて、
> ファイル名と拡張子がつながってしまうと言うものです。
> たとえば、
> 
> abc.c のようなファイルを編集し、rensave.def でセーブすると、
> abcc になってしまうんです。オリジナルVZでも、XP、Win98Me、
> LX でもなるので、rensave.def のバグかと思ったわけです。
> 皆さんの所ではどうでしょうか。
> 
> 08066/08074 KFR04247  H.Konno          RE:rensave.def ｖ2.0 にバグ？
> (14)   04/05/12 02:34  08065へのコメント
> 
> >　問題のコードは，
> >        #82 #h #m #82 #u #m                     ;ファイルを読み込む
> >…の部分です。
> 
> 手動でやってみて納得しました。未修正のファイルも修正済みになりますね。
> 
> 最初の (mr-1)?.　というのは、mr が１以外なら終了と言うことですよね。
> とすればこの時点で mr は１になっている？
> と言うことで、この部分をコメントにして見ました。
> 
> ;        #82 #h #m #82 #u #m                     ;ファイルを読み込む
> 
> なんかバグが無くなって正常に動いているように見えます。(^^;
> 
> -- H.Konno --

こんなやり取りをしていたんですが、実はこの部分が重要だったという落ち。
短いので全部張り付けます。


====== rensave.def    世代管理ｾｰﾌﾞ  by ねこ ======
;====== rensave.def 2.0  世代管理ｾｰﾌﾞ by ねこ ======
* m
80 [ESC]F "rename save"
	?. (mr-1)?. ;&s				;Readonlyは除外
	&m("世代管理セーブ")		;メッセージ
	#]					; ★k cp をテキストバッファに
	&s
;;	#82 #h #m #82 #u #m			;ファイルを読み込む
	&Sh(pf,nm) 				;ファイル名コピー
	ax$4e00, cx-, dx=pf, &i($21) n-,	;ファイル検索
	(ax!=$12)?{				;見つかったら
		&Sy(pf)				;ファイル名解析
		&Sc(pr,pf,cx-pf+(r&2/2-1))	;prにコピー
	:A	&Sp(r,".%03d",n)		;連番拡張子付加
		ax$5600,dx=pf,di=pr,
	#M #_ #U				; ★k テンポラリエラー対策
		r[, &i($21) r],			;rename
		(ax==5)?{n++,>A}		;既に有るなら連番増分
		&Sh(pf,pr)			;ファイル名ヒストリにコピー
	}
	&d &m("%sにバックアップ",pf) &s		;メッセージ
	#S #m &d #?				;現テキスト保存
	&m("%sにバックアップしました",pf)		;メッセージ
	#C
*
====== bottom of rensave.def ======


★印が今回の改造部分です。
要は、セーブ前にディスク上のファイルをリネームするのですが
その時点で大きいファイルでは一部しか読み込んでいないため
セーブ時にファイルの追加読み込みをしようとして、ファイルが無い！！
で、テンポラリファイルエラーになるわけです。

これは手動でやっても同じなので、セーブ前にディスク上のファイルを
リネームするときはその前にいったんテキストの最後までジャンプさせる
必要がある、ということでした。


＃ 過去に積み残したお宝が山積みで掘り起こしが大変だぁ〜！！

 rensave.def 大バグがありました。
 ループの中に挿入するなんて、頭がウニになってる。(>_<)
 取り敢えず改造の話は置いておいて
 
 ファンクションコールの返り値AXの値がおかしい？
 
テストのために、オリジナルの rensave.def にAXの表示と &tを追加しました。
&t で止まったら、AXの値を確認して、Enter します。


====== rentest.def ======
;====== rensave.def 2.0  世代管理ｾｰﾌﾞ by ねこ ======

* m
80 [ESC]T "rename save"
	?. (mr-1)?. ;&s				;Readonlyは除外
	&m("世代管理セーブ")		;メッセージ
	&s
;	#M #_ #U 				;★★★ テンポラリエラー対策
	#82 #h #m #82 #u #m			;ファイルを読み込む
	&Sh(pf,nm) 				;ファイル名コピー
	ax$4e00, cx-, dx=pf, &i($21) n-,	;ファイル検索
	&m("%d:4e00  ax=%x bx=%s pr=%s ",n,ax,bx,pr)			;★
	&w(100) &t							;★
	(ax!=$12)?{				;見つかったら
		&Sy(pf)				;ファイル名解析
		&Sc(pr,pf,cx-pf+(r&2/2-1))	;prにコピー
	:A	&Sp(r,".%03d",n)		;連番拡張子付加
		ax$5600,dx=pf,di=pr,
		r[, &i($21) r],			;rename
	&m("%d:5600  ax=%x bx=%s pr=%s ",n,ax,bx,pr)			;★
	&w(100) &t							;★
		(ax==5)?{n++,>A}		;既に有るなら連番増分
		&Sh(pf,pr)			;ファイル名ヒストリにコピー
	}
	&d &m("%sにバックアップ",pf) &s		;メッセージ
	#S #m &d #?				;現テキスト保存
	&m("%sにバックアップしました",pf)		;メッセージ
	&w(100)								;★
	#C
*
====== bottom of rensave.def ======


さて、マクロの実行結果です。 

　ax$4e00, cx-, dx=pf, &i($21) n-,	;ファイル検索

同名ファイル   存在する　　存在しない
-----------------------------------
VTDOS  　　　　 4E00　　　 12
MSDOS Player 　 0　　　　　12
NP2　　　　　　 0　　　　　12
Win7  DOS窓　　 0　　　　　12
Win10 DOS窓　　 0　　　　　12

 ax$4e00のファンクションコールの返り値AXの値は
 VTDOSだけ違っています。


　ax$5600,dx=pf,di=pr, r[, &i($21) r], ;rename

同名ファイル   存在する　　存在しない
-----------------------------------
VTDOS  　　　 5600 or B7?　 5600
MSDOS Player 　 11　　　　　5600
NP2　　　　　　 5　　　　　 12
Win7  DOS窓　　 5　　　　　 FF00
Win10 DOS窓　　 5　　　　　 FF00

 ax$5600のファンクションコールの返り値AXの値は
 DOS窓の値が正しいようで、キチンと動作します。
 
ＶＺではどちらも使用しているので、影響ありそうですね。

補足です。

> Int 21/AH=4Eh - DOS 2+ - FINDFIRST - FIND FIRST MATCHING FILE
> Return:
> AX = error code (02h,03h,12h) (see #01680 at AH=59h/BX=0000h)

> Int 21/AH=56h - DOS 2+ - RENAME - RENAME FILE
> Return:
> AX = error code (02h,03h,05h,11h) (see #01680)

この＃01680 にエラーコードの一覧がありました。

(Table 01680)
Values for DOS extended error code:
---DOS 2.0+ ---
00h (0)   no error
01h (1)   function number invalid
02h (2)   file not found
03h (3)   path not found
04h (4)   too many open files (no handles available)
05h (5)   access denied
06h (6)   invalid handle
07h (7)   memory control block destroyed
08h (8)   insufficient memory
09h (9)   memory block address invalid
0Ah (10)  environment invalid (usually >32K in length)
0Bh (11)  format invalid
0Ch (12)  access code invalid

これだけ分けているということは、違いがあるんでしょうね。
 (11)  format invalid は書式エラーとか？

> ということで、上記の件はすぐには見つけられないので、私の記憶が違ってる
> 場合はよろしくご指摘ください。

konnoさん、間違ってますよ。

そもそも2003年のkVZデビューの時に使ったテストマクロでは

=int.def
*m
80 ^\ "vol"	ax$71a0,&i($21) &m("vol: AX=%04x BX=%04x CF=%02x ",ax,bx,r).
*

実行結果
WinXP		AX=007B BX=0000 CF=01
LX(DOS5)	AX=7100 BX=FF00 CF=00

ということで、純DOSでは、AX$71a0 の返り値が AX7100h で、同じではなかった。
やっぱりAXの値は不定という結論が妥当でしょうか。

アンドックの闇毒は藪の中
つんどくしかないか。

ねこさんの RENSAVE.DEF の再再改造　(^^; 決定版

今までの経緯を踏まえ、AX での判定から CF に変更しました。
これで全ての環境で動作すると思います。


====== rensave.def 2.0  世代管理ｾｰﾌﾞ by ねこ ======

;	konno改 2017-08-31
;	拡張子1文字の時の不具合で改変 %1
;	改変でテンポラリエラーの不具合を対策 #M の位置に注意 %2
;	AX から CF に変更 nn=r 使用 %3

* m
80 [ESC]F "rename save"
	?. (mr-1)?. ;&s			;Readonlyは除外
	&m("世代管理セーブ")		;メッセージ
	&s
;	#82 #h #m #82 #u #m		;ファイルを最後まで読み込む %1
	&Sh(pf,nm) 			;ファイル名コピー
	#M #_ #U 			;ファイルを最後まで読み込む %2
	ax$4ea0, cx-, dx=pf, &i($21) n-,  ;ファイル検索
	nn=r,
;	&m("%d:4ea0  ax=%x bx=%s pf=%s r=%d",n,ax,bx,pf,nn)	;★
;	&w(30) &t .						;★
;	(ax!=$12)?{			;見つかったら
	(nn==0)?{			;見つかったら %3
	    &Sy(pf)			;ファイル名解析
	    &Sc(pr,pf,cx-pf+(r&2/2-1))	;prにコピー
	:A  &Sp(r,".%03d",n)		;連番拡張子付加
	    ax$5600,dx=pf,di=pr,
	    r[, &i($21) nn=r, r],	;rename
;	&m("%d:5600  ax=%x bx=%s pr=%s r=%d",n,ax,bx,pr,nn)	;★
;	&w(30) &t						;★
;	    (ax==5)?{n++,>A}		;既に有るなら連番増分
	    (nn!=0)?{n++,>A}		;既に有るなら連番増分 %3
	    &Sh(pf,pr)			;ファイル名ヒストリにコピー
	}
	&d &m("%sにバックアップ",pf) &s	;メッセージ
	#S #m &d #?			;現テキスト保存
	&m("%sにバックアップしました",pf)  ;メッセージ
	&w(50)				;
	#C
*
====== bottom of rensave.def ======