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 : pymode.sl

% Python mode
% File: pymode.sl v1.3.1
%
% For editing source code written in the Python programming language.
% Provides basic compatibility with Python mode under real Emacs
%
% Authors: Harri Pasanen <hpa@iki.fi>
%          Brien Barton <brien_barton@hotmail.com>
%
% following keys have python specific bindings:
%
% DELETE deletes to previous indent level
% TAB indents line
% ^C#  comments region or current line
% ^C>  shifts line or region right
% ^C<  shifts line or region left
% ^C^C executes the region, or the buffer if region not marked.
% ^C|  executes the region
% ^C\t reindents the region
% :    colon dedents appropriately
%
% See python_mode function for available hooks
%
% Shortcomings: does not really support triple-quoted strings in any way.
%

% Changes from v1.0:
%
% Major improvements, mostly done by Brien Barton:
%
% - execution of python code from JED
% - DFA syntax support
% - improved indent - dedent.
%

% Changes from v1.1:
%
% Minor fixes, by Tom Culliton
%
% - corrected a syntax error
% - fixed non-DFA syntax hilighting tables to work better
% - added the new assert keyword

% Changes from v1.2
% - autoindent correction

% Changes from v1.3
% - discard return value from run_shell_cmd
% - avoid use of create_array and explicit loop for initializing it.

$1 = "python";

ifnot (keymap_p ($1)) make_keymap ($1);

definekey_reserved ("py_comment_region", "#", $1);
definekey_reserved ("py_uncomment_region", "3", $1);
definekey_reserved ("py_shift_region_right", ">", $1);
definekey_reserved ("py_shift_region_left", "<", $1);
definekey_reserved ("py_exec", "^C", $1);    % Execute buffer, or region if defined
definekey_reserved ("py_exec_region", "|", $1);
definekey_reserved ("py_reindent_region", "\t", $1);

definekey ("py_backspace_key", "^?", $1);
definekey ("indent_line", "\t", $1);
definekey ("py_electric_colon", ":", $1);
#ifdef MSWINDOWS
definekey ("py_help_on_word", "^@;", $1);
#endif

% Set the following to your favourite indentation level
custom_variable("Py_Indent_Level", 4);

private define py_whitespace(cnt)
{
   if ( get_blocal_var("py_use_tab") )
     loop (cnt / TAB) insert_char('\t');
   else
     insert_spaces (cnt);
}

private define py_line_ends_with_colon()
{
   eol();
   if (bfind_char(':')) {
      go_right(1);
      skip_white();
      if (eolp() or looking_at_char('#'))
	return 1;
   }
   return 0;
}

private define py_endblock_cmd()
{
   bol_skip_white();
   push_mark();
   skip_chars("a-z");
   return is_list_element("return,raise,break,pass,continue",
                          bufsubstr(), ',') > 0;
}

private define py_line_starts_subblock()
{
   bol_skip_white();
   if (looking_at("else") or
      looking_at("elif")  or
      looking_at("except")  or
      looking_at("finally"))
      return 1;
   return 0;
}

private define py_line_starts_block()
{
   bol_skip_white();
   if (looking_at("if") or
      looking_at("try") or
      py_line_starts_subblock())
      return 1;
   return 0;
}

private define py_indent_calculate()
{  % return the indentation of the previous python line
   variable col = 0;
   variable subblock = 0;

EXIT_BLOCK
     {
	pop_spot ();
	return col;
     }

% check if current line starts a sub-block
   subblock = py_line_starts_subblock();

% go to previous non blank line
   push_spot_bol ();
   ifnot (re_bsearch ("[^ \t\n]"))
     return;
   bol_skip_white();

col = what_column() - 1;

variable indent;
   if ( get_blocal_var("py_use_tab") )
      indent = TAB;
   else
      indent = Py_Indent_Level;

if (py_line_ends_with_colon())
      col += indent;
   if (py_endblock_cmd() or (subblock and not py_line_starts_block()))
      col -= indent;
}

define py_indent_line()
{
   variable col;

col = py_indent_calculate();
   bol_trim ();
   py_whitespace( col );
}

define py_comment_line()
{
   bol();
   insert("##");
}

