Category : UNIX Files
Archive   : UUPC11YT.ZIP
Filename : TESTIMP.C

 
Output of file : TESTIMP.C contained in archive : UUPC11YT.ZIP
/*--------------------------------------------------------------------*/
/* Program: testimp 06/09/91 */
/* Author: Andrew H. Derbyshire */
/* Function: Test UUPC/extended filename mapping */
/* functions */
/* */
/* Copyright (C) 1991, Andrew H. Derbyshire */
/*--------------------------------------------------------------------*/

/*--------------------------------------------------------------------*/
/* System include files */
/*--------------------------------------------------------------------*/

#include
#include
#include
#include
#include

/*--------------------------------------------------------------------*/
/* UUPC/extended include files */
/*--------------------------------------------------------------------*/

#include "lib.h"
#include "import.h"
#include "export.h"
#include "timestmp.h"

/*--------------------------------------------------------------------*/
/* Local variables */
/*--------------------------------------------------------------------*/

char *E_nodename = "kendra";
char *panic_string = "Program aborting at line %d in file %s";
char *E_charset = DOSCHARS;
char *E_spooldir = "c:\uupc\spool";

/*--------------------------------------------------------------------*/
/* m a i n */
/* */
/* Main program to test importpath() */
/*--------------------------------------------------------------------*/

void main( int argc , char **argv )
{
char canon[FILENAME_MAX];
char host[FILENAME_MAX];
size_t count;

banner( argv ); /* Out of habit, I guess */
assert( argc > 2 );

for( count = 2; count < argc; count++)
{
printf("main: Processing arg[%d]=\"%s\"\n",
count, argv[count] );
importpath( canon, argv[count], argv[1] );

printf("import remote(%s)\thost(%s)\t yields canon(%s)\n",
argv[1],
argv[count] ,
canon);

fflush( stdout );

if ( strchr( argv[count], '/' ) == NULL )
{
exportpath( host, canon, argv[ 1 ] );

printf("export remote(%s)\tcanon(%s)\t yields host(%s)\n",
argv[1],
canon,
host );
} /* if */

} /* for */

} /* main */

/*--------------------------------------------------------------------*/
/* Replacement for UUPC/extended logging function */
/*--------------------------------------------------------------------*/

#pragma argsused

void printmsg(int level, char *fmt, ...)
{
va_list arg_ptr;

va_start(arg_ptr,fmt);
vfprintf(stdout, fmt, arg_ptr);
putchar('\n');
}


void bugout( const size_t lineno, const char *fname )
{
printmsg(0,"Program aborting at line %d in file %s",
lineno, fname );
fcloseall();
exit(69);
} /*bugout */


  3 Responses to “Category : UNIX Files
Archive   : UUPC11YT.ZIP
Filename : TESTIMP.C
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/