1*ecf8d2a9SCameron Smith #include "phio_stream.h" 2*ecf8d2a9SCameron Smith void stream_openfile( 3*ecf8d2a9SCameron Smith const char filename[], 4*ecf8d2a9SCameron Smith phio_fp f) { 5*ecf8d2a9SCameron Smith stream_fp sf = (stream_fp) f; 6*ecf8d2a9SCameron Smith if(sf->mode == 'w' && sf->rs != NULL) 7*ecf8d2a9SCameron Smith sf->file = (int*) openRStreamWrite(sf->rs); 8*ecf8d2a9SCameron Smith else if(sf->mode == 'r' && sf->grs != NULL) 9*ecf8d2a9SCameron Smith sf->file = (int*) openGRStreamRead(sf->grs, filename); 10*ecf8d2a9SCameron Smith else 11*ecf8d2a9SCameron Smith fprintf(stderr, 12*ecf8d2a9SCameron Smith "ERROR %s type of stream %s is unknown... exiting\n", 13*ecf8d2a9SCameron Smith __func__, filename); 14*ecf8d2a9SCameron Smith } 15*ecf8d2a9SCameron Smith 16*ecf8d2a9SCameron Smith void stream_closefile(phio_fp f) { 17*ecf8d2a9SCameron Smith stream_fp sf = (stream_fp) f; 18*ecf8d2a9SCameron Smith fclose((FILE*)sf->file); 19*ecf8d2a9SCameron Smith } 20*ecf8d2a9SCameron Smith 21*ecf8d2a9SCameron Smith void stream_constructname(const char* in, char* out) { 22*ecf8d2a9SCameron Smith sprintf(out, "%s", in); 23*ecf8d2a9SCameron Smith } 24*ecf8d2a9SCameron Smith 25