public override void IndentLines(ITextEditor editor, int beginLine, int endLine)
{
//DocumentAccessor acc = new DocumentAccessor(editor.Document, beginLine, endLine);
//CSharpIndentationStrategy indentStrategy = new CSharpIndentationStrategy();
//indentStrategy.IndentationString = editor.Options.IndentationString;
//indentStrategy.Indent(acc, true);
SharpLua.Visitors.NonModifiedAstBeautifier b = null;
try
{
Lexer l = new Lexer();
Parser p = new Parser(l.Lex(editor.Document.Text));
SharpLua.Ast.Chunk c = p.Parse();
b = new SharpLua.Visitors.NonModifiedAstBeautifier();
//SharpLua.Visitors.ExactReconstruction b = new SharpLua.Visitors.ExactReconstruction();
b.options.Tab = editor.Options.IndentationString;
b.options.TabsToSpaces = editor.Options.ConvertTabsToSpaces;
int off = editor.Caret.Offset;
//editor.Document.Text = b.Reconstruct(c);
editor.Document.Text = b.Beautify(c);
editor.Caret.Offset = off >= editor.Document.TextLength ? 0 : off;
}
catch (LuaSourceException ex)
{
LoggingService.Warn("Error parsing document: " + System.IO.Path.GetFileName(ex.GenerateMessage(editor.FileName)));
}
catch (System.Exception ex)
{
LoggingService.Error("Error formatting document:", ex);
MessageBox.Show(b.index.ToString() + " "+ b.tok.Count);
MessageBox.Show("Error formatting Lua script: " + ex.ToString() + "\r\n\r\nPlease report this to the SharpLua GitHub page so it can get fixed");
}
}
private static void TestRename()
{
Lexer l = new Lexer();
Parser p = new Parser(l.Lex("local a = 5; function c() print(a) end c()"));
Chunk c = p.Parse();
c.Scope.RenameVariable("a", "b");
c.Scope.RenameVariable("c", "testfunc");
Visitors.BasicBeautifier e = new Visitors.BasicBeautifier();
Console.WriteLine(e.Beautify(c));
Visitors.ExactReconstruction e2 = new Visitors.ExactReconstruction();
Console.WriteLine(e2.Reconstruct(c));
}
static void TestInline()
{
Lexer l = new Lexer();
Parser p = new Parser(l.Lex("local b = function(a, ...) return a + 1, ... end"));
Chunk c = p.Parse();
AssignmentStatement a = c.Body[0] as AssignmentStatement;
a.Rhs[0] = Refactoring.InlineFunction(a.Rhs[0] as SharpLua.Ast.Expression.AnonymousFunctionExpr);
Visitors.BasicBeautifier e = new Visitors.BasicBeautifier();
a.ScannedTokens = null;
Console.WriteLine(e.Beautify(c));
Visitors.ExactReconstruction e2 = new Visitors.ExactReconstruction();
Console.WriteLine(e2.Reconstruct(c));
}
static void Main(string[] args)
{
TestRename();
while (true)
{
string line = Console.ReadLine();
try
{
Lexer l = new Lexer();
TokenReader r = l.Lex(line);
//Console.WriteLine("---------------------------------");
foreach (Token t in r.tokens)
{
Console.WriteLine(t.Print());
foreach (Token t2 in t.Leading)
{
Console.WriteLine(" " + t2.Print());
}
}
//Console.WriteLine("- PARSER OUTPUT -");
Parser p = new Parser(r);
Chunk c = p.Parse();
//dump(c.Body);
Console.WriteLine("- Beautified -");
Visitors.Beautifier b = new Visitors.Beautifier();
Console.WriteLine(b.Beautify(c));
Console.WriteLine("- Lua Compatible -");
Visitors.LuaCompatibleOutput lco = new Visitors.LuaCompatibleOutput();
Console.WriteLine(lco.Format(c));
Console.WriteLine("- Exact reconstruction -");
Console.WriteLine(new Visitors.ExactReconstruction().Reconstruct(c));
Console.WriteLine("- Minified -");
Console.WriteLine(new Visitors.Minifier().Minify(c));
}
catch (LuaSourceException ex)
{
Console.WriteLine(line);
Console.WriteLine(" ".Repeat(ex.Column - 1) + "^");
Console.WriteLine("<stdin>:" + ex.Line + ":" + ex.Column + ":" + ex.Message);
Console.WriteLine(ex.ToString());
}
catch (Exception ex)
{
Console.WriteLine(ex.ToString());
}
}
Console.Write("Press any key to continue . . . ");
Console.ReadKey(true);
}
static void Main(string[] args)
{
try
{
Lexer l = new Lexer();
Parser p = new Parser(l.Lex(File.ReadAllText(args[0])));
Chunk c = p.Parse();
var doc = ExtractDocumentationComments.Extract(c);
File.WriteAllText(Path.ChangeExtension(args[0], ".xml"),
Documentation.Write(doc));
}
catch (Exception ex)
{
Console.WriteLine(ex.ToString());
}
}
private static void TestExtractDocComments()
{
string str = @"
---<summary>
--- somefin
---</summary>
---<returns>nothing</returns>
function a()
end
---<summary>
--- ugh.
---</summary>
function tbl.dosomething()
end
---<summary>
--- a var
---</summary>
---<returns>wut?</returns>
x = 1
";
Lexer l = new Lexer();
Parser p = new Parser(l.Lex(str));
Chunk c = p.Parse();
List <DocumentationComment> docs = ExtractDocumentationComments.Extract(c);
foreach (DocumentationComment d in docs)
{
Console.WriteLine("Documentation comment: " + d.Text + "Var: " + (d.Ident == null ? "<none>" : d.Ident));
}
string s = Documentation.Write(docs);
Console.WriteLine(s);
Console.WriteLine(Documentation.Read(s).Count);
if (docs.Count == 0)
{
Console.WriteLine("No doc comments. Wut?");
}
}
private void updateDocument(string s)
{
try
{
Lexer l = new Lexer();
Parser p = new Parser(l.Lex(s));
p.ThrowParsingErrors = false;
SharpLua.Ast.Chunk c = p.Parse();
this.l.items.AddRange(AstExtractor.ExtractSymbols(c));
var cmts = SharpLua.XmlDocumentation.ExtractDocumentationComments.Extract(c);
if (false)
LoggingService.Info(cmts.Count);
DocumentationManager.Add(cmts);
}
catch (System.Exception ex)
{
LoggingService.Warn("Error parsing document");
}
}
public static int lua_load(LuaState L, lua_Reader reader, object data,
CharPtr chunkname)
{
ZIO z = new ZIO();
int status;
lua_lock(L);
if (chunkname == null) chunkname = "?";
#if OVERRIDE_LOAD || true
//#if false
if (data is LoadS)
{
LoadS d = data as LoadS;
if (d.size > 0 && d.s.chars[0] != LUA_SIGNATURE[0]) // if its not binary
{
Lexer l = new Lexer();
try
{
//Console.WriteLine(d.s);
TokenReader tr = l.Lex(d.s);
Parser p = new Parser(tr);
Ast.Chunk c = p.Parse();
Visitors.LuaCompatibleOutput lco = new Visitors.LuaCompatibleOutput();
string s = lco.Format(c);
d.s = s;
d.size = (lu_mem)s.Length;
}
catch (LuaSourceException ex)
{
throw ex;
}
}
else
{
d.s.index = 0;
// Why isn't the size equal to the chars.Length?
Debug.WriteLine("Binary data: d.size=" + d.size + " d.s.chars.Length=" + d.s.chars.Length);
Debug.WriteLine("Equal: " + (d.size == d.s.chars.Length));
//Debug.Assert(d.size == d.s.chars.Length);
d.size = (uint)d.s.chars.Length;
}
}
else if (data is LoadF)
{
LoadF lf = data as LoadF;
if (lf.f.ReadByte() != LUA_SIGNATURE[0]) // if its not binary
{
lf.f.Position = 0;
MemoryStream ms = new MemoryStream();
while (lf.f.Position < lf.f.Length)
ms.WriteByte((byte)lf.f.ReadByte());
ms.Position = 0;
// not binary file
ms.Position = 0;
StringBuilder sb = new StringBuilder();
while (ms.Position < ms.Length)
sb.Append((char)ms.ReadByte());
try
{
Lexer l = new Lexer();
TokenReader tr = l.Lex(sb.ToString());
Parser p = new Parser(tr);
Ast.Chunk c = p.Parse();
Visitors.LuaCompatibleOutput lco = new Visitors.LuaCompatibleOutput();
string s = lco.Format(c);
ms = new MemoryStream();
// TODO: there HAS to be a better way...
foreach (char c2 in s)
ms.WriteByte((byte)c2);
ms.Position = 0;
lf.f = ms;
}
catch (LuaSourceException ex)
{
lua_pushstring(L, ex.GenerateMessage(chunkname));
return 1;
//throw ex;
}
}
else
{
lf.f.Position = 0; // reset the read character
}
}
#endif
luaZ_init(L, z, reader, data);
status = luaD_protectedparser(L, z, chunkname);
lua_unlock(L);
if (data is LoadF)
{
LoadF f = data as LoadF;
if (f.f != null)
{
f.f.Close();
f.f.Dispose();
}
}
return status;
}
public static int lua_load(LuaState L, lua_Reader reader, object data,
CharPtr chunkname)
{
ZIO z = new ZIO();
int status;
lua_lock(L);
if (chunkname == null)
{
chunkname = "?";
}
if (data is LoadS)
{
LoadS d = data as LoadS;
if (d.size > 0)
{
Lexer l = new Lexer();
try
{
//Console.WriteLine(d.s);
TokenReader tr = l.Lex(d.s);
Parser p = new Parser(tr);
Ast.Chunk c = p.Parse();
Visitors.LuaCompatibleOutput lco = new Visitors.LuaCompatibleOutput();
string s = lco.Format(c);
d.s = s;
d.size = (lu_mem)s.Length;
}
catch (LuaSourceException ex)
{
throw ex;
}
}
}
else if (data is LoadF)
{
LoadF lf = data as LoadF;
MemoryStream ms = new MemoryStream();
while (lf.f.Position < lf.f.Length)
{
ms.WriteByte((byte)lf.f.ReadByte());
}
ms.Position = 0;
if (ms.ReadByte() != 27)
{
// not binary file
ms.Position = 0;
StringBuilder sb = new StringBuilder();
while (ms.Position < ms.Length)
{
sb.Append((char)ms.ReadByte());
}
try
{
Lexer l = new Lexer();
TokenReader tr = l.Lex(sb.ToString());
Parser p = new Parser(tr);
Ast.Chunk c = p.Parse();
Visitors.LuaCompatibleOutput lco = new Visitors.LuaCompatibleOutput();
string s = lco.Format(c);
ms = new MemoryStream();
// TODO: there HAS to be a better way...
foreach (char c2 in s)
{
ms.WriteByte((byte)c2);
}
ms.Position = 0;
lf.f = ms;
}
catch (LuaSourceException ex)
{
throw ex;
}
}
}
luaZ_init(L, z, reader, data);
status = luaD_protectedparser(L, z, chunkname);
lua_unlock(L);
return(status);
}
public static int lua_load(LuaState L, lua_Reader reader, object data,
CharPtr chunkname)
{
ZIO z = new ZIO();
int status;
lua_lock(L);
if (chunkname == null)
{
chunkname = "?";
}
#if OVERRIDE_LOAD || true
//#if false
if (data is LoadS)
{
LoadS d = data as LoadS;
if (d.size > 0 && d.s.chars[0] != LUA_SIGNATURE[0]) // if its not binary
{
Lexer l = new Lexer();
try
{
//Console.WriteLine(d.s);
TokenReader tr = l.Lex(d.s);
Parser p = new Parser(tr);
Ast.Chunk c = p.Parse();
Visitors.LuaCompatibleOutput lco = new Visitors.LuaCompatibleOutput();
string s = lco.Format(c);
d.s = s;
d.size = (lu_mem)s.Length;
}
catch (LuaSourceException ex)
{
throw ex;
}
}
else
{
d.s.index = 0;
// Why isn't the size equal to the chars.Length?
Debug.WriteLine("Binary data: d.size=" + d.size + " d.s.chars.Length=" + d.s.chars.Length);
Debug.WriteLine("Equal: " + (d.size == d.s.chars.Length));
//Debug.Assert(d.size == d.s.chars.Length);
d.size = (uint)d.s.chars.Length;
}
}
else if (data is LoadF)
{
LoadF lf = data as LoadF;
if (lf.f.ReadByte() != LUA_SIGNATURE[0]) // if its not binary
{
lf.f.Position = 0;
MemoryStream ms = new MemoryStream();
while (lf.f.Position < lf.f.Length)
{
ms.WriteByte((byte)lf.f.ReadByte());
}
ms.Position = 0;
// not binary file
ms.Position = 0;
StringBuilder sb = new StringBuilder();
while (ms.Position < ms.Length)
{
sb.Append((char)ms.ReadByte());
}
try
{
Lexer l = new Lexer();
TokenReader tr = l.Lex(sb.ToString());
Parser p = new Parser(tr);
Ast.Chunk c = p.Parse();
Visitors.LuaCompatibleOutput lco = new Visitors.LuaCompatibleOutput();
string s = lco.Format(c);
ms = new MemoryStream();
// TODO: there HAS to be a better way...
foreach (char c2 in s)
{
ms.WriteByte((byte)c2);
}
ms.Position = 0;
lf.f = ms;
}
catch (LuaSourceException ex)
{
lua_pushstring(L, ex.GenerateMessage(chunkname));
return(1);
//throw ex;
}
}
else
{
lf.f.Position = 0; // reset the read character
}
}
#endif
luaZ_init(L, z, reader, data);
status = luaD_protectedparser(L, z, chunkname);
lua_unlock(L);
if (data is LoadF)
{
LoadF f = data as LoadF;
if (f.f != null)
{
f.f.Close();
f.f.Dispose();
}
}
return(status);
}
/// <summary>
/// Checks the gwz file for:
/// - Lua file
/// - Info file
/// - Lua code for right format
/// - Media files for completeness.
/// Errors could be found in the list Errors (with line and col, if known).
/// </summary>
/// <param name='zip'>
/// Zip file for later use.
/// </param>
/// <returns>
/// <c>true</c>, if the checked gwz was correct and complete, <c>false</c> otherwise.
/// </returns>
public bool CheckGWZ ( ZipFile zip, Cartridge cartridge )
{
// Get input stream for Lua file
string luaCode = getLuaCode(zip,filenameGwz);
// Now parse the Lua file
Lexer lexer = new Lexer ();
// Split the Lua code into tokens
TokenReader tr = null;
try
{
tr = lexer.Lex ( luaCode );
}
catch ( LuaSourceException e )
{
// There are something strange in the Lua file, so that the lexer couldn't create tokens
Errors.Add ( new Error ( e.Line, e.Column, e.Message ) );
return false;
}
// Jump to the first token
tr.p = 0;
// Save cartridge name for later use (the last is allways End of Stream token)
cartridge.Variable = tr.tokens[tr.tokens.Count-2].Data;
// Now parse the tokens, if it is all right with the Lua file
SharpLua.Parser parser = new SharpLua.Parser ( tr );
SharpLua.Ast.Chunk c = null;
try
{
c = parser.Parse();
}
catch ( Exception e )
{
// Was there an error?
if ( parser.Errors.Count > 0 )
{
foreach ( SharpLua.LuaSourceException error in parser.Errors )
Errors.Add ( new Error ( error.Line, error.Column, error.Message ) );
return false;
}
}
// Now we are shure, that Lua code is allright, so we could go on
// Create a dictionary, so we could get fast connection variable <-> media list entry
Dictionary<String,Media> mediaDict = new Dictionary<String,Media> ();
// Go through all statements and search cartridge info and all media definitions
for ( int i = 0; i < c.Body.Count; i++ )
{
// We only check assignments in the parser result
if ( c.Body[i] is AssignmentStatement )
{
AssignmentStatement statement = (AssignmentStatement) c.Body[i];
// First get the left side ...
Expression statementLeft = statement.Lhs[0];
String left = getExpressionAsString ( statementLeft );
// ... and than the right side
Expression statementRight = statement.Rhs[0];
String right = getExpressionAsString ( statementRight );
// Is it an entry for the cartridge
if ( left.Contains ( "." ) && cartridge.Variable.Equals ( left.Split ( '.' )[0] ) )
{
string key = left.Split ( '.' )[1];
switch ( key )
{
case "Id":
cartridge.Id = right;
break;
case "Name":
cartridge.Name = right;
break;
case "Description":
cartridge.Description = removeLongString(right);
break;
case "Activity":
cartridge.Activity = right;
break;
case "StartingLocationDescription":
cartridge.StartingLocationDescription = removeLongString(right);
break;
case "StartingLocation":
if (statementRight is SharpLua.Ast.Expression.MemberExpr)
{
// Play anywhere cartridge with starting location at 360.0 / 360.0 / 360.0
cartridge.Latitude = 360.0;
cartridge.Longitude = 360.0;
cartridge.Altitude = 360.0;
}
else
getZonePoints ( (SharpLua.Ast.Expression.CallExpr) statementRight, ref cartridge.Latitude, ref cartridge.Longitude, ref cartridge.Altitude );
break;
case "Version":
cartridge.Version = right;
break;
case "Company":
cartridge.Company = right;
break;
case "Author":
cartridge.Author = right;
break;
case "BuilderVersion":
cartridge.BuilderVersion = right;
break;
case "CreateDate":
cartridge.CreateDate = right;
break;
case "PublishDate":
cartridge.PublishDate = right;
break;
case "UpdateDate":
cartridge.UpdateDate = right;
break;
case "LastPlayedDate":
cartridge.LastPlayedDate = right;
break;
case "TargetDevice":
cartridge.TargetDevice = right;
break;
case "TargetDeviceVersion":
cartridge.TargetDeviceVersion = right;
break;
case "StateId":
cartridge.StateId = right;
break;
case "CountryId":
cartridge.CountryId = right;
break;
case "Visible":
cartridge.Visible = right.Equals ( "true" ) ? true : false;
break;
case "Complete":
cartridge.Complete = right.Equals ( "true" ) ? true : false;
break;
case "UseLogging":
cartridge.UseLogging = right.Equals ( "true" ) ? true : false;
break;
case "Media":
cartridge.Splash = right;
break;
case "Icon":
cartridge.Icon = right;
break;
}
}
// Is it a ZMedia definition?
if ( right.Equals ( "Wherigo.ZMedia" ) )
{
Media media = new Media ();
media.Variable = left;
cartridge.MediaList.Add ( media );
mediaDict.Add ( left, media );
}
// Is it a ZMedia entry?
if ( left.Contains ( "." ) && mediaDict.ContainsKey ( left.Split ( '.' )[0] ) )
{
// We found an entry to a ZMedia
string key = left.Split ( '.' )[0];
string value = left.Split ( '.' )[1];
// Which key did we have found?
switch ( value )
{
case "Name":
mediaDict[key].Name = right;
break;
case "Description":
mediaDict[key].Description = right;
break;
case "AltText":
mediaDict[key].AltText = right;
break;
case "Id":
mediaDict[key].Id = right;
break;
case "Resources":
getMediaResources ( (SharpLua.Ast.Expression.TableConstructorExpr) statementRight, mediaDict[key].Resources );
break;
}
}
}
}
// Now check, if each media has a file in the gwz
foreach ( Media m in cartridge.MediaList )
{
foreach ( MediaResource resource in m.Resources )
{
if ( !files.Contains ( resource.Filename.ToLower () ) )
{
// This filename couldn't be found in the gwz file
Errors.Add ( new Error ( 0, 0, "Media file not found: " + resource.Filename ) );
}
}
}
// If there are no errors, than return true
return Errors.Count == 0;
}
/// <summary>
/// Replace strings with the device dependent ones.
/// </summary>
/// <param name="zip">ZipFile, which contains the Lua file.</param>
/// <param name="player">Device, for which we would change the strings.</param>
/// <returns>The updated Lua code.</returns>
public string UpdateLua ( ZipFile zip, Player player)
{
// Get input stream for Lua file
string luaCode = getLuaCode(zip,filenameGwz);
// Now parse the Lua file
Lexer lexer = new Lexer ();
// Split the Lua code into tokens
// This time we know, that the Lua file is ok, so we didn't ceare about errors
TokenReader tr = null;
tr = lexer.Lex ( luaCode );
// Go to the beginning of the token stream
tr.p = 0;
// Now replace all strings with the right special character strings
foreach ( Token t in tr.tokens )
if ( t.Type == TokenType.DoubleQuoteString || t.Type == TokenType.LongString || t.Type == TokenType.SingleQuoteString )
t.Data = player.ConvertString ( t.Data );
// Now create the Lua file again
StringBuilder result = new StringBuilder ( luaCode.Length );
for (int i = 0; i < tr.tokens.Count - 3;i++ )
{
if (tr.tokens[i].Leading.Count > 0)
foreach (Token lt in tr.tokens[i].Leading)
result.Append(lt.Data);
switch (tr.tokens[i].Type)
{
case TokenType.DoubleQuoteString:
result.AppendFormat("\"{0}\"", tr.tokens[i].Data);
break;
case TokenType.LongString:
result.Append(tr.tokens[i].Data);
break;
case TokenType.SingleQuoteString:
result.AppendFormat("\'{0}\'", tr.tokens[i].Data);
break;
case TokenType.EndOfStream:
break;
default:
result.Append(tr.tokens[i].Data);
break;
}
}
result.Append("\n\n");
// If there are code, we should insert for this device, we do this now
if (player.HasCode())
{
string code = player.GetCode(tr.tokens[tr.tokens.Count - 2].Data);
if (code != "")
result.Append(code);
}
// If there is a library, we should insert, we do it now
// Append "return cartridge" at the end
result.Append("\n\n");
result.Append(tr.tokens[tr.tokens.Count - 3].Data);
result.Append(" ");
result.Append(tr.tokens[tr.tokens.Count - 2].Data);
return result.ToString ();
}
static void Main(string[] args)
{
TestRename();
TestInline();
TestFindImpl();
TestFindRef();
TestExtractDocComments();
while (true)
{
string line = Console.ReadLine();
try
{
Lexer l = new Lexer();
TokenReader r = l.Lex(line);
//Console.WriteLine("---------------------------------");
foreach (Token t in r.tokens)
{
Console.WriteLine(t.Print());
foreach (Token t2 in t.Leading)
Console.WriteLine(" " + t2.Print());
}
//Console.WriteLine("- PARSER OUTPUT -");
Parser p = new Parser(r);
Chunk c = p.Parse();
Console.WriteLine("- Simplifying -");
c = (Chunk)c.Simplify();
Console.WriteLine("- Success! -");
//dump(c.Body);
Console.WriteLine("- Basic Beautifier (No Token Stream) -");
Visitors.BasicBeautifier b = new Visitors.BasicBeautifier();
Console.WriteLine(b.Beautify(c));
Console.WriteLine("- Lua Compatible -");
Visitors.LuaCompatibleOutput lco = new Visitors.LuaCompatibleOutput();
Console.WriteLine(lco.Format(c));
Console.WriteLine("- Exact reconstruction -");
Console.WriteLine(new Visitors.ExactReconstruction().Reconstruct(c));
Console.WriteLine("- Minified -");
Console.WriteLine(new Visitors.Minifier().Minify(c));
Console.WriteLine("- Beautifier -");
Console.WriteLine(new Visitors.Beautifier().Beautify(c));
Console.WriteLine("- NonModifiedAstBeautifer -");
Console.WriteLine(new Visitors.NonModifiedAstBeautifier().Beautify(c));
Console.WriteLine("- Misspelled Variables -");
List<Tuple<Variable, Variable>> vars = Refactoring.FindMisspelledVariables(c);
//Console.WriteLine(vars.Count);
foreach (Tuple<Variable, Variable> v in vars)
{
Console.WriteLine(v.Item1.Name + " is close to " + v.Item2.Name);
Console.Write("\t");
if (v.Item1.References > v.Item2.References)
Console.WriteLine(v.Item1.Name + " is the best match with " + v.Item1.References + " references");
else if (v.Item1.References < v.Item2.References)
Console.WriteLine(v.Item2.Name + " is the best match with " + v.Item2.References + " references");
else
Console.WriteLine("Both have the same amount of references (" + v.Item1.References + ")!");
}
List<Variable> unused = Refactoring.FindUnusedVariables(c);
Console.WriteLine("- Unused Variables -");
foreach (Variable v in unused)
Console.WriteLine(" " + v.Name);
unused = Refactoring.FindUnusedLocalVariables(c);
Console.WriteLine("- Unused Local Variables -");
foreach (Variable v in unused)
Console.WriteLine(" " + v.Name);
Refactoring.AddModuleDependency(c, "module1");
Refactoring.AddModuleDependency(c, "module2", "local_module2");
Refactoring.AddClrDependency(c, "AClrLib", "AClrLib.NamespaceA.AClrType");
Console.WriteLine("- With Added Dependencies -");
Console.WriteLine(new Visitors.Beautifier().Beautify(c));
c.Scope.ObfuscateLocals();
Console.WriteLine("- With obfuscated locals");
Console.WriteLine(new Visitors.Beautifier().Beautify(c));
}
catch (LuaSourceException ex)
{
Console.WriteLine(line);
Console.WriteLine(" ".Repeat(ex.Column - 1) + "^");
Console.WriteLine("<stdin>:" + ex.Line + ":" + ex.Column + ":" + ex.Message);
Console.WriteLine(ex.ToString());
}
catch (Exception ex)
{
Console.WriteLine(ex.ToString());
}
}
}
private static void TestExtractDocComments()
{
string str = @"
---<summary>
--- somefin
---</summary>
---<returns>nothing</returns>
function a()
end
---<summary>
--- ugh.
---</summary>
function tbl.dosomething()
end
---<summary>
--- a var
---</summary>
---<returns>wut?</returns>
x = 1
";
Lexer l = new Lexer();
Parser p = new Parser(l.Lex(str));
Chunk c = p.Parse();
List<DocumentationComment> docs = ExtractDocumentationComments.Extract(c);
foreach (DocumentationComment d in docs)
{
Console.WriteLine("Documentation comment: " + d.Text + "Var: " + (d.Ident == null ? "<none>" : d.Ident));
}
string s = Documentation.Write(docs);
Console.WriteLine(s);
Console.WriteLine(Documentation.Read(s).Count);
if (docs.Count == 0)
Console.WriteLine("No doc comments. Wut?");
}
static void Main(string[] args)
{
TestRename();
TestInline();
TestFindImpl();
TestFindRef();
TestExtractDocComments();
while (true)
{
string line = Console.ReadLine();
try
{
Lexer l = new Lexer();
TokenReader r = l.Lex(line);
//Console.WriteLine("---------------------------------");
foreach (Token t in r.tokens)
{
Console.WriteLine(t.Print());
foreach (Token t2 in t.Leading)
{
Console.WriteLine(" " + t2.Print());
}
}
//Console.WriteLine("- PARSER OUTPUT -");
Parser p = new Parser(r);
Chunk c = p.Parse();
Console.WriteLine("- Simplifying -");
c = (Chunk)c.Simplify();
Console.WriteLine("- Success! -");
//dump(c.Body);
Console.WriteLine("- Basic Beautifier (No Token Stream) -");
Visitors.BasicBeautifier b = new Visitors.BasicBeautifier();
Console.WriteLine(b.Beautify(c));
Console.WriteLine("- Lua Compatible -");
Visitors.LuaCompatibleOutput lco = new Visitors.LuaCompatibleOutput();
Console.WriteLine(lco.Format(c));
Console.WriteLine("- Exact reconstruction -");
Console.WriteLine(new Visitors.ExactReconstruction().Reconstruct(c));
Console.WriteLine("- Minified -");
Console.WriteLine(new Visitors.Minifier().Minify(c));
Console.WriteLine("- Beautifier -");
Console.WriteLine(new Visitors.Beautifier().Beautify(c));
Console.WriteLine("- NonModifiedAstBeautifer -");
Console.WriteLine(new Visitors.NonModifiedAstBeautifier().Beautify(c));
Console.WriteLine("- Misspelled Variables -");
List <Tuple <Variable, Variable> > vars = Refactoring.FindMisspelledVariables(c);
//Console.WriteLine(vars.Count);
foreach (Tuple <Variable, Variable> v in vars)
{
Console.WriteLine(v.Item1.Name + " is close to " + v.Item2.Name);
Console.Write("\t");
if (v.Item1.References > v.Item2.References)
{
Console.WriteLine(v.Item1.Name + " is the best match with " + v.Item1.References + " references");
}
else if (v.Item1.References < v.Item2.References)
{
Console.WriteLine(v.Item2.Name + " is the best match with " + v.Item2.References + " references");
}
else
{
Console.WriteLine("Both have the same amount of references (" + v.Item1.References + ")!");
}
}
List <Variable> unused = Refactoring.FindUnusedVariables(c);
Console.WriteLine("- Unused Variables -");
foreach (Variable v in unused)
{
Console.WriteLine(" " + v.Name);
}
unused = Refactoring.FindUnusedLocalVariables(c);
Console.WriteLine("- Unused Local Variables -");
foreach (Variable v in unused)
{
Console.WriteLine(" " + v.Name);
}
Refactoring.AddModuleDependency(c, "module1");
Refactoring.AddModuleDependency(c, "module2", "local_module2");
Refactoring.AddClrDependency(c, "AClrLib", "AClrLib.NamespaceA.AClrType");
Console.WriteLine("- With Added Dependencies -");
Console.WriteLine(new Visitors.Beautifier().Beautify(c));
c.Scope.ObfuscateLocals();
Console.WriteLine("- With obfuscated locals");
Console.WriteLine(new Visitors.Beautifier().Beautify(c));
}
catch (LuaSourceException ex)
{
Console.WriteLine(line);
Console.WriteLine(" ".Repeat(ex.Column - 1) + "^");
Console.WriteLine("<stdin>:" + ex.Line + ":" + ex.Column + ":" + ex.Message);
Console.WriteLine(ex.ToString());
}
catch (Exception ex)
{
Console.WriteLine(ex.ToString());
}
}
}
private static void TestFindRef()
{
string s = @"local a = 1
local b = 2
local x, y, z = 1, 2, 3
print(a, b)
a += 3
b += a
print(b, a)
";
Lexer l = new Lexer();
Parser p = new Parser(l.Lex(s));
Chunk c = p.Parse();
Console.WriteLine(s);
try
{
List<Location> l1 = Refactoring.FindReferences(c, c.Scope.GetVariable("a"));
foreach (Location l2 in l1)
Console.WriteLine("Reference of 'a': " + l2.Line + ":" + l2.Column);
l1 = Refactoring.FindReferences(c, c.Scope.GetVariable("b"));
foreach (Location l2 in l1)
Console.WriteLine("Reference of 'b': " + l2.Line + ":" + l2.Column);
}
catch (System.Exception ex)
{
Console.WriteLine(ex.Message);
}
}
static void TestFindImpl()
{
string s = @"local a = 1
local b = 2
local x, y, z = 1, 2, 3
print(a, b)
x += 1
print(z)
function print2(...)
_G.print(...)
end
";
Lexer l = new Lexer();
Parser p = new Parser(l.Lex(s));
Chunk c = p.Parse();
Console.WriteLine(s);
Location l1 = Refactoring.FindImplementation(c, c.Scope.GetVariable("a"));
Console.WriteLine("impl of 'a': " + l1.Line + ":" + l1.Column);
l1 = Refactoring.FindImplementation(c, c.Scope.GetVariable("b"));
Console.WriteLine("impl of 'b': " + l1.Line + ":" + l1.Column);
l1 = Refactoring.FindImplementation(c, c.Scope.GetVariable("x"));
Console.WriteLine("impl of 'x': " + l1.Line + ":" + l1.Column);
l1 = Refactoring.FindImplementation(c, c.Scope.GetVariable("z"));
Console.WriteLine("impl of 'z': " + l1.Line + ":" + l1.Column);
l1 = Refactoring.FindImplementation(c, c.Scope.GetVariable("print2"));
Console.WriteLine("impl of 'print2': " + l1.Line + ":" + l1.Column);
}
static void TestInline()
{
Lexer l = new Lexer();
Parser p = new Parser(l.Lex("local b = function(a, ...) return a + 1, ... end"));
Chunk c = p.Parse();
AssignmentStatement a = c.Body[0] as AssignmentStatement;
a.Rhs[0] = Refactoring.InlineFunction(a.Rhs[0] as SharpLua.Ast.Expression.AnonymousFunctionExpr);
Visitors.BasicBeautifier e = new Visitors.BasicBeautifier();
a.ScannedTokens = null;
Console.WriteLine(e.Beautify(c));
Visitors.ExactReconstruction e2 = new Visitors.ExactReconstruction();
Console.WriteLine(e2.Reconstruct(c));
}
private static void TestRename()
{
Lexer l = new Lexer();
Parser p = new Parser(l.Lex("local a = 5; function c() print(a) end c()"));
Chunk c = p.Parse();
c.Scope.RenameVariable("a", "b");
c.Scope.RenameVariable("c", "testfunc");
Visitors.BasicBeautifier e = new Visitors.BasicBeautifier();
Console.WriteLine(e.Beautify(c));
Visitors.ExactReconstruction e2 = new Visitors.ExactReconstruction();
Console.WriteLine(e2.Reconstruct(c));
}