Introducing PSALM

[Pjot]

All,

As most of you know, I am the creator of the GTK-server, which enables GTK programming for interpreted code.

One of the things on my bucket list was to redo this GTK-server in BaCon, but in a more general and multi-purpose manner.

This has resulted in a new small project called 'PSALM' (Plain Shell Access to Library Modules), a small tool to enable the invocation of functions in external libraries.

It is implemented in only approx. 400 lines of BaCon code! It not only is capable to access external functions; it can even build a complete GUI with GTK.

I have created a simple page here: www.basic-converter.org/psalm/psalm.html

Best regards
Peter

EDIT: updated the page further.

[rikky]

Tsjeeses ... I thought I was retired ..

And then some psalm wakes me up and it starts all over again.
Well, it will keep me off the streets, I suppose..

Super, Thanks.

 Rik.

[rikky]

And it works.

coproc psalm
[1] 15745
$ echo "DEF libm.so double cos double" >&"${COPROC[1]}"
$ read variable <&"${COPROC[0]}"
$ echo $variable
ok
$ echo "EXE cos 0.8" >&"${COPROC[1]}"
$ read variable <&"${COPROC[0]}"
$ echo $variable
0.696707
$ echo "EXIT" >&"${COPROC[1]}"
$ read variable <&"${COPROC[0]}"
[1]+  Done                    coproc COPROC psalm
$ echo $variable
Goodbye!

Next step is putting this into a script, that can talk to itself.

[Pjot]

Hey rikky,

You could do it like this.

#!/usr/bin/env bash

function comm
{
   echo "${@}" >&"${COPROC[1]}"
   read answer <&"${COPROC[0]}"
}

coproc ./psalm
comm "DEF libm.so double cos double"
comm "EXE cos 0.8"; result=${answer}
comm "EXIT"

echo ${result}

BR
Peter

[rikky]

The result is : 0.696707.
Should be  : Goodbye!

[Pjot]

Yes, the result is 0.696707 because the variable 'result' is assigned right after the function where the cosine is invoked.

If you would like to see "Goodbye!" as a result, then the script looks like this:

#!/usr/bin/env bash

function comm
{
   echo "${@}" >&"${COPROC[1]}"
   read answer <&"${COPROC[0]}"
}

coproc ./psalm
comm "DEF libm.so double cos double"
comm "EXE cos 0.8"
comm "EXIT"; result=${answer}

echo ${result}

But then again, this is not of much use, as the idea is to obtain the result from the cosine, and not from the EXIT...

HTH
Peter

[rikky]

Ah ja, I see.

The advanced demo programs they all give a  signal for SEGMENTATION FAULT received, or  
"${COPROC[0]}": Bad file descriptor
"${COPROC[1]}": Bad file descriptor

Pff .. I m not going there.
That something for Vovchik or Bigbass or Alexfish ..
Too difficult.

I managed to get 3 'simple' programs working:

function comm
{
   echo "${@}" >&"${COPROC[1]}"
   read answer <&"${COPROC[0]}"
}

coproc psalm

comm "DEF libc.so int strlen char*"
comm "EXE strlen hallo"; result=${answer}
comm "EXIT"

echo $result

result : 5

function comm
{
   echo "${@}" >&"${COPROC[1]}"
   read answer <&"${COPROC[0]}"
}

coproc psalm

comm "DEF libc.so char* basename char*"
comm "EXE basename bla/blabla"; result=${answer}
comm "EXIT"

echo $result

result : blabla

function comm
{
   echo "${@}" >&"${COPROC[1]}"
   read answer <&"${COPROC[0]}"
}

coproc psalm

comm "DEF libc.so int abs float"
comm "EXE abs 1.234"; result=${answer}
comm "EXIT"

echo $result
result : 1096905796

The last result is obviously not the result that is desired.
That"s because I do not have a clou about ints floats chars or char*s.
I'm obviously missing certain knowledge that isn't 123 available.
So I'll leave it to that.

