Context Navigation

LXMAIN.C@ 9519422

Last change on this file since 9519422 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago
Imported original source code.
Property mode set to `100755`
File size: 763 bytes

Rev	Line
[3ae31e9]	1	/*
	2	============================================================================
	3	lxmain.c -- _main() for the Atari
	4	Version 4 -- 1987-02-10 -- D.N. Lynx Crowe
	5	============================================================================
	6	*/
	7
	8	/* #define LOWERIT define for GEMDOS case hacking (Yech!!) */
	9
	10	#ifdef LOWERIT
	11	#include "ctype.h"
	12	#endif
	13
	14	extern char __tname[];
	15
	16	_main(cmdline, cmdlen)
	17	char cmdline[];
	18	int cmdlen;
	19	{
	20
	21	#ifdef LOWERIT
	22	register char c;
	23	register char *bp = cmdline;
	24	#endif
	25
	26	_chinit();
	27
	28	open(__tname, 0);
	29	open(__tname, 1);
	30	open(__tname, 1);
	31
	32	cmdline[cmdlen] = '\0';
	33
	34	#ifdef LOWERIT
	35	while (c = *bp) {
	36
	37	if (isupper(c))
	38	*bp = c + 0x20;
	39
	40	++bp;
	41	}
	42	#endif
	43
	44	__main(cmdline, cmdlen);
	45	}

Note: See TracBrowser for help on using the repository browser.