Yoshihiko Hyodo 6f06b9514a first commit
2024-11-18 22:21:26 +09:00

721 lines
14 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

======== vze.def (v1.6) ========
* Command keys
00 ^Q ^K [ESC] ;Prefix Keys
01 ^[ :Repeat Command
02 ^_ :Kbd Macro
03 [ESC] @X :Escape
04 ^M [CR] :Enter
05 ^E [UP] :Up
06 ^X [DOWN] :Down
07 ^S [<--] :Left
08 ^D [-->] :Right
09 ^A \[<--] :Word Left
10 ^F \[-->] :Word Right
11 ^QS ^[<--] :Top of Line
12 ^QD ^[-->] :End of Line
13 ^V [INS] :Insert Mode
14 ^H [BS] :Backspace
15 ^G [DEL] :Cut char
16 ^QH \[BS] :Cut Word Left
17 ^T \[DEL] :Cut Word Right
18 ^QT ^[BS] :Cut BOL
19 ^QY ^[DEL] :Cut EOL
20 ^U ^[INS] :Char/Str Undo
21 ^I [TAB] :Tab
22 ^P :Control Char
23 ^QU :Word Case
24 ^QI \[F05] :Put Word
25 ^QN :Put File Name
30 ^@ \[INS] :Paging Mode
31 ^W \[RLDN] :Roll Up
32 ^Z \[RLUP] :Roll Down
33 :Roll Up 2
34 :Roll Down 2
35 ^R [RLDN] :Page Up
36 ^C [RLUP] :Page Down
37 ^QW \[UP] :Smooth Up
38 ^QZ \[DOWN] :Smooth Down
39 ^QE ^[UP] :Top of Window
40 ^QX ^[DOWN] :End of Window
41 ^QR ^[RLDN] :Top of File
42 ^QC ^[RLUP] :End of File
43 ^QP :Last Position
44 ^QM :Set Marker
45 ^QJ :Jump to Line
46 ^B [F10] :Mark Block
47 ^Y [F08] :Cut Line/Block
48 ^J [F09] :Paste (Pop)
49 ^KK \[F08] :Copy Line/Block
50 ^KC \[F09] :Paste (Copy)
51 ^KY :Clear Stack
52 ^QB :Block Top/End
53 ^N \[CR] :Insert Line
54 ^QL :Restore Line
55 ^QF [F06] :Set Find String
56 ^QA [F07] :Replace String
57 ^QO :Replace Next
#if 98
58 ^QK \[CLR] :Match ()[]{}<>
#else
58 ^QK :Match ()[]{}<>
#endif
59 ^L [F05] :Get Word
60 ^KG :Read Tag
61 ^KA \[F07] :Put Buffer
62 @W [F02] :Change Window
63 @T [F03] :Pick Text
64 @Y [F04] :Split Window
65 ^KF \[F04] :Border
66 ^KL ^[F06] :Screen Lines ($lc)
67 ^KR :Read Only
68 ^KH :Indent L/R
69 ^KX \[F03] :Compare Texts
70 [ESC]O @O :Open Files
71 [ESC]R @R :Read Files
72 [ESC]N @N :New Files
73 [ESC]C @C :Close
74 [ESC]L @L :Load a File
75 [ESC]S @S :Save as
76 [ESC]A @A :Append to
77 [ESC]Q @Q :Quit
78 [ESC]E @E :Exec Dos
79 \[ESC] :Peek Console
80 ^K^ :Install Macro
81 ^K_ :Print Kbd Macros
82 [ESC]P @P :Path Rename
83 [ESC]W :Write profile
84 ^KT :Set title search string ; ##1.6
88 \[<--] :Select Left ; Filer
89 \[-->] :Select Right ;
90 \[UP] :Select Up ;
91 \[DOWN] :Select Down ;
92 [CLR] :Top/End ;
93 [TAB] :Change Window ;
94 [BS] :Parent Dir ;
95 \[ESC] :Peek Console ; DOS
96 ^W :Alias List ;
97 ^J ^[CR] :Spread ;
98 \[CR] :To Filer ;
* Function key labels
#if 98
"File","Wind","Pick","Split","Gets","Find","Chng","Del","Ins","Block"
"mode","sub"," fc","bordr","puts","multi","puts2","copy","paste","tag"
#else
"File","Wndw","Pick","Split","GetSt","Find","Chng"," Del"," Ins","Block"," Pg","Help",
"mode"," sub","comp","bordr","putst","multi","puts2","copy","paste"," tag"," ext","macro"
#endif
* Text windows
"Open File: <$pd>",40
"Save As: <$pd>",40
"New File: <$pd>",40
"Append to: <$pd>",40
"Path/mask:",40
"Search: <OPT:$po>",40
"Replace:",40
"Put String:",40
"Line:",1
"Rename:",40
"Title String:",30
* System menus
1 "Macro Menu",42,0,24
2 "Alias List",40,0,10,-1
3 "Pick Text",37,0
4 "Range",10,3 "All" "Forward" "Backward"
10 "Macro Menu <$BM/free>",40,0
* Macros
1 "!Open"
(ne=='DE')? ts="*=",
(ne=='NI')? ts="\x ^\0/\0",
; (ne=='TX')?{ we=40, td=1, }
; (ne=='C'||ne=='H'||ne=='CP')?{ ts="/", qk="{}", }
; (ks&1)? &#_(0)
1 "!Edit"
(ct>1)?{ &o(ic). }
(ic=='{')?{ '{' #m &o(9). }
(ic=='}')?{ #s (cd==9)?{ '}' #g #m }?{ #d '}' }
1 "!View"
(ic)?{ (ic!=' '&&ic!='<27>@')? >E (ks&1)? #r ? #c .}
(cm==4)?{ (mb)? >E #C . }
(cm==53)?{ #67 . }
:E ' '
1 "!Timer"
?. (mr!=1)?. (qn<=Qc)?. (mb)?.
(Qw){
&m("Auto save?")
(Qw){ &w(1) &k (r)?{ &m("Cancel") qn-, . } }
}
#S #m #83
; sq[-, #Q 'N'(s)?{ #[ #Q "YN"} sq], #83
2 [F01] "File Menu"
?. !01
3 \[F01] "Mode Menu"
??{ !02 .} (s==1)?{ (vw)? !05 ? !04 }
4 \[F02] "Sub Menu"
?. !03
5 [ESC]M @M "Macro Menu"
!97 (r>=0)?{ !98 (r>=0)? >* >^ }
(r&$FF==15)?{ r=r>>8&$7F, &Zd(r) >^ }
(r&$FF==13)? >88
6 [ESC]D @D "Duplicate"
?. (wt)? >A
(wn==0 || wc==tc)?{ &m(6). }
&s sn[, sn-,
&#Y(0) l=ln, ly[,
#R #P #m mr=$80,
ky], ev[-, &#J(l) ev], #W
sn], &d #Y .
:A (mr<=1)?{ #W (mr<=1)?{ #W . }}
#C (wt)?{ #W &#Y(0) }
7 [ESC]U @U "Undo Edit"
?. #] (mr==1)?{ &a(37) (r<=0)?. }
&s #L (s==4)?'n' #P #m &d
8 [ESC]I @I "Insert File"
?. (mr==$80)?{ &m(36) . }
&m("Insert file at cursor position")
n=wn, c=wc,
#R
:A (s)?{ &c >A }
(wc==c)? >Z
mr=-1,
&s
#W &#T(n)
:B #W &#T(c+1)
#b #_ (ct)?{ #> #m #x }
:C #y (mb)?{ #W #< #i (ek)?? #B #W >C }
#C &#T(n)
#< #i (ek)?? #B
(wc>c)? >B
&d
:Z &m("")
9 [ESC]X "X:close all"
?.
:A #C
:B (s)>?{ >A . . . }
i=wc, &c (wc==i)?. >B
11 [ESC]@ @@ "Instant Macro"
?. &g("Statement:")
(r==-1)?.
&e(pw)
&m("Result: %d %u $%x '%c' $"%16s$"",r,r,r,r,r)
&d
#if 98
12 ^Q[ @[<--] "Left of Window"
#else
12 ^Q[ [HOME] "Left of Window"
#endif
?. &x(0)
#if 98
13 ^Q] @[-->] "Right of Window"
#else
13 ^Q] [END] "Right of Window"
#endif
?. &x(we-2) #?
#if 98
14 [CLR] "View Point"
#else
14 \[HOME] "View Point"
#endif
?. y=wy-1,y/=2,
(ly==y)?{ ky=wy-2, >A }
(ly==1)?{ ky=y, >A }
ky=1,
:A &d #]
15 ^KI "change Tab ($ht)"
?. ht=12-ht, &d
16 ^K0 "Set Marker(1..4)"
?. i=r, &#M(r) (r)?. &m("Mark #%d",i)
17 ^Q0 "Jump to Marker"
?. &#U(r)
18 \[F10] "Tag Jump"
?.
:A #60 (r)?{ #x (r)?. >A }
#x #O #e #m
(s)?{ #[ #[ >A }
19 ^KD "Duplicate Line"
?. #k #i
20 ^KU "Undo Paste"
?. mb=r, #y
21 \[F06] "Multi File"
?. i=wc,
(cm==56)? >R
:S (mp<2)?.
#c (r)??.
#T #T (i--)??.
#^ ky=wy/2, >S
:R #57 #T #T (i--)? >R
22 ^[TAB] "Fix Word"
?. (lx)??.
&s mp[,
(cm)?{ x=lx, i=2, }?{ &x(x) #t i++, }
#a #G #61 ' ' #h (i){ #e } #m #t
mp], #? cm=0,
23 ^KP "PRT++"
?.
(mb==0)? >A
(mb==1)? >B
p="PRT.TMP",
#S &?(p) #m #b
#E "PRT " &?(p) #m
#E "DEL " &?(p) #m #[ .
:A (mr==1)? {#S #m}
#E "PRT " #P #m #[ .
:B n=ln, #B
(n>ln)?{m=ln,n--,}?{m=n,n=ln-1,}
#b (mr==1)? {#S #m}
#E "PRT " #P &?(" /e%d,%d",m,n) #m #[
24 ^L [F05] "Get Right Words"
?.
(cm||mb)?{ #G xx=r, cm=0, . }
&s
#b
cp+=xx, #? &s
:A (ct<2)? >B
a=ct, #d
(ct>=a)? >A
:B &d
xx=cp, #B
xx-=cp, #G
cm=0,
25 ^] "ZENKAKU KAKKO"
(s==3)?.
p="<22>m<EFBFBD>n<EFBFBD>u<EFBFBD>v<EFBFBD>k<EFBFBD>l<EFBFBD>w<EFBFBD>x<EFBFBD>y<EFBFBD>z<EFBFBD>s<EFBFBD>t",
&f(cd,p)
mi-,
(r>=0)?{
(r&1)? #s
&Sf(p,cd)
((r+=4).0)? p=r,
mi+,
}
&?("%4s",p) mi-, #s
26 ^QV "View mode"
am[,
(ro!)?{ am=5, &m("View mode") }
?{ &m("Edit mode") }
am],
27 ^KO "reset Options"
&^ &d #]
28 [ESC]0 ""
#ifn 98
30 [F11] "Paging Mode" #@
30 \[UP] "Fast Roll Up" (-1){ #e (ks&1)??. }
30 \[DOWN] "Fast Roll Down" (-1){ #x (ks&1)??. }
30 ^[HOME] "^Home" #39
30 ^[END] "^End" #40
30 @[DEL] "Cut/copy" (ks&1)? #k ? #y
30 @[INS] "Ins/paste"(ks&1)? #p ? #i
#endif
#if 98
1 [HELP] "Help" &z("helpe") >*
#else
1 [F12] "Help" &z("helpe") >*
#endif
41 ^K^ "Install Macro" &#80(0)
42 ^KZ "toggle ZEN/HAN" &z("zenhan") >*
43 ^KB "Column Block" &z("block") >*
* Pop up menu
1 "",14,14 #70 #73 #75 #72 #71 #74 #76 #82 &06 &07 &08 &09 #78 #77
2 "",22,14,5
"CR Display", Dc
"TAB Display", Dt
"EOF Display", De
"Line Numbers", Dl
"ZEN space",Dj
"Number Mode Line scrn",Dn
"System Info.", Ds
"Underline Csr",Du
"Auto Indent", Ei
"Half Paging Full Half",Eh
"Backup File", Eb
"Right Margin", WE
"Page Length", PG
"Overwrite mode char scrn",Eo
3 "",23,13 #45 #52 #54 #66 #67 &26 &27 #68 &15 #79 #83
"auto Save mode",!06
"$4 EMS Page: $ef/$em"
4 "Seach Option",22,2,4
"Word Search", Ew
"ignore Case", Ec
5 "Seach Option",22,4,4
"Word Search", Ew
"ignore Case", Ec
"ignore ZEN/HAN",ZH
"regular eXpr.",RX
6 "",22,3,4
"delay Time",Qt
"Char count",Qc
"ack Wait Time",Qw
======== help.def (v1.6) ========
(R)
* Macro key
#if 98
1 [HELP] "Help"
#elseif J31
1 [F10] "Help"
#else
1 [F12] "Help"
#endif
(s>1)? >A
(cd=='%')? >D
(cd=='#')?? >A
#d c=cd,
(c>='<' && c<='z')?{ #s i=c-'<', r=pv.i, >C }
&n r[, #s r], (r>=0)? >C
:A (s)>? { !01 !02 !03 !04 }
:B (r>=0 || r==-1 || r==-256)?.
:C (r==1~)?. ; 1 = macro No. of me
!00 (r&$FF)? >B >A
:D mp[, ec[-, ly[,
&s
#b #d #d #G
#c (r)? { ky[, #^ ky], #c }
ly],ec],mp],
&d #]
* Pop up menu
0 "It's ...",36,1,18,-1 #00
1 "Screen Edit",12,8
"Cursor Move",!11
"Roll/Jump",!12
"Line Edit",!13
"Block",!14
"String",!15
"File/Window",!16
"Macro",!17
"Else",!18
2 "Text Window",12,2
"Cursor Move",!19
"Line Edit",!13
3 "Command Line",12,3
"Cursor Move",!19
"Line Edit",!13
"Else",!20
4 "Filer",36,11,18,-1
#05 #06 #07 #08 #88 #89 #90 #91 #92 #93 #94
11 "",36,13,18,-1
#05 #06 #07 #08 #09 #10 #11 #12 &12 &13 #39 #40 &14
12 "",36,17,18,-1
#30 #31 #32 #33 #34 #35 #36 #37 #38 #41 #42 #43 #44 #45 &16 &17 &18
13 "",36,14,18,-1
#13 #14 #15 #16 #17 #18 #19 #20 #21 #22 #23 #24 #25 &42
14 "",36,10,18,-1
#46 #47 #48 #49 #50 &19 &20 #51 #52 &43
15 "",36,9,18,-1
#55 #56 #57 #58 #59 #60 #61 &21 &22
16 "",36,17,18,-1
#70 #71 #72 #73 #74 #75 #76 #77 &06 &07 &08 &09 #82 #62 #63 #64 #65
17 "",36,6,18,-1
#02 #81 &05 &10 &11 &88
18 "",36,12,18,-1
#01 #04 #53 #54 &15 #66 #67 #68 #69 #78 #79 #80
19 "",36,8,18,-1
"History Up",#05
"History Down",#06
#07 #08 #09 #10 #11 #12
20 "",36,6,18,-1
"Edit",#03
"DOS Command",#04
#95 #96 #97 #98
;======== End of helpe.def ========
======== moremac2.def (v1.6) ========
* Macros
88 ^KM \[F11] "External Macro"
?.
!01 (r<0)?. (r)?? >>
&Sf(pm,9) (r)??. &Ss(r) (r.0)??.
p=r, &Zs(p) (r)?? &z(p) >*
10 [ESC]^ "Load Macro file"
?. p=pr, &Sp(p,"%s*.def",pi)
:F &Fl(p) &Cr fg.1=1,
(r)?{ &g("Macro file:",40) (r==-2)? >F (r<0)?. p=pw, (0)}
? &Fg(p)
&z(p) >*
;1 "!Abort"
; &m(r) &b(5) /
* Pop up menus
1 "",20,6
"Filer select"
"1 TOOL tool"
"2 Column Block block"
"3 KEISEN keisen"
"4 toggle ZEN/HAN zenhan"
"5 GAME game"
;*
;======== End of moremac2.def ========
* Options
Bt64 ;size of text buffer (16..64KB)
;Bq0 <09><>1.6 N/A
Bf64 ;size of dos reserve (KB)
Bo32 ;size of console buffer (0..32KB)
;GV0 <09><>1.6 N/A
EM ;allocate EMS pages (EM1:all)
XM0 ;allocate XMS KB (XM1:all) ##1.6
SW3 ;swap mode
;(0=OFF, 1=text, 2=text&code, 3=TSR 3.8KB)
RM0 ;Mask EMS/XMS Realloc (+1:EMS, +2:XMS) ##1.6
Bm8192 ;macro buffer free
Ba0 ;alias buffer free
Hs256 ;string history free
Hf256 ;file history free
Hx128 ;DOS command history free
Bl2048 ;size of line buffer (256..(Bt*1024/8))
Bc1024 ;size of delete char buffer
Bu64 ;size of user work area
Bv1024 ;size of Log info. table ##1.6
TC10 ;max open files
WD80 ;field width (2..250, 0=screen width)
PG0 ;page length
RS3 ;smooth scroll speed (0..4)
Ta8 ;TAB columns
Tb4 ;.C .H TAB columns
Ci4 ;cursor type (insert) (0..15)
Co6 ;cursor type (overwrite)
WL0 ;pop-up window location (0..15)
#if 98
LC- ;line mode
#elseif DOSV
LC ;Line count in editor
VM0 ;Video Mode in editor
#endif
#if 98
An7 ;text attr
Ac5 ;control char #1
Al5 ;line numbers
Ah13 ;block
As15 ;status bar
Ao14 ;status bar(console)
Ar13 ;status bar(RO)
Am6 ;message
Ab5 ;menu border
At5 ;menu title
Aw7 ;menu text
Af6 ;first letter
Ai15 ;selection bar
Aj6 ;help menu
Ak6 ;2-stroke key
Ag1 ;filer background
Au6 ;filer cursor
Ae1 ;control char #2 ##1.6
Ay0 ;path name ##1.6
#else
An$1F
Ac$13
Al$1A
Ah$B0
As$70
Ao$E0
Ar$30
Am$0E
Ab$70
At$70
Aw$70
Af$74
Ai$0F
Aj$74
Ak$0E
Au$4F
Ap$70
Ad$07
Av$80
Ae$12
Ay0
#endif
CA4+16+32 ;control attr table ##1.6
Dl- ;disp line number
Dc+ ;disp CR
Dt- ;disp TAB
De+ ;disp EOF
Ds- ;disp system info.
Db- ;back slash char
Dn- ;line number mode
Du- ;under line
Df- ;full path
Dp+ ;path name lower
Dh- ;path name left
Dg+ ;disp JIS83 KEI(98)
;suppress status bar flicking (DOS/V)
Dr+ ;disp Right Margin ##1.6
Dj- ;disp ZEN space ##1.6
#if 98
Dv- ;smooth scroll attr ##1.6
#else
Dv+
#endif
Ei+ ;auto indent
Es+ ;smooth scroll by ^QE,^QX
Ez+ ;add EOF
Eb- ;make backup
Eu- ;convert TAB to SPC
Et+ ;title search
Eh- ;half paging
Ew- ;word search
Ec- ;ignore upr/lwr case
Ex- ;warn text stack full
En- ;cursor left of EOL
Ev- ;V-center after jump
Ek- ;jump to pasted block
Ea- ;auto right margin by .nnn
RO- ;open in view mode
Ej- ;indent 2byte space
Eo- ;overwrite mode ##1.6
RX- ;regular eXpression ##1.6
ZH- ;ignore ZEN/HAN ##1.6
Sx+ ;keep console output
Se+ ;skip ESC sequence
Sd+ ;expand command line alias
Sk- ;clear text stack before exec
Sy+ ;Y/N by [Enter]/[Space]
Sn+ ;ask new file
Sq- ;quick exit
Sz- ;reset options before exit ##1.6
FP+ ;control FEP
FR- ;raise FEP
FK+ ;function key mode(98)/keyboard type(IBM)
Sr5 ;profile mode ##1.6
Qt0 ;auto save delay time ##1.6
Qc40 ;auto save char count ##1.6
Qw100 ;auto save ack. wait time ##1.6
* Alias
cat type
ls dir %-w %1
sd symdeb
rene ren %1 %<.%2
fca fc %1 %2%\%>
fcb fc /b %1 %2%\%>
sete set %1=%%1%
test1 echo %: ; echo %& ; echo %.
test2 echo %wd% %%a %1 %%1% %%a%
* History
:string
include define static extern typedef struct switch default return
:file
\config.sys \autoexec.bat
* Else
1 vzfle
2 editfile
3 .doc .txt .bat .def .H .C .CPP .inc .asm .nif .mix
#if 98
5 0<><30>,<2C><>.<2E><>1<EFBFBD>s2<73><32>3<EFBFBD>t4<74><34>5<EFBFBD><35>6<EFBFBD><36>7<EFBFBD>w8<77><38>9<EFBFBD>x=<3D>V+<2B><>*<2A><>-<2D>y/<2F>z
6 0<><30>,<2C><>.<2E><>1<EFBFBD><31>2<EFBFBD><32>3<EFBFBD><33>4<EFBFBD><34>5<EFBFBD><35>6<EFBFBD><36>7<EFBFBD><37>8<EFBFBD><38>9<EFBFBD><39>=<3D><>+<2B><>*<2A><>
#endif
7 */; <0C><>
8 $6$pd>
9 .com .exe .dic .obj .lib .lzh
; <20><> <20><> <20><> <20><> <20><> <20><> | | <20><> <20><> <20><>
#if 98
10 "$(95,96,9C,9D,9E,9F,88,97,1C,1F,1D)"
#elseifn 98 US
10 "$(06,05,01,02,03,04,05,05,1E,1B,1F)"
#endif
;11 <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʷ<EFBFBD><CAB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׾<EFBFBD><D7BE>Ķ<EFBFBD><C4B6>û<EFBFBD><C3BB>߰<EFBFBD><DFB0><EFBFBD><EFBFBD><EFBFBD>̱<EFBFBD><CCB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
#ifn 98 J31
12 "$(00,08,02,0B,04,05,06,07,38,09,3A,3B,3C,3D,3E,3F)"
#endif
;======== End of vze.def ========