Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/clib/main.c

@@ -0,0 +1,54 @@
+/*****************************************************************************
+*
+*		R U N T I M E   S T A R T O F F   R O U T I N E
+*		-----------------------------------------------
+*	Copyright 1982,83 by Digital Research Inc.  All rights reserved.
+*
+*	Routine "_main" is entered from the C header routine to start a C 
+*	program.  It opens STDIN, STDOUT and STDERR to the console, and
+*	translates the command line to lower case.  Then it calls "__main()".
+*	There are two versions of "__main()" (one compiled for wildcards
+*	and the other compiled without) compiled from the source module
+*	"XMAIN.C".
+*
+*	Calling Sequence:
+*		return = _main(command,length);
+*
+*	Where:
+*		command		Is the address of the command line from CP/M
+*		length		Is the number of characters in the line, 
+*				excluding the termination character (CR/LF).
+*
+*	Modfications:
+*		11-Oct-83 whf  converted to DRC from CPM68K
+*
+*****************************************************************************/
+
+#include "portab.h"				/* Include std definitions  */
+#include "osif.h"				/*			    */
+#include "ctype.h"				/*			    */
+
+EXTERN	BYTE	__tname[];			/* Name of terminal device  */
+EXTERN	BYTE	__fdecls();			/* force loading of _iob    */
+EXTERN	BYTE	___atab();			/* force loading of ___atab */
+
+#define STDIN 0					/* file descriptors	    */
+#define STDOUT 1				/*			    */
+#define STDERR 2				/*			    */
+						/*			    */
+_main(com, len)					/****************************/
+	BYTE 	*com;				/* Command address	    */
+	WORD	len;				/* Command length	    */
+{						/****************************/
+REG	BYTE 	*s;				/* Temp byte pointer	    */
+						/****************************/
+	_chinit();				/* Initialize channels	    */
+	open(__tname,READ);			/* Open STDIN		    */
+	open(__tname,WRITE);			/* Open STDOUT		    */
+	open(__tname,WRITE);			/* Open STDERR		    */
+	com[len] = NULL;			/* Insure null at line end  */
+	for (s = com; *s; s++)			/* Convert string to	    */
+		*s = tolower(*s);		/*          lower case	    */
+	__main(com,len);			/* Do rest (replaceable)    */
+}						/****************************/
+