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

⟦7ae87b803⟧ TextFile

    Length: 981 (0x3d5)
    Types: TextFile
    Names: »put_f.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⟧ »put_f.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/put_f.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/put_f.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/put_f.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/put_f.c« 

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

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

extern	int	errno;
static	int	error_number=E_OK;
static	int	fd;
static	int	append = FALSE;

int	put_f_append_in(i)
int	i; 
{
	append = i;
	return	E_OK;
}

int	put_f_to_remote_file_in(name)
char	*name; 
{
	int	mode;
	error_number = E_OK;
	mode = O_CREAT|O_WRONLY|O_TRUNC;
	if (append)	mode |= O_APPEND;
	fd = open(name,mode,0644);
	if (fd == -1)	error_number = errno;
	return E_OK;
}

int	put_f_content_in(iter1,content,lg_content)
int	iter1;
char	*content;
int	lg_content; 
{
	if (fd != -1) {
		if (write(fd,content,lg_content) == -1)	error_number = errno;
	}
	return E_OK;
}

int	put_f_options_in(options)
char	*options; 
{
	return	E_OK;
}

int	put_f_end() {
	close(fd);
	return	error_number;
}