DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

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

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

Index: T a

⟦80675794e⟧ TextFile

    Length: 546 (0x222)
    Types: TextFile
    Names: »adltouch.c«

Derivation

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Adl/misc/adltouch.c«

TextFile

/* Adltouch - touch an ADL save file */

#include <stdio.h>

#if MSDOS
#  define RB "rb+"
#else
#  define RB "r+"
#endif

main( argc, argv )
int
    argc;
char
    *argv[];
{
    FILE
	*f;
    long
	l,
	atol();

    if( argc != 3 ) {
	printf( "Usage: adltouch <file> <number>\n" );
	exit( 1 );
    }

    if( !(f = fopen( argv[ 1 ], RB )) ) {
	printf( "Error opening file %s\n", argv[ 1 ] );
	exit( 2 );
    }

    l = atol( argv[ 2 ] );
    fseek( f, 0L, 0 );
    fwrite( &l, sizeof( long ), 1, f );
    fclose( f );
}

/*** EOF adltouch.c ***/