Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
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--

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 );
    }

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]

${this.title}

Code Editor : perlxtra.sl