Changeset b19b362


Ignore:
Timestamp:
May 3, 2026, 8:25:27 AM (3 days ago)
Author:
Peter A. Buhr <pabuhr@…>
Branches:
master
Children:
c136863
Parents:
efa8439a
Message:

add quote output manipulator for printing char, char *, string surrounded by quote characters

Files:
2 added
7 edited

Legend:

Unmodified
Added
Removed

  • libcfa/src/collections/string.hfa

    refa8439a rb19b362  
    1010// Created On       : Fri Sep 03 11:00:00 2021
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun Sep 14 10:58:28 2025
    13 // Update Count     : 311
     12// Last Modified On : Sat May  2 19:09:55 2026
     13// Update Count     : 322
    1414//
    1515
    … …  
    8787
    8888static inline {
    89         _Ostream_Manip(string) bin( string s ) { return (_Ostream_Manip(string))@{ s, 1, 0, 'b', { .all = 0 } }; }
    90         _Ostream_Manip(string) oct( string s ) { return (_Ostream_Manip(string))@{ s, 1, 0, 'o', { .all = 0 } }; }
    91         _Ostream_Manip(string) hex( string s ) { return (_Ostream_Manip(string))@{ s, 1, 0, 'x', { .all = 0 } }; }
    92         _Ostream_Manip(string) wd( unsigned int w, string s ) { return (_Ostream_Manip(string))@{ s, w, 0, 's', { .all = 0 } }; }
    93         _Ostream_Manip(string) wd( unsigned int w, unsigned int pc, string s ) { return (_Ostream_Manip(string))@{ s, w, pc, 's', { .flags.pc = true } }; }
    94         _Ostream_Manip(string) & wd( unsigned int w, _Ostream_Manip(string) & fmt ) { fmt.wd = w; return fmt; }
    95         _Ostream_Manip(string) & wd( unsigned int w, unsigned int pc, _Ostream_Manip(string) & fmt ) { fmt.wd = w; fmt.pc = pc; fmt.flags.pc = true; return fmt; }
     89        _Ostream_Manip(string) bin( string s ) { return (_Ostream_Manip(string))@{ .val = s, .wd = 1, .pc = 0, .base = 'b', { .all = 0 } }; }
     90        _Ostream_Manip(string) oct( string s ) { return (_Ostream_Manip(string))@{ .val = s, .wd = 1, .pc = 0, .base = 'o', { .all = 0 } }; }
     91        _Ostream_Manip(string) hex( string s ) { return (_Ostream_Manip(string))@{ .val = s, .wd = 1, .pc = 0, .base = 'x', { .all = 0 } }; }
     92        _Ostream_Manip(string) quote( string s ) { return (_Ostream_Manip(string))@{ .val = s, .wd = 1, .pc = 0, .base = 's', { .flags.quote = true } }; }
     93        _Ostream_Manip(string) wd( unsigned int wd, string s ) { return (_Ostream_Manip(string))@{ .val = s, .wd = wd, .pc = 0, .base = 's', { .all = 0 } }; }
     94        _Ostream_Manip(string) wd( unsigned int wd, unsigned int pc, string s ) { return (_Ostream_Manip(string))@{ .val = s, .wd = wd, .pc = pc, .base = 's', { .flags.pc = true } }; }
     95        _Ostream_Manip(string) & wd( unsigned int wd, _Ostream_Manip(string) & fmt ) { fmt.wd = wd; return fmt; }
     96        _Ostream_Manip(string) & wd( unsigned int wd, unsigned int pc, _Ostream_Manip(string) & fmt ) { fmt.wd = wd; fmt.pc = pc; fmt.flags.pc = true; return fmt; }
    9697        _Ostream_Manip(string) & left( _Ostream_Manip(string) & fmt ) { fmt.flags.left = true; return fmt; }
    9798        _Ostream_Manip(string) & nobase( _Ostream_Manip(string) & fmt ) { fmt.flags.nobsdp = true; return fmt; }
     99        _Ostream_Manip(string) & upcase( _Ostream_Manip(string) & fmt ) { if ( fmt.base == 'x' || fmt.base == 'b' ) fmt.base -= 32; /* upper case */ return fmt; }
     100        _Ostream_Manip(string) & quote( _Ostream_Manip(string) & fmt ) { fmt.flags.quote = true; return fmt; } \
    98101} // distribution
    99102

  • libcfa/src/iostream.cfa

    refa8439a rb19b362  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun May 18 08:23:40 2025
    13 // Update Count     : 2175
     12// Last Modified On : Sun May  3 08:08:29 2026
     13// Update Count     : 2241
    1414//
    1515
    … …  
    5252                fmt( os, "%c", c );
    5353                if ( c == '\n' ) setNL$( os, true );
    54                 return nosep( os );
     54                return nosep( os );                                                             // no separator after char
    5555        } // ?|?
    5656        OSTYPE_VOID_IMPL( os, char )
    … …  
    204204        ostype & ?|?( ostype & os, float _Complex fc ) with ( basic_ostream_table ) {
    205205                if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
    206 //              os | crealf( fc ) | nonl;
    207206                PRINT_WITH_DP( os, "%'g", crealf( fc ) );
    208207                PRINT_WITH_DP( os, "%'+g", cimagf( fc ) );
    … …  
    271270                if ( ch == '\n' ) setNL$( os, true );                   // check *AFTER* sepPrt$ call above as it resets NL flag
    272271                return os;
    273 //              return write( os, s, len );
    274272        } // ?|?
    275273        OSTYPE_VOID_IMPL( os, const char * )
    … …  
    645643#define FLOATING_POINT_FMT_IMPL( T, DFMTNP, DFMTP ) \
    646644forall( ostype & | basic_ostream( ostype ) ) { \
    647         static void eng( T &value, int & pc, int & exp10 ) { \
     645        static void eng( T & value, int & pc, int & exp10 ) { \
    648646                exp10 = lrint( floor( log10( abs( value ) ) ) ); /* round to desired precision */ \
    649647                if ( exp10 < 0 ) exp10 -= 2; \
    … …  
    697695                        fmtuc.flags.pc = f.flags.pc;
    698696                        fmtuc.flags.nobsdp = f.flags.nobsdp;
    699 //                      os | fmtuc | nonl;
     697                        return (ostype &)(os | fmtuc);
     698                } // if
     699                if ( f.flags.quote ) {                                                  // print as string
     700                        char qv[] = "' '";
     701                        qv[1] = f.val;
     702                        f.flags.quote = false;                                          // already quoted
     703                        _Ostream_Manip(const char *) fmtuc @= { qv, f.wd, f.pc, 's', {f.all} };
    700704                        (ostype &)(os | fmtuc);
    701                         return os;
    702                 } // if
    703 
    704                 if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
    705 
    706                 #define CFMTNP "% * "
     705                        return nosep( os );                                                     // no separator after char
     706                } // if
     707
     708                if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
     709
     710                #define CFMTNP "% *c"
    707711                char fmtstr[sizeof(CFMTNP)];                                    // sizeof includes '\0'
    708712                memcpy( &fmtstr, CFMTNP, sizeof(CFMTNP) );
    … …  
    713717                fmtstr[star] = '%';
    714718
    715                 fmtstr[sizeof(CFMTNP)-2] = f.base;                              // sizeof includes '\0'
    716719                // printf( "%d %s\n", f.wd, &fmtstr[star] );
    717720                fmt( os, &fmtstr[star], f.wd, f.val );
    718                 return os;
     721                return nosep( os );                                                             // no separator after char
    719722        } // ?|?
    720723        OSTYPE_VOID_IMPL( os, _Ostream_Manip(char) )
    … …  
    733736                        for ( i; 0 ~ @ : @; f.val[i] != '\0' ) {
    734737                                fmtuc.val = f.val[i];
    735 //                              os | fmtuc | nonl;
    736738                                (ostype &)(os | fmtuc);
    737739                        } // for
    738740                        return os;
    739741                } // if
     742                if ( f.flags.quote ) {                                                  // print as string
     743                        int len = strlen( f.val );
     744                        char qv[len + 3];                                                       // space for quotes and '\0'
     745                        qv[0] = '"';                                                            // copy string surrounded with quotes
     746                        strcpy( &qv[1], f.val );
     747                        qv[len + 1] = '"';
     748                        qv[len + 2] = '\0';
     749                        f.flags.quote = false;                                          // already quoted
     750                        _Ostream_Manip(const char *) fmtuc @= { qv, f.wd, f.pc, 's', {f.all} };
     751                        return (ostype &)(os | fmtuc);
     752                } // if
    740753
    741754                if ( f.val[0] != '\0' &&                                                // null string => no leading separator
    742755                         sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
    743756
    744                 #define SFMTNP "% * "
    745                 #define SFMTP "% *.* "
     757                #define SFMTNP "% *s"
     758                #define SFMTP "% *.*s"
    746759                char fmtstr[sizeof(SFMTP)];                                             // sizeof includes '\0'
    747760                if ( ! f.flags.pc ) memcpy( &fmtstr, SFMTNP, sizeof(SFMTNP) );
    … …  
    755768                if ( ! f.flags.pc ) {                                                   // no precision
    756769                        // printf( "%d %s\n", f.wd, &fmtstr[star] );
    757                         fmtstr[sizeof(SFMTNP)-2] = f.base;                      // sizeof includes '\0'
    758770                        fmt( os, &fmtstr[star], f.wd, f.val );
    759771                } else {                                                                                // precision
    760                         fmtstr[sizeof(SFMTP)-2] = f.base;                       // sizeof includes '\0'
    761772                        // printf( "%d %d %s\n", f.wd, f.pc, &fmtstr[star] );
    762773                        fmt( os, &fmtstr[star], f.wd, f.pc, f.val );
    … …  
    796807                for () {
    797808                        int args = fmt( is, "%c", &temp );                      // can be called with EOF on
    798                         if ( eof( is ) ) throwResume ExceptionInst( end_of_file );
     809                  if ( eof( is ) ) throwResume ExceptionInst( end_of_file );
    799810                        assert( args == 1 );                                            // if not EOF => a single character must be read
    800811                        // do not overwrite parameter with newline unless appropriate
    801                         if ( temp != '\n' || getANL$( is ) ) { c = temp; break; }
     812                  if ( temp != '\n' || getANL$( is ) ) { c = temp; break; }
    802813                } // for
    803814                return is;

  • libcfa/src/iostream.hfa

    refa8439a rb19b362  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Wed Jan 14 21:23:53 2026
    13 // Update Count     : 772
     12// Last Modified On : Sat May  2 18:48:56 2026
     13// Update Count     : 780
    1414//
    1515
    … …  
    193193        unsigned char sign:1;                                                           // plus / minus sign
    194194        unsigned char pad0:1;                                                           // zero pad
     195        unsigned char quote:1;                                                          // print quotes
    195196};
    196197
    … …  
    224225        _Ostream_Manip(T) & upcase( _Ostream_Manip(T) & fmt ) { if ( fmt.base == 'x' || fmt.base == 'b' ) fmt.base -= 32; /* upper case */ return fmt; } \
    225226        _Ostream_Manip(T) & nobase( _Ostream_Manip(T) & fmt ) { fmt.flags.nobsdp = true; return fmt; } \
    226         _Ostream_Manip(T) & pad0( _Ostream_Manip(T) & fmt ) { fmt.flags.pad0 = true; return fmt; } \
    227227        _Ostream_Manip(T) sign( T val ) { return (_Ostream_Manip(T))@{ .val = val, .wd = 1, .pc = 0, .base = CODE, { .flags.sign = true } }; } \
    228228        _Ostream_Manip(T) & sign( _Ostream_Manip(T) & fmt ) { fmt.flags.sign = true; return fmt; } \
     229        _Ostream_Manip(T) & pad0( _Ostream_Manip(T) & fmt ) { fmt.flags.pad0 = true; return fmt; } \
    229230} /* distribution */ \
    230231forall( ostype & | basic_ostream( ostype ) ) { \
    … …  
    288289        _Ostream_Manip(char) oct( char c ) { return (_Ostream_Manip(char))@{ .val = c, .wd = 1, .pc = 0, .base = 'o', { .all = 0 } }; }
    289290        _Ostream_Manip(char) hex( char c ) { return (_Ostream_Manip(char))@{ .val = c, .wd = 1, .pc = 0, .base = 'x', { .all = 0 } }; }
    290         _Ostream_Manip(char) wd( unsigned int wd, char c ) { return (_Ostream_Manip(char))@{ c, wd, 0, .base = 'c', { .all = 0 } }; }
     291        _Ostream_Manip(char) quote( char c ) { return (_Ostream_Manip(char))@{ .val = c, .wd = 1, .pc = 0, .base = 'c', { .flags.quote = true } }; }
     292        _Ostream_Manip(char) wd( unsigned int wd, char c ) { return (_Ostream_Manip(char))@{ .val = c, .wd = wd, .pc = 0, .base = 'c', { .all = 0 } }; }
    291293        _Ostream_Manip(char) & wd( unsigned int wd, _Ostream_Manip(char) & fmt ) { fmt.wd = wd; return fmt; }
    292294        _Ostream_Manip(char) & left( _Ostream_Manip(char) & fmt ) { fmt.flags.left = true; return fmt; }
    293295        _Ostream_Manip(char) & upcase( _Ostream_Manip(char) & fmt ) { if ( fmt.base == 'x' || fmt.base == 'b' ) fmt.base -= 32; /* upper case */ return fmt; }
    294296        _Ostream_Manip(char) & nobase( _Ostream_Manip(char) & fmt ) { fmt.flags.nobsdp = true; return fmt; }
     297        _Ostream_Manip(char) & quote( _Ostream_Manip(char) & fmt ) { fmt.flags.quote = true; return fmt; }
    295298} // distribution
    296299forall( ostype & | basic_ostream( ostype ) ) {
    … …  
    305308        _Ostream_Manip(const char *) oct( const char s[] ) { return (_Ostream_Manip(const char *))@{ .val = s, .wd = 1, .pc = 0, .base = 'o', { .all = 0 } }; }
    306309        _Ostream_Manip(const char *) hex( const char s[] ) { return (_Ostream_Manip(const char *))@{ .val = s, .wd = 1, .pc = 0, .base = 'x', { .all = 0 } }; }
    307         _Ostream_Manip(const char *) wd( unsigned int wd, const char s[] ) { return (_Ostream_Manip(const char *))@{ s, wd, 0, .base = 's', { .all = 0 } }; }
    308         _Ostream_Manip(const char *) wd( unsigned int wd, unsigned int pc, const char s[] ) { return (_Ostream_Manip(const char *))@{ s, .wd = wd, .pc = pc, .base = 's', { .flags.pc = true } }; }
     310        _Ostream_Manip(const char *) quote( const char s[] ) { return (_Ostream_Manip(const char *))@{ .val = s, .wd = 1, .pc = 0, .base = 's', { .flags.quote = true } }; }
     311        _Ostream_Manip(const char *) wd( unsigned int wd, const char s[] ) { return (_Ostream_Manip(const char *))@{ .val = s, .wd = wd, .pc = 0, .base = 's', { .all = 0 } }; }
     312        _Ostream_Manip(const char *) wd( unsigned int wd, unsigned int pc, const char s[] ) { return (_Ostream_Manip(const char *))@{ .val = s, .wd = wd, .pc = pc, .base = 's', { .flags.pc = true } }; }
    309313        _Ostream_Manip(const char *) & wd( unsigned int wd, _Ostream_Manip(const char *) & fmt ) { fmt.wd = wd; return fmt; }
    310314        _Ostream_Manip(const char *) & wd( unsigned int wd, unsigned int pc, _Ostream_Manip(const char *) & fmt ) { fmt.wd = wd; fmt.pc = pc; fmt.flags.pc = true; return fmt; }
    311315        _Ostream_Manip(const char *) & left( _Ostream_Manip(const char *) & fmt ) { fmt.flags.left = true; return fmt; }
     316        _Ostream_Manip(const char *) & upcase( _Ostream_Manip(const char *) & fmt ) { if ( fmt.base == 'x' || fmt.base == 'b' ) fmt.base -= 32; /* upper case */ return fmt; }
    312317        _Ostream_Manip(const char *) & nobase( _Ostream_Manip(const char *) & fmt ) { fmt.flags.nobsdp = true; return fmt; }
     318        _Ostream_Manip(const char *) & quote( _Ostream_Manip(const char *) & fmt ) { fmt.flags.quote = true; return fmt; } \
    313319} // distribution
    314320forall( ostype & | basic_ostream( ostype ) ) {

  • tests/io/.expect/manipulatorsOutput1.arm64.txt

    refa8439a rb19b362  
    3838
    3939char
    40 a  a     a a     141 0141 61 0x61     0x61     0X61 a               a
    41 a  a     a a     141 0141 61 0x61     0x61     0X61 a               a
     40a'a' ' '       a     'a'    aa   
     41a'a' ' '       a     'a'    aa   
     42141 0141      141 0141     61 0x61       61 0x61   
     43141 0141      141 0141     61 0X61       61 0x61     1100001 0B1100001      1100001 0b1100001
    4244
    43 string
    44 abcd     abcd   abcd abcd   
    45 abcd     abcd   abcd abcd   
    46 
    47 binary string
    48 0b110000 0b1100001 0b1100010 0b1100011 0b1100100 0141 0142 0143 0144 0x61 0x62 0x63 0x64
    49 110000 1100001 1100010 1100011 1100100 141 142 143 144 61 62 63 64
    50   110000  1100001  1100010  1100011  1100100  141  142  143  144  61  62  63  64
     45char *
     46abcd "abcd"     abcd   "abcd"   abcd abcd     "abcd" 
     47abcd "abcd"     abcd   "abcd"   abcd abcd     "abcd" 
     48141 142 143 144 0141 0142 0143 0144      141      142      143      144 0141     0142     0143     0144   
     4961 62 63 64 0X61 0X62 0X63 0X64       61       62       63       64 0x61     0x62     0x63     0x64   
     501100001 1100010 1100011 1100100 0B1100001 0B1100010 0B1100011 0B1100100      1100001      1100010      1100011      1100100 0b1100001 0b1100010 0b1100011 0b1100100

  • tests/io/.expect/manipulatorsOutput1.x64.txt

    refa8439a rb19b362  
    3838
    3939char
    40 a  a     a a     141 0141 61 0x61     0x61     0X61 a               a
    41 a  a     a a     141 0141 61 0x61     0x61     0X61 a               a
     40a'a' ' '       a     'a'    aa   
     41a'a' ' '       a     'a'    aa   
     42141 0141      141 0141     61 0x61       61 0x61   
     43141 0141      141 0141     61 0X61       61 0x61     1100001 0B1100001      1100001 0b1100001
    4244
    43 string
    44 abcd     abcd   abcd abcd   
    45 abcd     abcd   abcd abcd   
    46 
    47 binary string
    48 0b110000 0b1100001 0b1100010 0b1100011 0b1100100 0141 0142 0143 0144 0x61 0x62 0x63 0x64
    49 110000 1100001 1100010 1100011 1100100 141 142 143 144 61 62 63 64
    50   110000  1100001  1100010  1100011  1100100  141  142  143  144  61  62  63  64
     45char *
     46abcd "abcd"     abcd   "abcd"   abcd abcd     "abcd" 
     47abcd "abcd"     abcd   "abcd"   abcd abcd     "abcd" 
     48141 142 143 144 0141 0142 0143 0144      141      142      143      144 0141     0142     0143     0144   
     4961 62 63 64 0X61 0X62 0X63 0X64       61       62       63       64 0x61     0x62     0x63     0x64   
     501100001 1100010 1100011 1100100 0B1100001 0B1100010 0B1100011 0B1100100      1100001      1100010      1100011      1100100 0b1100001 0b1100010 0b1100011 0b1100100

  • tests/io/.expect/manipulatorsOutput1.x86.txt

    refa8439a rb19b362  
    3838
    3939char
    40 a  a     a a     141 0141 61 0x61     0x61     0X61 a               a
    41 a  a     a a     141 0141 61 0x61     0x61     0X61 a               a
     40a'a' ' '       a     'a'    aa   
     41a'a' ' '       a     'a'    aa   
     42141 0141      141 0141     61 0x61       61 0x61   
     43141 0141      141 0141     61 0X61       61 0x61     1100001 0B1100001      1100001 0b1100001
    4244
    43 string
    44 abcd     abcd   abcd abcd   
    45 abcd     abcd   abcd abcd   
     45char *
     46abcd "abcd"     abcd   "abcd"   abcd abcd     "abcd" 
     47abcd "abcd"     abcd   "abcd"   abcd abcd     "abcd" 
     48141 142 143 144 0141 0142 0143 0144      141      142      143      144 0141     0142     0143     0144   
     4961 62 63 64 0X61 0X62 0X63 0X64       61       62       63       64 0x61     0x62     0x63     0x64   
     501100001 1100010 1100011 1100100 0B1100001 0B1100010 0B1100011 0B1100100      1100001      1100010      1100011      1100100 0b1100001 0b1100010 0b1100011 0b1100100
    4651
    47 binary string
    48 0b110000 0b1100001 0b1100010 0b1100011 0b1100100 0141 0142 0143 0144 0x61 0x62 0x63 0x64
    49 110000 1100001 1100010 1100011 1100100 141 142 143 144 61 62 63 64
    50   110000  1100001  1100010  1100011  1100100  141  142  143  144  61  62  63  64

  • tests/io/manipulatorsOutput1.cfa

    refa8439a rb19b362  
    77// Created On       : Sat Jun  8 18:04:11 2019
    88// Last Modified By : Peter A. Buhr
    9 // Last Modified On : Sat Apr 10 08:42:15 2021
    10 // Update Count     : 18
     9// Last Modified On : Sat May  2 18:50:48 2026
     10// Update Count     : 65
    1111//
    1212
    … …  
    100100
    101101        sout | nl | "char";
    102         char c = 'a';
    103         printf( "%c %2c %5c %-5c %hho %#hho %hhx %#hhx %#8hhx %#8hhX %-8c %8c\n", c, c, c, c, c, c, c, c, c, c, c, c );
    104         sout | c | ' ' | wd(2,c) | wd(5,c) | left(wd(5,c)) | nobase(oct(c)) | oct(c) | nonl;
    105         sout | nobase(hex(c)) | hex(c) | wd(8,hex(c)) | upcase(wd(8,hex(c))) | left(wd(8,c)) | wd(8,c);
     102        char c = 'a', * qc = "'a'";
     103        printf( "%c%s%c'%c'%8c%8s%5c%-5c\n", c, qc, ' ', ' ', c, qc, c, c );
     104        sout | c | quote(c) | ' ' | quote(' ') | wd(8,c) | quote( wd(8,c) ) | wd(5,c) | left(wd(5,c));
     105        printf( "%hho %#hho %8hho %#-8hho %hhx %#hhx %8hhx %#-8hhx\n", c, c, c, c, c, c, c, c );
     106        sout | nobase(oct(c)) | upcase(oct(c)) | nobase(wd(8,oct(c))) | left(wd(-8,oct(c))) | nonl;
     107        sout | nobase(hex(c)) | upcase(hex(c)) | nobase(wd(8,hex(c))) | left(wd(-8,hex(c))) | nonl;
     108        sout | nobase(bin(c)) | upcase(bin(c)) | nobase(wd(12,bin(c))) | left(wd(-12,bin(c)));
    106109
    107         sout | nl | "string";
    108         const char * s = "abcd";
    109         printf( "%s %8s %6.8s %-8s\n", s, s, s, s );
    110         sout | s | wd(8,s) | wd(6,8,s) | left(wd(8,s));
    111 
    112         sout | nl | "binary string";
    113         sout | bin("0") | bin(s) | oct(s) | hex(s);
    114         sout | nobase(bin("0")) | nobase(bin(s)) | nobase(oct(s)) | nobase(hex(s));
    115         sout | nobase(wd(8,bin("0"))) | nobase(wd(8,bin(s))) | nobase(wd(4,oct(s))) | nobase(wd(3,hex(s)));
     110        sout | nl | "char *";
     111        const char * s = "abcd", * qs = "\"abcd\"";
     112        printf( "%s %s %8s %8s %6.8s %-8s %-8s\n", s, qs, s, qs, s, s, qs );
     113        sout | s | quote( s ) | wd(8,s) | quote(wd(8,s)) | wd(6,8,s) | left(wd(8,s)) | quote(left(wd(8,s)));
     114        sout | nobase(oct(s)) | upcase(oct(s)) | nobase(wd(8,oct(s))) | left(wd(-8,oct(s)));
     115        sout | nobase(hex(s)) | upcase(hex(s)) | nobase(wd(8,hex(s))) | left(wd(-8,hex(s)));
     116        sout | nobase(bin(s)) | upcase(bin(s)) | nobase(wd(12,bin(s))) | left(wd(-12,bin(s)));
    116117}
    117118
Note: See TracChangeset for help on using the changeset viewer.