-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path_mint
1949 lines (1753 loc) · 62.6 KB
/
_mint
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
# mint 定義ファイル
# mint システム変数 [ 動作制御 ]
%exmd 0 ファイル内容/拡張子判別実行の順番 [0]:ファイル内容 -> 拡張子
# 1 :拡張子 -> ファイル内容
%adds 1 RL-complete での確定時 '\' '/' ' ' 付加 0 :しない [1]:付加する
%same 1 同名のファイルが存在した場合のデフォルトカーソル位置(0～6[1]:OURNA_C)
%esc! 1 エスケープがメタキーとして動作する 0 :しない [1]:する
%opt! 0 &describe-key のホットキー [0]:しない 1/2:OPT.1/2
%unix 1 UNIX ライクな shell で使うか [0]:COMMAND.X 系シェル
# 1 :UNIX 系シェル
# 2 : 〃 '\' をエスケープに.
%nmcp 0 マークなし操作を行うか 0 :しない [1]:する
%joys 0 ジョイスティックを使用する [0]:しない 1～:する
%fumd 2 &ext-exec-or-chdir 実行後カーソルを下に移動 0 :しない [1]:する
# 2 :する(mintarc 対応)
%mdmd 1 &md、&make-dir-and-move で作成ディレクトリが一個だけだった場合に
# そのディレクトリに移動するか 0 :しない [1]:する
%hspd 16 上下高速化発生までの行数 0 :未使用 1～65535[7]
%hspw 1 上下高速スクロール時のウエイト 0～65535 [4]
%hsp! 64 上下超高速スクロール開始行 %hspd+1～65535 [100]
%sp_y 0 [Yes/No RETURN/ESC] 選択時にスペースでも [Y] 相当の働きをするか
# [0]:しない 1 :する
%del! 0 デリート時、削除不可能属性で確認する [0]:する 1 :しない
%exit 1 終了時のテキスト画面初期化 [0]:する 1 :しない
#%down 300 スクリーンセーバ初動までの秒数 [0]:未使用 1～65535
%down 0
%cont 0 スクリーンセーバ作動中CRTコントラスト 0～15 [6]
%crt! 0 %down 後専用 CRT 電源カットまでの秒数 0 :未使用 1～65535[3600]
%dirs 1024 ディレクトリ表示最大数定義(１個に付き 72 バイト消費)
# 128～65533 [1024]
%oren 1 マークがある時、単独ファイル編集からでも自動的に一括編集モードに入るか
# 0 :しない [1]:する
%case 0 &i-search で大文字小文字区別 [0]:しない 1 :する
# ver3.00 で追加 -> 2 :TwentyOne の設定に従う
%prfl 0 前回終了時のパスから起動 [0]:する 1 :しない
%lrgp 1 逆向き(壁向き)左右で親ディレクトリに 0 :戻らない [1]:戻る
%fuzy 0 ファイルコンペアで同サイズとみなすバイト数 0～65535[4]
%fcmp 510 ファイル内容判別実行時の読み込み量 256～4096[512](byte)
# ver3.00 で追加
%scrl 1 上端/下端での &cursor-up/down のスクロール行数 [1]～(%dirh-2)
%mesl 0xffff &print 表示座標 0～29 [0xffff]:自動調整
%hisc 0x41 &path-history-menu 最初の選択文字 [0x30]
%hist 4096 コマンドヒストリ容量(バイト数) 0～65535[4096]
# ver3.06 で追加
%his2 1 パスヒストリを左右で別々にする [0]:しない 1 :する
# mint システム変数 [ 画面表示 ]
%winf 3 ディレクトリエントリの表示モード
# [0]:DIR 準拠
# 1 :ls mode 1
# 2 :ls mode 2
# 3 :DIR 風(長い拡張子を右寄せ、ver3.00 で追加)
# 4 :DIR 風(拡張子を右寄せしない、ver3.10 で追加)
%agmd 0 自動画面モード制御機能を切るか [0]:切る 1 :切らない
%cals 0 右上カレンダーのスタイル 0 :1995-01-29 Sun. 01:59:00
# (%cals 0の時上位バイトで区切り記号) [1]:Sun Jun 29 01:59 1995 JST
# 2 :デバッグ用ステータス
%cclr 1 外部コマンド実行毎に下部・仮想コンソールをクリアするか
# 0 :する [1]:しない
%curm 0 行入力時にカーソルを '_' にするか [0]:しない 1 :する
%fnmd 1 mint がファンクションを表示する 0 :しない [1]:する
%menu 0 環境変数 'MINTMES' のバーを表示 [0]:しない 1 :する
%dz_y 3 &drive(ドライブ選択)の Y 座標指定 0～28[3]
%kz_x 0xffff &input の X 座標指定 0～16[8] 0xffff:中央
%kz_y 8 &input の Y 座標指定 0～28[8]
%winn 0 左右カーソルで window をページング [0]:する 1 :しない
%wino 0xffff 左右カーソルで動く window を出す場所 0～64 [0xffff] 従来通り
%wcl1 0x903e 影付きウインドウの影の色 RGB(0x9,0xa,0xa)
%cplp 0 カレントパス等の行の表示 [0]:しない 1 :する
%code 0 i :左下終了コードの表示 0 :しない [1]:する
# ii:%cplp 0 の場合 1～65535(1/100sec)
# 指定以上の秒数がかかるか、@ex != 0 で表示
%6502 0 左上 MPU POWER 表示 0 :しない
# [1]:する(X68030 はキャッシュ状態) 2 :右下に表示(X68030 のみ)
# 3 :PhantomX SoC温度表示(v4.0.0 で追加)
%6809 1 右下各種割り込みチェックの表示 0 :しない
# 1～7[6]:割り込みオン時パレット
%dirh 22 mint 表示行数 3～24 [17]
%gyou 0 現在のカーソル行数を表示 [0]:する 1 :しない
%drvv 1 &change-drive 時ボリュームラベルを [0]:表示しない 1 :する
%zdrv 1 ドライブ名表示 [0]:半角大文字 1 :全角
# 2 :半角小文字 3 :SYSROOT 除去
%f_1k 1 ファイル容量表示 [0]:すべて１バイト単位
# 1 :大きなものは MB 単位
%finf 1 残り容量表示するか 0 :しない [1]:する
# 2 :デバイスタイプのみ
#%infA 0 ドライブ別デバイスインフォメーション
#%infB 0 %infA～%infZ 迄で各々のドライブに対応 [0]:%finf の内容に準ずる
#%infC 0 1 :%finf に関係なく非表示
#%infD 0
#%infE 0
#%infF 0
#%infG 0
#%infY 0
#%infZ 0
# ver3.00 で変更
%moct 10 メディア状態検査間隔(1/100秒単位) 1～65535[10] 0:auto reload を使用しない
%wind 0 重厚なウインドウにするか 0 :以前通り [1]:重厚
# 2 :強重
# ver3.00 で追加
%datc 5 データキャッシュ ON 時のパレット 1～7[5]
%intc 6 命令キャッシュ ON 時のパレット 1～7[6]
%volp 0 ボリュームラベルのピリオドを削除するか [0]:しない 1 :する
%regw 32 登録メニューの横幅(偶数のみ) 8～56[32]
# ver3.10 で追加
%dtmo 1 デバイスタイプ MO のフォーマット表示 [0]:しない([ MO ])
# 1 :する([H68K]/[IBM ]/[sIBM])
# mint システム変数 [ 表示色設定 / パレットイルミネーション ]
%dotn 0x8001 ドットファイルを表示するか 0 :しない [1]:する
# +0x8000:".." を表示しない
%cpcl 2 画面三行目のパス(マスク)表示パレット [1]～3
%dicl 2 ファイル容量表示基幹部分パレット [1]～3
%cbcl 2 メインカーソルのパレット(+16 で点線) 1～3[2]
%tc_1 13 タイトルバーパレット 0～15[14]
%tc_3 9 現在パス表示行のパレット 0～15[15]
%tc_4 1 $MINTMES 表示行パレット 0～15[7]
%cusr 0 メニュー選択時のカーソル(+16 で点線) 0 :白反転 1～3[2]:下線
%kpal 0 パレットイルミネーション使用 0 :しない [1]:する
%col0 0 カラーパレット 0 [0] (&palet0-set、&gvram-text-blend-on 時に使う)
%col1 0 〃 1 [0xfff6]
%col2 0 〃 2 [0xab7e]
%col3 0 〃 3 [0xf73e]
# (%col1～3 は 0 でシステム既定値を使用)
%xrcl 3 *.X 及び *.R 1 %col1(水色)
%excl 2 実行属性ファイル 2 %col2(黄色)
%lnkc 1 リンクファイル 3 %col3(白)
%dlnc 1 ディレクトリリンク +16 強調
%dirc 3 ディレクトリ表示色 +32 反転
%sysc 2 システムファイル +64 下線
%hidc 1 隠しファイル
%redc 2 読込専用ファイル
%sysn 1 システム属性の表示 0 :しない [1]:する
%hidn 1 不可視属性の表示 〃
# ver3.00 で追加
%macl 1 マーク情報表示基幹部分パレット 0～3[1]
%obcl 0x13 反対側カーソルのパレット(+16 で点線) [0]～3
%vocl 0x8043 画面二行目のボリュームラベル表示パレット 1～[3]
# ver3.08 で追加 -> +0x8000:書庫ファイル名を表示
# mint システム変数 [ mintarc ]
%arcr 1 mintarc での info 行の圧縮率表示 [0]:圧縮率 1 :圧縮後のサイズ比
%arc! 0 アーカイブへの書き込み [0]:確認して書き込み
# 1 :不許可 2 :無確認で書き込み
%ache 1 mintarc で展開したファイルを毎回削除 [0]:する 1 :しない
%lzhw 0 LZH 展開時のワイルドカード [0]:'*' 1 :'*.*'
%tarw 0 TAR 〃 ver3.00 で追加 -> 2 :付けない
%zipw 0 ZIP 〃
%arcw 0 '*' 指定時、'\' を [0]:付けない 1 :付ける
# ver3.00 で追加
%achr 0 ファイルを改変したのにアーカイブへ書き込まなかった場合、
# 展開したファイルを削除するか [0]:しない 1 :する
# mint システム変数 [ グラフィック / &gvon ]
%sqms 0 gm 常駐時に、gm -d 状態でも 64K 色閲覧時のスクエアでオートマスクを
# 発行するか [0]:しない 1 :する
%gmd2 2 &gvon を &quit-with-zoomed/original で終了した場合の輝度
# 0 :全輝度 1 :非表示 [2]:半輝度
%spmd 1 64K 色 &gvon/-g[n] 等でのスペース抜けで疑似半輝度にし
# 実際には輝度を落さないか 0 :落とす [1]:疑似半輝度
%gsph 10 &gvon 高速スクロール時のスピード 0 :最低～ 8 :2倍～ 65535 :最高 [32]
%gspl 40 &gvon 低速スクロール時のスピード 0 :最低～ 8 :2倍～ 65535 :最高 [ 8]
%grm! 0 GVRAM 強制使用 [0]:しない 1 :する
# ver3.00 で追加
%gton 0xffff 半輝度終了時に設定する実際の輝度 0～64～127 [0xffff] 従来通り
# mint システム変数 [ &look-file ]
%ivss 1 サーチ時の文字列を毎回初期化 [0]:する 1 :しない
%vcct 0 テキスト表示中の制御記号表記 [0]:半角 1:^X
%vccp 1 キャラクタダンプ表示中の制御記号表記 [0]:'.' 1:半角(TAB,CR,LFは'.')
%veof 1 [EOF] を表示 0 :しない [1]:する
%vret 0 改行を表示 〃
%tabc 0 タブ表示 〃
%vfun 1 ファンクション表示 〃
%vras 0 エントリラスター [0]:しない 1 :する
%tabw 8 通常のタブ数指定 4 [8]
%ctbw 8 タブ数指定(拡張子が.c.h) [4] 8
%vfst 1 通常スクロール速度選択 0 :低速～ 2 :高速
%scrs 2 高速時スクロール速度 0 :遅い～[4]:速い
# 表示属性 bit 6:下線,bit 5:反転,bit 4:強調,bit 3～0:色(通常は 0～3 までが望ましい)
%lnum 1 行数表示 0 :表示しない
%dnum 1 ダンプオフセット表示 0 :表示しない
%vbar 1 テキスト分離縦棒
%vcol 1 下段インフォメーション行
%vssc 1 サーチマッチキャラクタパレット
# エスケープシーケンス表示色
%vcl0 RGB(0x04,0x04,0x04) "黒" [0x0001]
%vcl1 RGB(0x1f,0x1f,0x1f) "白" [0xffff]
%vcl2 RGB(0x1f,0x10,0x18) "赤" [0x07c1]
%vcl3 RGB(0x15,0x1f,0x1f) "水" [0xf83f]
%vcl4 RGB(0x10,0x1f,0x18) "緑" [0xf801]
%vcl5 RGB(0x1f,0x11,0x1f) "紫" [0x07ff]
%vcl6 RGB(0x1f,0x1f,0x11) "黄" [0xffc1]
%vcl7 RGB(0x10,0x18,0x1f) "青" [0x003f]
# ver3.00 で追加
%vsec 0x33 シークレット属性の表示属性 [0]
%vexl 14 &look-file から >V_EXEC が実行された時に $MINTVLINE に
# 与えられる行番号は最上列から何行目か [0]
# mint システム変数 [ 音源ドライバ ]
%mtit 1 演奏中音楽タイトル表示位置 0 : MINTMES 表示行
# 1 : その下 [2]:画面最下行
%mdxc 1 演奏中音楽タイトル表示色 0～15 [13]
# ver3.00 で変更
%mdxt 1 各種音源ドライバタイトル表示 0 :表示しない 1 :表示する
# ver3.00 で追加
%rcdk 1 RCD/lndrv を無視する [0]:しない +1 :RCD を無視 +2 :lndrv を無視
%mbox 1 演奏中音楽タイトル枠表示色 [0]:枠なし 1～3
# mint システム変数 [ &data-title ]
%mutc 1 &data-title パレット 0～15 [15]
%pdxc 2 &data-title pdx file 表示パレット 0～15 [05]
# ver3.00 で追加
%zmst 128 .zms のタイトル検索行数(0 で検索しない) 0～65535 [32]
%dttl 1 &data-title を動作させるか 0 :しない [1]:動作させる
2 :拡張子判別動作
%dbox 1 &data-title 枠表示色 [0]:枠なし 1～3
# mint システム変数 [ ディレクトリソート ]
%srtm 0 起動時のソートモード 0 :しない 1 :ファイル名 2 :時間
# [3]:拡張子 4 :サイズ +16:逆順
%srtc 0 ソート時の大文字小文字区別 [0]:しない 1 :する
%sort 0 ソート時ディレクトリを上に集める [0]:集める 1 :集めない
# 2 :ソート時のみ集める
# ver3.00 で追加
%srtr 0x8000 ソートリバース +1:ファイル名 +2:時間 +4:拡張子 +8:サイズ
# +0x8000:数字を数値として認識する [0]
# mint システム変数 [ タイトル画像 ]
%tplt 0 タイトルデータに含まれるパレット情報を使用するか
# [0]:する 1 :しない
# path macro
$MINT $MINT_PATH/
$M_MAN (MINT)man/
# macro
$NUL $temp/nul
$twon-c &twentyone-ignore-case
$GROT grot
$QSCDRV &if ( ! &prchk '9scdrv' ) { 9scdrv -h }
$disp mintdisp
$exg &exchange-current
$opp &cursor-opposite-window
$up &cursor-up
$down &cursor-down
$down3 &if ($dotn < 0x8000) { &cursor-down }
$look &if ( &prchk 'mzlvl' ) { &look-file -o$temp $F }
&elsif ( 6 == &get-color-mode ) { &look-file -o$temp $F }
&else { &look-file -^ -o$temp $F }
#カーソル位置記憶系
$set-mark &set MARKFILE $P
$goto-mark &if ( $?MARKFILE == 1) {
&if ( ! &equ $MARKFILE:h $PWD ) { &cd $MARKFILE:h }
&cursor-to-home; &i-search $MARKFILE:t
}
$exg-point-mark &if ( $?MARKFILE == 1) {
&set OLDFILE $P;
&if ( ! &equ $MARKFILE:h $PWD ) { &cd $MARKFILE:h }
&cursor-to-home; &i-search $MARKFILE:t;
&set MARKFILE $OLDFILE; &unset OLDFILE
}
$source &if ( &source ) { (init) }
$init &cal scrl $dirh/2;
&unset DevMode;
&if ( &equ $USER TcbnErik ) { &set DevMode 1 }
&if ( $?DevMode == 1 ) { &set cals 2 }
$ed-file &if ( -r $F ) { $EDITOR $P; (source) }
$chdir_to_parent &cd ..
#gm 未常駐時に呼び出しても副作用はない.
#心配なら &if ( &prchk 'gm' ) { ... } で括ること.
$GM-m &iocs 14,0x676dff89
$GM-c &iocs 14,0x676dff8a
$GM-disable &iocs 14,0x676dff8b; (GM-c)
$GM-enable &iocs 14,0x676dff8c; (GM-m)
$GM-active &iocs 14,0x676dff8d
$GM-inactive &iocs 14,0x676dff8e
#pcm8 未公開コール使用
$PCM8-off &if ( &prchk 'pcm8' ) { &trap 2,0x7f02,0 } &else { (PCMd-r); pcm8 off }
$PCM8-on &if ( &prchk 'pcm8' ) { &trap 2,0x7f02,1 } &else { (PCMd-r); pcm8 on }
$PCM8-fnc &if ( &prchk 'pcm8' ) { &trap 2,0x7f02,2 } &else { (PCMd-r); pcm8 fnc }
$PCM8-r &if ( &prchk 'pcm8' ) { &trap 2,0xffff }
$MPCM &if ( ! &prchk 'mpcm' ) { (PCMd-r); mpcm }
$MPCM-r &if ( &prchk 'mpcm' ) { mpcm -r }
$PCMd-r (MPCM-r); (PCM8-r); &if ( &prchk 'xapnel' ) { xapnel -r }
$MCDRVS "*.MDC *.RCP *.R36 *.MID *.SMF"
$play_music (twon-c); $(make-zpdx $F);
&if ( &prchk 'mxdrv16y' ) { &if ( &match -i *.MDX $F ) { mdxp $F; &break } }
&if ( &prchk 'mxdrv' ) { &if ( &match -i *.MDX $F ) { mdxp $F; &break } }
&if ( &prchk 'mxw' ) { &if ( &match -i *.MDX $F ) { mdxp $F; &break } }
&if ( &prchk 'madrv' ) { &if ( &match -i *.MDR $F ) { mazp $F; &break } }
&if ( &prchk 'mld' ) { &if ( &match -i *.MDZ $F ) { mmlp $F; &break } }
&if ( &prchk 'mcdrv' ) { &if ( &match -i (MCDRVS) $F ) { mmcp $F; &break } }
&if ( &prchk 'mndrv' ) { &if ( &match -i *.MND $F ) { mnp $F; &break } }
&if ( &prchk 'zmsc' ) { &if ( &match -i *.ZMD $F ) { mzp $F; &break } }
&if ( &prchk 'zmusic' ) { &if ( &match -i *.ZM[SD] $F ) { mzp $F; &break } }
&if ( &match -i *.MDX $F ) { (set_mxdrv); mdxp $F; &break }
&if ( &match -i *.MDR $F ) { (set_madrv); mazp $F; &break }
&if ( &match -i *.MDZ $F ) { (set_mld); mmlp $F; &break }
&if ( &match -i *.MND $F ) { (set_mndrv); mnp $F; &break }
&if ( &match -i (MCDRVS) $F ) { (set_mcdrv); mmcp $F; &break }
(set_zmusic); mzp $F
$set_mxdrv &if ( ! &prchk 'mxdrv16y' ) { (release-music-driver); (PCM8-fnc); mxdrv16y -p350 }
$set_madrv &if ( ! &prchk 'madrv' ) { (release-music-driver); (PCM8-fnc); madrv -m64 -p350 }
$set_mld &if ( ! &prchk 'mld' ) { (release-music-driver); (PCM8-fnc); mld }
$set_mcdrv &if ( ! &prchk 'mcdrv' ) { (release-music-driver); (PCM8-fnc); mcdrv -ii c:/music/sc55.pdx }
$set_mndrv &if ( ! &prchk 'mndrv' ) { (release-music-driver); (MPCM); mndrv }
$set_zmusic &if ( ! &prchk 'zmusic' ) { (release-music-driver); (PCM8-fnc); zmusic -t120 -p350 }
$release-mzlvl &if ( &prchk 'mzlvl' ) {
mzlvl -q -r;
&if ( ! &prchk 'mzlvl' ) { (GM-enable) }
}
$release-music-driver &stop-music; (release-mzlvl);
&foreach m_drive ( mmdsp mxdrv16y mxdrv mxw madrv mld mcdrv mndrv zmusic zmsc opmdrv3 ) {
&if ( &prchk $m_drive ) { $m_drive -r }
} &unset m_drive
$adpcm-p \ # (PCM8-fnc)
&if ( ! &prchk 'pcm8' ) { &if ( ! &prchk 'xapnel' ) { xapnel } }
apcmplay $F
$make-zpdx &if ( &pdx-filename $1 ) {
&if ( ! -f $MINTTMP/$_ ) {
&if ( &match -i "*.zmd *.zms *.mnd" $1 ) {
&if ( &exist -i $_ $_.zpd ) { &uncompress -i $& }
&elsif ( &exist -i *.bat ) { &uncompress -i $& *.pcm *.p16 *.cnf *.zpl *.x; COMMAND.X $& }
&elsif ( &exist -i *.cnf *.zpl ) { &uncompress -i $& *.pcm *.p16; zpcnv $& }
}
&else {
&if ( &exist -i $_ $_.pdx ) { &uncompress -i $& }
&elsif ( &exist -i *.bat ) { &uncompress -i $& *.pcm *.p16 *.pdl *.spl *.x; COMMAND.X $& }
&elsif ( &exist -i *.spl ) { &uncompress -i $& *.pcm *.p16; spdxm $& }
&elsif ( &exist -i *.pdl ) { &uncompress -i $& *.pcm *.p16; tpdxm $& }
}
}
}
$LZD-on &setenv LZD_MODE 3
$LZD-off &unsetenv LZD_MODE
$infoline-on &if ( &prchk 'infoline' ) { infoline -nq on }
$infoline-off &if ( &prchk 'infoline' ) { infoline -nq off }
$SYNC &if ( &prchk 'fastio' ) { sync }
# mintarc
>LZHS_X -apiv lx -x2snfb. $MINTARC
>ZIPS_X -apiv zx -x2snb. $MINTARC
>TARS_X -apiv tx -x2nb. $MINTARC
>LZHS_D -apv lha d -axr2 $MINTARC
>ZIPS_D -apv zip -d $MINTARC
#>TARS_D - &nop
>LZHS_A -apv lha u -axr2 $MINTARC
>ZIPS_A -apv zip -ur $MINTARC
>TARS_A -apv &if ( -f $F ) { tar rvf $MINTARC } # 既存テープ追加
&else { tar cvf $MINTARC } # 新規テープ作成
&if ( &match $MINTTMP:u/mint[0-9][0-9][0-9][0-9].tar $F ) {
&print -s500 -t">TARS_A Warning" \
"$F はテンポラリ書庫です." \
" mintarc を終了すると自動的に" \
" 削除されるので注意して下さい."
}
#>LZHS_Q - &nop
#>ZIPS_Q - &nop
>TARS_Q - &if ( &match $MINTTMP:u/mint[0-9][0-9][0-9][0-9].tar $F ) {
&rm $F
}
# function key
>FUNC01 -ap &if ( $MPUTYPE == 6 ) {
&if ( &ask-yn " 68060 モードです" " 実行して宜しいですか？" ) {
vcache st; muterm; &set-opt +d; vcache 1
} &end
}
&instruction-cache-off; &set-opt +d; muterm; &instruction-cache-on
-tdap tmsio -b30 >(NUL); tmn; tmsio -r >(NUL)
-c &nop
>FUNC02 -tpi conmod -qtp; (GM-m)
-api conmod | (disp) -t'ConsoleMode'
-o1pi conmod $<
-c &nop
>FUNC03 -ap sps | (disp) -t'Process'
-o1ap sps -v | (disp) -t'Process'
-t &if (1 == $mdxt) { &set mdxt 0; &echo 'mdxt off' }
&else { &set mdxt 1; &echo 'mdxt on' }
-c &nop
>FUNC04 -ap sps -d | (disp) -t'Device'
-o1ap sps -dv | (disp) -t'Device'
-t &cal fumd ($fumd < 2) ? ($fumd + 1) : 0; &echo '%fumd' $fumd
-c &nop
>FUNC05 -api memfree
-t &if (1 == $esc!) { &set esc! 0; &echo 'ESC is not Meta-key.' }
&else { &set esc! 1; &echo 'ESC is Meta-key.' }
-c &nop
>FUNC06 -api (GM-enable)
-tapi (GM-active)
-o1api gm -pknv
-c &nop
>FUNC07 -api (GM-disable)
-tapi (GM-inactive)
-o1api gm -r
-c &nop
>FUNC08 -api (GM-m)
-tapi (GM-c)
-c &nop
>FUNC09 -api twon -c
-tap fsize $M
-c &nop
>FUNC10 -api twon +c
-tapi (SYNC)
-c &nop
# special key
>KEYesc -&1 &reload -d
- &prefix -n 1
>KEYret -! &ext-exec-or-chdir
-tdapi (ed-file)
-tmdapi $EDITOR $M; (source)
-cdapi &if ( -r $F ) { fes $P; (down) }
-cmdapi fes $M
-&1daps fish
>KEY_ _ - &mark
-t &mark-upper
-c (set-mark)
-&1api &data-title
-o1api &data-title; (down)
-&2 &foreach ( ) { &if ( ! &mark ) { &break } }
>KEY_bs - &mark-reverse
-t &cd -; &if ( ! &equ $C ${C:d}: ) { (down3) }
>KEYtab - (opp)
-! &ext-help
-o1 &exchange-windows
>KEYhom - &cd ${C:d}:/
-o1 &cd (MINT)
>KEYdel - &if ( ! &equ ${MARC:e:l} tar ) { &delete }
-t &chdir-to-opposite-window
-o1 &set-opposite-window-to-current
-o2 &nop
>KEYrup -o1 &cursor-to-bottom
- &cursor-rollup
>KEYrdn -o1 &cursor-to-home
- &cursor-rolldown
>KEYund - (chdir_to_parent)
-t &cd ${C:d}:/
-o1ap &command-history
>KEY_lt - &cursor-left
-o1 &drive-decrement
-x3 &rotate-gvram-ccw
-t &nop
>KEY_rt - &cursor-right
-o1 &drive-increment
-x3 &rotate-gvram-cw
-t &nop
>KEY_up - (up)
-o1 &foreach ( 1..4 ) { (up) }
-x1 &16color-brightness-increment
-x2 &palet0-up
-x3 &turn-gvram-upside-down
-t &nop
>KEY_dn - (down)
-o1 &foreach ( 1..4 ) { (down) }
-x1 &16color-brightness-decrement
-x2 &palet0-down
-x3 &turn-gvram-left-and-right
-t &nop
>KEYhel - &describe-key
-t &if ( &cd (M_MAN) ) { (down3) }
>KEYtou - &online-switch
>KEYkig - &describe-key
# full key
>KEY_1_ -x5api gmss -t10
-t&2dpsh $<
-t&2mdpsh $< $M
-api &eject fd0 # &eject a:
>KEY_2_ -x5api gmss -t20
-api &eject fd1 # &eject b:
>KEY_3_ -x5api gmss -t30
-dp d:/dis/build/dis -m680x0$< $F $F:r.s
>KEY_4_ -x5api gmss -t40
-d $<
-md $< $M
-tdsh $<
-tmdsh $< $M
>KEY_5_ -x5api gmss -t50
-d $< $P
-tdsh $< $P
>KEY_6_ -x5api gmss -t60
-d $< $B
-tdsh $< $B
>KEY_7_ -x5api gmss -t70
-ap vmap | (disp)
>KEY_8_ -x5api gmss -t80
-api (PCM8-fnc)
-tapi (PCMd-r) # (PCM8-r)
-capi &if ( &prchk 'pcm8' ) { (PCM8-off) }
>KEY_9_ -x5api gmss -t90
-dap &if ( &prchk '9scdrv' ) { 9scfmt } &else { (QSCDRV) }
-tapi &if ( &prchk '9scdrv' ) { 9scdrv -r }
-capi (QSCDRV)
>KEY_0_ -x5api gmss -t100
-apf &if ( &prchk 'infoline' ) { infoline -nq off; dedit; infoline -nq on }
&else { dedit }
>KEY_-_ -&2 &touch ./------------------.---
- &eject cd0
>KEY_^_ - &cal -c winf (${winf}+1)>4?0:(${winf}+1); &stop-condrv; &echo '%winf' $winf
-t &clear-exec-screen
>KEY_\_ - &if ( ! &is-mintarc ) { &cd ${C:d}:/ }
&else { &foreach ( ) { &if ( &is-mintarc ) { &cd .. } &else { &break } } }
>KEY_A_ - &reverse-all-file-marks
-t &reverse-all-marks
-c (opp)
-&1 &foreach ( dance wapi wink ) { &if &prchk $_ ) { $_ -r } }
-&2 &input -t" set variable "; &unless { &end } &elsif ( &equ $_ NUL ) { &end }
&eval &if ( '$?{'$_'}' == 0 ) { &input -t" set variable : $_" val }
&else { &eval &input -t'" set variable : $_"' -s'"${'$_'}"' val }
&if {
&if ( ! &equ "$val" NUL ) { &set "$_" "$val" }
} &unset val
-x5 &change-drive a
>KEY_B_ - &toggle-window-size
-cd1api &if ( ! &equ ${MARC:e:l} tar ) { &mark -i *.BAK; &delete; shake }
-tapi &if ( &equ $C ${C:d}: ) { &print ' ルートからは再起動できません.' }
&elsif ( -B HUMAN.SYS ) { &save-path-history; (SYNC); reboot }
&else { &print ' HUMAN.SYS がありません.' }
-x5 &change-drive b
>KEY_C_ - ©
-t ©-to-registered-path-menu 6
-c ©-to-history-menu
-x1dap fcp $M $O/
-x3 &direct-copy
-&2daps fish
-c&2 &quick-exit $C
-x5 &change-drive c
>KEY_D_ - &change-drive
-o1ap diff -Naur$< $F $O/$F
-o1map diff -Naur$< $B
-x5 &change-drive d
>KEY_E_ -dapi (ed-file)
-mdapi $EDITOR $B; (source)
-tdapi &if ( &input -t"[Edit New File]" ) { &if ( ! &equ NUL $_ ) { $EDITOR $_ } }
-o1 &edit-env-variable
-cd1api &if ( -r $F ) { fes $P }
-cmdapi fes $B
-co1dapi &if ( &input -t"[Edit New File]" ) { &if ( ! &equ NUL $_ ) { fes -M $_ } }
-c&2api $(maketmp env);
&foreach cmd ( setenv>> $EDITOR envf &rm ) { $cmd $_ }
-x5 &change-drive e
>KEY_F_ - &i-search -e2
-tapi $EDITOR $MINTRC; (source)
-capi $EDITOR $MINTRC -v (M_MAN)mint.1; (source)
-&1pi &file-compare
-&2pi fcmp $B $<
-x3psh findp $< \*.s
-x5 &change-drive f
>KEY_G_ - &gvon
-t &gvram-off
-o1 &clear-gvram
-c&1 (goto-mark)
-c&2 &if ( &input -t" 行番号:" -w10 ) { &if ( ! &equ NUL $_ ) { &goto-cursor $_ } }
-x5 &change-drive g
>KEY_H_ - &if ( &path-history-menu ) { &if ( &equ $F .. ) { (down) } }
-t &command-history-menu
-capsh handle
-x1ap dh | (disp)
-o1 &half
-x5 &change-drive h
>KEY_I_ -ap aish -l $M
-x1d1ap (ishこっち)
-x2d2ap (ishあっち)
-x3 &toggle-drive-information
-x4 &information
-x5 &change-drive i
>KEY_J_ - &chdir-to-registered-path-menu 6
-t &mark *.i$<
-!c &ext-exec-or-chdir;
-x5 &change-drive j
>KEY_K_ - &md
-c &set _ $mdmd; &set mdmd 0; &md; &set mdmd $_
-!m &if ( ! &equ ${MARC:e:l} tar ) { &delete }
-x5 &change-drive k
>KEY_L_ - &if ( -r $F ) { (look) }
-tapfs lhv
-tmapfs lhv $MARK_R
-c &clear-and-redraw
-c&1 &reload
-x3d1ap hlk $M
-x5 &change-drive l
>KEY_M_ - &make-dir-and-move
-t &move-to-registered-path-menu 6
-c &move-to-history-menu
-x3 &direct-move
-x1dap mv -v $M $O/
-o1d1ap make
-x5 &change-drive m
>KEY_N_ - &sort -n
-c (down)
-o1ap make -n
-x5 &change-drive n
>KEY_O_ - &if ( &equ $C $O ) { &i-search $OF }
&else { &chdir-to-opposite-window }
-c &chdir-to-opposite-window; (chdir_to_parent)
-t &set-opposite-window-to-current
-x5 &change-drive o
>KEY_P_ -dp zip -ry $O/$<.zip $M
-x1d1p gzip $P$<
-x1mdp tar -b1 -cvzf $O/$<.tgz $M
-c (up)
-o1 &max
-x4ap (adpcm-p)
-x5 &change-drive p
>KEY_Q_ - &quit -l2 # 終了パス選択
-t &if ( &iocs 0xf5,0x24,,,6 ) {
&iocs 0xf5,0x2f,,3,6; # トレイを閉める
&iocs 0xf5,0x2c,,4,6 XXXX # リクエストセンス
}
&elsif ( 0 == &eject -q cd0 ) { # &eject q:
&iocs 0xf5,0x2f,,2,6
}
-!&1 &quick-exit $C
-x5 &change-drive q
>KEY_R_ -! &if ( &is-mintarc ) { &print ' MINTARC 内で名称変更はできません.' } &else { &rename-menu }
-tapi &madoka (MINT)reomenu.mis
-c &i-search -e2 -r
-&1api (release-music-driver); (PCMd-r)
-&2 &reload -d; &drive-check
-x5 &change-drive r
>KEY_S_ - &sort
-c &i-search -e2
-tapi &if ( ! &is-mintarc ) { shake -l $C }
-tcapi &if ( ! &is-mintarc ) { shake -lc $C }
-x5 &change-drive s
>KEY_T_ -ap &touch $<
-tap &touch $<$M
-c &setenv MINT_TMP $< # 作業dir.設定
-o1d1ap make -t
-&2ap tree | (disp)
-x5 &change-drive t
>KEY_U_ -d1ap (opp); &foreach ( $OP ) { (mkdir); (arc_ext) } (down3)
-map (opp); &foreach ( $OPMARK_R ) { (mkdir); (arc_ext); &cd .. } &reload -1; (down)
-tap (opp); &foreach ( $OPMARK_R ) { (arc_ext) } &reload -1; (down)
-o1ap &uncompress $MARK_R
-x5 &change-drive u
$mkdir &if ( ! -e $_:t:r ) { mkdir $_:t:r } &cd $_:t:r
$arc_ext &if ( -d $_ ) { &echo "$_ is a directory." }
&elsif ( &match -i "*.tar.gz *.tgz *.tar" ) { tx -x2w $_ }
&elsif ( &match -i "*.tar.z *.taz" ) { tar xzvf $_ } # { gzip -cd $_ | tar xvf - }
&elsif ( &match -i "*.lzh *.x *.000" ) { lx -x2fw $_ }
&elsif ( &match -i *.zip ) { zx -x2w $_ }
&elsif ( &match -i *.gz ) { tx -z2w $_ }
&else { xx $_ }
>KEY_V_ -dapi $EDITOR -v $B
-c &cursor-rollup
-&1 &cursor-rolldown
-t &edit-volume-name
-o1d1ap vdeed -ar0
-x5 &change-drive v
>KEY_W_ - &file-compare -fexact
-t &file-compare
-c &mask -i
-x5 &change-drive w
>KEY_X_ - &exec-registered-command-menu 2
-c &prefix -n 2
-&1 &$<
-t&1sh &$<
-&1m &foreach ( '$M' ) $<
-t&1msh &foreach ( '$M' ) $<
-c&2 (exg-point-mark)
-x5 &change-drive x
>KEY_Y_ - &echo "$M"
-t &foreach ( $M ) { &echo $_ }
-c &foreach ( $M ) { &echo $C/$_ }
-x5 &change-drive y
>KEY_Z_ -api (set_zmusic)
-&1api (release-music-driver); (PCM8-fnc); zmusic -t100 -p512$<
-&2 &grow-window
-c&2 &shrink-window
-x5 &change-drive z
>KEY_@_ -d1api (twon-c); &stop-condrv; arranger -d1f
-td1api (twon-c); &stop-condrv; arranger -d1
-capi (twon-c); &madoka (MINT)arrmenu.mis
>KEY_[_ -api mint_dfr
-t &cal cplp 1^$cplp; &set code $cplp; &clear-exec-screen
>KEY_;_ -ap &foreach ( $MARK_R ) { xcont -l $_ }
-t &if ( ! &mion ) { &mioff } # mion トグル
>KEY_:_ - &palet0-set
-t &palet0-system
>KEY_]_ - &get-music-status;
&if 1 { &print " 1 : 演奏終了" }
&elsif 2 { &print " 2 : 一時停止中" }
&elsif 3 { &print " 3 : 演奏中" }
-c &get-color-mode;
&if 1 { &print " 1 : 16 色画面" }
&elsif 2 { &print " 2 : 256 色画面" }
&elsif 6 { &print " 6 : 64K 色画面" }
&else { &print " グラフィック画面 非表示" }
-tap gmss -s1
>KEY_,_ -d1ap make -C..; &unless { make }
-capi conmod -qgm0
-t &cursor-to-home
-t&1 (set-mark); &cursor-to-home
>KEY_._ - (chdir_to_parent)
-capi conmod -qtm1
-t &cursor-to-bottom
-t&1 (set-mark); &cursor-to-bottom
>KEY_/_ - &i-search
-t &input -t"print variable"; &unless { &end } &elsif ( &equ $_ NUL ) { &end }
&eval &if ( $?$_ == 0 ) { &print " 変数 $_ は未定義です."; &end }
&eval &print '"'"$_ = $$_"'"'
-t&2 &describe-key
>KEY___ - &if ( ! &get-music-status ) { (music-error) }
&elsif 1 { &play-music } # 音楽トグル
&elsif 2 { &cont-music }
&elsif 3 { &pause-music }
-t &if ( ! &stop-music ) { (music-error) }
-c &if ( ! &fade-music ) { (music-error) }
$music-error &echo "音源ドライバは組み込まれていません."
# ten key
>KEY_te - &ext-exec-or-chdir
-tdapi (ed-file)
-tmdapi $EDITOR $M; (source)
-cdapi &if ( -r $F ) { fes $P }
-cmdapi fes $M
-&1daps fish
>KEY_t0 -t &nop # TV Ctrl
-api &eject mo0
>KEY_t1 -t &nop
- &change-drive a
>KEY_t2 -t &nop
- &change-drive b
>KEY_t3 -t &nop
- &change-drive c
>KEY_t4 -t &nop
- &change-drive d
>KEY_t5 -t &nop
- &change-drive e
>KEY_t6 -t &nop
- &change-drive f
>KEY_t7 -t &nop
- &change-drive g
>KEY_t8 -t &nop
- &change-drive h
>KEY_t9 -t &nop
- &change-drive i
>KEYclr -t &nop
- &mark-all-files
-m &clear-mark
-o1 &clear-exec-screen
>KEY_t/ -t &nop
- &chdir-to-registered-path-menu 6
>KEY_t* -t &nop
- &exec-registered-command-menu 2
>KEY_t- -t &nop
- &cursor-right; &cd B:/; &cursor-left; &cd A:/
>KEY_t+ -t &nop
- &toggle-screen-saver
>KEY_t= -t &nop
-c &toggle-power-window
>KEY_t, -t &nop
-api &eject fd0
>KEY_t. -t &nop
-api &eject fd1
# system
!CONFIG.SYS - (look)
!HISTORY.HIS -api history2 -r+@ $P
!KEY.HIS -ap key
!TITLE*.SYS -api ttl -lc $P
.ENV - (look)
-o1ap envf $F
!.keywitch - (look)
-x1ap keywitch -y $F
-x2ap keywitch -yr $F
.KW - (look)
-x1ap keywitch -y $F
-x2ap keywitch -yr $F
^6 USKCG\x20\x20ver
-api usk $F; &clear-and-redraw
# execution
$CVINFO cv -i $F | (disp) -t"X file Information"
$SYMINFO nm $F | sortf +1 | (disp) -t"Symbol Table"
$SYMINFON nm $F | (disp) -t"Symbol Table"
!HUMAN.SYS - &print ' HUMAN.SYS です.'
-x4dp dis $F $<$F:r.s
-x5ap (CVINFO)
#^ HU\x00 #.sysがこっちに来ちゃうから不可
.X -tx4dps scd $F $<
-x4dp dis $F $<$F:r.s
-tx1d1ap lzx -vS $M #┌ 付加情報削除
-x1d1ap lzx -vs $M #│ 圧縮
-x2d1ap lzx -vd $M #└ 復元
-dp $P $<
-mdp $P $MARK_R $<
-x3ap unbind -l $F #┌ 一覧
-tx3d1p unbind -x $F $< #└ 抽出
-o1dpsh $P $<
-o1mdpsh $P $MARK_R $<
-x5ap (CVINFO) #┌ ヘッダ情報
-tx5ap (SYMINFO) #└ シンボル情報
.R -tx4dps scd $F $<
-x4dp dis $F $<$F:r.s
-x1d1ap lzx -vs $M #┌ 圧縮
-x2d1ap lzx -vd $M #└ 復元
-dp $P $<
-mdp $P $MARK_R $<
-o1dpsh $P $<
-o1mdpsh $P $MARK_R $<
.SYS -! (look)
-x4dp dis $F -d $<$F:r.s
-tx1d1ap lzx -vS $M #┌ 付加情報削除
-x1d1ap lzx -vs $M #│ 圧縮
-x2d1ap lzx -vd $M #└ 復元
-x5ap (CVINFO)
.BAS - (look)
-o1d1ap bc $F
.FNC - &print ' X-BASIC 用外部関数ファイルです.'
-x4dp dis $F $<$F:r.s
-x5ap (CVINFO)
.BAT - (look)
-o1dap COMMAND.X $F $<
-to1dapsh COMMAND.X $F $<
# develop
!ERROR.LST -d1api $EDITOR $P
-o1d1api &rm $F; shake $C
!MARIKO.ERR -d1api $EDITOR -h4 $P
-o1d1api &rm $F; shake $C
.MAC .EQU - (look)
.S .HAS -! &ext-help
-x1ap (asm_); &reload # .o
-x2ap (asm_); hlk $F:r; &reload # .x
-o1ap (asm_); hlk -r $F:r; &reload # .r
-o2d1ap gcc2 -c $F
- (look)
$asm_ has060 $P $< >! (err_file);
&if { &set-opt +d; $EDITOR $P -v (err_file); &end }
&else { &rm (err_file); shake }
$err_file $temp/error.lst
.c -x2d1p gcc2 $F -o $F:r.x -O2$< # .x
-tx2d1p gcc2 $F -S -O2$< # .s
-o1d1p gcc2 $F -c -O2$< # .o
-x1d1p gcc $F -O$<
-tx1d1p gcc $F -S -O$<
- (look)
^ \xd0\x00
.O -d1p hlk $M $<
-o1d1p hlk $M -r$<
-x3d1p lk $M $<
-x5ap (SYMINFO)
^ \x00\x68 #.L
-o1ap lib -v -l $F | (disp)
-x5ap (SYMINFON)
-! &ext-help
.A -x1d1ap oar -x $P # こっちに展開
-x2d2ap (exg); oar -x $P # あっちに展開
-o1d1ap &if ( &ask-yn "ライブラリアン形式(.l)に変換しますか？" ) {
lib -m32768 $F:r.l $F
}
-tx5ap oar -AL $F | (disp)
-x5ap oar -lL $F | (disp)
-! &ext-help
# SHARP/Hudson Archiver(ACSII file mode)
^ \xd1\x01
-x1d1ap har -ave $F # 展開
-x5ap har -avl $F | (disp)
!"GNUmakefile Makefile*" \
- (look)
-o1d1ap make -f $F
.mk - (look)
-o1d1 make -f $F $<
# text
.CNF - (look)
-x1d1ap zpcnv $F
$ishこっち aish $M
$ishあっち (exg); aish $PMARK_R
.LOG -o1 (look)
-x1d1ap (ishこっち)
-x2d2ap (ishあっち)
-x5ap aish -l $F
#^ <html|<HTML
.html .htm
- (look)
-x1api vwx -f $F
-x2apig0 webxpression $F
-x3d1ap (ack)
#^ <<<\x20
#.doc .hed .man .txt .ish .uu .uue \
>NO_DEF - (look)
-x1d1ap (ishこっち)
-x2d2ap (ishあっち)
-x3d1ap (ack)
-x5ap aish -l $F
# font
!"SUPERED.FNT MUTERM.FNT"
- &print " $F:r 用フォントファイルです."
.FON .FNT .F1[26] .F8[0K]
-api hiocs $F >$temp/XCON; &clear-and-redraw
# archive
$maketmp &if ( ! &maketmp _ mint????.$1 ) {
&print " &maketmp failed."; &end
}
$こっち &set _ $P
$こっちに掘る &set _ $P; (mkdir)
$あっち &set _ $P; (opp)
$あっちに掘る &set _ $P; (opp); (mkdir)
#^ \x1f\x8b??????\x00?*.[Tt][Aa][Rr]
#^ \x1f\x8b????????*.[Tt][Aa][Rr]
!"*.TAR.GZ *.TGZ"
-tx1d1ap (こっち); (tar_ext)
-x1d1ap (こっちに掘る); (tar_ext)
-tx2d1ap (あっち); (tar_ext)
-x2d1ap (あっちに掘る); (tar_ext)
-x5ap tx -v $F | (disp)
-ap $(maketmp tar); tx -z2wc $F $_; &tar-selector $_
$tar_ext tx -w $_; (down)