OpenEuphoria

1. Euphoria MVC updates

• Posted by ghaberek (admin) Feb 10, 2020
• 8927 views
• Last edited Oct 24, 2021

I committed several improvements to Euphoria MVC today.

https://github.com/OpenEuphoria/euphoria-mvc

• Built-in web server now supports GET and POST requests.
• Model library can now query/insert/update/delete objects.
• Template library does better at handling more expressions.
• Route parser now accepts arbitrary regex patterns for type-checking.
• Added libraries for parsing HTML and JSON documents.
• Easily save and load configuration files (in INI format).
• Wrappers for MySQL (or MariaDB), SQLite3, and libcurl.
• Updated documentations!

Update 11/15/2020:

• Added SQLite3 library and wrapper

Update 11/23/2020:

• Added HTML parser

Update 11/28/2020:

• Overhauled mvc/config.e

Update 10/24/2021:

• Server now supports POST requests

There's still a lot to do. But I'm still working on it. I'm not dead yet!

-Greg

3. Re: Euphoria MVC updates

• Posted by jimcbrown (admin) Feb 18, 2020
• 8613 views

Agreed! Can't wait to see this when it's finally ready to be rolled out.

Fingers crossed.

5. Re: Euphoria MVC updates

• Posted by ghaberek (admin) Sep 15, 2020
• 6948 views

I added a CURL wrapper today! (Well, I actually wrote it several years ago to make the existing euweb work with reCAPTCHAv2.) Updated release to v1.9.0.

https://github.com/OpenEuphoria/euphoria-mvc/releases/tag/v1.9.0

-Greg

7. Re: Euphoria MVC updates

• Posted by SDPringle Sep 27, 2020
• 6620 views

That's funny Greg. I built an importer that would load in the constants and functions from a C- header file and create a Euphoria E file for in order to create a curl wrapper. Is it necessary to use MVC in order to use the CURL function?

SD Pringle

9. Re: Euphoria MVC updates

• Posted by SDPringle Sep 29, 2020
• 6547 views

The failing t_net_http.e has been a thorn in my side for years now and it is a bigger waste of time to me to re-implement what CURL from (Euphoria MVC) already does in Euphoria than to leverage CURL it in order to fix t_net_http. I wouldn't mind if std/net/http.e went away completely at this point and I don't see anyone really using it. I am the kind of person who doesn't like to remove something from a library once it is already in there, though. What do you think?
Forked into: RM std/net/http.e?

11. Re: Euphoria MVC updates

• Posted by ghaberek (admin) Nov 23, 2020
• 5522 views

I've added an HTML parser a few minor fixes.

https://github.com/OpenEuphoria/euphoria-mvc/releases/tag/v1.12.0

-Greg

13. Re: Euphoria MVC updates

• Posted by jmduro Nov 25, 2020
• 5489 views

Where should local CSS files be located to be used with the development server ?

Jean-Marc

15. Re: Euphoria MVC updates

• Posted by ghaberek (admin) Nov 25, 2020
• 5465 views

Yeah I need to add a feature for serving files directly from a local directory. I'd also like to add an option for "base directory" so you can change it from current directory.

In the mean time, I've at least added send_file() and download_file() which are shorthand for verifying a file exists, looking up its mime-type, and then sending the required headers.

include mvc/app.e

I pushed the commit for adding send_file() just now: https://github.com/OpenEuphoria/euphoria-mvc/releases/tag/v1.12.1

You can use this to add a static route handler to your application. Then just put everything in /static/, like /static/css/, /static/js/, etc.

Edit: Or you can add a route pattern for specific directories as I've indicated below.

include std/map.e 
include mvc/app.e 
 
include std/filesys.e -- for canonical_path() 
include std/search.e -- for search:begins() 
 
-- 
-- Route handler for files in /static/ 
-- 
function static( object request ) 
 
    -- get the path to the requested file 
    sequence path_info = map:get( request, "PATH_INFO" ) 
 
    -- 
    -- Note: path_info will always start with 
    -- "/static/" thanks to the route handler. 
    -- 
 
    -- ensure the local file is an actual full path 
    sequence local_file = canonical_path( "." & path_info ) 
 
    -- ensure the local file exists in current directory 
    if search:begins( current_dir(), local_file ) then 
 
        -- go ahead and send the file to the browser 
        return send_file( local_path ) 
 
    end if 
 
    -- tell the browser the file doesn't exist 
    return response_code( 404 ) 
