Context Navigation

LXMAIN.C

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

Line
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.