OpenEuphoria

2. Re: Basic Statistics with OpenEuphoria

• Posted by ChrisB (moderator) May 21, 2020
• 3346 views

Hi,

not very helpful, but

1. write your own
2. create a library
3. share it for everyone else to use / criticise / pick apart
4. improve it.
5. goto 3.

Cheers

Chris

4. Re: Basic Statistics with OpenEuphoria

• Posted by ChrisB (moderator) May 21, 2020
• 3340 views

Hi

Yes you can use c liraries, you may even be able to build a dll. Phix will offer no real advantage here.

You will still have to wrap the libraries, and it may just be easier to write what you need yourself, using those other libraries as guides.

Cheers

Chris

6. Re: Basic Statistics with OpenEuphoria

• Posted by ghaberek (admin) May 21, 2020
• 3348 views
• Last edited May 22, 2020

Yes! You'll want to see Dynamic Linking to external code in the docs.

Here are several projects that demonstrate how to wrap C libraries in Euphoria:

• EuGLFW3
• Euraylib
• EuSDL2
• libharu
• libui
• Wininet

Personally, I would go with Apophenia since it seems simpler and it's open source.

It's more or less the same, but Pete has added some easier support for structures into Phix.

I think this is effectively the Phix forum.

You're welcome to try that, although in my experience the work required to get SWIG working is more involved than just wrapping a library by hand.

You'll find some old SWIG related code on The Archive: https://archive.usingeuphoria.com/

-Greg

8. Re: Basic Statistics with OpenEuphoria

• Posted by Icy_Viking May 21, 2020
• 3321 views

The easiest way to wrap a C library in Euphoria is to use a DLL.

--load sigil.dll 
atom sl 
 
--do platform check and load library for the correct platform 
ifdef WIN32 then 
	sl = open_dll("sigil.dll") 
	if sl = -1 then 
		puts(1,"Failed to open sigil.dll!\n") 
		abort(0) 
	end if 
	elsifdef LINUX or FREEBSD then 
	 sl = open_dll("sigil.so") 
	 if sl = -1 then 
	 	puts(1,"Failed to load sigil.so!\n") 
	 	abort(0) 
	 end if 
end ifdef 
 
public constant xslWindow = define_c_proc(sl,"+slWindow",{C_INT,C_INT,C_POINTER,C_INT}) 
 
public procedure slWindow(atom width,atom height,sequence title,integer fullScr) 
 
 atom str = allocate_string(title,1) 
 c_proc(xslWindow,{width,height,str,fullScr}) 
	 
end procedure 

The above is a snippet from a wrapper I wrote for the Sigil library. The process is virtually the same for most C libraries you would want to wrap.

10. Re: Basic Statistics with OpenEuphoria

• Posted by rneu May 22, 2020
• 3285 views

This is very helpful.

Can you also give an example where memory allocation is also involved.

Thanks.

12. Re: Basic Statistics with OpenEuphoria

• Posted by rneu May 23, 2020
• 3289 views

Great. Thanks for the code and the link.

Euphoria seems to be a language which is easy and powerful at the same time. Why then it is not more popular? I think it should also be on https://stackoverflow.com/ where many programmers go for solutions and discussions.

14. Re: Basic Statistics with OpenEuphoria

• Posted by rneu May 23, 2020
• 3285 views

Thanks for a detailed reply.

Your data regarding popularity of Euphoria can be shown in a graph for clarity: https://imgur.com/a/pHzoN7h (Had to create in Python)

16. Re: Basic Statistics with OpenEuphoria

• Posted by rneu May 24, 2020
• 3221 views

.

18. Re: Basic Statistics with OpenEuphoria

• Posted by petelomax May 24, 2020
• 3317 views
• Last edited Feb 01, 2021

https://imgur.com/a/sqeb3b1

sequence data = {{2004,11034}, 
                 {2002,10186}, 
                 {2001,10136}, 
                 {2000, 9508}, 
                 {2003, 8719}, 
                 {2005, 8414}, 
                 {2008, 8027}, 
                 {1999, 6857}, 
                 {2007, 6836}, 
                 {2009, 6797}, 
                 {2006, 6523}, 
                 {1998, 6288}, 
                 {2010, 3828}, 
                 {2015, 3352}, 
                 {1997, 3334}, 
                 {2013, 3151}, 
                 {2012, 2987}, 
                 {2011, 2850}, 
                 {2014, 2461}, 
                 {2018, 1615}, 
                 {2016, 1409}, 
                 {2019, 1374}, 
                 {2017, 1042}, 
                 {1996,  466}, 
                 {2020,  212}, 
                 {1995,   12}} 
 
include pGUI.e 
 
Ihandle dlg, plot 
 
IupOpen() 
IupControlsOpen() 
plot = IupPlot("MENUITEMPROPERTIES=Yes, SIZE=640x320") 
IupSetAttribute(plot, "TITLE", "Messages"); 
IupSetAttribute(plot, "TITLEFONTSIZE", "10"); 
IupSetAttribute(plot, "TITLEFONTSTYLE", "ITALIC"); 
IupSetAttribute(plot, "GRIDLINESTYLE", "DOTTED"); 
IupSetAttribute(plot, "GRID", "YES"); 
IupSetAttribute(plot, "AXS_XLABEL", "Year"); 
IupSetAttribute(plot, "AXS_YLABEL", "Messages"); 
IupSetAttribute(plot, "AXS_XFONTSTYLE", "ITALIC"); 
IupSetAttribute(plot, "AXS_YFONTSTYLE", "ITALIC"); 
IupSetAttribute(plot, "AXS_YTICKSIZEAUTO", "NO"); 
IupSetAttribute(plot, "AXS_YTICKMAJORSIZE", "8"); 
IupSetAttribute(plot, "AXS_YTICKMINORSIZE", "0"); 
IupPlotBegin(plot) 
data = sort(data) 
for i=1 to length(data) do 
    IupPlotAdd(plot, data[i][1], data[i][2]) 
end for 
{} = IupPlotEnd(plot) 
dlg = IupDialog(plot) 
IupCloseOnEscape(dlg) 
IupSetAttribute(dlg, "TITLE", "Messages") 
IupMap(dlg) 
IupShowXY(dlg,IUP_CENTER,IUP_CENTER) 
IupMainLoop() 
IupClose()