mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 16:34:07 +00:00
48 lines
2.0 KiB
C
48 lines
2.0 KiB
C
/****************************************************************************/
|
|
/* */
|
|
/* E x e c F u n c t i o n */
|
|
/* ------------------------- */
|
|
/* Copyright 1982 by Digital Research Inc. All rights reserved. */
|
|
/* */
|
|
/* The execl function is called from anywhere to pass control to */
|
|
/* another program from the the executing C program. */
|
|
/* Note that the stream files are closed via '_cleanup()'. */
|
|
/* */
|
|
/* Calling Sequence: */
|
|
/* */
|
|
/* execl(name,arg0,arg1,...,argn,NULLPTR); */
|
|
/* */
|
|
/* Where: */
|
|
/* name, arg0, arg1...argn are pointers to character strings */
|
|
/* */
|
|
/****************************************************************************/
|
|
#include <stdio.h>
|
|
#include <cpm.h>
|
|
#include <ctype.h>
|
|
execl(name,arg0) /***************************/
|
|
UBYTE *name,*arg0; /* pointers arguments */
|
|
{ /* */
|
|
UBYTE **args; /* used to index into args */
|
|
UBYTE cmdline[128]; /* CP/M command line area */
|
|
WORD i; /***************************/
|
|
/* */
|
|
_cleanup(); /* Close all (stream) files*/
|
|
__BDOS(26,&cmdline[0]); /* DMA -> Command line */
|
|
/* now build cmdline */
|
|
strcpy(cmdline,name); /* Copy name portion */
|
|
for(i=0; i < strlen(cmdline); i++) /* uppercase command name */
|
|
if (islower(cmdline[i])) /***************************/
|
|
cmdline[i] = toupper(cmdline[i]); /* */
|
|
/* */
|
|
args = &arg0; /* Copy args */
|
|
args++; /* arg0 is a dup of the */
|
|
/* command name */
|
|
while(*args != NULL) /***************************/
|
|
{ /* */
|
|
strcat(cmdline," "); /* Add a blank */
|
|
strcat(cmdline,*args++); /* Add next arg */
|
|
} /***************************/
|
|
cmdline[0] = strlen(&cmdline[1]); /* Set commmand length */
|
|
__BDOS(47,0L); /* chain to program */
|
|
} /***************************/
|