== fl ==
*m
1 "" "$[2000]"
======== Fl.def        !Filer event ======== by miyata

* M

01  "!Filer"
	(r)??{
		r=mg.-9, &j(0) (fr)? mg.-9=r, fr+, ;fep off	;m.gann
		(fg.1)?? &Sc(fl+130,fl+34)	;fl_lastpath	;m.gann
;		(wm)??{ss3, #[ #95 #X &d #98}
		(fg.)??{#W #93} >02		;2window	;mikome
	}
	e=vp..-7-, r[,				;init mask	;m.gann
	&e("#]") #]				;off event	;tomo
	(r]<32)? r+=96,				;^PA -> 'a'	;m.gann
	(r)>!{
		A	>A			;[A] attr	;#A
		B	>B			;[B] bk_mask
		C	>C			;[C] copy
		D	>D			;[D] delete	;#D
		E	#E			;[E] e_menu	;#E
		F	(e"imask")		;[F] imask
		G	>G			;[G] grep
		H	>H			;[H] shell	;#H
		I	(e"finfo")		;[I] info
		J	(e"jmenu")		;[J] jump
		K	>K			;[K] mkdir	;#K
		L	>L			;[L] logdsk	;#L
		M	>M			;[M] move
		N	>N			;[N] open
		O	#O			;[O] compare	;#O
		P	(e"pack")		;[P] pack
		Q	>Q			;[Q] quit
		R	>R			;[R] rename	;#R
		S	>S			;[S] dsort
		T	(e"touch")		;[T] touch
		U	>U			;[U] unpack/ud
		V	>V			;[V] view
		W	(e"dirwrite")		;[W] write
		X	>X			;[X] exec	;#!
		Y	(e"isearch")		;[Y] isearch
		Z	>Z			;[Z] mcr_menu
	
		@	>@			;[@] vzpath	;#Q
		-	>P			;[-] path/mask	;#P
		=	>m			;[=] mask 	;#M	;^+'-'
		^	>z			;[^] loadmcr
		_	(e"hview")		;[_] hview
		[	>[			;[[] pick full
 		]	>]			;[]] pick name
		(';')	>l			;[;] ml_mask
		:	>:			;[:] *.*	;#*
		,	>r			;[,] retCD	;#<
		.	>t			;[.] trCD	;#>
;		<	(e"")			;[<] 			;^+','
;		('>')	(e"")			;[>] 			;^+'.'
;		?	(e"")			;[?] 			;^+'/'
	
		g	>g			;^PG capital
		m	>m			;^PM mask	;#M
		n	>n			;^PN new	;#N
		s	#S			;^PS sort	;#S
		v	>v			;^PV view_p	;#V
		w	>w			;^PW window	;#W
;		('{')	(e"")			;^P[ 
;		('}')	(e"")			;^P] 
	
;		(#v)	#+			;[INS]all	;#+
;		(#g)	#-			;[DEL]cancel	;#-
;		*	#*			;[*] *.*	;#*
;		\,/	#/			;[\][/] root	;#/
;		+	#U			;[+] reread	;#U
	}
	(dd=e)?>87				;out_macro?
	>02
	
:K	#K a1, &73 &j(0) >02			;[K] mkdir
:A	(fl..5)?{&Fi &82 &79} #A >a		;[A] attr(mark)	;ikuo
:L	#L >a					;[L] logdsk
:@	#Q >a					;[@] vzpath
:m	#M >a					;[=] mask
:P	#P					;[-] path/mask
 :p	&p (r-#m)?{&o(r) (s-1)?>02 >p} #m
 :a	a4, &73 >02
	
:r	#< >02					;[,] retCD
:t	#> #H #m #98 >02			;[.] trCD
::	((fl..6)[, #* fl..6=0], &79 >02		;[:] *.*
:v	#V >02					;^PV vpos
:w	#W >02					;^PW window
:g	dp!, &76 >02				;^PG capital
:z	&75 &77 &So(dd=pr,".def") (r)?>87 >02	;[^] loadmcr	;m.gann
	

:Z			;24			;[Z] mcr menu	;wanama
	!13 (r<0)?>02				;[ESC]
	dd2+pm, >87

:C			;57			;[C] Copy
	&60 ? pm"%^Zcopy %@1 %2 %[/s] /u",
	    ? pm"%^Copy %1 %2%\",		;same? rencp
	>72

:M			;69			;[M] Move
	&60 ? pm"%^Zcopy %@1 %2 %[/s] /m",
	    ? pm"%^Zcopy %@1 %TMP% %[/s] /m",	;same? →tmp
	>72

:D			;87			;[D] Delete
	&b(3) &77
	(r&16)?{pm"%^Zcopy %1 /s /del", >72}	;dir?
	((fl..7)[, #D a4, &73
	(fl..7-0])?{&60 ?? &76} >02

:U			;144			;[U] Unpack
	&77 (r&16)?{				;dir?
		&Sy(pr)
		&Sp(pa,"%%^Ud -rv %%1 %%2%%\%s",bx)
		pm=pa, >72
	}
	pm"%^Ish %1",
	e"LZH", &70 ? pm"%^Lhe x -n1 %1 %2%\",
	e"BDF", &70 ? pm"%^Bupdate %1",
	>72

:S			;54			;[S] Dsort
	&74
	pm"%^Dsort -ne +g %:", #!
	ux+, (fl.37)? #h ux-,			;del '\'	;(fl+34).3
	#< #f #f.

:H			;18			;[H] Shell
	&74
	pm" ", #! #x >66

:X			;142			;[X] Exec
	&74
	pm"%1", #! &77
	e"GIF", &70 ?>j
	e"BMP", &70 ?>j
	e"JPG", &70 ?>j
	e"COM", &70 ?>x
	e"EXE", &70 ?>x
	e"BAT", &70 ?>x
	#< ' ' #s
 :x	(r)? ' ' >66
 :j	#< "Wmulti " #> #a #s #16 '*' >66

:R			;56			;[R] Rename
	&75					;end/mark?
	#R #x
	vp.5-=1, an[15, #e an],
	vp.5+=1, #< a1, &73
	&j(0) &79 >02

:Q			;74			;[Q] Quit
	&a("%s で終了します",fl+34)
	(r<0)?>02 (r)? #>			;[Yes]? trDir
	a2, (wa)? a0,
 :q	#[ (s-a)?>q
	(s)? #m.

:G			;165			;[G] Grep
	&74
	pw[=ps, &g("Str:",40)
	r[, a1, &73 (0<=r])?{
		pm"Ygrep -ijMt) %@",		;normal
		&77 &So(pr,"lzh")
		(r&&fl..5<1)? pm"Wgrep -i -jf -t %@",	;.lzh
		#! c' ', &78			;str pos
		mi[-, &?(" $"%s$"",ps) mi], #m	;prt str
		a2, &73 &80			;cmd_line
	}
	pw],.

:N			;212			;[N] Open
	&Se(pr,"FD1") (pr.0==fl.34)?>n		;(fl.34=='e')?>n
	#N
 :o	&p (r==#[)?>e				;[ESC]
	(r-#m)?{
		(r-#x||lx||ct>1)?{&o(r) >o}
		dd"fmenu", &87 >o		;[↓]fmenu
	}
	#> (lx)??{:e #[ >02}			;[CR]
	sn[=fl.33,				;cur_dir? sn-,
	ux-, #H #[ #[ (s>1)? #[ ? #O #u #m	;get fname & ret fnamebox
	(s>3)?{					;ask new?
		'N' #m				;ret filer
		#N &Sy(pf) &?("%s",bx) #m	;make new file
		#m (cp-2||ct)?? &m("New")	;brandnew?
	}
	sn],.

:n			;13			;^PN New
	#N a1, &73 >02

:V			;120			;[V] view
	ro[+,
	(fl..5)?{				;mark?
		&Sc(pr,fl+34)			;ignore mark	;ikuo
		(pr.3)? &Sc(r,0"\")		;not root?
		pr[=r, #R #[ pr],		;path名に続ける
		#[ (s==2)?{(wa)? #[ ? #95 #O}
		&Sh(pf,pr) #e
	}
	#m (s)??{&s #X #X &d}
	ro],.

:B			;88			;[B] Bk_mask	;emmett+ikuo
	&75					;end/mark?
	#R #[					;pr←fname
	(fl.98=='*')? &Sc(fl+98,pr)
	&Sy(fl+98) (r&1)? cx=si-3,		;(r&2)?? :non ext
	cx..='*', #U				;add '*'
	pf[=pr, #N #e #m pf],.

:l			;134			;[;] Ml_mask	;m.gann
	&b(2) e=x=fg..19-,			;fg..19 :maskbit
 :h	&m("Ml_mask%s",e)
	&p (s-3||r>$FF)?{(r-#[)? &o(r) >02}	;chg mode/cmd key?
	(r=='.')?{e"(ext)", >h}			;'.':ext mask
	pf[=pa, #P
	(x)? #e (e)? '*.' &o(x=r) '* ' #m
	pf], >h

:[			;114			;[[] Pick full
	&74 f=fl..0..5,				;target mark
	(fl..5||f)?{				;mark?		;wanama
		(f)? #93 pm"%F%@",		;ターゲットのマーク優先
		fl.33[+, #! #[ fl.33=0], #-	;cur_dir でもフルパス
		   ?? #93
		&76 &79 pr"* files",
	(0)}?{
		&77 #P &?(pr) #H #[
	}
	>\

:]			;102			;[]] Pickname/markjump	;m.gann
	&74
	(fl..5)?{				;mark?
		&Fn r[, &> (r..1-105||r]!)? &Fi	;初回／終回時は先頭ファイルへ
		&82 &79 &> r..1=fg..1, >02	;fg..1 :fllastcmd
	}
	&74 #R #H #[
 :\	&m("Pick %s",pr).
00:	($)...					;keep fg..1


;--- filer message ---

02  "Mes"		;113
	(s-3)?.
;	(pn.-15==2)?.				;on message?
	(wa)?{
		&Sc(pa,wa+$92)
		(wb)?{&Sp(pr,"  /  %s",wb+$92) &Sa(pa,pr)}
		&m("%s",pa)
	(0)}?{
		am[7, &m("") am], &d
	}


;--- local ---		;253
	
60:	&Sx(fl+34,fl..0+34) (r)			;same dir?	;morohashi
	
66:	cm78, a1, &73				;input & exec
;#ifn s16
;:B	(s==1)?{&p &u(r) &o(r) >B}		;to upper	;not use 1.6s
;#endif
	a2, &73 >80				;cmd line
	
70:	&So(pr,e) (r)				;search ext
71:	(s-3)? &q				;s=3 only
72:	#! a1, >>				;exec box
73:	(s-a)?. &c >^				;keep on
74:	(fl..6+2>fl..7)? #e			;end?		;m.gann
75:	(fl..6+2>fl..7||fl..5)? &q		;end/mark?	;m.gann
76:	(2){#U #93}				;reread
77:	&Fi &Fg(pr,1) (r)			;pr←fname (r&16)? :dir
78:	#s (lx&&cd-c)?>^			;'c'←
79:	fv^=4, #V				;再表示		;m.gann
80:	#98 (s)?. #O #m				;ret filer
82:	&Fg(pn..-38,1)				;set pathbuf


* P

13	"Macros",12,6
	"A fl_atr"
	"I isearch"
	"M markmask"
	"S hand_s"
	"R restmark"
	"Z zmenu"

*
======== end of fl.def ========