Re: 4.3a-rc

Jerry James <[email protected]>
Newsgroups gmane.lisp.scheme.bigloo
Message-ID <CAHCOHQ=KYcT21u0-irgz+AL9qy7KFq1yfLaM47QOcwLVy1mwBg@mail.gmail.com> 
On Thu, Jan 26, 2017 at 12:15 AM,  <[email protected]> wrote:
> Hi all,
>
> I have uploaded a new tarball. It fixes the small installation errors that
> were so far reported. It also improves bglmemrun that should now be able
> to detect automatically which library it should preload.
>
> We are getting closer...

The upcoming Fedora 26 is now using an upcoming glibc release, which
claims its version is 2.24.90.  The latest bigloo tarball fails to
build like so:

Clib/cresolv.c: In function 'nstype':
Clib/cresolv.c:86:45: error: 'ns_t_zxfr' undeclared (first use in this
function); did you mean 'ns_t_axfr'?
    if( !strcmp( n, "ns_t_zxfr" ) ) { return ns_t_zxfr; }
                                             ^~~~~~~~~

The elements of enum__ns_type have changed quite a bit.  I'll attach a
patch that supplies all of the new names, and drops the now invalid
ns_t_zxfr name, but that is of course wrong for glibc 2.24 and
earlier.  I don't know how you're supposed to tell which names are
available.  Perhaps a configure test is necessary.

I'm also attaching a patch to fix all -Wformat warnings.  Actually, it
doesn't fix one:

objs/avahi.c:2548:1: warning: missing sentinel in function call [-Wformat=]
 avahi_entry_group_add_service(BgL_arg1594z00_172, AVAHI_IF_UNSPEC,
AVAHI_PROTO_UNSPEC, 0L, BgL_tmpz00_3382, BgL_auxz00_3384,
BgL_auxz00_3386, BgL_auxz00_3388, BgL_auxz00_3390,
BgL_arg1602z00_175); } }

Indeed, avahi_entry_group_add_service() takes a NULL sentinel as its
last argument.

Finally, gstreamer 0.10 is deprecated in Fedora.  There is talk of
removing it entirely.  See this thread:

https://lists.fedoraproject.org/archives/list/[email protected]/thread/HHPHRNYQJC73ZRDHEO7E7JPR47UQABAV/

Is anybody working on support for gstreamer 1.x in bigloo?

