Changeset ac9ba12

Timestamp:

Jul 6, 2020, 4:47:01 PM (4 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, arm-eh, ast-experimental, enum, forall-pointer-decay, jacob/cs343-translation, master, new-ast, new-ast-unique-expr, pthread-emulation, qualifiedEnum

Children:

6437ce4

Parents:

82bbaf4

Message:

add comments

File:

• libcfa/src/iostream.cfa (modified) (4 diffs)

libcfa/src/iostream.cfa

@@ -10 +10 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Sun Jul  5 08:14:07 2020
-// Update Count     : 1063
+// Last Modified On : Mon Jul  6 08:49:48 2020
+// Update Count     : 1064
 //
 
@@ -674 +674 @@
                 base_128( os, val / power, power, f, maxdig, bits, cnt + 1 ); // recursive
                 f.val = val % power;
-                if ( cnt == 1 && f.flags.left ) { wd = f.wd; f.wd = maxdig; } // copy f.wd across printing of middle value
+                if ( cnt == 1 && f.flags.left ) { wd = f.wd; f.wd = maxdig; } // copy f.wd and reset for printing middle chunk
                 (ostype &)(os | f);
                 if ( cnt == 1 ) {
-                        if ( f.flags.left ) { wd -= maxdig; f.wd = wd < 0 ? 1 : wd; }
+                        if ( f.flags.left ) { wd -= maxdig; f.wd = wd < 0 ? 1 : wd; } // update and restore f.wd for printing end chunk
                         sepOff( os );                                                           // no seperator between chunks
                 } // if
-        } else {
+        } else {                                                                                        // print start chunk
                 f.val = val;
                 // f.pc is unsigned => use wd
@@ -693 +693 @@
                         if ( cnt != 0 ) {                                                       // value >= 2^64 ?
                                 unsigned int dig, bs = 0;
-                                // compute size of prefix base and digits
+                                // compute size of prefix digits and base
                                 if ( f.base == 'd' || f.base == 'u' ) { // no base prefix
                                         dig = ceil( log10( f.val ) );           // use floating-point
@@ -717 +717 @@
                 (ostype &)(os | f);
 
+                // remaining middle and end chunks are padded with 0s on the left
                 if ( ! f.flags.left ) { f.flags.pad0 = true; f.flags.pc = false; } // left pad with 0s
                 else { f.pc = maxdig; f.flags.pc = true; }              // left pad with precision
+
                 if ( cnt != 0 ) sepOff( os );                                   // no seperator between chunks
-                f.wd = wd;
-                f.flags.sign = false;                                                   // no +/- sign
-                f.flags.nobsdp = true;                                                  // no base prefix
+                f.wd = wd;                                                                              // reset f.wd for next chunk
+                f.flags.sign = false;                                                   // no leading +/- sign
+                f.flags.nobsdp = true;                                                  // no leading base prefix
         } // if
 } // base_128