newLISP Fan Club

Forum => newLISP in the real world => Topic started by: HPW on October 07, 2018, 05:41:28 AM

Title: newlisp.dll UTF8 used with purebasic 5.62
Post by: HPW on October 07, 2018, 05:41:28 AM

Hello,



Today I find a bit time to test a new combination: newlisp.dll UTF8 with purebasic 5.62

Since latest purebasic versions are unicode compiler, it was interesting to use newlisp.dll UTF8  there.



Importing the dll is simple:

Code Select Expand


OpenLibrary(0,"newlisp_utf8.dll")

The call function can look like this:

Code Select Expand


sourcestr.s = GetGadgetText(#Gadget_Form1_String3)
*newlispstr = AllocateMemory(StringByteLength(sourcestr) + SizeOf(Character))
PokeS(*newlispstr, sourcestr, Len(sourcestr),#PB_UTF8)
retstr.s = PeekS(CallFunction(0,"newlispEvalStr",*newlispstr),-1,#PB_UTF8)
FreeMemory(*newlispstr)
SetGadgetText(#Gadget_Form1_Editor5, retstr)

At the end you can (not needed, but cleaner)

Code Select Expand


CloseLibrary(0)

Regards

Title: Re: newlisp.dll UTF8 used with purebasic 5.62
Post by: HPW on October 08, 2018, 09:03:50 AM

Hello,



After a advice from Fred(Author of purebasic) I now here an improved code:



Init:

Code Select Expand


 OpenLibrary(0,"newlisp_utf8.dll")
; Define your function pointer, with auto utf8 conversion (and cleaning)
  Prototype newlispEvalStrProto(input.p-utf8)
  newlispEvalStr.newlispEvalStrProto = GetFunction(0, "newlispEvalStr")


Call in the main Event Loop in my GUI:

Code Select Expand


SetGadgetText(#Gadget_Form1_Editor5, PeekS(newlispEvalStr(GetGadgetText(#Gadget_Form1_String3)),-1,#PB_UTF8))


At the end you can (not needed, but cleaner)

Code Select Expand


CloseLibrary(0)


Regards

Title: Re: newlisp.dll UTF8 used with purebasic 5.62
Post by: gekkonier on October 09, 2018, 08:25:19 AM

Hi HPW,

thank you for your example, I will try it later and give you feedback since I use Purebasic too (I'm not that active there, but who knows, thats's something interesting here!)



Gruß, Gregor

Title: Re: newlisp.dll UTF8 used with purebasic 5.62
Post by: HPW on October 14, 2018, 05:45:46 AM

Hello,



With the help of various purebasic fellows from the purebasic community,

I managed to get callbacks to work from newlisp-dll.



Here is a complete purebasic source with the newlisp utf8 dll (32 bit):

//http://www.hpwsoft.de/anmeldung/html1/newLISP/hpwNewLisp_PB.zip



Screenshot:

(//%3C/s%3E%3CURL%20url=%22http://www.hpwsoft.de/anmeldung/html1/newLISP/hpwNewLisp_PB.png%22%3E%3CLINK_TEXT%20text=%22http://www.hpwsoft.de/anmeldung/html1/n%20...%20isp_PB.png%22%3Ehttp://www.hpwsoft.de/anmeldung/html1/newLISP/hpwNewLisp_PB.png%3C/LINK_TEXT%3E%3C/URL%3E%3Ce%3E)



By the way: One of the reasons why purebasic is a good companion to newlisp is the size of the final exe which is here 49 KB.

For 64 bit purebasic user the 64 bit Dll must be downloaded from newlisp.org.



Regards

Hans-Peter

Title: Re: newlisp.dll UTF8 used with purebasic 5.62
Post by: HPW on October 17, 2018, 09:55:28 AM

Hello,



Updated the demo with 2 more callbacks with Integer and Double parameters.



Again here is the complete purebasic source with the newlisp utf8 dll (32 bit):

This time also the compiled demo with 52224 Bytes.



http://www.hpwsoft.de/anmeldung/html1/newLISP/hpwNewLisp_PB.zip



Regards