static int Main(string[] args)
{
int exitcode = 0;
SasServer activeSession = new SasServer();
//string code = ReadFileFromAssembly("");
string path = args[0];
string readCode = "proc setinit; run;";
// This text is added only once to the file.
if (File.Exists(path))
{
readCode = File.ReadAllText(path);
}
//connect to sas server
try
{
activeSession.Connect();
}
catch (Exception ex)
{
Console.WriteLine(ex.Message);
}
//run sas code
if (activeSession != null && activeSession.Workspace != null)
{
activeSession.Workspace.LanguageService.Submit(readCode);
}
PopulateDatasetList(activeSession, "work");
// when code is complete, check error/warning
bool hasErrors = false, hasWarnings = false;
StringBuilder log = new StringBuilder();
Array carriage, lineTypes, lines;
do
{
activeSession.Workspace.LanguageService.FlushLogLines(1000,
out carriage,
out lineTypes,
out lines);
for (int i = 0; i < lines.GetLength(0); i++)
{
SAS.LanguageServiceLineType pre =
(SAS.LanguageServiceLineType)lineTypes.GetValue(i);
Console.WriteLine(lines.GetValue(i));
switch (pre)
{
case SAS.LanguageServiceLineType.LanguageServiceLineTypeError:
hasErrors = true;
break;
case SAS.LanguageServiceLineType.LanguageServiceLineTypeWarning:
hasWarnings = true;
break;
default:
break;
}
log.Append(string.Format("{0}{1}", lines.GetValue(i) as string, Environment.NewLine));
}
}while (lines != null && lines.Length > 0);
using (StreamWriter outfile = new StreamWriter("log.txt"))
{
outfile.Write(log.ToString());
}
if (hasWarnings && hasErrors)
{
Console.WriteLine("Program complete - has ERRORS and WARNINGS"); exitcode = 4;
}
else if (hasErrors)
{
Console.WriteLine("Program complete - has ERRORS"); exitcode = 4;
}
else if (hasWarnings)
{
Console.WriteLine("Program complete - has WARNINGS"); exitcode = 0;
}
else
{
Console.WriteLine("Program complete - no warnings or errors!"); exitcode = 0;
}
return(exitcode);
}