I can confirm that it works,
But I do not always know howto.

Maybe when I'm older.
 Rik.

[Pjot]

Nov 20, 2022 14:27:03 GMT 1 rikky said:

Ah ja, I see.

The advanced demo programs they all give a  signal for SEGMENTATION FAULT received, or  
"${COPROC[0]}": Bad file descriptor
"${COPROC[1]}": Bad file descriptor

You have to make sure that the program actually points to the 'psalm´ binary. Some demo programs start 'psalm', some './psalm', the first indicating that the binary is in your general system path, the latter indicating that the binary is in your current path.

So if the Psalm binary is in the same directory as the scripts, then just change 'psalm' to './psalm' in the advanced demo programs to make it work.

Also, please check if the mentioned library 'libgtk-3.so' exists on your system. Some systems use 'libgtk-3.so.0' for example.

Nov 20, 2022 14:27:03 GMT 1 rikky said:

function comm
{
   echo "${@}" >&"${COPROC[1]}"
   read answer <&"${COPROC[0]}"
}

coproc psalm

comm "DEF libc.so int abs float"
comm "EXE abs 1.234"; result=${answer}
comm "EXIT"

echo $result
result : 1096905796

The last result is obviously not the result that is desired.

You're right, the ABS function in C doesn't work that way. You seem to be looking for a function which can round a float value towards an integer?

If so, you have to use LRINT instead. So the following will work:

#!/usr/bin/env bash

function comm
{
   echo "${@}" >&"${COPROC[1]}"
   read answer <&"${COPROC[0]}"
}

coproc ./psalm
comm "DEF libm.so long lrint double"
comm "EXE lrint 1.234"; result=${answer}
comm "EXIT"

echo ${result}


The result of this is '1' as expected.

HTH

Peter

[Pjot]

Hi rikky,

Looking further, I eventually found an issue when using Psalm in CentOS 7 with GTK2. This is fixed in 1.0.1 (site updated).

Hope updated version works for you,

Thanks, Peter

[rikky]

Ja, now its working.
That means that I have to do something like 'cd $(dirname $0)' first, for on my system such a script starts  always in the 'home' working directory.

I get a nice calendar, and If I 'press me' AND echo $cb then I get a number.
This is supposedly a pointer to the response.

By now I should be able to figure out how to get this response if I research the other gtk programs that are already somewhere. 

Thanks
 Rik.

[alexfish]

Hi Peter

Tested gtk demo1 on pi4 Ubuntu 20.10
= OK

thought about using BaCon gtk ui
to get scripts to load rename say demobash1.bac

UI , load / demobash1.bac

the from terminal
: | { ./psalm | ./demobash1.bac; } > /dev/fd/0

ADDED: just a thought
Sometime ago I did a BaCon SEDIT editor with a terminal (gtk2)
if can resurrect it will post in due course ...

BR
Alex

Attachments:

[alexfish]

Hi All

Original SEDIT1 HERE
if find updated will post further
on Ubuntu 20.10
ADDED : vte9 parsing ';}' problems maybe to old
Sedit sourceview2 not avalable
substitute SEDIT for EDIT

Bigbass did a HUG3 , will see if can convert to HUG3
the problem there is the realize vte command, it is different & what can I say , 7years

I did a vte3 sometime ago, not sure if it was posted, doing a search on both

BR
Alex

[alexfish]

Agh. BaCon Scratch Pad

CHANGEDIR "bacon"
SYSTEM (": | { ./psalm | ./demobash.bac; } > /dev/fd/0 &")

BR
Alex

[Pjot]

Thanks rikky and alexfish for checking out the 'psalm' tool. Glad to see things have worked out well.

In the upcoming days, I will add more demonstration scripts in other languages, to demonstrate how it works there (Expect and LUA already added).

BR
Peter

[alexfish]

Hi Peter

would be possible to have text only so I can wget it

BR
Alex