#ifndef IOSTREAM_H
#define IOSTREAM_H

typedef unsigned long streamsize_type;

context ostream( dtype ostype ) {
    ostype *write( ostype *, const char *, streamsize_type );
    int fail( ostype * );
};

context writeable( type T ) {
    forall( dtype ostype | ostream( ostype ) ) ostype * ?<<?( ostype *, T );
};

// implement writable for some intrinsic types

forall( dtype ostype | ostream( ostype ) ) ostype * ?<<?( ostype *, char );
forall( dtype ostype | ostream( ostype ) ) ostype * ?<<?( ostype *, int );
forall( dtype ostype | ostream( ostype ) ) ostype * ?<<?( ostype *, double );
forall( dtype ostype | ostream( ostype ) ) ostype * ?<<?( ostype *, const char * );


context istream( dtype istype ) {
    istype *read( istype *, char *, streamsize_type );
    istype *unread( istype *, char );
    int fail( istype * );
    int eof( istype * );
};

context readable( type T ) {
    forall( dtype istype | istream( istype ) ) istype * ?<<?( istype *, T );
};

forall( dtype istype | istream( istype ) )
istype * ?>>?( istype *, char * );

forall( dtype istype | istream( istype ) )
istype * ?>>?( istype *, int * );

#endif // IOSTREAM_H