|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T c
Length: 1854 (0x73e)
Types: TextFile
Names: »create_r.c«
└─⟦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⟧ »create_r.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/create_r.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/create_r.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/create_r.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/create_r.c«
#ifndef lint
#ifndef DEBUG
static char SCCS_id[] = "@(#)create_r.c 2.1 90/08/02 19:04:15 Copyright(c) 1990 by Rational.";
#else
static char SCCS_id[] = "@(#)create_r.c DEBUG 2.1 90/08/02 19:04:15 Copyright(c) 1990 by Rational.";
#endif
#endif
#define CREATE_R
#include "talk.h"
#undef CREATE_R
static jmp_buf env;
static check(error) int error;
{
if (error != E_OK) longjmp(env,error);
}
int create_r_read(fd) int fd;
{
int i,error;
char *str;
if (error=setjmp(env)) return error;
#ifdef DEBUG
trace_request("Create");
#endif
check(rw_read_int(fd,&i));
check((i==F_IS_DIRECTORY)?E_OK:E_INTERNAL_ERROR);
check(rw_read_bool(fd,&i));
#ifdef DEBUG
trace_bool("in","Is_Directory",i);
#endif
check(create_f_is_directory_in(i));
check(rw_read_int(fd,&i));
check((i==F_CREATE_DIR)?E_OK:E_INTERNAL_ERROR);
check(rw_read_bool(fd,&i));
#ifdef DEBUG
trace_bool("in","Create_Directories",i);
#endif
check(create_f_create_directories_in(i));
check(rw_read_int(fd,&i));
check((i==F_REMOTE_FILE)?E_OK:E_INTERNAL_ERROR);
check(rw_read_str(fd,&str));
#ifdef DEBUG
trace_string("in","Remote_File",str);
#endif
check(create_f_remote_file_in(str));
check(rw_read_int(fd,&i));
check((i==F_OPTIONS)?E_OK:E_INTERNAL_ERROR);
check(rw_read_str(fd,&str));
#ifdef DEBUG
trace_string("in","Options",str);
#endif
check(create_f_options_in(str));
check(rw_read_int(fd,&i));
check((i==F_DELIMITOR)?E_OK:E_INTERNAL_ERROR);
check(rw_read_int(fd,&i));
check((i==R_CREATE)?E_OK:E_INTERNAL_ERROR);
return E_OK;
}
int create_r_write(fd) int fd;
{
int error;
b_flush(0);
if (error=setjmp(env)) {
return report_unix_error(fd,R_CREATE,error);
}
if (!b_is_empty()) longjmp(env,E_INTERNAL_ERROR);
check(create_f_end());
#ifdef DEBUG
trace_end();
#endif
rw_write_int(fd,F_DELIMITOR);
(void)b_flush(1);
rw_write_int(fd,R_CREATE);
return E_OK;
}