DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T r ┃

⟦51a23dd24⟧ TextFile

    Length: 1938 (0x792)
    Types: TextFile
    Names: »read_write.c«

Derivation

└─⟦8ee07855d⟧ Bits:30000545 8mm tape, Rational 1000, DTIA 2_1_6
    └─ ⟦0c25cb74a⟧ »DATA« 
        └─⟦038380b96⟧ 
└─⟦d0624311f⟧ Bits:30000529 8mm tape, Rational 1000, DTIA 2_1_7
    └─ ⟦f494b5154⟧ »DATA« 
        └─⟦038380b96⟧ 
            └─ ⟦this⟧ »read_write.c« 
└─⟦8ee07855d⟧ Bits:30000545 8mm tape, Rational 1000, DTIA 2_1_6
    └─ ⟦0c25cb74a⟧ »DATA« 
        └─⟦0732ea0cf⟧ 
└─⟦d0624311f⟧ Bits:30000529 8mm tape, Rational 1000, DTIA 2_1_7
    └─ ⟦f494b5154⟧ »DATA« 
        └─⟦0732ea0cf⟧ 
            └─ ⟦this⟧ »../../dtia/release_apollo_2.1/read_write.c« 
└─⟦8ee07855d⟧ Bits:30000545 8mm tape, Rational 1000, DTIA 2_1_6
    └─ ⟦0c25cb74a⟧ »DATA« 
        └─⟦25fab149a⟧ 
└─⟦d0624311f⟧ Bits:30000529 8mm tape, Rational 1000, DTIA 2_1_7
    └─ ⟦f494b5154⟧ »DATA« 
        └─⟦25fab149a⟧ 
            └─ ⟦this⟧ »../../dtia/release_sun_2.1/read_write.c« 
└─⟦8ee07855d⟧ Bits:30000545 8mm tape, Rational 1000, DTIA 2_1_6
    └─ ⟦0c25cb74a⟧ »DATA« 
        └─⟦be254d495⟧ 
└─⟦d0624311f⟧ Bits:30000529 8mm tape, Rational 1000, DTIA 2_1_7
    └─ ⟦f494b5154⟧ »DATA« 
        └─⟦be254d495⟧ 
            └─ ⟦this⟧ »../../dtia/release_aix_2.1/read_write.c« 
└─⟦8ee07855d⟧ Bits:30000545 8mm tape, Rational 1000, DTIA 2_1_6
    └─ ⟦0c25cb74a⟧ »DATA« 
        └─⟦c67979795⟧ 
└─⟦d0624311f⟧ Bits:30000529 8mm tape, Rational 1000, DTIA 2_1_7
    └─ ⟦f494b5154⟧ »DATA« 
        └─⟦c67979795⟧ 
            └─ ⟦this⟧ »../../dtia/release_hp_2.1/read_write.c«

TextFile

#ifndef	lint
#ifndef	DEBUG
static char SCCS_id[] = "@(#)read_write.c 2.1 90/08/02 19:04:08  Copyright(c) 1990 by Rational.";
#else
static char SCCS_id[] = "@(#)read_write.c DEBUG 2.1 90/08/02 19:04:08  Copyright(c) 1990 by Rational.";
#endif
#endif

#define	READ_WRITE
#include	"talk.h"
#undef	READ_WRITE

static	jmp_buf	env;

int	rw_read_bool(fd,i)
int	fd;
int	*i; 
{
	if (setjmp(env)) {
		return E_CONNECTION;
	}
	*i=Get_Bool(env,fd);
	return E_OK;
}

int	rw_read_short(fd,i)
int	fd;
short	*i; 
{
	if (setjmp(env)) {
		return E_CONNECTION;
	}
	*i=Get_Short(env,fd);
	return E_OK;
}

int	rw_read_int(fd,i)
int	fd;
int	*i; 
{
	if (setjmp(env)) {
		return E_CONNECTION;
	}
	*i=Get_Int(env,fd);
	return E_OK;
}

#define	LG_BUFFER	MAX_SIZE_ITEM+10	/* Actually must be 	*/
/* theoretically +1	*/
/* but 10 allows to 	*/
/* treat a slide + its	*/
/* header in one shot	*/
static	char	buffer[LG_BUFFER];
int	rw_read_str(fd,str)
int	fd;
char	**str; 
{
	int	lg_result;
	if (setjmp(env)) {
		return E_CONNECTION;
	}
	Get_String(env,fd,buffer,LG_BUFFER,&lg_result);
	*str=buffer;
	return E_OK;
}

int	rw_read_bnd_str(fd,str,lg_result)
int	fd;
char	**str;
int	*lg_result; 
{
	*lg_result=0;
	if (setjmp(env)) {
		return E_CONNECTION;
	}
	Get_String(env,fd,buffer,LG_BUFFER,lg_result);
	*str=buffer;
	return E_OK;
}

int	rw_write_bool(fd,i)
int	fd;
int	i; 
{
	if (setjmp(env)) return E_CONNECTION;
	Put_Bool(env,fd,i);
	return E_OK;
}

int	rw_write_short(fd,i)
int	fd;
int	i; 
{
	if (setjmp(env)) return E_CONNECTION;
	Put_Short(env,fd,i);
	return E_OK;
}

int	rw_write_int(fd,i)
int	fd;
int	i; 
{
	if (setjmp(env)) return E_CONNECTION;
	Put_Int(env,fd,i);
	return E_OK;
}

int	rw_write_str(fd,str)
int	fd;
char	*str; 
{
	if (setjmp(env)) return E_CONNECTION;
	Put_String(env,fd,str);
	return E_OK;
}

int	rw_write_str_bnd(fd,str,lg)
int	fd;
char	*str;
int	lg; 
{
	if (setjmp(env)) return E_CONNECTION;
	Put_String_Bnd(env,fd,str,lg);
	return E_OK;
}