define py_electric_colon()
{
   variable i;
   insert(":");
   push_spot();
   if (py_line_starts_subblock())  % Only dedents on colon
     {
	pop_spot();
	i = what_column();
	bol_skip_white();
	i = i - what_column();
	if (py_indent_calculate() < what_column()) % Ensure dedent only
	  py_indent_line();
	bol_skip_white();
	goto_column( i + what_column() );
     }
   else
     pop_spot();
}

define py_comment_region()
{
   variable n;

check_region (1);
   n = what_line ();
   pop_mark_1 ();
   loop (n - what_line ())
     {
	py_comment_line();
	go_down_1 ();
     }
   pop_spot();
}

define py_comment()
{
   push_spot();
   if (markp()) {
      py_comment_region();
   } else {
      py_comment_line();
   }
   pop_spot();
}

define py_uncomment_line()
{
   bol_skip_white();
   while (looking_at("#")) del();
}

define py_uncomment_region()
{
   variable n;

check_region (1);
   n = what_line ();
   pop_mark_1 ();
   loop (n - what_line ())
     {
	py_uncomment_line();
	go_down_1 ();
     }
   pop_spot();
}

define py_uncomment() {
   push_spot();
   if (markp()) {
      py_uncomment_region();
   } else {
      py_uncomment_line();
   }
   pop_spot();
}

define py_backspace_key()
{
   variable col;

col = what_column();
   push_spot();
   bskip_white();
   if (bolp() and (col > 1))
     {
	pop_spot();
	if ( blooking_at("\t") )
	  {
	     go_left (1);
	     del();
	  }
	else
	  {
	     bol_trim ();
	     col--;
	     if (col mod Py_Indent_Level == 0)
	       col--;
	     py_whitespace ( (col / Py_Indent_Level) * Py_Indent_Level );
	  }
     }
   else
     {
	pop_spot();
	call("backward_delete_char_untabify");
     }
}

define py_shift_line_right()
{
   variable times = prefix_argument(1);
   bol_skip_white();
   py_whitespace(Py_Indent_Level*times);
}

define py_shift_region_right()
{
   variable times = prefix_argument(1);
   check_region (1);		       %  spot_pushed, now at end of region
   variable n = what_line ();
   pop_mark_1 ();
   loop (n - what_line ())
     {
	set_prefix_argument(times);
	py_shift_line_right();
	go_down_1 ();
     }
   pop_spot();
}

define py_shift_right()
{
   push_spot();
   if (markp()) {
      py_shift_region_right();
   } else {
      py_shift_line_right();
   }
   pop_spot();
}

define py_shift_line_left()
{
   variable times = prefix_argument(1);
   bol_skip_white();
   if (what_column() > Py_Indent_Level*times)
     {
	if ( get_blocal_var("py_use_tab") )
	  {
	     go_left (times);
	     deln(times);
	  }
	else
	  {
	     push_mark();
	     goto_column(what_column() - Py_Indent_Level*times);
	     del_region();
	  }
     }
}

define py_shift_region_left()
{
   variable times = prefix_argument(1);

check_region (1);
   variable n = what_line ();
   pop_mark_1 ();
   loop (n - what_line ())
     {
	set_prefix_argument (times);
	py_shift_line_left();
	go_down_1 ();
     }
   pop_spot();
}

define py_shift_left() {
   push_spot();
   if (markp()) {
      py_shift_region_left();
   } else {
      py_shift_line_left();
   }
   pop_spot();
}

define py_newline_and_indent()
{
   newline();
   py_indent_line();
}

define file_path(fullname)
{
   variable filename;
   filename = extract_filename(fullname);
   substr(fullname, 1, strlen(fullname)-strlen(filename));
}