end function 
-- 
-- Note: this pattern should resolve to "static" and find the function above. If not, you can call 
-- app:route("pattern", "func name") or even app:route("pattern", "func name", routine_id("func name")) 
-- 
app:route( "/static/.+" ) 
 
-- Or add a handler for specific directories like this: 
app:route( "/(css|js|fonts|images)/.+", "static" ) 
 

-Greg

17. Re: Euphoria MVC updates

• Posted by jmduro Nov 26, 2020
• 5398 views

    sequence local_file = canonical_path( "." & path_info ) 
 
    if search:begins( current_dir(), local_file ) then 
 
        return send_file( local_path ) 
 
    end if 

local_path is not defined. I thought it could be local_file instead but that's wrong:

2020/11/26 11:41:13  INFO static@mysql_users.ex:22 path_info = "\"/static/css/w3.css\"" 
2020/11/26 11:41:13  INFO static@mysql_users.ex:31 local_file = "\"C:\\\\Users\\\\duro\\\\Documents\\\\mysql_users\\\\examples\\\\static\\\\css\\\\w3.css\"" 
2020/11/26 11:41:13  INFO client_handler@server.e:140 "127.0.0.1" "GET" "/static/css/w3.css" "404 Not Found" 

19. Re: Euphoria MVC updates

• Posted by jmduro Nov 27, 2020
• 5363 views

Thank you Greg,

I updated my MySQL example for euphoria-mvc: http://jean-marc.duro.pagesperso-orange.fr/mysql_users.zip

euphoria-mvc is a real game-changer in web programming for me.

Jean-Marc

21. Re: Euphoria MVC updates

• Posted by ghaberek (admin) Nov 28, 2020
• 5290 views

I overhauled mvc/config.e today.

https://github.com/OpenEuphoria/euphoria-mvc/releases/tag/v1.13.0

If your configuration looks like this:

# app.cfg 
[database] 
name = mydatabase 
username = dbuser 
password = abc123 
host = db1.example.com 

You can load it in your app like this:

include mvc/config.e 
include mvc/logger.e 
 
if not load_config( "app.cfg" ) then 
    log_crash( "Failed to load configuration" ) 
end if 
 
sequence db_host, db_name, db_user, db_pass 
db_host = get_config( "database.host" ) 
db_name = get_config( "database.name" ) 
db_user = get_config( "database.username" ) 
db_pass = get_config( "database.password" ) 

And it will even preserve comments when saving!

-Greg

23. Re: Euphoria MVC updates

• Posted by jmduro Oct 26, 2021
• 4169 views

Hi Greg,

To avoid any development server crashes and problems with web server versions, I decided to use lighttpd which is light, cross platform and allows to use dedicated configuration files per project.

In each project folder, I only need to create 4 sub-folders:

├───conf 
├───logs 
├───tmp 
└───www 

logs and tmp are empty. conf contains a copy of lighttpd conf subfolder with parameters specific to the project.

cgi.assign = (  
#-- Most relevant line:  
  ".ex"  => "C:\euphoria4.1_32\bin\eui",   
#-- Shrouded Euphoria scripts as CGI, runs faster:    
  ".il"  => "C:\euphoria4.1_32\bin\eub",   
  ".cgi" => "",  
)  

Euphoria files are located in www. In the project root folder, I create a file to launch lighttpd with the specific configuration.

C:\data\euphoria\v4\Perso\server>type lighttpd.bat 
"C:\WinApps\lighttpd\lighttpd.exe" -D 

It never crashes and reports OEU errors as usual.

Unfortunately, it shows errors with example3.ex on Windows:

C:\data\euphoria\v4\Perso\server>"C:\WinApps\lighttpd\lighttpd.exe" -D 
2021-10-26 08:41:18: (server.c.1083) trying to read configuration (test mode) 
2021-10-26 08:41:18: (server.c.1471) server started (lighttpd/1.4.48) 
C:\euphoria4.1_32\include\mvc\utils.e:188 
<0074>:: Errors resolving the following references: 
    'hwnd' (C:\euphoria4.1_32\include\mvc\utils.e:188) has not been declared. 
    'TRUE' (C:\euphoria4.1_32\include\mvc\utils.e:188) has not been declared. 
 
    c_func( xShellExecuteA, {hwnd,allocate_string("open",TRUE),allocate_string(url,TRUE),NULL,NULL,SW_SHOWNORMAL} ) 
                                                                                    ^ 
 
 
