Hi Vladimir, thank you for your answer your help is precious, i didn't noticed there was an earlier version on github, i just try it last evening, if something is possible it will be easiest from this version. Note that i have no use of gtk* in my application, i'm just trying to use the mysql feature of the bigloo-lib3 because the project i'm developing is porting a web project (originally under I2S from microsoft and access under windows) with connection to relational database hosted on an apache tomcat8 web engine (for security reasons) under linux and MySQL (MariaDB now) . The language used with apache tomcat is Java, i should say java byte-code as the tomcat engine do not care if you created the *.class or .jar or .war files from java source or any other language that produce java byte-code for jvm such as Scheme. So the project is using little java source, some Bigloo Scheme source files, and Kawa Scheme source files too. As there is no support for MySQL database connection in Kawa Scheme and Bigloo Scheme i have those choices: -the easy way but not really pretty:made a simple class in java source code that handle the SQL request generated by Scheme source code classes -find a library for Bigloo or Kawa that handle database connection with MySQL I'm workin on the two solutions because i only use the java front-end version of bigloo, and i do not know if the bigloo-lib3 is compatible with the java front-end of bigloo (option -jvm for bigloo) is your library only for bigloo compiling to C language or is it compatible too with the Java compilation option of bigloo ?
anyway i find interesting info in your code , from lib-bigloo2 to lib-bigloo3 the use of $string->bstring which is undocumented but help porting code, still work in latest bigloo (4.2c) so i try to modify lib-bigloo3 for bigloo 4.* , i had to change the regex definitions because now bigloo have support for regex via pregex , i modified some definition in your code: in common: in (module apropos ;; (extern (symtab::obj "c_symtab")) ;;(import regex srfi-1) (include "regex2.scm") with regex2.scm like this: define regexp pregexp) (define regexp-match-positions pregexp-match-positions) i'm at this point: [mattei@moita common]$ make LD_LIBRARY_PATH=/usr/local/lib/bigloo/4.2c ../common/bigloo-lib-afile \ -I . -o .afile md5.scm srfi-1.scm string-lib.scm misc.scm char-hex.scm apropos.scm random.scm string-grammar-apply.scm base64.scm crypt.scm os.scm time.scm locale.scm iconv.scm times.scm regex.scm gettext.scm dl.scm mmap.scm curl.scm misc.scm srfi-1.scm string-lib.scm evprim.scm /usr/local/bin/bigloo -I . -L . -afile .afile -cgen iconv.scm -o iconv.c File "iconv.scm", line 80, character 2221: # (make-iconv res writer 0 0)))) # ^ *** ERROR:iconv-open Unbound variable -- make-iconv File "iconv.scm", line 84, character 2326: # (pragma::int "iconv_close($1)" (iconv-cd self))) # ^ *** ERROR:iconv-close Unbound variable -- iconv-cd File "iconv.scm", line 161, character 5041: # (cond ((not (iconv? encoder)) # ^ *** ERROR:<anonymous:1436> Unbound variable -- iconv? 3 errors occured, ending ... make: *** [iconv.c] Erreur 255 but i do not understand anymore the errors... it's seems cgen.c do not generate all the definitions needed.... perheaps there is not a lot of work to do to port the common and sql part of lib-bigloo to new versions but only you can understand how your code works. i will get back to the first solution and continue ti wrote a simple java class to handle sql request needed. Regards, Damien Le Tuesday 19 January 2016 13:26:49 Vladimir Tsichevski, vous avez écrit : > Hi Damien, > > Bigloo-lib is not compatible with bigloo releases after 3.6a. I have never > upgraded it for later bigloo releases. Moreover, the > gtk package is for gtk-1.2, not gtk-2.x or gtk-3.x. > > Note also that the bigloo-lib package was moved twice: from sf to googlecode, > and from googlecode to github. The actual version > is available at > > https://github.com/tsichevski/bigloo-lib3 > > Regards, > Vladimir > > On 12.01.2016 13:07, Damien MATTEI wrote: > > hello, > > > > i'm trying to upgrade the bigloo-lib ( > > http://sourceforge.net/projects/bigloo-lib/ ) to make it compile with > > latest version of bigloo, the library seems to have worked with bigloo of > > 2007 (perheaps 2013 but not sure), > > bigloo was implementing function at this time that are no more supported > > and i get errors at compilation: > > > > [mattei@moita bigloo-lib-0.21b]$ make > > Making all in common > > make[1] : on entre dans le répertoire « > > /home/mattei/Téléchargements/bigloo-lib-0.21b/common » > > /usr/local/bin/bigloo -I . -L . -cgen misc.scm -o misc.c > > > > File "misc.scm", line 775, character 22558: > > # (make-hash-table 256 ptr->0..255 car eq?)) > > # ^ > > *** ERROR:toplevel-init > > Unbound variable -- make-hash-table > > > > File "misc.scm", line 826, character 23982: > > #(define *object-data-registry* (make-hash-table 256 obj->0..255 car > > equal?)) > > # ^ > > *** ERROR:toplevel-init > > Unbound variable -- make-hash-table > > > > File "misc.scm", line 826, character 24003: > > #(define *object-data-registry* (make-hash-table 256 obj->0..255 car > > equal?)) > > # ^ > > *** ERROR:toplevel-init > > Unbound variable -- obj->0..255 > > > > File "misc.scm", line 258, character 8614: > > # (string->bstring(pragma::string "$1 + 1" found))))) > > # ^ > > *** ERROR:string-after > > Unbound variable -- string->bstring > > > > File "misc.scm", line 255, character 8533: > > # (bstring->string s) > > # ^ > > *** ERROR:string-after > > Unbound variable -- bstring->string > > > > File "misc.scm", line 269, character 9002: > > # (bstring->string s)))))) > > # ^ > > *** ERROR:string-before > > Unbound variable -- bstring->string > > > > File "misc.scm", line 264, character 8857: > > # (bstring->string s) > > # ^ > > *** ERROR:string-before > > Unbound variable -- bstring->string > > > > File "misc.scm", line 275, character 9211: > > # (let*((ps(bstring->string p)) > > # ^ > > *** ERROR:<anonymous:1750> > > Unbound variable -- bstring->string > > > > File "misc.scm", line 291, character 9763: > > # (let*((ps(bstring->string p)) > > # ^ > > *** ERROR:<anonymous:1757> > > Unbound variable -- bstring->string > > > > File "misc.scm", line 289, character 9683: > > # (needle-c(bstring->string needle))) > > # ^ > > *** ERROR:string-split-by-string > > Unbound variable -- bstring->string > > > > File "misc.scm", line 693, character 20218: > > # (bstring->string s) > > # ^ > > *** ERROR:string->hex > > Unbound variable -- bstring->string > > > > File "misc.scm", line 694, character 20240: > > # (bstring->string result)) > > # ^ > > *** ERROR:string->hex > > Unbound variable -- bstring->string > > > > File "misc.scm", line 737, character 21474: > > # result i(bstring->string o))) > > # ^ > > *** ERROR:<anonymous:1977> > > Unbound variable -- bstring->string > > > > File "misc.scm", line 740, character 21574: > > # result i(bint->int o))) > > # ^ > > *** ERROR:<anonymous:1977> > > Unbound variable -- bint->int > > > > File "misc.scm", line 778, character 22630: > > # (get-hash o *scheme-object-registry*)) > > # ^ > > *** ERROR:object-lookup > > Unbound variable -- get-hash > > > > File "misc.scm", line 785, character 22803: > > # (put-hash! tuple *scheme-object-registry*) > > # ^ > > *** ERROR:object-ref > > Unbound variable -- put-hash! > > > > File "misc.scm", line 803, character 23366: > > # (rem-key-hash! o *scheme-object-registry*) > > # ^ > > *** ERROR:object-unref > > Unbound variable -- rem-key-hash! > > > > File "misc.scm", line 814, character 23655: > > # (obj->0..2^x-1 o p))) > > # ^ > > *** ERROR:pair->0..2^x-1 > > Unbound variable -- obj->0..2^x-1 > > > > File "misc.scm", line 829, character 24096: > > # (let((data(cond ((get-hash o *object-data-registry*) => cdr)))) > > # ^ > > *** ERROR:object-data-get > > Unbound variable -- get-hash > > > > File "misc.scm", line 837, character 24335: > > # (put-hash! (list o) *object-data-registry*)))) > > # ^ > > *** ERROR:object-data-set! > > Unbound variable -- put-hash! > > > > File "misc.scm", line 836, character 24295: > > # (let((entry (or (get-hash o *object-data-registry*) > > # ^ > > *** ERROR:object-data-set! > > Unbound variable -- get-hash > > > > File "misc.scm", line 844, character 24511: > > # (rem-key-hash! o *object-data-registry*)) > > # ^ > > *** ERROR:object-data-free! > > Unbound variable -- rem-key-hash! > > > > File "misc.scm", line 865, character 25150: > > # (set-printer! > > # ^ > > *** ERROR:add-printer > > Unbound variable -- set-printer! > > > > File "misc.scm", line 864, character 25127: > > # (let ((old-printer (current-printer))) > > # ^ > > *** ERROR:add-printer > > Unbound variable -- current-printer > > 24 errors occured, ending ... > > make[1]: *** [misc.c] Erreur 255 > > make[1] : on quitte le répertoire « > > /home/mattei/Téléchargements/bigloo-lib-0.21b/common » > > make: *** [all-recursive] Erreur 1 > > [mattei@moita bigloo-lib-0.21b]$ > > > > some function have changed of names: > > make-hash-table -> make-hashtable > > > > but some function are no more supported by bigloo 4.* such as: > > bstring->string > > > > causing errors: > > > > File "misc.scm", line 737, character 21474: > > # result i(bstring->string o))) > > # ^ > > *** ERROR:<anonymous:1977> > > Unbound variable -- bstring->string > > > > again i having troubles with bstring i do not know how to handle them or > > cast them in string , > > any idea ? > > > > also the obj class seems no more accessible from bigloo 4.* : > > File "misc.scm", line 814, character 23655: > > # (obj->0..2^x-1 o p))) > > # ^ > > *** ERROR:pair->0..2^x-1 > > Unbound variable -- obj->0..2^x-1 > > > > i do not know how to handle all the errors, even when fixing them i have > > then serious errors with the generated misc.c due to the structure > > conversion of bstring not compatible with string and other incompatibilities > > > > regards, > > > > Damien > > > > > > -- [email protected], [email protected], UNS / OCA / CNRS
