Changes in / [d45ed83:4069faad]

Files:

• libcfa/src/Makefile.am (modified) (1 diff)
• libcfa/src/containers/list.hfa (deleted)
• libcfa/src/iostream.cfa (modified) (5 diffs)
• tests/list/.expect/dlist-insert-remove.txt (deleted)
• tests/list/dlist-insert-remove.cfa (deleted)

libcfa/src/Makefile.am

@@ -39 +39 @@
 #----------------------------------------------------------------------------------------------------------------
 if BUILDLIB
-headers_nosrc = bitmanip.hfa math.hfa gmp.hfa time_t.hfa bits/align.hfa bits/containers.hfa bits/defs.hfa bits/debug.hfa bits/locks.hfa containers/list.hfa
+headers_nosrc = bitmanip.hfa math.hfa gmp.hfa time_t.hfa bits/align.hfa bits/containers.hfa bits/defs.hfa bits/debug.hfa bits/locks.hfa
 headers = fstream.hfa iostream.hfa iterator.hfa limits.hfa rational.hfa time.hfa stdlib.hfa common.hfa \
           containers/maybe.hfa containers/pair.hfa containers/result.hfa containers/vector.hfa

libcfa/src/iostream.cfa

@@ -10 +10 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Apr 30 10:50:31 2020
-// Update Count     : 1001
+// Last Modified On : Sun Apr 26 20:31:36 2020
+// Update Count     : 985
 //
 
@@ -463 +463 @@
                         int bits = high1( f.val );                                      /* position of most significant bit */ \
                         if ( bits == 0 ) bits = 1;                                      /* 0 value => force one bit to print */ \
-                        int spaces; \
+                        int spaces = f.wd - bits;                                       /* can be negative */ \
+                        if ( ! f.flags.nobsdp ) { spaces -= 2; }        /* base prefix takes space */ \
+                        /* printf( "%d %d\n", bits, spaces ); */ \
                         if ( ! f.flags.left ) {                                         /* right justified ? */ \
                                 /* Note, base prefix then zero padding or spacing then prefix. */ \
-                                if ( f.flags.pc ) { \
-                                        spaces = f.wd - f.pc; \
-                                        if ( ! f.flags.nobsdp ) { spaces -= 2; } /* base prefix takes space */ \
+                                if ( f.flags.pad0 || f.flags.pc ) { \
+                                        if ( ! f.flags.nobsdp ) { fmt( os, "0%c", f.base ); } \
+                                        if ( f.flags.pc ) spaces = f.pc - bits; \
+                                        if ( spaces > 0 ) fmt( os, "%0*d", spaces, 0 ); /* zero pad */ \
+                                } else { \
                                         if ( spaces > 0 ) fmt( os, "%*s", spaces, " " ); /* space pad */ \
                                         if ( ! f.flags.nobsdp ) { fmt( os, "0%c", f.base ); } \
-                                        spaces = f.pc - bits; \
-                                        if ( spaces > 0 ) fmt( os, "%0*d", spaces, 0 ); /* zero pad */ \
-                                } else { \
-                                        spaces = f.wd - bits; \
-                                        if ( ! f.flags.nobsdp ) { spaces -= 2; } /* base prefix takes space */ \
-                                        if ( f.flags.pad0 ) { \
-                                                if ( ! f.flags.nobsdp ) { fmt( os, "0%c", f.base ); } \
-                                                if ( spaces > 0 ) fmt( os, "%0*d", spaces, 0 ); /* zero pad */ \
-                                        } else { \
-                                                if ( spaces > 0 ) fmt( os, "%*s", spaces, " " ); /* space pad */ \
-                                                if ( ! f.flags.nobsdp ) { fmt( os, "0%c", f.base ); } \
-                                        } /* if */ \
                                 } /* if */ \
-                        } else { \
-                                if ( ! f.flags.nobsdp ) fmt( os, "0%c", f.base ); \
-                                if ( f.flags.pc ) { \
-                                        spaces = f.pc - bits; \
-                                        if ( spaces > 0 ) fmt( os, "%0*d", spaces, 0 ); /* zero pad */ \
-                                        spaces = f.wd - f.pc; \
-                                } else { /* pad0 flag ignored with left flag */ \
-                                        spaces = f.wd - bits; \
-                                } /* if */ \
-                                if ( ! f.flags.nobsdp ) { spaces -= 2; } /* base prefix takes space */ \
+                        } else if ( ! f.flags.nobsdp ) { \
+                                fmt( os, "0%c", f.base ); \
                         } /* if */ \
-                        int shift = floor( bits - 1, 4 ); \
+                        int shift = (bits - 1) / 4 * 4; /* floor( bits - 1, 4 ) */ \
                         typeof( f.val ) temp = f.val; \
                         fmt( os, "%s", shortbin[(temp >> shift) & 0xf] ); \
@@ -615 +599 @@
                                                 fmt.wd = 0; \
                                                 /* if ( fmt2.val > 1 && fmt.flags.pc && fmt.pc > 0 ) fmt.pc -= 1; */ \
-                                                /* printf( "L %llo %llo %llo %d %d '%c' %x %llo %d %d '%c' %x\n", msig, lsig, fmt.val, fmt.wd, fmt.pc, fmt.base, fmt.all, fmt2.val, fmt2.wd, fmt2.pc, fmt2.base, fmt2.all ); */ \
+                                                /* printf( "L %llo %llo %llo %llo %d %d '%c' %x\n", msig, lsig, fmt.val, fmt2.val, fmt.wd, fmt.pc, fmt.base, fmt.all ); */ \
                                                 (ostype &)(os | fmt | "" | fmt2); \
                                                 sepOff( os ); \
@@ -621 +605 @@
                                                 int msigd = ceiling( high1( fmt.val ), 3 ) + 1; \
                                                 fmt2.wd = f.wd - (fmt.pc > msigd ? fmt.pc : msigd) - 1; \
-                                                if ( (int)fmt2.wd < 21 ) fmt2.wd = 21; /* cast deals with negative value */ \
+                                                if ( fmt2.wd < 21 ) fmt2.wd = 21; \
                                                 fmt2.flags.pc = true; fmt2.pc = 21; \
                                         } else { \
@@ -628 +612 @@
                                                 /*if ( ! fmt.flags.nobsdp && fmt.pc < fmt.wd ) fmt.wd -= 1;*/ \
                                                 fmt2.wd = 1; \
-                                                /* printf( "R %llo %llo %llo %d %d '%c' %x %llo %d %d '%c' %x\n", msig, lsig, fmt.val, fmt.wd, fmt.pc, fmt.base, fmt.all, fmt2.val, fmt2.wd, fmt2.pc, fmt2.base, fmt2.all ); */ \
+                                                /* printf( "R %llo %llo %llo %llo %d %d '%c' %x\n", msig, lsig, fmt.val, fmt2.val, fmt.wd, fmt.pc, fmt.base, fmt.all ); */ \
                                                 (ostype &)(os | fmt | "" | fmt2); \
                                                 sepOff( os ); \