libapl.cc bug

[Chris Moller]

Hi, Jürgen,




   libapl.cc: In function ‘void disable_safe_mode()’:
   libapl.cc:985:4: error: ‘uprefs’ was not declared in this scope
     985 |    uprefs.safe_mode = false;
         |    ^~~~~~

The attached diff fixes these bugs, or at least identifies them.

Thanks,
Chris



Index: libapl.cc
===================================================================
--- libapl.cc	(revision 1706)
+++ libapl.cc	(working copy)
@@ -739,15 +739,15 @@
 void
 init_libapl(const char * progname, int log_startup)
 {
-   uprefs.safe_mode       = true;
-   uprefs.user_do_svars   = false;
-   uprefs.system_do_svars = false;
-   uprefs.requested_id    = 2000;
+   UserPreferences::uprefs.safe_mode       = true;
+   UserPreferences::uprefs.user_do_svars   = false;
+   UserPreferences::uprefs.system_do_svars = false;
+   UserPreferences::uprefs.requested_id    = 2000;
 
    init_1(progname, log_startup);
 
-   uprefs.read_config_file(true,  log_startup);   // in /etc/gnu-apl.d/
-   uprefs.read_config_file(false, log_startup);   // in $HOME/.config/gnu_apl/
+   UserPreferences::uprefs.read_config_file(true,  log_startup);   // in /etc/gnu-apl.d/
+   UserPreferences::uprefs.read_config_file(false, log_startup);   // in $HOME/.config/gnu_apl/
 
    init_2(log_startup);
 }
@@ -982,7 +982,7 @@
 void
 disable_safe_mode()
 {
-   uprefs.safe_mode = false;
+   UserPreferences::uprefs.safe_mode = false;
 }
 //----------------------------------------------------------------------------
 const int libapl_version = 0;   // not standard interpreter

Xtian Robert just sent me a libedif bug, but building libapl.so so I could fix that bug I found a few libapl bugs of the form:

OpenPGP_0xDA6C01938888083E.asc
Description: OpenPGP public key

OpenPGP_signature
Description: OpenPGP digital signature