Press Enter 

With example4.ex and last line replaced by app:run(), there is one more error:

    'LOG_ALL' (example4.ex:45) has not been declared. 

If I comment the unneeded start_url procedure in mvc/utils.e, I get an HTTP 500 Internal error with following warnings first time:

2021/10/26 09:05:04  WARN getenv@utils.e:54 Environment variable not found: "SERVER_SIGNATURE" 
2021/10/26 09:05:04  WARN getenv@utils.e:54 Environment variable not found: "PATH_INFO" 
2021/10/26 09:05:04  WARN getenv@utils.e:54 Environment variable not found: "QUERY_STRING" 

On next attempts, warnings are not displayed anymore but this error:

2021-10-26 09:05:53: (mod_cgi.c.1031) CGI pid 6088 died with signal 11 

Jean-Marc

25. Re: Euphoria MVC updates

• Posted by jmduro Oct 31, 2021
• 4027 views

Hello Greg,

I have no additional error now but still an HTTP 500 Error as response.

I have put on my Web page my testing code which contains Lighttpd (Windows, 9.39 MB):

http://jean-marc.duro.pagesperso-orange.fr/testMVC.zip

I expects OEU to be in c:\euphoria. This can be changed in conf/lighttpd.conf.

Regards

Jean-Marc

27. Re: Euphoria MVC updates

• Posted by jmduro Nov 06, 2021
• 3838 views

With example4.ex and the development server, I finally understood what was going wrong: in example3.ex and example4.ex, there is a condition of beeing in examples/ sub-directory. I removed the condition to get example4.ex working:

set_template_path( "../templates" ) 

instead of:

if search:ends( "examples", current_dir() ) then 
    -- make sure we can find our templates 
    -- if we're in the 'examples' directory 
    set_template_path( "../templates" ) 
end if 

Now after reading once more Apache configuration on euphoria-mvc github page, I understand what I didn't before: to call euphoria-mvc code while adressing a different route, I need redirection in lighttpd configuration as mentionned under "# Send all non-existant paths to index.esp".

I thought it would be possible to call different cgi-scripts within same project folder but I understand it is not possible il I snd all non-existant paths to example3.ex. I expected a call to be http://127.0.0.1/example3.ex/index.html or better http://127.0.0.1/index.ex.

Jean-Marc

29. Re: Euphoria MVC updates

• Posted by ghaberek (admin) Nov 08, 2021
• 3752 views

set_template_path( "../templates" ) 

if search:ends( "examples", current_dir() ) then 
    -- make sure we can find our templates 
    -- if we're in the 'examples' directory 
    set_template_path( "../templates" ) 
end if 

I tried to make sure it would pick up the "templates" directory if you ran it from either the root project directory or the "examples" directory. If that's still no working then it needs more attention. How exactly are you running the examples?

That's not really the intent here. This isn't meant to be a traditional "CGI script" that is called directly by the web server. It's meant to be path-based routing framework, so the web server should send any or all requests directly to the application for processing. I think the problem with the examples is that they're meant to either be run by a properly-configured web server or act as their own development server, and I've not made that clear. I need to make it more obvious which is the case for each example.

Currently, you have to either call app:run() when you're using a web server, or call server:start() to run the development server. Ultimately, I'd like to make it entirely transparent: if you run your application directly, it should fire up the built-in web server or refuse to start, and if your app is run by a web server it should determine this and just handle the route, produce the output, and then exit.

This feedback and testing is all very helpful though. Thank you!

-Greg

31. Re: Euphoria MVC updates

• Posted by Icy_Viking Nov 08, 2021
• 3726 views

Nice. My plan was to use the MySQL wrapper. I figured EDS was more for personal databases or for projects where you didn't need anything super fancy. I also figure rewriting EDS to be more flexible/powerful is probably a project of itself too.

33. Re: Euphoria MVC updates

• Posted by euphoric (admin) Nov 08, 2021
• 3696 views

This might be a good idea, to have a more serious database system immediately available after install.

