DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦8a2dd9f8a⟧ TextFile

    Length: 309 (0x135)
    Types: TextFile
    Notes: R1k Text-file segment

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦3687aa3c6⟧ 
            └─⟦this⟧

TextFile

#include <assert.h>
#include <fcntl.h>


void write_string ( char *s, char *tty )
{
   int fd = open ( tty, O_WRONLY );
   int len = strlen (s);

   printf ("message = *%s*\n", s);
   printf ("tty = *%s*\n", tty);
   
   assert ( isatty ( fd ) );
 
   assert ( write ( fd, s, len ) == len );

   close (fd);
}