Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
jed /
lib /
[ HOME SHELL ]
Name
Size
Permission
Action
colors
[ DIR ]
drwxr-xr-x
abbrev.sl
838
B
-rw-r--r--
abbrev.slc
636
B
-rw-r--r--
abbrmisc.sl
2.15
KB
-rw-r--r--
abbrmisc.slc
1.98
KB
-rw-r--r--
aboutjed.hlp
252
B
-rw-r--r--
acompile.sl
2.04
KB
-rw-r--r--
acompile.slc
2.02
KB
-rw-r--r--
aprocess.sl
267
B
-rw-r--r--
aprocess.slc
238
B
-rw-r--r--
ashell.sl
7.69
KB
-rw-r--r--
ashell.slc
6.96
KB
-rw-r--r--
backups.sl
1.41
KB
-rw-r--r--
backups.slc
637
B
-rw-r--r--
bibtex.sl
17.05
KB
-rw-r--r--
bibtex.slc
12.74
KB
-rw-r--r--
binary.sl
589
B
-rw-r--r--
binary.slc
522
B
-rw-r--r--
bookmark.sl
1.6
KB
-rw-r--r--
bookmark.slc
1.2
KB
-rw-r--r--
brief.sl
5.98
KB
-rw-r--r--
buf.sl
3.41
KB
-rw-r--r--
buf.slc
1.96
KB
-rw-r--r--
bufed.sl
6.69
KB
-rw-r--r--
bufed.slc
4.68
KB
-rw-r--r--
bytecomp.sl
3.38
KB
-rw-r--r--
cal.sl
6.4
KB
-rw-r--r--
cal.slc
4.44
KB
-rw-r--r--
chglog.sl
3.13
KB
-rw-r--r--
chglog.slc
2.62
KB
-rw-r--r--
cmisc.sl
4.91
KB
-rw-r--r--
cmisc.slc
4
KB
-rw-r--r--
cmode.dfa
7.58
KB
-rw-r--r--
cmode.sl
40.06
KB
-rw-r--r--
cmode.slc
27.9
KB
-rw-r--r--
comments.sl
7.99
KB
-rw-r--r--
comments.slc
5.93
KB
-rw-r--r--
compat.sl
1.39
KB
-rw-r--r--
compile.sl
11.44
KB
-rw-r--r--
compile.slc
5.83
KB
-rw-r--r--
compress.sl
3.12
KB
-rw-r--r--
compress.slc
2.73
KB
-rw-r--r--
cpright.hlp
464
B
-rw-r--r--
ctags.sl
9.53
KB
-rw-r--r--
ctags.slc
7.34
KB
-rw-r--r--
cua.hlp
385
B
-rw-r--r--
cua.sl
7.56
KB
-rw-r--r--
cua.slc
3.91
KB
-rw-r--r--
cuamisc.sl
5.7
KB
-rw-r--r--
cuamisc.slc
1.63
KB
-rw-r--r--
dabbrev.sl
13.77
KB
-rw-r--r--
dabbrev.slc
8.05
KB
-rw-r--r--
dcl.sl
4.68
KB
-rw-r--r--
dcl.slc
4.5
KB
-rw-r--r--
defaults.sl
1.07
KB
-rw-r--r--
digraph.sl
3.8
KB
-rw-r--r--
digraph.slc
1.04
KB
-rw-r--r--
dired.sl
17.78
KB
-rw-r--r--
dired.slc
12.69
KB
-rw-r--r--
docbook.sl
38.33
KB
-rw-r--r--
docbook.slc
38.41
KB
-rw-r--r--
dos437.sl
998
B
-rw-r--r--
dos850.sl
1.3
KB
-rw-r--r--
dos852.sl
1.14
KB
-rw-r--r--
edt.hlp
1.6
KB
-rw-r--r--
edt.sl
14.55
KB
-rw-r--r--
edt.slc
7.93
KB
-rw-r--r--
emacs.hlp
227
B
-rw-r--r--
emacs.sl
6.86
KB
-rw-r--r--
emacs.slc
6.31
KB
-rw-r--r--
emacsmsc.sl
3.52
KB
-rw-r--r--
emacsmsc.slc
3.52
KB
-rw-r--r--
emul.sl
87
B
-rw-r--r--
f90.sl
22.75
KB
-rw-r--r--
f90.slc
18.39
KB
-rw-r--r--
ff90.sl
56
B
-rw-r--r--
ff90.slc
82
B
-rw-r--r--
filter.sl
646
B
-rw-r--r--
filter.slc
562
B
-rw-r--r--
folding.sl
13.47
KB
-rw-r--r--
folding.slc
11.13
KB
-rw-r--r--
fortran.sl
10.65
KB
-rw-r--r--
fortran.slc
7.79
KB
-rw-r--r--
generic.hlp
135
B
-rw-r--r--
gpg.sl
4.89
KB
-rw-r--r--
gpg.slc
4.51
KB
-rw-r--r--
help.sl
15.37
KB
-rw-r--r--
help.slc
12
KB
-rw-r--r--
history.sl
5.73
KB
-rw-r--r--
history.slc
2.2
KB
-rw-r--r--
hooks.sl
1.95
KB
-rw-r--r--
hooks.slc
1.74
KB
-rw-r--r--
html.dfa
6.13
KB
-rw-r--r--
html.sl
13.63
KB
-rw-r--r--
html.slc
10.06
KB
-rw-r--r--
ide.hlp
1.25
KB
-rw-r--r--
ide.sl
22.57
KB
-rw-r--r--
ide.slc
20.07
KB
-rw-r--r--
idl.sl
5.58
KB
-rw-r--r--
idl.slc
5.34
KB
-rw-r--r--
info.sl
19.92
KB
-rw-r--r--
info.slc
17.16
KB
-rw-r--r--
isearch.sl
7.7
KB
-rw-r--r--
isearch.slc
5.01
KB
-rw-r--r--
iso-lat2.sl
963
B
-rw-r--r--
iso-lat2.slc
1010
B
-rw-r--r--
iso-lat3.sl
1.3
KB
-rw-r--r--
iso-lat3.slc
994
B
-rw-r--r--
iso-latin.sl
625
B
-rw-r--r--
iso-latin.slc
420
B
-rw-r--r--
iso2xxx.sl
1.77
KB
-rw-r--r--
iso2xxx.slc
1.39
KB
-rw-r--r--
ispell.sl
2.99
KB
-rw-r--r--
ispell.slc
2.26
KB
-rw-r--r--
javamode.dfa
7.59
KB
-rw-r--r--
javamode.sl
3.24
KB
-rw-r--r--
javamode.slc
3.29
KB
-rw-r--r--
jed.hlp
356
B
-rw-r--r--
jed.rc
9.43
KB
-rw-r--r--
jed.sl
3.57
KB
-rw-r--r--
jed.slc
4.01
KB
-rw-r--r--
jedhelp.sl
1.43
KB
-rw-r--r--
jedhelp.slc
1.49
KB
-rw-r--r--
jedusage.sl
967
B
-rw-r--r--
jedusage.slc
1.08
KB
-rw-r--r--
keycode.sl
4.46
KB
-rw-r--r--
keydefs.sl
9.21
KB
-rw-r--r--
keydefs.slc
6.63
KB
-rw-r--r--
krconv.sl
1.86
KB
-rw-r--r--
krconv.slc
1.45
KB
-rw-r--r--
latex.sl
27.01
KB
-rw-r--r--
latex.slc
20.94
KB
-rw-r--r--
latex209.sl
2.24
KB
-rw-r--r--
latex209.slc
1.57
KB
-rw-r--r--
linux.sl
821
B
-rw-r--r--
lisp.sl
1.21
KB
-rw-r--r--
lisp.slc
1.1
KB
-rw-r--r--
ltx-comp.dat
2.01
KB
-rw-r--r--
ltx-math.sl
4.12
KB
-rw-r--r--
ltx-math.slc
3.95
KB
-rw-r--r--
lua.sl
13.05
KB
-rw-r--r--
macro.sl
2.08
KB
-rw-r--r--
macro.slc
1.95
KB
-rw-r--r--
mail.sl
4.82
KB
-rw-r--r--
mail.slc
4.17
KB
-rw-r--r--
mailalias.sl
6.21
KB
-rw-r--r--
mailalias.slc
3.61
KB
-rw-r--r--
mailedit.sl
10.79
KB
-rw-r--r--
mailutils.sl
3.52
KB
-rw-r--r--
makemode.sl
6.83
KB
-rw-r--r--
man.sl
1.8
KB
-rw-r--r--
man.slc
948
B
-rw-r--r--
maple.sl
2.14
KB
-rw-r--r--
maple.slc
1.91
KB
-rw-r--r--
matlab.sl
5.07
KB
-rw-r--r--
matlab.slc
4.07
KB
-rw-r--r--
menu.sl
4.7
KB
-rw-r--r--
menu.slc
3.91
KB
-rw-r--r--
menus.sl
2.31
KB
-rw-r--r--
menus.slc
1.74
KB
-rw-r--r--
mime.sl
1.98
KB
-rw-r--r--
mime.slc
1.75
KB
-rw-r--r--
mimemisc.sl
684
B
-rw-r--r--
mimemisc.slc
733
B
-rw-r--r--
mini.sl
4.54
KB
-rw-r--r--
mini.slc
3.73
KB
-rw-r--r--
minued.sl
8.99
KB
-rw-r--r--
minued.slc
4.37
KB
-rw-r--r--
misc.sl
4.01
KB
-rw-r--r--
misc.slc
2.51
KB
-rw-r--r--
modehook.sl
3.71
KB
-rw-r--r--
modehook.slc
1.64
KB
-rw-r--r--
modeinfo.sl
1.6
KB
-rw-r--r--
modeinfo.slc
1.48
KB
-rw-r--r--
most.sl
3.64
KB
-rw-r--r--
most.slc
3.13
KB
-rw-r--r--
mouse.sl
5.15
KB
-rw-r--r--
mousex.sl
8.33
KB
-rw-r--r--
mousex.slc
4.36
KB
-rw-r--r--
mswmouse.sl
6.85
KB
-rw-r--r--
mutekeys.sl
3.19
KB
-rw-r--r--
mutekeys.slc
1.49
KB
-rw-r--r--
nroff.sl
1.09
KB
-rw-r--r--
nroff.slc
709
B
-rw-r--r--
occur.sl
1.48
KB
-rw-r--r--
occur.slc
1.03
KB
-rw-r--r--
os.sl
4.22
KB
-rw-r--r--
paste.sl
509
B
-rw-r--r--
paste.slc
485
B
-rw-r--r--
perl.sl
33.63
KB
-rw-r--r--
perl.slc
13.77
KB
-rw-r--r--
perlxtra.sl
13.1
KB
-rw-r--r--
perlxtra.slc
5.18
KB
-rw-r--r--
php.sl
83.23
KB
-rw-r--r--
php.slc
54.16
KB
-rw-r--r--
pipe.sl
567
B
-rw-r--r--
pipe.slc
579
B
-rw-r--r--
popups.sl
9.03
KB
-rw-r--r--
popups.slc
8.88
KB
-rw-r--r--
preparse.sl
1.69
KB
-rw-r--r--
pscript.dfa
21.64
KB
-rw-r--r--
pscript.sl
4.79
KB
-rw-r--r--
pscript.slc
4.3
KB
-rw-r--r--
pushmode.sl
1.84
KB
-rw-r--r--
pushmode.slc
1.55
KB
-rw-r--r--
pymode.sl
17.24
KB
-rw-r--r--
pymode.slc
12.9
KB
-rw-r--r--
python.dfa
6.54
KB
-rw-r--r--
rcs.sl
4.27
KB
-rw-r--r--
rcs.slc
2.86
KB
-rw-r--r--
recent.sl
4.53
KB
-rw-r--r--
recent.slc
2.73
KB
-rw-r--r--
recentx.sl
10.13
KB
-rw-r--r--
recentx.slc
6.38
KB
-rw-r--r--
regexp.sl
1.63
KB
-rw-r--r--
regexp.slc
1.54
KB
-rw-r--r--
register.sl
4.11
KB
-rw-r--r--
register.slc
3.1
KB
-rw-r--r--
replace.sl
1.39
KB
-rw-r--r--
replace.slc
1.09
KB
-rw-r--r--
rmail.sl
38.64
KB
-rw-r--r--
rmail.slc
35.99
KB
-rw-r--r--
rot13.sl
497
B
-rw-r--r--
rot13.slc
379
B
-rw-r--r--
runpgm.sl
690
B
-rw-r--r--
sccs.sl
4.33
KB
-rw-r--r--
sccs.slc
2.54
KB
-rw-r--r--
search.sl
2.5
KB
-rw-r--r--
search.slc
2.29
KB
-rw-r--r--
seldisp.sl
806
B
-rw-r--r--
seldisp.slc
617
B
-rw-r--r--
sendmail.sl
7.02
KB
-rw-r--r--
sendmail.slc
5.73
KB
-rw-r--r--
session.sl
5.91
KB
-rw-r--r--
session.slc
3.46
KB
-rw-r--r--
shell.sl
6.26
KB
-rw-r--r--
shell.slc
3.32
KB
-rw-r--r--
shmode.dfa
1.57
KB
-rw-r--r--
shmode.sl
2.33
KB
-rw-r--r--
shmode.slc
1.91
KB
-rw-r--r--
simple.hlp
407
B
-rw-r--r--
site.sl
76.36
KB
-rw-r--r--
site.slc
36.67
KB
-rw-r--r--
slmode.dfa
3.22
KB
-rw-r--r--
slmode.sl
7.1
KB
-rw-r--r--
slmode.slc
5.79
KB
-rw-r--r--
sort.sl
1.21
KB
-rw-r--r--
sort.slc
1.13
KB
-rw-r--r--
sortmisc.sl
751
B
-rw-r--r--
sortmisc.slc
546
B
-rw-r--r--
spicemod.sl
1.06
KB
-rw-r--r--
spicemod.slc
1.03
KB
-rw-r--r--
srchmisc.sl
3.22
KB
-rw-r--r--
srchmisc.slc
2.56
KB
-rw-r--r--
syncproc.sl
3.58
KB
-rw-r--r--
syncproc.slc
2.36
KB
-rw-r--r--
syntax.sl
3.05
KB
-rw-r--r--
syntax.slc
1.47
KB
-rw-r--r--
tabs.sl
1.39
KB
-rw-r--r--
tabs.slc
1.31
KB
-rw-r--r--
tclmode.dfa
4.69
KB
-rw-r--r--
tclmode.sl
10.41
KB
-rw-r--r--
tclmode.slc
6.11
KB
-rw-r--r--
tex.sl
2.39
KB
-rw-r--r--
tex.slc
779
B
-rw-r--r--
texcom.dfa
1.5
KB
-rw-r--r--
texcom.sl
4.75
KB
-rw-r--r--
texcom.slc
4.12
KB
-rw-r--r--
textmode.sl
2.05
KB
-rw-r--r--
textmode.slc
974
B
-rw-r--r--
tiasm.sl
1.16
KB
-rw-r--r--
tiasm.slc
1.11
KB
-rw-r--r--
tmisc.sl
841
B
-rw-r--r--
tmisc.slc
786
B
-rw-r--r--
tmmode.sl
2.01
KB
-rw-r--r--
tmmode.slc
1.65
KB
-rw-r--r--
tmpfile.sl
2.83
KB
-rw-r--r--
tmpfile.slc
1.56
KB
-rw-r--r--
tpascal.dfa
7.65
KB
-rw-r--r--
tpascal.sl
5.77
KB
-rw-r--r--
tpascal.slc
5.51
KB
-rw-r--r--
untab.sl
1021
B
-rw-r--r--
untab.slc
569
B
-rw-r--r--
util.sl
544
B
-rw-r--r--
util.slc
293
B
-rw-r--r--
verilog.sl
1.49
KB
-rw-r--r--
verilog.slc
1.52
KB
-rw-r--r--
vhdlmode.sl
8.45
KB
-rw-r--r--
vhdlmode.slc
5.6
KB
-rw-r--r--
vmshelp.sl
2.25
KB
-rw-r--r--
win1250.sl
1.29
KB
-rw-r--r--
wmark.sl
4.36
KB
-rw-r--r--
wmark.slc
3.61
KB
-rw-r--r--
wmenu.sl
4.72
KB
-rw-r--r--
wmenu.slc
4.86
KB
-rw-r--r--
wordstar.hlp
909
B
-rw-r--r--
wordstar.sl
15.56
KB
-rw-r--r--
wordstar.slc
13.93
KB
-rw-r--r--
xformreg.sl
1.7
KB
-rw-r--r--
xformreg.slc
1.36
KB
-rw-r--r--
yankpop.sl
2.21
KB
-rw-r--r--
yankpop.slc
2.01
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ide.sl
% Borland-like IDE Mode for JED -*- SLang -*- % % Put the line: () = evalfile ("ide.sl"); % in your jed.rc startup file. % % Written by Guido Gonzato <guido.gonzato@univr.it>; % based on John E. Davis' original wordstar.sl. % Contributions by J\o ergen Larsen <jl@dirac.ruc.dk>, % and John Fattaruso <johnf@ti.com> % % This file makes jed a jolly good 99% compatible with the true-blue % WordStar, jstar, the DOS editor, and the good old Borland IDE. % Some Emacs compatibility is maintained: blocks are actually "regions" % as in Emacs mode. % % Please send me requests and bug reports, should you find any. % % Version 1.3.4; for jed B0.99.13 upwards. % Last modified: 2 April 2003 % Version 1.3.4a: Changed static declarations to private ones for % 0.99.19 release (JED) Help_File = "ide.hlp"; require ("keydefs"); require ("rcs"); _Reserved_Key_Prefix = "\032"; % ^Z _Jed_Emulation = "ide"; % users can tailor the way skip_word works custom_variable ("Ide_Skippable_Chars", "\n\t !\"#$%&'()*+,-./:;<=>?@[\]^`{|}~"); #ifndef IBMPC_SYSTEM private variable Key_BS_Del = "^?"; private variable Key_Alt_BS_Del = strcat("\e", Key_BS_Del); #endif private variable Ide_Bookmark_Exist = 1; set_status_line (" Jed %v: %b (%m%n) (%p %c) %t", 1); unset_ctrl_keys (); unsetkey (Key_F1); % prevent EDT error in xterm unsetkey (Key_F2); unsetkey (Key_F3); unsetkey (Key_F4); unsetkey (Key_Del); unsetkey (Key_Up); % arrows keys are redefined to add the unsetkey (Key_Down); % "goto previous position" feature unsetkey (Key_Left); unsetkey (Key_Right); unsetkey (Key_PgUp); unsetkey (Key_PgDn); set_abort_char (7); % ^G. Note - wordstar.sl uses ^^. setkey ("kbd_quit", "^G"); % % Basic commands: cursor movement, delete, search & replace, etc. % setkey ("begin_macro", "\e("); setkey ("compile", Key_F9); setkey ("backward_delete_char", Key_BS); setkey ("dabbrev", "^V"); setkey ("delete_char_cmd", "\eg"); % ^G is used for break setkey ("delete_char_cmd", Key_Del); setkey ("delete_line", "^Y"); setkey ("end_macro", "\e)"); setkey ("execute_macro", "\er"); setkey ("format_paragraph", "^B"); setkey ("ide_better_help", Key_F1); setkey ("ide_toggle_overwrite", Key_Ins); setkey ("undo", "^U"); setkey ("kbd_quit", "\e\e\e"); setkey ("ide_bdelete_word", Key_Alt_BS); setkey ("list_buffers", "\e0"); #ifndef IBMPC_SYSTEM setkey ("ide_bdelete_word", Key_Alt_BS_Del); #endif setkey ("ide_bdelete_word", "\et"); % ESC-o is used for Mode menu setkey ("ide_bskip_word", "^A"); setkey ("ide_delete_word", "^T"); setkey ("ide_next_char_cmd", "^D"); setkey ("ide_next_char_cmd", Key_Right); setkey ("ide_next_line_cmd", "^X"); setkey ("ide_next_line_cmd", Key_Down); setkey ("ide_page_down", "^C"); setkey ("ide_page_down", Key_PgDn); setkey ("ide_page_up", "^R"); setkey ("ide_page_up", Key_PgUp); setkey ("ide_previous_char_cmd", "^S"); setkey ("ide_previous_char_cmd", Key_Left); setkey ("ide_previous_line_cmd", "^E"); setkey ("ide_previous_line_cmd", Key_Up); setkey ("ide_repeat_search", "^L"); setkey ("ide_skip_word", "^F"); setkey ("other_window", "^KO"); setkey ("other_window", "^K^O"); setkey ("ide_window_up", "^W"); setkey ("ide_window_down", "\eZ"); setkey ("ide_insert_any_char", "^P"); % % Control-Q keys --- hope you figure out how to pass ^Q/^S through system % In case you *cannot* figure out how, you can use ESC+^key instead of ^Q; % for instance, ESC-^Y acts as ^Q-Y. Twisted, but some terminals need it. % There's an exception: use ESC + ESC + digit to mimick ^Q + digit; this is % to avoid overriding the ESC + number + operation feature. % setkey (". 0 ide_goto_mark_n", "^Q0"); setkey (". 1 ide_goto_mark_n", "^Q1"); setkey (". 2 ide_goto_mark_n", "^Q2"); setkey (". 3 ide_goto_mark_n", "^Q3"); setkey (". 4 ide_goto_mark_n", "^Q4"); setkey (". 5 ide_goto_mark_n", "^Q5"); setkey (". 6 ide_goto_mark_n", "^Q6"); setkey (". 7 ide_goto_mark_n", "^Q7"); setkey (". 8 ide_goto_mark_n", "^Q8"); setkey (". 9 ide_goto_mark_n", "^Q9"); #ifndef MSDOS WIN32 setkey (". 0 ide_goto_mark_n", "\e\e0"); setkey (". 1 ide_goto_mark_n", "\e\e1"); setkey (". 2 ide_goto_mark_n", "\e\e2"); setkey (". 3 ide_goto_mark_n", "\e\e3"); setkey (". 4 ide_goto_mark_n", "\e\e4"); setkey (". 5 ide_goto_mark_n", "\e\e5"); setkey (". 6 ide_goto_mark_n", "\e\e6"); setkey (". 7 ide_goto_mark_n", "\e\e7"); setkey (". 8 ide_goto_mark_n", "\e\e8"); setkey (". 9 ide_goto_mark_n", "\e\e9"); #endif setkey ("kill_line", "^QY"); setkey ("kill_line", "^Q^Y"); setkey ("quoted_insert", "^Q^Q"); setkey ("ide_bob", "^QR"); setkey ("ide_bob", "^Q^R"); setkey ("ide_bol", "^QS"); setkey ("ide_bol", "^Q^S"); setkey ("ide_bol", Key_Home); setkey ("ide_eob", "^QC"); setkey ("ide_eob", "^Q^C"); setkey ("ide_eol", "^QD"); setkey ("ide_eol", "^Q^D"); setkey ("ide_eol", Key_End); setkey ("ide_goto_begin_block", "^QB"); setkey ("ide_goto_begin_block", "^Q^B"); setkey ("ide_goto_bottom_of_window", "^QX"); setkey ("ide_goto_bottom_of_window", "^Q^X"); setkey ("ide_goto_end_block", "^QK"); setkey ("ide_goto_end_block", "^Q^K"); setkey ("ide_goto_line_cmd", "^QI"); setkey ("ide_goto_line_cmd", "^Q^I"); setkey ("ide_goto_middle_of_window", "^QM"); setkey ("ide_goto_prev", "^QP"); setkey ("ide_goto_top_of_window", "^QE"); setkey ("ide_goto_top_of_window", "^Q^E"); setkey ("ide_replace_cmd", "^QA"); setkey ("ide_replace_cmd", "^Q^A"); setkey ("ide_search_forward", "^QF"); setkey ("ide_search_forward", "^Q^F"); setkey ("ide_toggle_case", "^QT"); setkey ("ide_toggle_case", "^Q^T"); #ifndef MSDOS WIN32 setkey ("kill_line", "\e^Y"); setkey ("ide_bob", "\e^R"); setkey ("ide_bol", "\e^S"); setkey ("ide_eob", "\e^C"); setkey ("ide_eol", "\e^D"); setkey ("ide_goto_begin_block", "\e^B"); setkey ("ide_goto_bottom_of_window", "\e^X"); setkey ("ide_goto_end_block", "\e^K"); setkey ("ide_goto_line_cmd", "\e^I"); setkey ("ide_goto_prev", "\e^P"); setkey ("ide_goto_top_of_window", "\e^E"); setkey ("ide_replace_cmd", "\e^A"); setkey ("ide_search_forward", "\e^F"); setkey ("ide_toggle_case", "\e^T"); #endif % % Control-K map % setkey (". 0 ide_set_mark_n", "^K0"); setkey (". 1 ide_set_mark_n", "^K1"); setkey (". 2 ide_set_mark_n", "^K2"); setkey (". 3 ide_set_mark_n", "^K3"); setkey (". 4 ide_set_mark_n", "^K4"); setkey (". 5 ide_set_mark_n", "^K5"); setkey (". 6 ide_set_mark_n", "^K6"); setkey (". 7 ide_set_mark_n", "^K7"); setkey (". 8 ide_set_mark_n", "^K8"); setkey (". 9 ide_set_mark_n", "^K9"); setkey ("exit_jed", "^KX"); setkey ("exit_jed", "^K^X"); setkey ("find_file", "^KE"); setkey ("find_file", "^K^E"); setkey ("find_file", Key_F3); setkey ("kill_buffer", "^KQ"); setkey ("kill_buffer", "^K^Q"); setkey ("kill_buffer", Key_Alt_F3); setkey ("split_window", Key_Alt_F5); setkey ("one_window", "^KI"); setkey ("one_window", "^K^I"); setkey ("one_window", Key_F5); setkey ("save_buffer", "^KD"); setkey ("save_buffer", "^K^D"); setkey ("save_buffer", Key_F2); setkey ("suspend", "^KZ"); setkey ("suspend", "^K^Z"); setkey ("ide_next_buffer (0)", "^KP"); % next setkey ("ide_next_buffer (0)", "^K^P"); setkey ("ide_next_buffer (1)", "^KN"); % previous setkey ("ide_next_buffer (1)", "^K^N"); setkey ("ide_next_buffer (1)", Key_F6); setkey ("ide_begin_block", "^KB"); % set mark setkey ("ide_begin_block", "^K^B"); setkey ("ide_copy_block", "^KC"); % yank setkey ("ide_copy_block", "^K^C"); setkey ("ide_delete_block", "^KY"); % cut setkey ("ide_delete_block", "^K^Y"); setkey ("comment_region", "^K;"); setkey ("uncomment_region", "^K:"); setkey_reserved ("comment_line", ";"); setkey_reserved ("uncomment_line", ":"); setkey ("ide_filter_region", "^K/"); setkey ("ide_open_file_at_cursor", "\e^M"); setkey ("ide_insert_file", "^KR"); setkey ("ide_insert_file", "^K^R"); setkey ("ide_lowercase_region", "^KL"); setkey ("ide_lowercase_region", "^K^L"); setkey ("ide_save_buffer", "^KS"); setkey ("ide_save_buffer", "^K^S"); setkey ("ide_select_word", "^KT"); setkey ("ide_select_word", "^K^T"); setkey ("ide_void_block", "^KK"); setkey ("ide_void_block", "^K^K"); setkey ("ide_clear_block", "^KH"); % copy to the clipboard setkey ("ide_clear_block", "^K^H"); setkey ("ide_uppercase_region", "^KU"); setkey ("ide_uppercase_region", "^K^U"); setkey ("write_region", "^KW"); setkey ("write_region", "^K^W"); setkey ("reg_insert_register", "^KJ"); % registers are something like setkey ("reg_insert_register", "^K^J"); % a multiple clipboard setkey ("reg_copy_to_register", "^KG"); setkey ("reg_copy_to_register", "^K^G"); % compiler/debugger interface setkey ("compile_parse_errors", Key_Alt_F8); % was ^X' setkey_reserved ("compile_parse_errors", "'"); setkey ("compile_previous_error", Key_Alt_F7); % was ^X, setkey_reserved ("compile_previous_error", ","); setkey ("ispell", Key_F7); % % Now let's implement the damn thing % $1 = 13; % bookmarks 0..9 are for the user; bookmark 10 is used by some of the % following functions; bookmark 11 and 12 mark the beginning and end of % the block (used by ^QB and ^QK) private variable _Ide_Bookmarks = Mark_Type[$1]; % ide_set_bookmark () and ide_goto_bookmark () are implemented to provide % a more Borland-ish way of copying and moving blocks, and of moving % around generally. define ide_set_bookmark () { _Ide_Bookmarks[10] = create_user_mark (); Ide_Bookmark_Exist = 1; } define ide_goto_bookmark () { variable mrk = _Ide_Bookmarks[10]; ide_set_bookmark (); sw2buf (mrk.buffer_name); goto_user_mark (mrk); } % % Basic commands: cursor movement, delete, search & replace, etc. % define ide_execute_macro () % ESC-R { ide_set_bookmark (); call ("execute_macro"); } define ide_previous_char_cmd () % Key_Left { ide_set_bookmark (); call ("previous_char_cmd"); } define ide_next_char_cmd () % Key_Right { ide_set_bookmark (); call ("next_char_cmd"); } define ide_next_line_cmd () % Key_Down { ide_set_bookmark (); call ("next_line_cmd"); } define ide_previous_line_cmd () % Key_Up { ide_set_bookmark (); call ("previous_line_cmd"); } define ide_page_down () % Key_PgDn { ide_set_bookmark (); call ("page_down"); } define ide_page_up () % Key_PgUp { ide_set_bookmark (); call ("page_up"); } define ide_bob () % ^QR { ide_set_bookmark (); bob (); } define ide_eob () % ^QC { ide_set_bookmark (); eob (); } define ide_bol () % Key_Home { ide_set_bookmark (); bol (); } define ide_eol () % Key_End { ide_set_bookmark (); eol (); } define ide_goto_bottom_of_window () % ^QX { ide_set_bookmark (); goto_bottom_of_window (); } define ide_goto_top_of_window () % ^QE { ide_set_bookmark (); goto_top_of_window (); } define ide_goto_middle_of_window () % ^QM { % incorrect if the buffer has fewer lines % than the windows that contains it. Duh. goto_top_of_window (); go_down (window_info ('r') / 2); } define ide_window_up () % ^W - J.F. { variable current,bottom; current = window_line (); bottom = window_info ('r'); ide_set_bookmark (); if (current == bottom) { ide_previous_line_cmd (); recenter (bottom); } else recenter (current + 1); } define ide_window_down () % \eZ J.F. { variable current = window_line (); ide_set_bookmark (); if (current == 1) { ide_next_line_cmd (); recenter (1); } else recenter (current - 1); } define ide_goto_line_cmd () % ^QI { ide_set_bookmark (); goto_line_cmd (); } define ide_replace_cmd () % ^QA { ide_set_bookmark (); replace_cmd (); } define ide_search_forward () % ^QF { ide_set_bookmark (); search_forward (); } define ide_toggle_case () % ^QT { variable on_off; CASE_SEARCH = not(CASE_SEARCH); if (CASE_SEARCH == 1) on_off = "On"; else on_off = "Off"; vmessage ("Case search is %s ", on_off); } define ide_toggle_overwrite () { toggle_overwrite (); if (is_overwrite_mode ()) message ("Overwrite"); else message ("Insert"); } define ide_repeat_search () % ^L { ide_set_bookmark (); go_right_1 (); ifnot (fsearch(LAST_SEARCH)) error ("Not found."); } define ide_bdelete_word () % M-O { variable p = _get_point (); ide_set_bookmark (); push_mark (); bskip_chars ("a-zA-Z0-9"); if (_get_point () == p) bskip_chars (" \n\t"); if (_get_point () == p) go_left (1); del_region (); } define ide_bskip_word () % ^A { variable p = _get_point (); ide_set_bookmark (); push_mark (); bskip_chars (Ide_Skippable_Chars); bskip_chars ("^" + Ide_Skippable_Chars); pop_mark_0 (); } define ide_delete_word () % ^T { variable p = _get_point (); push_mark (); skip_chars ("a-zA-Z0-9"); if (_get_point () == p) skip_chars (" \n\t"); if (_get_point () == p) go_right (1); del_region (); } define ide_skip_word () % ^F { variable p = _get_point (); ide_set_bookmark (); push_mark (); skip_chars ("^" + Ide_Skippable_Chars); if (_get_point () == p) { skip_chars (Ide_Skippable_Chars); skip_chars ("^" + Ide_Skippable_Chars); } pop_mark_0 (); } define ide_insert_any_char () % ^P { variable i, ch = 0, c, msg = ""; message ("ASCII-"); update_sans_update_hook (0); for (i = 100; i > 0; i = i / 10) { vmessage ("ASCII-%s", msg); update_sans_update_hook (0); do { c = getkey (); } while ( (c < '0') or (c > '9')); ch = ch + i * (c - '0'); msg += sprintf ("%c", c); vmessage ("ASCII-%s", msg); update_sans_update_hook (0); } insert_char (ch); vmessage ("ASCII-%s", msg); } define ide_next_buffer (previous) % Key_F6 | ^KN | Key_Alt_F6 | ^KP { variable n, buf; n = buffer_list (); % get the buffers on the stack if (previous) _stk_reverse (n-1); loop (n) { buf = (); n--; if (buf[0] == ' ') continue; sw2buf (buf); _pop_n (n); return; } } % Blocks: ^K-something % % blocks are no longer as in wordstar.sl. We don't cheat anymore. Rather, % blocks are implemented a la Emacs to maintain compatibility with most .sl % files (e.g., latex.sl, cmode.sl, etc) private variable IDE_Block_Buffer = "*ide-clipboard*"; private variable IDE_Block_Buffer_Empty = 1; define ide_copy_block_to_buffer () % paste the new region to the clipboard, then delete the old stuff { setbuf(IDE_Block_Buffer); erase_buffer (); call ("yank"); } define ide_begin_block () % ^KB { _Ide_Bookmarks[11] = create_user_mark (); call ("set_mark_cmd"); } define ide_end_block () { _Ide_Bookmarks[12] = create_user_mark (); exchange_point_and_mark (); } define ide_copy_block () % ^KC { ide_set_bookmark (); insbuf (IDE_Block_Buffer); ide_goto_bookmark (); } define ide_goto_begin_block () % ^QB { variable mrk = _Ide_Bookmarks[11]; ide_set_bookmark (); sw2buf (mrk.buffer_name); ide_set_bookmark (); goto_user_mark (mrk); } define ide_goto_end_block () % ^QK { variable mrk = _Ide_Bookmarks[12]; ide_set_bookmark (); sw2buf (mrk.buffer_name); ide_set_bookmark (); goto_user_mark (mrk); } define ide_void_block () % ^KK { pop_mark_0 (); error ("Obsolete - use ^KH instead."); } define ide_clear_block () % ^KH { ide_end_block (); call ("copy_region"); % copy region to internal buffer ide_copy_block_to_buffer (); IDE_Block_Buffer_Empty = 0; ide_goto_end_block (); } define ide_delete_block () % ^KY { ide_clear_block (); % copy the region to the clipboard, then ide_goto_begin_block (); % redefine the region and delete it. Rather ide_begin_block (); % twisted, but that's the way I like it! ide_goto_end_block (); ide_end_block (); call ("kill_region"); } define ide_goto_prev () % ^QP { if (Ide_Bookmark_Exist != 1) error ("No previous location!"); ide_goto_bookmark (); } define ide_open_file_at_cursor () % Alt-Return, J.L. { push_spot (); % Find the substring which could be a file name. - % The following method assumes reasonably standard file names. #ifdef UNIX bskip_chars ("-0-9a-zA-Z_!%+~./"); % left limit push_mark (); skip_chars ("-0-9a-zA-Z_!%+~./"); % right limit #else % DOS is supposed here: % DOS path names have backslashes and may contain a drive spec. bskip_chars ("-0-9a-zA-Z_!%+~./\\:"); % left limit push_mark (); skip_chars ("-0-9a-zA-Z_!%+~./\\:"); % right limit #endif variable fn = bufsubstr (); % the file name pop_mark_0 (); pop_spot (); ifnot (1 == file_status (fn)) error(strcat("File ",fn," not found")); () = find_file (fn); } define ide_insert_file () % ^KR { variable file = read_with_completion ("File:", Null_String, Null_String, 'f'); push_spot (); () = insert_file (file); pop_spot (); } define ide_select_word () % ^KT, Borland IDE facility { ide_skip_word (); ide_bskip_word (); ide_begin_block (); ide_skip_word (); ide_end_block (); message ("Word selected."); } #ifndef IBMPC_SYSTEM private variable Last_Process_Command = Null_String; define ide_filter_region () % ^K/, Joe extension { variable cmd, tmp_file; ide_end_block (); cmd = read_mini ("Pipe to command:", Last_Process_Command, Null_String); ifnot (strlen (cmd)) return; Last_Process_Command = cmd; ide_set_bookmark (); tmp_file = make_tmp_file ("/tmp/jedpipe"); cmd = strcat (cmd, " > ", tmp_file, " 2>&1"); if (pipe_region (cmd)) { error ("Process returned a non-zero exit status."); } () = insert_file (tmp_file); ide_begin_block (); ide_goto_end_block (); ide_end_block (); call ("kill_region"); () = delete_file (tmp_file); } #endif define ide_uppercase_region() % ^KU { ide_end_block (); xform_region('u'); ide_goto_end_block (); } define ide_lowercase_region() % ^KL { ide_end_block (); xform_region('d'); ide_goto_end_block (); } % % These are the predefined bookmarks 0..9, a la Wordstar. % define ide_goto_mark_n (n) { variable mrk = _Ide_Bookmarks[n]; if (mrk == NULL) error ("Bookmark not set!"); ide_set_bookmark (); sw2buf (mrk.buffer_name); goto_user_mark (mrk); message ("done."); } define ide_set_mark_n (n) % ^K0..9 { _Ide_Bookmarks[n] = create_user_mark (); vmessage ("Bookmark %d set.", n); } define ide_save_buffer () % ^KS { variable file = read_file_from_mini ("Save to file:"); if (file == "") return; () = write_buffer (file); } define ide_better_help () { variable file = expand_jedlib_file (Help_File); () = read_file (file); pop2buf (whatbuf ()); most_mode (); call ("one_window"); set_readonly (1); } % Menu Interface. Use existing menu definitions in most cases, but % change definitions in others. private define ide_load_popups_hook () { variable m; m = "Global.&File"; menu_delete_items (m); menu_append_item (m, "&Open", "find_file"); menu_append_item (m, "&Close", ".whatbuf delbuf"); menu_append_item (m, "&Save", "save_buffer"); menu_append_item (m, "Save &As", "ide_save_buffer"); menu_append_item (m, "Save &Buffers", "save_some_buffers"); menu_append_item (m, "&Insert File", "ide_insert_file"); menu_append_popup (m, "&Versions"); menu_append_separator (m); menu_append_item (m, "Cance&l Operation", "kbd_quit"); menu_append_item (m, "S&hell", "shell"); menu_append_item (m, "E&xit", "exit_jed"); m = "Global.&File.&Versions"; menu_append_item (m, "RCS &Open File", "rcs_open_file"); menu_append_item (m, "&Check In/Out", "rcs_check_in_and_out"); menu_append_item (m, "RCS Read &Log", "rcs_read_log"); menu_append_item (m, "Backups &On", "backups_on"); menu_append_item (m, "Backups O&ff", "backups_off"); m = "Global.&Edit"; menu_delete_items (m); menu_append_item (m, "&Begin Region/Rect", "ide_begin_block"); menu_append_item (m, "&Cut", "ide_delete_block"); menu_append_item (m, "C&opy", "ide_clear_block"); menu_append_item (m, "&Paste", "ide_copy_block"); menu_append_separator (m); menu_append_popup (m, "&Rectangles"); menu_append_popup (m, "Bloc&ks"); menu_append_popup (m, "&Advanced"); menu_append_separator (m); menu_append_item (m, "Re&format", "format_paragraph"); menu_append_item (m, "&Undo", "undo"); m = "Global.&Edit.&Advanced"; menu_append_item (m, "&Compose Character", "ide_insert_any_char"); if (is_defined ("digraph_cmd")) menu_append_item (m, "S&pecial Character", "digraph_cmd"); menu_append_item (m, "Toggle &Abbrev Mode", "abbrev_mode"); if (is_defined ("toggle_auto_ispell")) menu_append_item (m, "Toggle Auto &Ispell", "toggle_auto_ispell"); menu_append_item (m, "&Ispell", "ispell"); menu_append_item (m, "Co&mpletion", "dabbrev"); menu_append_item (m, "C&enter Line", "center_line"); menu_append_separator (m); menu_append_item (m, "&Start Macro", "begin_macro"); menu_append_item (m, "S&top Macro", "end_macro"); menu_append_item (m, "&Replay Last Macro", "execute_macro"); m = "Global.&Edit.&Rectangles"; menu_append_item (m, "&Cut Rectangle", "kill_rect"); menu_append_item (m, "C&opy Rectangle", "copy_rect"); menu_append_item (m, "&Paste Rectangle", "insert_rect"); menu_append_item (m, "Op&en Rectangle", "open_rect"); menu_append_item (m, "&Blank Rectangle", "blank_rect"); m = "Global.&Edit.Bloc&ks"; menu_append_item (m, "&Write to File", "write_region"); menu_append_item (m, "&Filter", "ide_filter_region"); menu_append_item (m, "&Sort", "sort"); menu_append_item (m, "&Upper Case", "ide_uppercase_region"); menu_append_item (m, "&Lower Case", "ide_lowercase_region"); menu_append_item (m, "Copy To &Register", "reg_copy_to_register"); menu_append_item (m, "&Paste From Register", "reg_insert_register"); menu_append_item (m, "&Comment", "comment_region"); menu_append_item (m, "U&ncomment", "uncomment_region"); m = "Global.&Search"; menu_append_item (m, "Search &Forward", "ide_search_forward"); menu_append_item (m, "Repeat &Last Search", "ide_repeat_search"); menu_append_item (m, "&Replace", "ide_replace_cmd"); menu_append_item (m, "Search &Match", "goto_match"); m = "Global.&Buffers"; % menu_append_separator (m); menu_append_item (m, "C&ompile", "compile"); menu_append_item (m, "&Next Error", "compile_parse_errors"); menu_append_item (m, "&Previous Error", "compile_previous_error"); if (is_defined ("gdb_mode")) menu_append_item (m, "Debug with &gdb", "gdb_mode"); m = "Global.&Help"; % menu_append_separator (m); menu_append_item (m, "Describe ID&E Mode", "ide_better_help"); } add_to_hook ("load_popup_hooks", &ide_load_popups_hook); runhooks ("keybindings_hook", _Jed_Emulation); % --- End of file ide.sl ---
Close