Heck, it would be a good idea to have a MySQL/PostgreSQL/Maria DB/Mongo DB interface immediately available after install.

Maybe there already is one. I don't know.

Forked into: Discarding EDS

35. Re: Euphoria MVC updates

• Posted by jmduro Nov 09, 2021
• 3693 views

logs/access.log containes:

127.0.0.1 127.0.0.1 - [09/Nov/2021:10:57:19 +0100] "GET /index HTTP/1.1" 200 18 "-" "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:94.0) Gecko/20100101 Firefox/94.0" 

logs/lighttpd.errors contains:

2021-11-09 10:57:18: (request.c.445) fd: 8 request-len: 461 \nGET /index HTTP/1.1\r\nHost: 127.0.0.1\r\nUser-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:94.0) Gecko/20100101 Firefox/94.0\r\nAccept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,*/*;q=0.8\r\nAccept-Language: fr,fr-FR;q=0.8,en-US;q=0.5,en;q=0.3\r\nAccept-Encoding: gzip, deflate\r\nConnection: keep-alive\r\nUpgrade-Insecure-Requests: 1\r\nSec-Fetch-Dest: document\r\nSec-Fetch-Mode: navigate\r\nSec-Fetch-Site: none\r\nSec-Fetch-User: ?1\r\n\r\n  
2021-11-09 10:57:18: (response.c.388) -- splitting Request-URI  
2021-11-09 10:57:18: (response.c.389) Request-URI     :  /index  
2021-11-09 10:57:18: (response.c.390) URI-scheme      :  http  
2021-11-09 10:57:18: (response.c.391) URI-authority   :  127.0.0.1  
2021-11-09 10:57:18: (response.c.392) URI-path (raw)  :  /index  
2021-11-09 10:57:18: (response.c.393) URI-path (clean):  /index  
2021-11-09 10:57:18: (response.c.394) URI-query       :    
2021-11-09 10:57:18: (mod_access.c.159) -- mod_access_uri_handler called  
2021-11-09 10:57:18: (response.c.532) -- before doc_root  
2021-11-09 10:57:18: (response.c.533) Doc-Root     : D:/Data/Euphoria/testMVC/www  
2021-11-09 10:57:18: (response.c.534) Rel-Path     : /index  
2021-11-09 10:57:18: (response.c.535) Path         :   
2021-11-09 10:57:18: (response.c.587) -- after doc_root  
2021-11-09 10:57:18: (response.c.588) Doc-Root     : D:/Data/Euphoria/testMVC/www  
2021-11-09 10:57:18: (response.c.589) Rel-Path     : /index  
2021-11-09 10:57:18: (response.c.590) Path         : D:/Data/Euphoria/testMVC/www/index  
2021-11-09 10:57:18: (response.c.388) -- splitting Request-URI  
2021-11-09 10:57:18: (response.c.389) Request-URI     :  index.esp//index  
2021-11-09 10:57:18: (response.c.390) URI-scheme      :  http  
2021-11-09 10:57:18: (response.c.391) URI-authority   :  127.0.0.1  
2021-11-09 10:57:18: (response.c.392) URI-path (raw)  :  index.esp//index  
2021-11-09 10:57:18: (response.c.393) URI-path (clean):  /index.esp/index  
2021-11-09 10:57:18: (response.c.394) URI-query       :    
2021-11-09 10:57:18: (mod_access.c.159) -- mod_access_uri_handler called  
2021-11-09 10:57:18: (response.c.532) -- before doc_root  
2021-11-09 10:57:18: (response.c.533) Doc-Root     : D:/Data/Euphoria/testMVC/www  
2021-11-09 10:57:18: (response.c.534) Rel-Path     : /index.esp/index  
2021-11-09 10:57:18: (response.c.535) Path         :   
2021-11-09 10:57:18: (response.c.587) -- after doc_root  
2021-11-09 10:57:18: (response.c.588) Doc-Root     : D:/Data/Euphoria/testMVC/www  
2021-11-09 10:57:18: (response.c.589) Rel-Path     : /index.esp/index  
2021-11-09 10:57:18: (response.c.590) Path         : D:/Data/Euphoria/testMVC/www/index.esp/index  
2021-11-09 10:57:18: (response.c.607) -- logical -> physical  
2021-11-09 10:57:18: (response.c.608) Doc-Root     : D:/Data/Euphoria/testMVC/www  
2021-11-09 10:57:18: (response.c.609) Basedir      : D:/Data/Euphoria/testMVC/www  
2021-11-09 10:57:18: (response.c.610) Rel-Path     : /index.esp/index  
2021-11-09 10:57:18: (response.c.611) Path         : D:/Data/Euphoria/testMVC/www/index.esp/index  
2021-11-09 10:57:18: (response.c.623) -- handling physical path  
2021-11-09 10:57:18: (response.c.624) Path         : D:/Data/Euphoria/testMVC/www/index.esp/index  
2021-11-09 10:57:18: (response.c.631) -- handling subrequest  
2021-11-09 10:57:18: (response.c.632) Path         : D:/Data/Euphoria/testMVC/www/index.esp  
2021-11-09 10:57:18: (response.c.633) URI          : /index.esp  
2021-11-09 10:57:18: (response.c.634) Pathinfo     : /index  
2021-11-09 10:57:18: (mod_access.c.159) -- mod_access_uri_handler called  
2021-11-09 10:57:19: (response.c.122) Response-Header: \nHTTP/1.1 200 OK\r\nContent-Type: text/html\r\r\nContent-Length: 113\r\r\nDate: Tue, 09 Nov 2021 09:57:19 GMT\r\nServer: lighttpd/1.4.49\r\n\r\n  
2021-11-09 10:57:25: (server.c.1879) connection closed - keep-alive timeout: 8  

Jean-Marc

37. Re: Euphoria MVC updates

• Posted by jmduro Nov 10, 2021
• 3638 views

The script tells me "unexpected ]".

I tried the development server which works. I'd prefer lighttpd because in some cases when the script crashes I get no error with the development server while I get one with lighttpd.

Nginx does not manage CGI otherwise it would have been my preferate server.

Jean-Marc

39. Re: Euphoria MVC updates

• Posted by jmduro Nov 12, 2021
• 3526 views

I'm using Win10 but no Powershell. I dit not understand how to use the batch script with lighttpd.

Here is the failing example. Its provides and empty debug.log.

#!/usr/local/euphoria-4.1.0-Linux-x64/bin/eui 
 
include std/map.e 
include std/filesys.e  -- for canonical_path()  
include std/search.e   -- for search:begins()  
include std/text.e     -- for dequote 
include std/io.e       -- for STDOUT 
include std/pretty.e 
include mvc/app.e 
include mvc/server.e 
include mvc/template.e 
include mvc/logger.e 
include mvc/database.e 
include mvc/db_sqlite3.e 
 
public function list_users() 
  atom conn = db_connect( "sqlite3:test.sqlite" ) 
  atom result = db_query( "SELECT * FROM users ORDER BY login" ) 
  object row = {} 
  sequence user_list = {} 
  while sequence( row ) do 
    row = db_fetch( result ) 
    if sequence( row ) then 
      sequence user = { 
        { "id", row[1] }, 
        { "login", row[2] }, 
        { "password", row[3] } 
      } 
      log_info( "user: %s", {pretty_sprint(user, {2})} ) 
      user_list &= { map:new_from_kvpairs(user) } 
    end if 
  end while 
 
  db_free( result ) 
  db_disconnect() 
  return user_list 
end function 
 
public function insert_user(sequence login, sequence password) 
  log_info( "Inserting user %s", {login} ) 
  atom conn = db_connect( "sqlite3:test.sqlite" ) 
  atom result = db_query( sprintf("INSERT INTO users(login, password) VALUES ('%s','%s')", {login, password}) ) 
  integer nb = db_affected_rows() 
  db_disconnect() 
  return nb 
end function 
 
public function delete_user(sequence id) 
  log_info( "Deleting user %s", {id} ) 
  atom conn = db_connect( "sqlite3:test.sqlite" ) 
  atom result = db_query( sprintf("DELETE FROM users WHERE id=%s", {id}) ) 
  integer nb = db_affected_rows() 
  db_disconnect() 
  return nb 
end function 
 
public function check_user(sequence login, sequence password) 
  log_info( "Checking user %s", {login} ) 
  atom conn = db_connect( "sqlite3:test.sqlite" ) 
  atom result = db_query( sprintf("SELECT id FROM users WHERE login = '%s' and password = '%s'", {login, password}) ) 
  sequence user_list = {} 
  sequence row = db_fetch(result) 
  for i = 1 to length(row) do 
      sequence user = { 
        { "id", row[i] } 
      } 
      log_info( "user: %s", {pretty_sprint(user, {2})} ) 
      user_list &= { map:new_from_kvpairs(user) } 
  end for 
 
  db_free( result ) 
  db_disconnect() 
  return length(user_list) 
end function 
 
set_template_path( "../templates" ) 
 
function static( object request )  
  sequence path_info = map:get( request, "PATH_INFO" )  
  log_info( "path_info = %s", {path_info} ) 
  
  sequence local_file = canonical_path( "." & path_info )  
  log_info( "local_file = %s", {local_file} ) 
 
  if search:begins( current_dir(), local_file ) then  
    return send_file( local_file )  
  
  end if  
  
  return response_code( 404 )  
end function  
app:route( "/static/.+", "static" )  
 
function login( object request ) 
  sequence method = map:get(request, "REQUEST_METHOD", "") 
  object response = map:new() 
  sequence login = "", password = "",  err = "" 
   
  if equal(method, "POST") then 
    login = map:get(request, "login", "") 
    password = map:get(request, "password", "") 
    integer count = check_user(login, password) 
    if count = 1 then 
      map:put( response, "user", login ) 
      return render_template( "main.html", response ) 
    else 
      err = "Your Login Name or Password is invalid" 
    end if 
  end if 
 
  map:put( response, "user", login ) 
  map:put( response, "error", err ) 
  return render_template( "login.html", response ) 
end function 
app:route( "/", "login", {"GET","POST"} ) 
 
function ins( object request ) 
  object response = map:new() 
   
  map:put( response, "user", "test" ) 
  return render_template( "insert.html", response ) 
end function 
app:route( "/insert", "ins" ) 
 
function users( object request ) 
  log_info( "query = %s", {map:get(request, "QUERY_STRING", "")} ) 
  sequence method = map:get(request, "REQUEST_METHOD", "") 
  sequence err = "" 
  if equal(method, "POST") and map:has(request, "save") then 
    sequence login = map:get(request, "login", "") 
    sequence password = map:get(request, "password", "") 
    insert_user(login, password) 
  elsif  equal(method, "GET") and map:has(request, "del") then 
    sequence id = map:get( request, "del", "" ) 
    log_info( "id = %s", {id} ) 
    if length(id) then 
      delete_user(id) 
    else 
      err = "User ID not found" 
    end if 
  end if 
 
  object response = map:new() 
  sequence user_list = list_users() 
  map:put( response, "user", "test" ) 
  map:put( response, "user_list", user_list ) 
  map:put( response, "error", err ) 
  return render_template( "users.html", response ) 
end function 
app:route( "/users", "users", {"GET","POST"} ) 
 
set_log_output({ STDOUT, "!debug.log" }) -- overwrite debug.log each time  
set_log_level( LOG_DEBUG ) 
server:start("0.0.0.0", 8080) 

It may be related to the use of a DLL. When Euphoria crashes whle using a DLL, it usually behaves so (no trace).

Jean-Marc

41. Re: Euphoria MVC updates

• Posted by jmduro Nov 12, 2021
• 3520 views

II also needed to replace "include std/map.e" with "include mvc/mapdbg.e as map"

43. Re: Euphoria MVC updates

• Posted by jmduro Nov 13, 2021
• 3478 views

Thank you Greg,

url_parse() may not be the best function to use with sqlite3 local files. I am trying many ways to indicate to db_connect() where my local sqlite3 database is but _connect() which is called by db_connect() alway fails because url_parse() returns name=0.

I am actually testing url_parse() with different syntaxes to find the right one to use, but I think regex would be best adapted to local files.

Jean-Marc

45. Re: Euphoria MVC updates

• Posted by jmduro Nov 13, 2021
• 3462 views

Here is a test script:

include std/net/url.e 
include std/io.e 
include std/console.e 
include db/sqlite3.e 
 
constant DB_URL = "sqlite3:file:///D:/Data/Euphoria/v4/Personnel/mysql_users/users.sqlite"  
 
atom result, db 
integer f_debug = open("debug.log", "w") 
object proto, host, user, passwd, name, port 
{proto,host,port,name,user,passwd, ?} = url:parse( DB_URL, 1 ) 
-- name = name[4..$] 
printf(f_debug, "proto = %s, name = %s\n", {proto, name} ) 
flush(f_debug) 
{result,db} = sqlite3_open( name ) 
puts(f_debug, "DB is opened!\n") 
sqlite3_close( db ) 
close(f_debug) 
 
maybe_any_key() 

It always fails on sqlite3_open(), even if I remove the "///" prefix. I checked with HEXAED: D:\Data\Euphoria\v4\Personnel\mysql_users\users.sqlite is an existing binary sqlite3 file.

Jean-Marc

47. Re: Euphoria MVC updates

• Posted by ghaberek (admin) Nov 14, 2021
• 3406 views

constant DB_URL = "sqlite3:file:///D:/Data/Euphoria/v4/Personnel/mysql_users/users.sqlite" 

proto = sqlite3, name = "///D:/Data/Euphoria/v4/Personnel/mysql_users/users.sqlite" 

2021/11/13 10:54:46 DEBUG db_connect@database.e:83 url = "sqlite3:file:///D:/Data/Euphoria/v4/Personnel/mysql_users/users.sqlite", timeout = 5000 
2021/11/13 10:54:46 DEBUG _connect@db_sqlite3.e:24 name = "\"///D:/Data/Euphoria/v4/Personnel/mysql_users/users.sqlite\"" 

Oh wow I didn't realize this is what you were doing until now. I haven't tried putting paths in URL parameter for SQLite3. The most I've done is "sqlite3://filename.db".

We'll need to update the connect handler in mvc/db_sqlite3.e to accommodate this better, as it's only pulling the name value from the parsed URL.

Does it work if you just give it a single file name without a path?

function _connect( sequence url, integer timeout ) 
 
    object proto, host, user, passwd, name, port 
    {proto,host,port,name,user,passwd,?} = url:parse( url ) 
 
    atom result, db 
 
    {result,db} = sqlite3_open( name ) 
 
    if result != SQLITE_OK then 
        return 0 
    end if 
 
    return db 
end function 
add_handler( SQLITE3, DB_CONNECT, routine_id("_connect") ) 

-Greg

49. Re: Euphoria MVC updates

• Posted by jmduro Nov 16, 2021
• 3350 views

Usually, when using a DLL with OpenEuphoria and a problem occurs while using the DLL, OEU crashes without traces.

I noticed using multitasking there is a way to avoid this. Let's take an empty SQLite3 database.

procedure task_update() 
  -- update a table here 
end procedure 
 
atom t1= task_create(routine_id("task_update", {}) 
task_schedule(t1, 1) 

If you try to update an non existing table with an SQLite3 wrapper, program will not crash as usual this way.

Jean-Marc

51. Re: Euphoria MVC updates

• Posted by jmduro Nov 16, 2021
• 3352 views

I didn't explain well what I expect. I have intentionally provoked the crash by selecting a non-existing table in the SQLite database.

I'm using OpenEuphoria because of its debugging features. I need to get traces even when a DLL results in a crash. I expect getting an error message by avoiding an external crash caused by a DLL. Instead I want Euphoria to get a return code when possible and then to provoke a crash after logging a message. That is why I tested this "bizarre" method using multitasking. This is how:

integer return_code 
 
procedure task_update()  
  sequence cmd = sprintf("UPDATE \"devices\" SET \"%s\" = \"%s\" WHERE \"rowid\" = %d;", 
                         {"Last_update", deviceList[selected][LAST_UPDATE], selected}) 
  return_code =  sqlite_get_table(sql_db, cmd) 
end procedure  
  
atom t1= task_create(routine_id("task_update", {})  
task_schedule(t1, 1) 
if return_code != SQLITE_OK then 
  error:crash("Update failed!") 
end if 

Jean-Marc

53. Re: Euphoria MVC updates

• Posted by AlexXX Nov 17, 2021
• 3310 views

c:\eu4\MY\euphoria-mvc-1.14.0\examples\example4.ex:45 
<0074>:: Errors resolving the following references: 
	'hwnd' (..\include\mvc\utils.e:188) has not been declared. 
	'TRUE' (..\include\mvc\utils.e:188) has not been declared. 
	'LOG_ALL' (example4.ex:45) has not been declared. 
 
set_log_level( LOG_ALL ) 
                       ^