S-Lang (language interpreter)

[alexfish]

Hi All

Whilst looking for a better way to do a poor mans terminal >
I stumbled on S-lang:

The S-Lang library includes the following:
* Low level tty input routines for reading single characters at a time.
* Keymap routines for defining keys and manipulating multiple keymaps.
* A high-level key processing interface (SLkp) for
handling function and arrow keys.
* High level screen management routines for manipulating both
monochrome and color terminals. These routines are very
efficient. (SLsmg)
* Low level terminal-independent routines for manipulating the display
of a terminal. (SLtt)
* Routines for reading single line input with line editing and recall
capabilities. (SLrline)
* Searching functions: both ordinary searches and regular expression
searches. (SLsearch)
* An embedded stack-based language interpreter with a C-like syntax.

Will Need libslang2-dev

possible find here the following files
/usr/share/doc/libslang2-dev/examples/README
/usr/share/doc/libslang2-dev/examples/demolib.c
/usr/share/doc/libslang2-dev/examples/keypad.c
/usr/share/doc/libslang2-dev/examples/pager.c
/usr/share/doc/libslang2-dev/examples/smgtest.c
/usr/share/doc/libslang2-dev/examples/useropen.c

have tested all in c but have done a quick demo in Bacon

if wanting to continue: best look at smgtest.c | also thinking in terms of Joes work on the RPI GPIO pins

Example of Embedding S-lang in Bacon


PRAGMA LDFLAGS -lslang
PRAGMA INCLUDE <slang.h>

OPTION PARSE FALSE
LOCAL abort_char = 7 TYPE int
LOCAL ch TYPE unsigned char

IF (-1 == SLang_init_tty (abort_char, 0, 1)) THEN
 PRINT "Unable to initialize the terminal"
END IF
' Disable Ctrl_
SLang_set_abort_signal (NULL);

WHILE (1) DO
 PRINT "Press any key. To quit , press Ctlr-G"
' can increase or decrease input pending
             IF (SLang_input_pending (50) == 0)  THEN
               
                  PRINT "waited to long Bye"
                  BREAK

              END IF

             ch = SLang_getkey()
IF (SLang_get_error () == SL_UserBreak_Error) THEN
       PRINT "Ctrl-G pressed!  Bye"
BREAK
END IF

   PRINT CHR$(ch)

 WEND
        SLang_reset_tty ();


Have Fun
+
BR
Alex

[alexfish]

Hi All


as in the above example getkey and as in BaCon GETKEY

I do have problems or issues with the chars returned that be in esp ALT and ALT-GR keys IE utf8

Compare these two bits of bacon code


PRINT "Test the ALT & ALT_GR keys..."
PRINT "Press <escape> to exit now..."

LOCAL ptr TYPE int
WHILE (1) DO
INCR ptr

key = GETKEY
IF key = 27 THEN
   END
END IF
PRINT "counter " , ptr
PRINT "Key val " , key
IF ptr == 2 THEN
PRINT ptr
END IF
WEND


And here trying to trap the keycode ; this bit may be useful from a terminal getkey aspect IE filter out the bits you want


PRINT "Test the ALT & ALT_GR keys..."
PRINT "Press <escape> to exit now..."
LOCAL code[3] TYPE int
LOCAL ptr TYPE int
WHILE (1) DO
INCR ptr

key = GETKEY
IF key = 27 THEN
   END
END IF


 IF (key>127) THEN
 IF (ptr =1) THEN
 code[0]=key
 END IF
 IF (ptr == 2) THEN
 code[1]=key
 PRINT "codes2 " , code[0] , ":" , code[1]
ptr=0
END IF
ELSE
PRINT "codes1 >" , key
PRINT "Char   >" , CHR$(key)
ptr=0
END IF
WEND


from this one should be able to work out the codepoint for the char : but these as are do not as yet compute
in terms of the TWO byte utf8 table ; hence looking at this
Have Fun
+
BR
Alex

[alexfish]

Hi All

as a comparison this is part of a PI project

there many decoders that give what is called UTF-8 codepoint < that bit is a pointer two the font glyph (char)

example

but this could be done with ASOCC in BACON


altgrl[183] = "·";
altgrl[230] = "æ";
altgrl[8221] = "”";
altgrl[162] = "¢";
altgrl[240] = "ð";
altgrl[101] = "e";
altgrl[273] = "đ";
altgrl[331] = "ŋ";
altgrl[295] = "ħ";
altgrl[8594] = "→";
altgrl[322] = "ł";
altgrl[181] = "µ";
altgrl[110] = "n";
altgrl[248] = "ø";
altgrl[254] = "þ";
//altgrl[64] = "@";
altgrl[182] = "¶";
altgrl[223] = "ß";
altgrl[359] = "ŧ";
altgrl[8595] = "↓";
altgrl[8220] = "“";
altgrl[322] = "ł";
altgrl[187] = "»";
altgrl[8592] = "←";
altgrl[171] = "«";
//===============================
altgrl[198] = "Æ";
altgrl[208] = "Ð";
altgrl[69] = "E";
altgrl[272] = "Đ";
altgrl[330] = "Ŋ";
altgrl[294] = "Ħ";
altgrl[8594] = "→";
altgrl[321] = "Ł";
altgrl[78] = "N";
altgrl[216] = "Ø";
altgrl[222] = "Þ";
altgrl[64] = "@";
altgrl[182] = "¶";
altgrl[223] = "ß";
altgrl[358] = "Ŧ";
altgrl[8595] = "↓";
altgrl[8220] = "“";
altgrl[321] = "Ł";
altgrl[187] = "»";
altgrl[8592] = "←";
altgrl[171] = "«";

ADDED
This is a section of code from the Ngltk (toolkit) project
and now in progress of BaCon IT; when done should also be usefull for the Canvas Projects
unsigned char *next_utf8_char(unsigned char *utf8, int *codepoint) {
int seqlen;
int datalen = (int)strlen((const char *)utf8);
unsigned char *p = utf8;

if (datalen < 1 || *utf8 == 0) {   // End of string
return NULL;
}

if (!(utf8[0] & 0x80)) {   // 0xxxxxxx
*codepoint = (wchar_t) utf8[0];
seqlen = 1;
} else if ((utf8[0] & 0xE0) == 0xC0) {   // 110xxxxx
*codepoint = (int)(((utf8[0] & 0x1F) << 6) | (utf8[1] & 0x3F));
seqlen = 2;
} else if ((utf8[0] & 0xF0) == 0xE0) {   // 1110xxxx
*codepoint = (int)(((utf8[0] & 0x0F) << 12) | ((utf8[1] & 0x3F) << 6) | (utf8[2] & 0x3F));
seqlen = 3;
} else {
return NULL;   // No code points this high here
}

p += seqlen;
return p;
}
Alex