Changes in / [49caf644:da6db1a2]


Ignore:
Location:
libcfa/src
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • libcfa/src/gmp.hfa

    r49caf644 rda6db1a2  
    1010// Created On       : Tue Apr 19 08:43:43 2016
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Tue Jul 18 11:04:54 2023
    13 // Update Count     : 35
     12// Last Modified On : Thu Jun 29 09:43:30 2023
     13// Update Count     : 33
    1414//
    1515
    … …  
    268268                        return os;
    269269                } // ?|?
    270                 OSTYPE_VOID_IMPL( Int )
     270
     271                void ?|?( ostype & os, Int mp ) {
     272                        (ostype)(os | mp); ends( os );
     273                } // ?|?
    271274        } // distribution
    272275} // distribution

  • libcfa/src/iostream.cfa

    r49caf644 rda6db1a2  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Tue Jul 18 13:56:01 2023
    13 // Update Count     : 1403
     12// Last Modified On : Tue Jul 18 10:42:51 2023
     13// Update Count     : 1401
    1414//
    1515
    … …  
    760760
    761761
     762#define ISTYPE_VOID_VAL_IMPL( T ) \
     763        void ?|?( istype & is, T t ) { \
     764                (istype &)(is | t); ends( is ); \
     765        } // ?|?
     766
    762767forall( istype & | basic_istream( istype ) ) {
    763768        istype & ?|?( istype & is, bool & b ) {
    … …  
    772777                return is;
    773778        } // ?|?
    774         ISTYPE_VOID_IMPL( bool & )
     779        ISTYPE_VOID_IMPL( bool )
    775780
    776781        istype & ?|?( istype & is, char & c ) {
    … …  
    784789                return is;
    785790        } // ?|?
    786         ISTYPE_VOID_IMPL( char & )
     791        ISTYPE_VOID_IMPL( char )
    787792
    788793        istype & ?|?( istype & is, signed char & sc ) {
    … …  
    790795                return is;
    791796        } // ?|?
    792         ISTYPE_VOID_IMPL( signed char & )
     797        ISTYPE_VOID_IMPL( signed char )
    793798
    794799        istype & ?|?( istype & is, unsigned char & usc ) {
    … …  
    796801                return is;
    797802        } // ?|?
    798         ISTYPE_VOID_IMPL( unsigned char & )
     803        ISTYPE_VOID_IMPL( unsigned char )
    799804
    800805        istype & ?|?( istype & is, short int & si ) {
    … …  
    802807                return is;
    803808        } // ?|?
    804         ISTYPE_VOID_IMPL( short int & )
     809        ISTYPE_VOID_IMPL( short int )
    805810
    806811        istype & ?|?( istype & is, unsigned short int & usi ) {
    … …  
    808813                return is;
    809814        } // ?|?
    810         ISTYPE_VOID_IMPL( unsigned short int & )
     815        ISTYPE_VOID_IMPL( unsigned short int )
    811816
    812817        istype & ?|?( istype & is, int & i ) {
    … …  
    814819                return is;
    815820        } // ?|?
    816         ISTYPE_VOID_IMPL( int & )
     821        ISTYPE_VOID_IMPL( int )
    817822
    818823        istype & ?|?( istype & is, unsigned int & ui ) {
    … …  
    820825                return is;
    821826        } // ?|?
    822         ISTYPE_VOID_IMPL( unsigned int & )
     827        ISTYPE_VOID_IMPL( unsigned int )
    823828
    824829        istype & ?|?( istype & is, long int & li ) {
    … …  
    826831                return is;
    827832        } // ?|?
    828         ISTYPE_VOID_IMPL( long int & )
     833        ISTYPE_VOID_IMPL( long int )
    829834
    830835        istype & ?|?( istype & is, unsigned long int & ulli ) {
    … …  
    832837                return is;
    833838        } // ?|?
    834         ISTYPE_VOID_IMPL( unsigned long int & )
     839        ISTYPE_VOID_IMPL( unsigned long int )
    835840
    836841        istype & ?|?( istype & is, long long int & lli ) {
    … …  
    838843                return is;
    839844        } // ?|?
    840         ISTYPE_VOID_IMPL( long long int & )
     845        ISTYPE_VOID_IMPL( long long int )
    841846
    842847        istype & ?|?( istype & is, unsigned long long int & ulli ) {
    … …  
    844849                return is;
    845850        } // ?|?
    846         ISTYPE_VOID_IMPL( unsigned long long int & )
     851        ISTYPE_VOID_IMPL( unsigned long long int )
    847852
    848853        #if defined( __SIZEOF_INT128__ )
    … …  
    850855                return (istype &)(is | (unsigned int128 &)llli);
    851856        } // ?|?
    852         ISTYPE_VOID_IMPL( int128 & )
     857        ISTYPE_VOID_IMPL( int128 )
    853858
    854859        istype & ?|?( istype & is, unsigned int128 & ullli ) {
    … …  
    867872                return is;
    868873        } // ?|?
    869         ISTYPE_VOID_IMPL( unsigned int128 & )
     874        ISTYPE_VOID_IMPL( unsigned int128 )
    870875        #endif // __SIZEOF_INT128__
    871876
    … …  
    874879                return is;
    875880        } // ?|?
    876         ISTYPE_VOID_IMPL( float & )
     881        ISTYPE_VOID_IMPL( float )
    877882
    878883        istype & ?|?( istype & is, double & d ) {
    … …  
    880885                return is;
    881886        } // ?|?
    882         ISTYPE_VOID_IMPL( double & )
     887        ISTYPE_VOID_IMPL( double )
    883888
    884889        istype & ?|?( istype & is, long double & ld ) {
    … …  
    886891                return is;
    887892        } // ?|?
    888         ISTYPE_VOID_IMPL( long double & )
     893        ISTYPE_VOID_IMPL( long double )
    889894
    890895        istype & ?|?( istype & is, float _Complex & fc ) {
    … …  
    894899                return is;
    895900        } // ?|?
    896         ISTYPE_VOID_IMPL( float _Complex & )
     901        ISTYPE_VOID_IMPL( float _Complex )
    897902
    898903        istype & ?|?( istype & is, double _Complex & dc ) {
    … …  
    902907                return is;
    903908        } // ?|?
    904         ISTYPE_VOID_IMPL( double _Complex & )
     909        ISTYPE_VOID_IMPL( double _Complex )
    905910
    906911        istype & ?|?( istype & is, long double _Complex & ldc ) {
    … …  
    910915                return is;
    911916        } // ?|?
    912         ISTYPE_VOID_IMPL( long double _Complex & )
     917        ISTYPE_VOID_IMPL( long double _Complex )
    913918
    914919        // istype & ?|?( istype & is, const char fmt[] ) {
    … …  
    921926                return is;
    922927        } // ?|?
    923         ISTYPE_VOID_IMPL( char * )
     928        ISTYPE_VOID_VAL_IMPL( char * )
    924929
    925930        // manipulators
    … …  
    983988                return is;
    984989        } // ?|?
    985         ISTYPE_VOID_IMPL( _Istream_Cstr )
     990        ISTYPE_VOID_VAL_IMPL( _Istream_Cstr )
    986991
    987992        istype & ?|?( istype & is, _Istream_Char f ) {
    … …  
    989994                return is;
    990995        } // ?|?
    991         ISTYPE_VOID_IMPL( _Istream_Char )
     996        ISTYPE_VOID_VAL_IMPL( _Istream_Char )
    992997} // distribution
    993998
    … …  
    10061011                return is; \
    10071012        } /* ?|? */ \
    1008         ISTYPE_VOID_IMPL( _Istream_Manip(T) ) \
     1013        ISTYPE_VOID_VAL_IMPL( _Istream_Manip(T) ) \
    10091014} // distribution
    10101015
    … …  
    10341039                return is;
    10351040        } // ?|?
    1036         ISTYPE_VOID_IMPL( _Istream_Manip(float _Complex) )
     1041        ISTYPE_VOID_VAL_IMPL( _Istream_Manip(float _Complex) )
    10371042
    10381043        istype & ?|?( istype & is, _Istream_Manip(double _Complex) dc ) {
    … …  
    10451050                return is;
    10461051        } // ?|?
    1047         ISTYPE_VOID_IMPL( _Istream_Manip(double _Complex) )
     1052        ISTYPE_VOID_VAL_IMPL( _Istream_Manip(double _Complex) )
    10481053
    10491054        istype & ?|?( istype & is, _Istream_Manip(long double _Complex) ldc ) {
    … …  
    10561061                return is;
    10571062        } // ?|?
    1058         ISTYPE_VOID_IMPL( _Istream_Manip(long double _Complex) )
     1063        ISTYPE_VOID_VAL_IMPL( _Istream_Manip(long double _Complex) )
    10591064} // distribution
    10601065

  • libcfa/src/iostream.hfa

    r49caf644 rda6db1a2  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Tue Jul 18 15:57:21 2023
    13 // Update Count     : 462
     12// Last Modified On : Tue Jul 18 10:42:52 2023
     13// Update Count     : 438
    1414//
    1515
    … …  
    138138        OSTYPE_VOID( const void * );
    139139
    140         // forall( T | { ostype & ?|?( ostype &, T ); } )
    141         // void ?|?( ostype & os, T );
    142 
    143140        // manipulators
    144141        ostype & ?|?( ostype &, ostype & (*)( ostype & ) );
    … …  
    217214forall( ostype & | basic_ostream( ostype ) ) { \
    218215        ostype & ?|?( ostype & os, _Ostream_Manip(T) f ); \
    219         OSTYPE_VOID( _Ostream_Manip(T) ); \
     216        void ?|?( ostype & os, _Ostream_Manip(T) f ); \
    220217} // ?|?
    221218
    … …  
    262259forall( ostype & | basic_ostream( ostype ) ) { \
    263260        ostype & ?|?( ostype & os, _Ostream_Manip(T) f ); \
    264         OSTYPE_VOID( _Ostream_Manip(T) ); \
     261        void ?|?( ostype & os, _Ostream_Manip(T) f ); \
    265262} // ?|?
    266263
    … …  
    282279forall( ostype & | basic_ostream( ostype ) ) {
    283280        ostype & ?|?( ostype & os, _Ostream_Manip(char) f );
    284         OSTYPE_VOID( _Ostream_Manip(char) ); \
     281        void ?|?( ostype & os, _Ostream_Manip(char) f );
    285282} // ?|?
    286283
    … …  
    300297forall( ostype & | basic_ostream( ostype ) ) {
    301298        ostype & ?|?( ostype & os, _Ostream_Manip(const char *) f );
    302         OSTYPE_VOID( _Ostream_Manip(const char *) ); \
     299        void ?|?( ostype & os, _Ostream_Manip(const char *) f );
    303300} // ?|?
    304301
    … …  
    309306#define ISTYPE_VOID( T ) void ?|?( istype &, T )
    310307#define ISTYPE_VOID_IMPL( T ) \
    311         void ?|?( istype & is, T t ) { \
     308        void ?|?( istype & is, T & t ) { \
    312309                (istype &)(is | t); ends( is ); \
    313310        } // ?|?
    … …  
    390387//      istype & ?|?( istype &, const char [] );
    391388        istype & ?|?( istype &, char [] );
    392         ISTYPE_VOID( char * );
     389        void ?|?( istype &, char [] );
    393390
    394391        // manipulators
    … …  
    429426forall( istype & | basic_istream( istype ) ) {
    430427        istype & ?|?( istype & is, _Istream_Cstr f );
    431         ISTYPE_VOID( _Istream_Cstr );
     428        void ?|?( istype & is, _Istream_Cstr f );
    432429}
    433430
    … …  
    442439forall( istype & | basic_istream( istype ) ) {
    443440        istype & ?|?( istype & is, _Istream_Char f );
    444         ISTYPE_VOID( _Istream_Char );
     441        void ?|?( istype & is, _Istream_Char f );
    445442}
    446443
    … …  
    461458forall( istype & | basic_istream( istype ) ) { \
    462459        istype & ?|?( istype & is, _Istream_Manip(T) f ); \
    463         ISTYPE_VOID( _Istream_Manip(T) ); \
     460        void ?|?( istype & is, _Istream_Manip(T) f ); \
    464461} // ?|?
    465462
    … …  
    491488forall( ostype & | ostream( ostype ) ) {
    492489        ostype & ?|?( ostype & os, Duration dur );
    493         OSTYPE_VOID( Duration );
     490        void ?|?( ostype & os, Duration dur );
    494491        ostype & ?|?( ostype & os, Time time );
    495         OSTYPE_VOID( Time );
     492        void ?|?( ostype & os, Time time );
    496493} // distribution
    497494
Note: See TracChangeset for help on using the changeset viewer.