define py_exec_region()
{
   % Run python interpreter on current region.
   % Display output in *shell-output* buffer window.
   variable oldbuf, thisbuf, file, line, start_line;
   variable tmpfile = "_python.tmp";
   variable error_regexp = "^  File \"\$[^\"]+\$\", line \$\\d+\$.*";
   variable py_source = buffer_filename();
   change_default_dir(file_path(py_source));
   thisbuf = whatbuf();
   % Check if 1st line starts in column 1
   exchange_point_and_mark();
   bol_skip_white();
   start_line = what_line();
   if (what_column() > 1) {
      % Workaround in case block is indented
      write_string_to_file("if 1:\n", tmpfile); bol();
      start_line--;   % offset for this extra line
   }
   exchange_point_and_mark();
   append_region_to_file(tmpfile);
   oldbuf = pop2buf_whatbuf("*shell-output*"); erase_buffer ();
#ifdef UNIX
   ()=run_shell_cmd(sprintf("python %s 2>&1", tmpfile));
#else
   ()=run_shell_cmd(sprintf("python %s", tmpfile));
#endif
   () = delete_file(tmpfile);

% try to restore any window that got replaced by the shell-output
   if (strlen(oldbuf) and (strcmp(oldbuf, "*shell-output*") != 0)
       and (strcmp(thisbuf, oldbuf) != 0)) {
      splitwindow(); sw2buf(oldbuf); pop2buf("*shell-output*");
   }
   eob();
   %  Check for error message
   while (re_bsearch(error_regexp) != 0) {
      %  Make sure error occurred in the file we were executing
      file = regexp_nth_match(1);
      line = integer(regexp_nth_match(2));
      if (strcmp(file, tmpfile) == 0) {
	 %  Move to line in source that generated the error
	 pop2buf(thisbuf);
	 goto_line(line + start_line - 1);
	 break;
      } else {
	 %  Error is in another file, try previous error message
	 continue;
      }
   }
   % if there is no output, then close the shell-window and
   % put a message up. This is how emacs works. <jimbag>
   if( bobp() and eobp() ) {
      pop2buf( thisbuf );
      onewindow();
      message( "No output." );
   }
}

define py_exec()
{
   % Run python interpreter on current region if one is defined, otherwise
   % on the whole buffer.
   % Display output in *shell-output* buffer window.
   ifnot (markp()) {		% create region containing entire buffer
      push_spot_bob ();
      push_mark_eob ();
   }
   py_exec_region();
}

define py_reindent() {
   % Reindents a (correctly) indented buffer using the current
   % value of Py_Indent_Level.
   % Warning: Current version can be fooled by implicit or explicit
   %   continuation lines.
   variable indent_level = Int_Type[64];
   %variable indent_level = create_array('i', 64, 1);
   variable level = -1;
   variable current_indent = -1;
   variable errmsg, i, col, ignore, oldlevel;

indent_level[*] = -1;
   bob();
   do {
      bol_skip_white();
      ignore = looking_at_char('#') or eolp();
      if (ignore) continue;	% skip comments and blank lines
      col = what_column() - 1;
      oldlevel = level;		% save current level
      if (col > current_indent) {	% indenting
	 level++;
      } else if (col < current_indent) {	% dedent
	 while ((level > 0) and (indent_level[level] > col)) {
	    indent_level[level] = -1;  % clear current level setting
	    level--;
	 }
      }
      if ((indent_level[level] != -1) and (indent_level[level] != col)) {
	 % Indent is wrong.  Hopefully it's a continuation line.
	 level = oldlevel;	% reset level
	 bol_trim();
	 py_whitespace(level * Py_Indent_Level + (col - current_indent));
      } else {
	 current_indent = col;
	 indent_level[level] = col;
	 bol_trim();
	 py_whitespace(level * Py_Indent_Level);
      }
   } while (down(1) == 1);
}

define py_reindent_region()
{
   narrow();
   py_reindent();
   widen();
}

#ifdef MSWINDOWS
define py_help_on_word()
{
   variable tag = "0-9A-Z_a-z";

push_spot ();
   skip_white ();
   bskip_chars (tag);
   push_mark ();
   skip_chars (tag);
   tag = bufsubstr ();		% leave on the stack
   pop_spot ();
   message( strcat("Help on ", tag) );
   msw_help( getenv("PYLIBREF"), tag, 0);
}

#endif

