public static void Main(String[] args)
{
String[] cmdline = args;
Environment.ExitCode = (100);
Console.WriteLine("Microsoft (R) CLisp - Demo Lisp Compiler \n" +
"Copyright (c) 2000-2001, Microsoft Corporation All rights reserved.\n\n");
if (cmdline.Length < 1 || args[0].Equals("/?") == true)
{
Console.WriteLine("Usage: CLisp <input file> ");
return;
}
CLisp mine = new CLisp();
try{
FileInfo[] fe = (new DirectoryInfo(".")).GetFiles(cmdline[0]);
if (fe.Length == 0)
{
Console.WriteLine(cmdline[0] + ": file not found");
return;
}
mine.ReadFile(cmdline[0], (int)fe[0].Length);
}
catch (IOException e) {
Console.WriteLine("I/O error occured" + e);
Environment.ExitCode = (-1);
return;
}
catch (Exception e) {
Console.WriteLine("Either the FileName was incorrect or the feature is unsupported\n" + e);
Environment.ExitCode = (-1);
return;
}
try{
if (!mine.Lex())
{
Queue tokens = new Queue(mine.l.tokens);
while (tokens.Count > 0)
{
Console.WriteLine(tokens.Dequeue());
}
Console.WriteLine("Lex Error. Stopping");
Environment.ExitCode = (-1);
return;
}
}
catch (Exception e) {
Console.WriteLine("Unexpected LEX error: " + e);
Environment.ExitCode = (-1);
return;
}
try {
if (!mine.Parse())
{
Console.WriteLine(mine.p.e);
Console.WriteLine("Parse Error. Stopping");
Environment.ExitCode = (-1);
return;
}
}
catch (Exception e) {
Console.WriteLine("Unexpected Parse error:" + e);
Environment.ExitCode = (-1);
return;
}
try {
String name = cmdline[0].Substring(0, cmdline[0].LastIndexOf('.'));
mine.CodeGen(name);
}
catch (Exception e) {
Console.WriteLine("Unexpected CodeGen error:" + e);
Environment.ExitCode = (-1);
return;
}
}
public static void Main(String[] args){
String[] cmdline = args;
Environment.ExitCode = (100);
Console.WriteLine("Microsoft (R) CLisp - Demo Lisp Compiler \n" +
"Copyright (c) 2000-2001, Microsoft Corporation All rights reserved.\n\n");
if (cmdline.Length < 1 || args[0].Equals("/?") == true) {
Console.WriteLine("Usage: CLisp <input file> ");
return;
}
CLisp mine = new CLisp();
try{
FileInfo[] fe = (new DirectoryInfo(".")).GetFiles(cmdline[0]);
if (fe.Length == 0){
Console.WriteLine(cmdline[0] + ": file not found");
return;
}
mine.ReadFile(cmdline[0], (int)fe[0].Length);
}
catch(IOException e){
Console.WriteLine("I/O error occured" + e);
Environment.ExitCode = (-1);
return;
}
catch(Exception e){
Console.WriteLine("Either the FileName was incorrect or the feature is unsupported\n" + e);
Environment.ExitCode = (-1);
return;
}
try{
if (!mine.Lex()){
Queue tokens = new Queue(mine.l.tokens);
while(tokens.Count > 0)
Console.WriteLine(tokens.Dequeue());
Console.WriteLine("Lex Error. Stopping");
Environment.ExitCode = (-1);
return;
}
}
catch(Exception e){
Console.WriteLine("Unexpected LEX error: " + e);
Environment.ExitCode = (-1);
return;
}
try {
if (!mine.Parse()){
Console.WriteLine(mine.p.e);
Console.WriteLine("Parse Error. Stopping");
Environment.ExitCode = (-1);
return;
}
}
catch(Exception e){
Console.WriteLine("Unexpected Parse error:" + e);
Environment.ExitCode = (-1);
return;
}
try {
String name = cmdline[0].Substring(0, cmdline[0].LastIndexOf('.'));
mine.CodeGen(name);
}
catch(Exception e){
Console.WriteLine("Unexpected CodeGen error:" + e);
Environment.ExitCode = (-1);
return;
}
}