Regards,
-- 
Jerry James
http://www.jamezone.org/
bigloo-nameser.patch (text/x-patch, 3 KB) 
--- runtime/Clib/cresolv.c.orig	2017-01-26 00:13:39.000000000 -0700
+++ runtime/Clib/cresolv.c	2017-02-03 13:41:29.234793224 -0700
@@ -75,7 +75,37 @@ nstype( obj_t name ) {
    if( !strcmp( n, "ns_t_dname" ) ) { return ns_t_dname; }
    if( !strcmp( n, "ns_t_sink" ) ) { return ns_t_sink; }
    if( !strcmp( n, "ns_t_opt" ) ) { return ns_t_opt; }
-   // if( !strcmp( n, "ns_t_apl" ) ) { return ns_t_apl; }
+   if( !strcmp( n, "ns_t_apl" ) ) { return ns_t_apl; }
+   if( !strcmp( n, "ns_t_ds" ) ) { return ns_t_ds; }
+   if( !strcmp( n, "ns_t_sshfp" ) ) { return ns_t_sshfp; }
+   if( !strcmp( n, "ns_t_ipseckey" ) ) { return ns_t_ipseckey; }
+   if( !strcmp( n, "ns_t_rrsig" ) ) { return ns_t_rrsig; }
+   if( !strcmp( n, "ns_t_nsec" ) ) { return ns_t_nsec; }
+   if( !strcmp( n, "ns_t_dnskey" ) ) { return ns_t_dnskey; }
+   if( !strcmp( n, "ns_t_dhcid" ) ) { return ns_t_dhcid; }
+   if( !strcmp( n, "ns_t_nsec3" ) ) { return ns_t_nsec3; }
+   if( !strcmp( n, "ns_t_nsec3param" ) ) { return ns_t_nsec3param; }
+   if( !strcmp( n, "ns_t_tlsa" ) ) { return ns_t_tlsa; }
+   if( !strcmp( n, "ns_t_smimea" ) ) { return ns_t_smimea; }
+   if( !strcmp( n, "ns_t_hip" ) ) { return ns_t_hip; }
+   if( !strcmp( n, "ns_t_ninfo" ) ) { return ns_t_ninfo; }
+   if( !strcmp( n, "ns_t_rkey" ) ) { return ns_t_rkey; }
+   if( !strcmp( n, "ns_t_talink" ) ) { return ns_t_talink; }
+   if( !strcmp( n, "ns_t_cds" ) ) { return ns_t_cds; }
+   if( !strcmp( n, "ns_t_cdnskey" ) ) { return ns_t_cdnskey; }
+   if( !strcmp( n, "ns_t_openpgpkey" ) ) { return ns_t_openpgpkey; }
+   if( !strcmp( n, "ns_t_csync" ) ) { return ns_t_csync; }
+   if( !strcmp( n, "ns_t_spf" ) ) { return ns_t_spf; }
+   if( !strcmp( n, "ns_t_uinfo" ) ) { return ns_t_uinfo; }
+   if( !strcmp( n, "ns_t_uid" ) ) { return ns_t_uid; }
+   if( !strcmp( n, "ns_t_gid" ) ) { return ns_t_gid; }
+   if( !strcmp( n, "ns_t_unspec" ) ) { return ns_t_unspec; }
+   if( !strcmp( n, "ns_t_nid" ) ) { return ns_t_nid; }
+   if( !strcmp( n, "ns_t_l32" ) ) { return ns_t_l32; }
+   if( !strcmp( n, "ns_t_l64" ) ) { return ns_t_l64; }
+   if( !strcmp( n, "ns_t_lp" ) ) { return ns_t_lp; }
+   if( !strcmp( n, "ns_t_eui48" ) ) { return ns_t_eui48; }
+   if( !strcmp( n, "ns_t_eui64" ) ) { return ns_t_eui64; }
    if( !strcmp( n, "ns_t_tkey" ) ) { return ns_t_tkey; }
    if( !strcmp( n, "ns_t_tsig" ) ) { return ns_t_tsig; }
    if( !strcmp( n, "ns_t_ixfr" ) ) { return ns_t_ixfr; }
@@ -83,7 +113,11 @@ nstype( obj_t name ) {
    if( !strcmp( n, "ns_t_mailb" ) ) { return ns_t_mailb; }
    if( !strcmp( n, "ns_t_maila" ) ) { return ns_t_maila; }
    if( !strcmp( n, "ns_t_any" ) ) { return ns_t_any; }
-   if( !strcmp( n, "ns_t_zxfr" ) ) { return ns_t_zxfr; }
+   if( !strcmp( n, "ns_t_uri" ) ) { return ns_t_uri; }
+   if( !strcmp( n, "ns_t_caa" ) ) { return ns_t_caa; }
+   if( !strcmp( n, "ns_t_avc" ) ) { return ns_t_avc; }
+   if( !strcmp( n, "ns_t_ta" ) ) { return ns_t_ta; }
+   if( !strcmp( n, "ns_t_dlv" ) ) { return ns_t_dlv; }
    
    C_SYSTEM_FAILURE( BGL_ERROR, "resolv", "bad query type", name );
 }
bigloo-format.patch (text/x-patch, 5.2 KB) 
--- api/alsa/src/Clib/bglalsa.c.orig	2017-01-26 00:13:38.000000000 -0700
+++ api/alsa/src/Clib/bglalsa.c	2017-02-03 14:21:06.748722838 -0700
@@ -384,7 +384,7 @@ loop:
 	       __FILE__, __LINE__, snd_strerror( written ) );
       written = 0;
    } else if( written == -EPIPE ) {
-      fprintf( stderr, "%s:%d snd_pcm_writei( ..., %d) %s (-EPIPE)\n",
+      fprintf( stderr, "%s:%d snd_pcm_writei( ..., %ld) %s (-EPIPE)\n",
 	       __FILE__, __LINE__,
 	       sz,
 	       snd_strerror( written ) );
@@ -404,7 +404,7 @@ loop:
 	 goto loop;
       }
    } else {
-      fprintf( stderr, "%s:%d snd_pcm_writei (%d<0) -> %s\n",
+      fprintf( stderr, "%s:%d snd_pcm_writei (%ld<0) -> %s\n",
 	       __FILE__, __LINE__, written, snd_strerror( written ) );
    
       if( snd_pcm_state( pcm ) == SND_PCM_STATE_SUSPENDED ) {
--- api/avahi/src/Clib/bglavahi.c.orig	2017-01-26 00:13:38.000000000 -0700
+++ api/avahi/src/Clib/bglavahi.c	2017-02-03 14:23:56.964216331 -0700
@@ -479,7 +479,7 @@ bgl_avahi_string_list_to_list( AvahiStri
 /*---------------------------------------------------------------------*/
 AvahiStringList *
 bgl_avahi_list_to_string_list( obj_t p ) {
-   AvahiStringList *l = avahi_string_list_new( 0L );
+   AvahiStringList *l = avahi_string_list_new( "", NULL );
 
    while( PAIRP( p ) ) {
       l = avahi_string_list_add( l, BSTRING_TO_STRING( CAR( p ) ) );
--- api/ssl/src/C/bglssl.c.orig	2017-01-26 00:13:39.000000000 -0700
+++ api/ssl/src/C/bglssl.c	2017-02-03 14:19:11.030067182 -0700
@@ -3191,7 +3191,7 @@ bgl_ssl_cipher_init( ssl_cipher cipher,
 			 NULL, NULL, NULL, 0 );
       
       if( !EVP_CIPHER_CTX_set_key_length( ctx, key_len )) {
-	 fprintf( stderr, "node-crypto : Invalid key length %d\n", klen );
+	 fprintf( stderr, "node-crypto : Invalid key length %ld\n", klen );
 	 BGL_EVP_CIPHER_CTX_reset( ctx );
 	 BGL_EVP_CIPHER_CTX_free( ctx );
 	 return 0;
@@ -3240,7 +3240,7 @@ bgl_ssl_cipher_initiv( ssl_cipher cipher
    if( EVP_CIPHER_iv_length( cipher->BgL_z42cipherz42 ) != ivlen &&
        !(EVP_CIPHER_mode( cipher->BgL_z42cipherz42) == EVP_CIPH_ECB_MODE &&
 	 ivlen == 0) ) {
-      fprintf( stderr, "node-crypto : Invalid IV length %d\n", ivlen );
+      fprintf( stderr, "node-crypto : Invalid IV length %ld\n", ivlen );
       return 0;
    } else {
       EVP_CIPHER_CTX *ctx = BGL_EVP_CIPHER_CTX_new();
@@ -3250,7 +3250,7 @@ bgl_ssl_cipher_initiv( ssl_cipher cipher
       EVP_CipherInit_ex( ctx, cipher->BgL_z42cipherz42, NULL, NULL, NULL, enc );
       
       if( !EVP_CIPHER_CTX_set_key_length( ctx, klen ) ) {
-	 fprintf( stderr, "node-crypto : Invalid key length %d\n", klen );
+	 fprintf( stderr, "node-crypto : Invalid key length %ld\n", klen );
 	 BGL_EVP_CIPHER_CTX_reset( ctx );
 	 BGL_EVP_CIPHER_CTX_free( ctx );
 	 return 0;
--- comptime/Cc/exec.c.orig	2017-01-26 00:14:33.000000000 -0700
+++ comptime/Cc/exec.c	2017-02-03 14:16:32.702538315 -0700
@@ -332,7 +332,7 @@ extern "C"
 									BSTRING_TO_STRING(BGl_za2shellza2z00zzengine_paramz00);
 								BgL_arg1033z00_37 =
 									execl(BgL_tmpz00_118, BgL_auxz00_120, BgL_auxz00_122,
-									BgL_auxz00_124, ((long) 0));
+									BgL_auxz00_124, (void *) 0);
 							}
 							bgl_display_obj(BINT(BgL_arg1033z00_37), BgL_port1017z00_36);
 						}
--- runtime/Clib/cinit_obj.c.orig	2017-01-26 00:13:39.000000000 -0700
+++ runtime/Clib/cinit_obj.c	2017-02-03 14:15:24.973739855 -0700
@@ -238,7 +238,7 @@ obj_t
 __debug( char *lbl, obj_t o ) {
    fprintf( stderr, "%s:%d %s o=%p\n", __FILE__, __LINE__, lbl, o );
    if( BGL_HVECTORP( o ) ) {
-      fprintf( stderr, "   hvector=%d\n",BGL_HVECTOR_LENGTH( o ) );
+      fprintf( stderr, "   hvector=%lu\n",BGL_HVECTOR_LENGTH( o ) );
    } else if( REALP( o ) ) {
       fprintf( stderr, "   real\n" );
    } else if( PAIRP( o ) ) {
@@ -251,7 +251,7 @@ __debug( char *lbl, obj_t o ) {
    } else if( REALP( o ) ) {
       fprintf( stderr, "   real=%f\n",REAL_TO_DOUBLE( o ) );
    } else if( POINTERP( o ) ) {
-      fprintf( stderr, "   PTRP=%d TYPE=%d\n", POINTERP( o ), TYPE( o ) );
+      fprintf( stderr, "   PTRP=%d TYPE=%ld\n", POINTERP( o ), TYPE( o ) );
    }
    return o;
 }
--- runtime/Clib/crgc.c.orig	2017-01-26 00:13:39.000000000 -0700
+++ runtime/Clib/crgc.c	2017-02-03 13:26:17.112488612 -0700
@@ -896,7 +896,7 @@ int rgc_debug_port( obj_t port, char *ms
    long bufpos = INPUT_PORT( port ).bufpos;
    int eof = INPUT_PORT( port ).eof;
    
-   fprintf( stderr, "RGC_DEBUG(%s) port=%p:%s mstart=%d mstop=%d forward=%d bpos=%d bsiz=%d %s\n", msg, 
+   fprintf( stderr, "RGC_DEBUG(%s) port=%p:%s mstart=%ld mstop=%ld forward=%ld bpos=%ld bsiz=%ld %s\n", msg, 
 	    port, BSTRING_TO_STRING( INPUT_PORT_NAME( port ) ),
 	    matchstart, matchstop, forward, bufpos, bufsiz,
 	    eof ? "eof" : "" );
--- runtime/Clib/cwriter.c.orig	2017-01-26 00:13:39.000000000 -0700
+++ runtime/Clib/cwriter.c	2017-02-03 13:23:26.696990954 -0700
@@ -612,7 +612,7 @@ bgl_write_socket( obj_t o, obj_t op ) {
 	       48 + (STRINGP( SOCKET( o ).hostname ) ?
 		     STRING_LENGTH( SOCKET( o ).hostname ) :
 		     sizeof( "localhost" )),
-	       "#<socket:%s.%d.%x>",
+	       "#<socket:%s.%d.%lx>",
 	       STRINGP( SOCKET( o ).hostname ) ?
 	       BSTRING_TO_STRING( SOCKET( o ).hostname ) :
 	       "localhost",
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.