S-Lang

S-Lang

S-Lang based editor, JED
Developer(s)	John E. Davis[1]
Stable release	2.3.3[2]  / 5 August 2022
Written in	S-Lang scripting language
Operating system	POSIX
Type	Widget toolkit
License	GPL-2.0-or-later[3]
Website	www.jedsoft.org/slang/

The S-Lang programming library is a software library for Unix, Windows, VMS, OS/2, and Mac OS X. It provides routines for embedding an interpreter for the S-Lang scripting language, and components to facilitate the creation of text-based applications.^[4] The latter class of functions include routines for constructing and manipulating keymaps, an interactive line-editing facility, and both low- and high-level screen/terminal management functions. It is distributed under the terms of the GNU General Public License.

The S-Lang programming library was started in 1992 by John E. Davis, considering that functions he wrote for a text editor might be useful in other programs.^[5] The earliest version of the library contained input/output routines for interacting with computer terminals and an implementation of a simple stack-based interpreter with a PostScript-like syntax that he developed for use in a scientific plotting program. The JED text editor was the first program to both embed the interpreter and use the terminal I/O components of the library.

The interpreter makes up most of the S-Lang library, and is also where most of the development takes place. Although the original syntax supported by the interpreter resembled PostScript, the syntax has evolved to be much more C-like, with additional support for object-oriented style constructs. As a reflection of Davis's background in physics and professional interest in scientific computing, the language natively supports many vectorized array-based operations similar to MATLAB and IDL.^[6]

Until version 2.0, the interpreter was not a standalone program. Instead, Davis advocated embedding it into applications to make them extensible. Using the interpreter meant either embedding it in a C program, or using it in the context of another application (e.g., the JED editor). The S-Lang shell, slsh, was a demonstration program capable of little more than running scripts. Version 2.0, released in 2005, made slsh interactive, and it has evolved into an application in its own right, with a number of external modules for use by it. As such, it has become the S-Lang interpreter.

In the mid-1990s while porting the sc spreadsheet to the S-Lang library, Davis developed the library's screen management facility.^{[citation needed]} This component was designed to optimize screen output (by minimizing the number of characters sent to the terminal), and provide a simple way to support a variety of terminals through an extra layer of abstraction between the application code and the terminal. The slrn newsreader was the first application to make full use of this interface.^{[citation needed]} Since then, a number of other programs (e.g., Mutt^[7]) have taken advantage of this feature of the library, and it has become arguably the most used aspect of the library, as this component is considered to be an alternative to curses.^[8][9] Since version 2.0, the screen management routines have had transparent support for UTF-8.

#! /usr/bin/env slsh
% The program below solves the following problem:
%    Sort an input file that consists of lines like this
%
%        var1=23 other=14 ditto=23 fred=2

private variable Keys, Values;
private define sort_fun (i, j)
{
   variable s, a, b;

   s = Values[i] - Values[j];
   !if (s)
     return strcmp (Keys[i], Keys[j]);
   return s;
}

define slsh_main ()
{
   variable line, len, i, vals;
   foreach line (stdin)
     {
		% Split string into an array of strings %
		% by using white chars and = as delimite
		% 
		line = strtok (line, " \t\n=");
		len = length(line)/2;
		if (len == 0)
		  continue;
		
		% Even elements are keys, odd are values
		% The [0::2] is an array containing indexes with a 2 specifying step
		% and creating indexes from 0 to the length(line)
		Keys = line[[0::2]];
		vals = line[[1::2]];

		% The variable is declared above
		Values = atoi (vals);

		i = array_sort ([0:len-1], &sort_fun);
		% There are different ways of writing the result.  Here is a
		% fast way that avoids a loop.
		% The empty parenthesis () denote variable declaration and specifies
		% that return value should be discarded
		() = printf ("%s\n", strjoin (Keys[i] + "=" + vals[i], " "));
     }
}

• ncurses

• S-Lang Library Information Page, by John E. Davis
• S-Lang Releases
• S-Lang Documentation