add a simple Lua format base on js
This commit is contained in:
hxsf
parent
cfe0e6ad8e
commit
8c8afc407d
|
|
@ -0,0 +1,79 @@
|
|||
DEFAULT_INDENT = ' '
|
||||
|
||||
module.exports = (str, indent) ->
|
||||
indent = indent or DEFAULT_INDENT
|
||||
indent = ' '.repeat indent if Number.isInteger indent
|
||||
$currIndent = 0
|
||||
$nextIndent = 0
|
||||
$prevLength = 0
|
||||
$extIndent = 0
|
||||
$lastIndent = 0
|
||||
$template = 0
|
||||
new_code = str.split(/\r?\n/g).map (line, line_number) ->
|
||||
$template_flag = false
|
||||
if $template
|
||||
res2 = line.match /\](=*)\]/
|
||||
if res2 and $template == res2[1].length + 1
|
||||
$template = 0
|
||||
$template_flag = true
|
||||
else
|
||||
return line
|
||||
res1 = line.match /\[(=*)\[/
|
||||
if res1
|
||||
$template = res1[1].length + 1
|
||||
if !$template_flag
|
||||
line = line.trim()
|
||||
# remote all spaces on both ends
|
||||
string_list = line.match /(['"])[^\1]*?\1/g
|
||||
line = line.replace /\s+/g, ' '
|
||||
# replace all whitespaces inside the string with one space, WARNING: the whitespaces in string will be replace too!
|
||||
line = line.replace /([^\-])\s?(==|>=|<=|[=><\+\-\*\/])\s?([^\-\[])/g, '$1 $2 $3'
|
||||
# add whitespace around the operator
|
||||
line = line.replace /,([^\s])/g, ', $1'
|
||||
line = line.replace /\s,/g, ','
|
||||
# recover the whitespaces in string.
|
||||
line = line.replace /(['"])[^\1]*?\1/g, ->
|
||||
string_list.shift()
|
||||
|
||||
return '' if !line.length
|
||||
raw_line = line
|
||||
line = line.replace /(['"])[^\1]*?\1/, ''
|
||||
# remove all quoted fragments for proper bracket processing
|
||||
line = line.replace /\s*--.+/, ''
|
||||
# remove all comments; this ignores long bracket style comments
|
||||
if /^((local )?function|repeat|while)\b/.test(line) and !/\bend\s*[\),;]*$/.test(line) or /\b(then|do)$/.test(line) and !/^elseif\b/.test(line) or /^if\b/.test(line) and /\bthen\b/.test(line) and !/\bend$/.test(line) or /\bfunction ?(?:\w+ )?\([^\)]*\)$/.test(line) and !/\bend$/.test(line)
|
||||
$nextIndent = $currIndent + 1
|
||||
else if /^until\b/.test(line) or /^end\s*[\),;]*$/.test(line) or /^end\s*\)\s*\.\./.test(line) or /^else(if)?\b/.test(line) and /\bend$/.test(line)
|
||||
$nextIndent = --$currIndent
|
||||
else if /^else\b/.test(line) or /^elseif\b/.test(line)
|
||||
$nextIndent = $currIndent
|
||||
$currIndent = $currIndent - 1
|
||||
$brackets = (line.match(/\(/g) or []).length - ((line.match(/\)/g) or []).length)
|
||||
# capture unbalanced brackets
|
||||
$curly = (line.match(/\{/g) or []).length - ((line.match(/\}/g) or []).length)
|
||||
# capture unbalanced curly brackets
|
||||
# close (curly) brackets if needed
|
||||
$currIndent += $curly if $curly < 0
|
||||
$currIndent += $brackets if $brackets < 0
|
||||
$nextIndent += $brackets + $curly
|
||||
|
||||
if $currIndent - $lastIndent > 1
|
||||
$extIndent += $nextIndent - $lastIndent - 1
|
||||
$nextIndent = $currIndent = 1 + $lastIndent
|
||||
if $currIndent - $lastIndent < -1 and $extIndent > 0
|
||||
$extIndent += $currIndent - $lastIndent + 1
|
||||
$currIndent = -1 + $lastIndent
|
||||
if $nextIndent < $currIndent
|
||||
$nextIndent = $currIndent
|
||||
|
||||
if $currIndent < 0
|
||||
console.warn 'WARNING: negative indentation at line ${line_number}: ${raw_line}'
|
||||
new_line = (if raw_line.length and $currIndent > 0 and !$template_flag then indent.repeat($currIndent) else '') + raw_line
|
||||
|
||||
$useful = $prevLength > 0 or raw_line.length > 0
|
||||
$lastIndent = $currIndent
|
||||
$currIndent = $nextIndent
|
||||
$prevLength = raw_line.length
|
||||
return new_line if $useful
|
||||
console.warn 'WARNING: positive indentation at the end' if $currIndent > 0
|
||||
new_code.join '\n'
|
||||
|
|
@ -1,57 +0,0 @@
|
|||
# Copyright 2011 Paul Kulchenko
|
||||
# Credits: http://notebook.kulchenko.com/programming/lua-beautifier-in-55-lines-of-perl
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use constant INDENT => ' ';
|
||||
my($currIndent, $nextIndent, $prevLength) = (0, 0, 0);
|
||||
|
||||
while (<>) {
|
||||
chomp;
|
||||
s/^\s+|\s+$//g; # remote all spaces on both ends
|
||||
s/\s+/ /g; # replace all whitespaces inside the string with one space
|
||||
|
||||
my $orig = $_;
|
||||
|
||||
s/(['"])[^\1]*?\1//g; # remove all quoted fragments for proper bracket processing
|
||||
s/\s*--.+//; # remove all comments; this ignores long bracket style comments
|
||||
|
||||
# open a level; increase next indentation; don't change current one
|
||||
if (/^((local )?function|repeat|while)\b/ && !/\bend\s*[\),;]*$/
|
||||
|| /\b(then|do)$/ && !/^elseif\b/ # only open on 'then' if there is no 'elseif'
|
||||
|| /^if\b/ && /\bthen\b/ && !/\bend$/ # only open on 'if' if there is no 'end' at the end
|
||||
|| /\bfunction\s*\([^\)]*\)$/) {
|
||||
$nextIndent = $currIndent + 1;
|
||||
}
|
||||
# close the level; change both current and next indentation
|
||||
elsif (/^until\b/
|
||||
|| /^end\s*[\),;]*$/
|
||||
|| /^end\s*\)\s*\.\./ # this is a special case of 'end).."some string"'
|
||||
|| /^else(if)?\b/ && /\bend$/) {
|
||||
$nextIndent = $currIndent = $currIndent - 1;
|
||||
}
|
||||
# keep the level; decrease the current indentation; keep the next one
|
||||
elsif (/^else\b/
|
||||
|| /^elseif\b/) {
|
||||
($nextIndent, $currIndent) = ($currIndent, $currIndent-1);
|
||||
}
|
||||
|
||||
my $brackets = y/(// - y/)//; # capture unbalanced brackets
|
||||
my $curly = y/{// - y/}//; # capture unbalanced curly brackets
|
||||
|
||||
# close (curly) brackets if needed
|
||||
$currIndent += $curly if $curly < 0 && /^\}/;
|
||||
$currIndent += $brackets if $brackets < 0 && /^\)/;
|
||||
|
||||
warn "WARNING: negative indentation at line $.: $orig\n" if $currIndent < 0;
|
||||
|
||||
print((length($orig) ? (INDENT x $currIndent) : ''), $orig, "\n")
|
||||
if $prevLength > 0 || length($orig) > 0; # this is to collapse empty lines
|
||||
|
||||
$nextIndent += $brackets + $curly;
|
||||
|
||||
$currIndent = $nextIndent;
|
||||
$prevLength = length($orig);
|
||||
}
|
||||
|
||||
warn "WARNING: positive indentation at the end\n" if $nextIndent > 0;
|
||||
|
|
@ -4,6 +4,7 @@ path = require("path")
|
|||
|
||||
"use strict"
|
||||
Beautifier = require('../beautifier')
|
||||
format = require './beautifier'
|
||||
|
||||
module.exports = class Lua extends Beautifier
|
||||
name: "Lua beautifier"
|
||||
|
|
@ -14,9 +15,8 @@ module.exports = class Lua extends Beautifier
|
|||
}
|
||||
|
||||
beautify: (text, language, options) ->
|
||||
lua_beautifier = path.resolve(__dirname, "beautifier.pl")
|
||||
@run("perl", [
|
||||
lua_beautifier,
|
||||
'<',
|
||||
@tempFile("input", text)
|
||||
])
|
||||
new @Promise (resolve, reject) ->
|
||||
try
|
||||
resolve format text, options.indent_char.repeat options.indent_size
|
||||
catch error
|
||||
reject error
|
||||
|
|
|
|||
Loading…
Reference in New Issue