Files
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

48 lines
1.1 KiB
C
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/*
exectest.c This program tests to see if execl function works as
specified.
execl calls execgood for small model ;
calls execgoob for big model ;
program written by Bill Fitler
program modified by Ken Chai 22-Dec-83
*/
#include "bugdefs.h"
#include <stdio.h>
GLOBAL char model[10] ;
char bugnum[80] ;
char progname[10] ;
char *chptr ;
char *strcpy() ;
main()
{
strcpy(bugnum,"exectest: \ttest of execl function\n\t\t\t") ;
printf("\nBegin test of execl function\n");
if (sizeof(chptr)==2) strcpy(model,"small" );
else strcpy(model,"big") ;
if (!strcmp(model,"small") )
strcpy(progname,"execgood") ;
else
strcpy(progname,"execgoob") ;
execl(progname,progname,"test's","good","for",model,"model",\
(char *) 0);
} /* exectest.c */
l,"model",\
(char *) 0);
} /* exectest.c */
l,"model",\
(char *) 0);
} /* exectest.c */