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

% Public functions:
%
%   rline_load_history (file);
%   rline_save_history (file);
%

variable RLine_Hist_Max_Lines = 50;
variable RLine_History_File = NULL;
#ifdef UNIX
%if (getenv ("HOME") != NULL) RLine_History_File = "$HOME/.${name}_slhist";
#endif

autoload ("rline_up_hist_search", "rline/histsrch.sl");
autoload ("rline_down_hist_search", "rline/histsrch.sl");
define rline_load_history ()
{
   variable file = RLine_History_File;
   if (_NARGS == 1)
     file = ();
   if (file == NULL)
     return;

variable fp = fopen (file, "r");
   if (fp == NULL)
     return;

variable lines = fgetslines (fp);
   () = fclose (fp);
   lines = strtrim_end (lines, "\n");
   rline_set_history (lines);
}

define rline_save_history ()
{
   variable file = RLine_History_File;
   if (_NARGS == 1)
     file = ();
   if (file == NULL)
     return;

variable max_lines = qualifier ("max", RLine_Hist_Max_Lines);
   variable h = rline_get_history ();
   variable n = length (h);
   if (n > max_lines)
     h = h[[n-max_lines:]];

variable fd = open (file, O_WRONLY|O_CREAT|O_TRUNC|O_TEXT, S_IRUSR|S_IWUSR);
   if (fd == NULL)
     return;

variable fp = fdopen (fd, "w");
   if (fp == NULL)
     return;

foreach (h)
     {
	variable line = ();
	() = fputs (line, fp);
	() = fputs ("\n", fp);
     }
   () = fflush (fp);
   () = close (fd);
}

define rline_edit_history ()
{
   variable lines = rline_get_history ();
   lines = rline_call_editor (lines, "histedit", "tmp");
   if ((lines == NULL)
       || (length (lines) == 0))
     return;

rline_set_history (strtrim_end(lines, "\n"));
}

${this.title}

Code Editor : history.sl