create_syntax_table ($1);
define_syntax ("#", "", '%', $1);		% comments
define_syntax ("([{", ")]}", '(', $1);		% delimiters
define_syntax ('"', '"', $1);			% quoted strings
define_syntax ('\'', '"', $1);			% quoted strings
%define_syntax("\"\"\"","\"\"\"", '%', $1);
%define_syntax ('\'', '\'', $1);			% quoted characters
define_syntax ('\\', '\\', $1);			% continuations
define_syntax ("0-9a-zA-Z_", 'w', $1);		% words
define_syntax ("-+0-9a-fA-FjJlLxX.", '0', $1);	% Numbers
define_syntax (",;.:", ',', $1);		% punctuation
define_syntax ("%-+/&*=<>|!~^`", '+', $1);	% operators
set_syntax_flags ($1, 0);			% keywords ARE case-sensitive

() = define_keywords ($1, "ifinisor", 2); % all keywords of length 2
() = define_keywords ($1, "anddefdelfornottry", 3); % of length 3 ....
() = define_keywords ($1, "elifelseexecfrompass", 4);
() = define_keywords ($1, "breakclassprintraisewhileyield", 5);
() = define_keywords ($1, "assertexceptglobalimportlambdareturn", 6);
() = define_keywords ($1, "finally", 7);
() = define_keywords ($1, "continue", 8);

