Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
complete.sl	4.29 KB	-rw-r--r--
editfuns.sl	2.62 KB	-rw-r--r--
editor.sl	2.3 KB	-rw-r--r--
emacskeys.sl	1.86 KB	-rw-r--r--
history.sl	1.57 KB	-rw-r--r--
histsrch.sl	1.95 KB	-rw-r--r--
slrline.rc	803 B	-rw-r--r--
vikeys.sl	4.41 KB	-rw-r--r--

Code Editor : editfuns.sl

define rline_beep ()
{
   () = fputs ("\007", stdout);
   () = fflush (stdout);
}

define rline_bol ()
{
   rline_call ("bol");
}

define rline_eol ()
{
   rline_call ("eol");
}

define rline_delete_line ()
{
   rline_set_line ("");
}

define rline_deleol ()
{
   rline_call ("deleol");
}

define rline_left ()
{
   rline_call ("left");
}

define rline_right ()
{
   rline_call ("right");
}

define rline_bdel ()
{
   rline_call ("bdel");
}

private define skip_non_word_chars (line, p)
{
   variable p1 = p, ch;
   do
     {
	p = p1;
	(p1, ch) = strskipchar (line, p, 1);
     }
   while (ch && not isalnum(ch));
   return p;
}

private define skip_word_chars (line, p)
{
   variable p1 = p, ch;
   do
     {
	p = p1;
	(p1, ch) = strskipchar (line, p, 1);
     }
   while (isalnum(ch));
   return p;
}

private define bskip_non_word_chars (line, p)
{
   variable p1 = p, ch;
   do
     {
	p = p1;
	(p1, ch) = strbskipchar (line, p, 1);
     }
   while (ch && not isalnum(ch));
   return p;
}

private define bskip_word_chars (line, p)
{
   variable p1 = p, ch;
   do
     {
	p = p1;
	(p1, ch) = strbskipchar (line, p, 1);
     }
   while (isalnum(ch));
   return p;
}

define rline_bskip_word ()
{
   variable line = rline_get_line (), p = rline_get_point ();
   rline_set_point (bskip_word_chars (line, bskip_non_word_chars(line, p)));
}

define rline_skip_word ()
{
   variable line = rline_get_line (), p = rline_get_point ();
   rline_set_point (skip_word_chars (line, skip_non_word_chars(line, p)));
}

private variable Mark = NULL;
private variable Paste_Buffer = "";

define rline_set_mark ()
{
   Mark = rline_get_point ();
}

private define get_mark (mp)
{
   if (Mark == NULL)
     {
	rline_beep ();
	return -1;
     }
   @mp = Mark;
   Mark = NULL;
   return 0;
}

private define get_region (mp, pp)
{
   variable m;
   if (-1 == get_mark (&m))
     return -1;

variable p = rline_get_point ();
   if (p < m)
     (p, m) = (m, p);
   @mp = m;
   @pp = p;
   return 0;
}

private define copy_region_to_pastebuffer (m, p)
{
   variable line = rline_get_line ();
   Paste_Buffer = substrbytes (line, m+1, (p-m));
}

define rline_copy_region ()
{
   variable m, p;
   if (-1 == get_region (&m, &p))
     return;
   copy_region_to_pastebuffer (m, p);
}

define rline_kill_region ()
{
   variable m, p;
   if (-1 == get_region (&m, &p))
     return;

copy_region_to_pastebuffer (m, p);
   rline_set_point (m);
   rline_del (p-m);
}

define rline_kill_eol ()
{
   rline_set_mark ();
   rline_eol ();
   rline_kill_region ();
}

define rline_kill_bol ()
{
   rline_set_mark ();
   rline_bol ();
   rline_kill_region ();
}

define rline_yank ()
{
   rline_ins (Paste_Buffer);
}

${this.title}

Code Editor : editfuns.sl