;cpfilenm.as	copy file name to clipboard
#include "hspext.as"
	sdim s,261
	sdim t,261
	sdim v,261
	s=cmdline
	gosub *l_path2lfn
	clipset t
end

;------------------------------------------------------------------------------
;フルパスをlfnに変換
;入力：s(要261バイト)
;出力：t(要261バイト)
;破壊：l,m,p,q,v(要261バイト)
;------------------------------------------------------------------------------
*l_path2lfn
	if s=="": t="": return
	instr p,s,"\\"
	if p<0 { t=s: return }		;「\」がなければ「ドライブ名:」とみなす
	strmid t,s,0,p
	strlen l,s
	repeat
		t+="\\"
		p++: if p>=l: break		;最後が「\」のとき
		repeat
			peek c,s,p: if c=='\': break
			if (c>$7F)&(c<$A0)|(c>$DF): p++
			p++: if p>=l: p=l: break
		loop
		strmid v,s,0,p
		dirlist v,v: strlen m,v: strmid v,v,0,m-2
		t+=v
		if p>=l: break			;最後が「\」でないとき
	loop
return