% Type 1 keywords (actually these are what's in __builtins__)
() = define_keywords_n ($1, "id", 2, 1);
() = define_keywords_n ($1, "setsumzipabschrcmpdirhexintlenmapmaxminoctordpowstr", 3, 1);
() = define_keywords_n ($1, "TruebooldictexitfilehelpiterlistquitNoneevalhashlongopenreprtypevars", 4, 1);
() = define_keywords_n ($1, "Falseslicesuperapplyfloatinputrangeroundtuple", 5, 1);
() = define_keywords_n ($1, "bufferinternobjectsortedunichrcoercedivmodfilterlocalsreducereloadxrange", 6, 1);
() = define_keywords_n ($1, "OSErrorWarningcomplexcreditslicenseunicodeIOError__doc__compiledelattrgetattrglobalshasattrsetattr", 7, 1);
() = define_keywords_n ($1, "EllipsisTabErrorpropertyreversedEOFErrorKeyError__name__callableexecfile__call__", 8, 1);
() = define_keywords_n ($1, "Exception__debug__copyrightenumeratefrozensetNameErrorTypeErrorraw_input", 9, 1);
() = define_keywords_n ($1, "basestringisinstanceissubclassIndexErrorSystemExitValueError__import__", 10, 1);
() = define_keywords_n ($1, "LookupErrorUserWarningclassmethodAccessErrorImportErrorMemoryErrorSyntaxErrorSystemError", 11, 1);
() = define_keywords_n ($1, "UnicodeErrorstaticmethodRuntimeError", 12, 1);
() = define_keywords_n ($1, "FutureWarningStandardErrorStopIterationSyntaxWarningConflictErrorOverflowError", 13, 1);
() = define_keywords_n ($1, "AssertionErrorNotImplementedReferenceErrorRuntimeWarningAttributeErrorAssertionError", 14, 1);
() = define_keywords_n ($1, "ArithmeticErrorOverflowWarning", 15, 1);
() = define_keywords_n ($1, "EnvironmentErrorIndentationError", 16, 1);
() = define_keywords_n ($1, "UnboundLocalErrorKeyboardInterruptZeroDivisionError", 17, 1);
() = define_keywords_n ($1, "DeprecationWarningFloatingPointErrorUnicodeDecodeErrorUnicodeEncodeError", 18, 1);
() = define_keywords_n ($1, "NotImplementedError", 19, 1);
() = define_keywords_n ($1, "UnicodeTranslateError", 21, 1);
() = define_keywords_n ($1, "PendingDeprecationWarning", 25, 1);

#ifdef HAS_DFA_SYNTAX
%%% DFA_CACHE_BEGIN %%%
private define setup_dfa_callback (name)
{
   dfa_enable_highlight_cache("python.dfa", name);
   dfa_define_highlight_rule("\"\"\".+\"\"\"", "string", name);	% long string (""")
   dfa_define_highlight_rule("'''.+'''", "string", name);	% long string (''')
   dfa_define_highlight_rule("\"[^\"]*\"", "string", name);	% normal string
   dfa_define_highlight_rule("'[^']*'", "string", name);		% normal string
   dfa_define_highlight_rule("#.*", "comment", name);		% comment
   dfa_define_highlight_rule("[A-Za-z_][A-Za-z_0-9]*", "Knormal", name); % identifier
   dfa_define_highlight_rule("[1-9][0-9]*[lL]?", "number", name);	% decimal int
   dfa_define_highlight_rule("0[0-7]*[lL]?", "number", name);		% octal int
   dfa_define_highlight_rule("0[xX][0-9a-fA-F]+[lL]?", "number", name);	% hex int
   dfa_define_highlight_rule("[1-9][0-9]*\\.[0-9]*([Ee][\\+\\-]?[0-9]+)?",
			 "number", name);				% float n.[n]
   dfa_define_highlight_rule("0?\\.[0-9]+([Ee][\\+\\-]?[0-9]+)?",
			 "number", name);				% float [n].n
   dfa_define_highlight_rule("[ \t]+", "normal", name);
   dfa_define_highlight_rule("[\$\\[{}\\]\$,:\\.\"`'=;]", "delimiter", name);
   dfa_define_highlight_rule("[\\+\\-\\*/%<>&\\|\\^~]", "operator", name); % 1 char
   dfa_define_highlight_rule("<<|>>|==|<=|>=|<>|!=", "operator", name);	  % 2 char

% Flag badly formed numeric literals or identifiers.  This is more effective
   % if you change the error colors so they stand out.
   dfa_define_highlight_rule("[1-9][0-9]*[lL]?[0-9A-Za-z\\.]+", "error", name);	% bad decimal
   dfa_define_highlight_rule("0[0-7]+[lL]?[0-9A-Za-z\\.]+", "error", name); % bad octal
   dfa_define_highlight_rule("0[xX][0-9a-fA-F]+[lL]?[0-9A-Za-z\\.]+", "error", name); % bad hex
   dfa_define_highlight_rule("\\.[0-9]+([Ee][\\+\\-]?[0-9]+)?[A-Za-z]+", "error", name);	% bad float
   dfa_define_highlight_rule("[A-Za-z_][A-Za-z_0-9]*\\.[0-9]+[A-Za-z]*", "error", name); % bad identifier

dfa_build_highlight_table(name);
}
dfa_set_init_callback (&setup_dfa_callback, "python");
%%% DFA_CACHE_END %%%
#endif

%!%+
%\function{python_mode}
%\synopsis{python_mode}
%\usage{python_mode ()}
%\description
% A major mode for editing python files.
%
% The following keys have python specific bindings:
%#v+
% DELETE deletes to previous indent level
% TAB indents line
% ^C# comments region or current line
% ^C> shifts line or region right
% ^C< shifts line or region left
% ^C^C executes the region, or the buffer if region not marked.
% ^C|  executes the region
% ^C\t reindents the region
% :    colon dedents appropriately
%#v-
% Hooks: \var{python_mode_hook}
%
%\seealso{Py_Indent_Level}
%\seealso{set_mode, c_mode}
%!%-
define python_mode ()
{
   variable python = "python";

create_blocal_var("py_use_tab");
   set_blocal_var(Py_Indent_Level == TAB, "py_use_tab");
   push_spot();
   bob();
   do
     {
	skip_white();
	if ( looking_at("\"\"\"") )
	  {
	     go_right (1);
	     () = fsearch("\"\"\"");
	  }
	else ifnot (looking_at_char('#') or eolp() or what_column() == 1)
	  {
             bol();
             set_blocal_var(looking_at_char('\t'), "py_use_tab");
             break;
	  }
     }
   while (down(1));
   pop_spot();

set_mode (python, 0x4); % flag value of 4 is generic language mode
   use_keymap(python);
   set_buffer_hook ("indent_hook", "py_indent_line");
   set_buffer_hook ("newline_indent_hook", "py_newline_and_indent");
   use_syntax_table (python);
   run_mode_hooks ("python_mode_hook");
}

${this.title}

Code Editor : pymode.sl