|
|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T e
Length: 800 (0x320)
Types: TextFile
Names: »execs.c«
└─⟦db229ac7e⟧ Bits:30007240 EUUGD20: SSBA 1.2 / AFW Benchmarks
└─⟦this⟧ »EUUGD20/AFUU-ssba1.21/ssba1.21E/bsd/execs.c«
└─⟦this⟧ »EUUGD20/AFUU-ssba1.21/ssba1.21F/bsd/execs.c«
main(argc, argv)
char *argv[];
{
register int nexecs, i;
char *cp, *sbrk();
int pid,child,status,brksize;
if (argc < 3){
printf("usage : %s number-of-execs sbrk-size job-name\n", argv[0]);
exit(1);
}
nexecs = atoi(argv[1]);
if (nexecs < 0 ){
printf("%s: bad number of execs \n", argv[1]);
exit(2);
}
brksize = atoi(argv[2]);
if (brksize < 0 ){
printf("%s: bad size to sbrk \n", argv[2]);
exit(3);
}
cp = sbrk(brksize);
if((int)cp == -1){
perror("sbrk");
exit(4);
}
for (i = 0; i < brksize; i += 1024)
cp[i] = i;
while (nexecs-- > 0){
child = fork();
if (child == -1){
perror("fork");
exit(-1);
}
if (child == 0){
execv(argv[3], argv);
perror("execv");
exit(-1);
}
while((pid = wait(&status)) != -1 && pid != child)
;
}
exit(0);
}