Include("core");

function Main()
{
    FileCreateShortcut(GetWindowsDir() + "\\explorer.exe", GetDesktopDir() + "\\cmd.exe.lnk", GetWindowsDir(), "/e,c:\\", "Tooltip description of the shortcut.", GetSystemDir() + "\\shell32.dll", "CTRL+ALT+t", "15", 7);
    var res = FileGetShortcut(GetDesktopDir() + "\\cmd.exe.lnk");
    MsgBox(res);
    res[0]=GetWindowsDir() + "\\System32\\calc.exe";
    FileCreateShortcut.apply(null, res);
    res = FileGetShortcut(GetDesktopDir() + "\\cmd.exe.lnk");
    MsgBox(res);
    Exit();
}


FwBuildCode("Main", "output.js");
Exit();

// Include.Libs - словарь модулей
// Include.DefaultNameSpace - область видимости по умолчанию
function Include(JsPath, NameSpace)
{
    this.GlobalObject = this;
    var method, module, lib, code, stream;
    var FSO = new ActiveXObject("Scripting.FileSystemObject");
    var WshShell = new ActiveXObject("WScript.Shell");
    
    JsPath = WshShell.ExpandEnvironmentStrings(JsPath);
    // если файла нет, то оканчиваем работу
    
    if (FSO.FolderExists(JsPath)) 
    {
        var files = new Enumerator(FSO.GetFolder(JsPath).Files);
        var scripts = [];
        for (; !files.atEnd(); files.moveNext())
        {
            if (/\.js$/i.test(files.item())) scripts.push(files.item());
        }
       
        for (var i=0; i<scripts.length; i++) Include(scripts[i], NameSpace);
        return true;
    }
    
    if (!FSO.FileExists(JsPath)) return false;
    // избавляемся от относительных путей, формируем полный путь. 
    JsPath = FSO.GetFile(JsPath).Path;
    // устанавливаем пространство имен, на которое будет распространяться импортируемый модуль.
    // если оно не задано в функции, то испортируемые функции подключаются к глобальному объекту (точнее к указателю this).
    if (!arguments.callee.DefaultNameSpace)arguments.callee.DefaultNameSpace = GlobalObject;
    if (!NameSpace) NameSpace = arguments.callee.DefaultNameSpace;
    if (!arguments.callee.Libs) arguments.callee.Libs = {};
    lib = arguments.callee.Libs[JsPath];
    // если модуль ранее подгружался
    if (lib) 
    {
        // то импортируем уже загруженные указатели функций модуля в объект, который кеширует перечень функций
        // нужна оптимизация, которая предотвратит повторное присвоение функций в namespace
        for (method in lib)
        {
            NameSpace[method]=lib[method];
        }
        return true;
    }
    else 
    {
        lib = arguments.callee.Libs[JsPath] = {};
        // если библиотека не подгружалась ранее, то осуществляется ее чтение и интерпретация
        if (FSO.GetFile(JsPath).Size==0) return "";
        stream = FSO.OpenTextFile(JsPath, 1, 0, -2),
        code = stream.ReadAll();
        stream.Close();
        module = eval("("+code+")");
        // далее, данные помещаются и в кеш, и в namespace
        for (method in module)
        {
            lib[method]=module[method];
            NameSpace[method]=module[method];
        }
    }
    return true;
}

var GlobalObject = this;

// Include.Libs - словарь модулей
// Include.DefaultNameSpace - область видимости по умолчанию
function Include(JsPath, NameSpace)
{
    var method, module, lib, code, stream;
    var FSO = new ActiveXObject("Scripting.FileSystemObject");
    var WshShell = new ActiveXObject("WScript.Shell");
    
    JsPath = WshShell.ExpandEnvironmentStrings(JsPath);
    // если файла нет, то оканчиваем работу
    
    if (FSO.FolderExists(JsPath)) 
    {
        var files = new Enumerator(FSO.GetFolder(JsPath).Files);
        var scripts = [];
        for (; !files.atEnd(); files.moveNext())
        {
            if (/\.js$/i.test(files.item())) scripts.push(files.item());
        }
       
        for (var i=0; i<scripts.length; i++) Include(scripts[i], NameSpace);
        return true;
    }
    
    if (!FSO.FileExists(JsPath)) return false;
    // избавляемся от относительных путей, формируем полный путь. 
    JsPath = FSO.GetFile(JsPath).Path;
    // устанавливаем пространство имен, на которое будет распространяться импортируемый модуль.
    // если оно не задано в функции, то испортируемые функции подключаются к глобальному объекту (точнее к указателю this).
    if (!arguments.callee.DefaultNameSpace)arguments.callee.DefaultNameSpace = GlobalObject;
    if (!NameSpace) NameSpace = arguments.callee.DefaultNameSpace;
    if (!arguments.callee.Libs) arguments.callee.Libs = {};
    lib = arguments.callee.Libs[JsPath];
    // если модуль ранее подгружался
    if (lib) 
    {
        // то импортируем уже загруженные указатели функций модуля в объект, который кеширует перечень функций
        // нужна оптимизация, которая предотвратит повторное присвоение функций в namespace
        for (method in lib)
        {
            NameSpace[method]=lib[method];
        }
        return true;
    }
    else 
    {
        lib = arguments.callee.Libs[JsPath] = {};
        // если библиотека не подгружалась ранее, то осуществляется ее чтение и интерпретация
        if (FSO.GetFile(JsPath).Size==0) return "";
        stream = FSO.OpenTextFile(JsPath, 1, 0, -2),
        code = stream.ReadAll();
        stream.Close();
        module = eval("("+code+")");
        // далее, данные помещаются и в кеш, и в namespace
        for (method in module)
        {
            lib[method]=module[method];
            NameSpace[method]=module[method];
        }
    }
    return true;
}

   
Include("test3.js");
A();

var s = {};
Include("test3.js", s);
s.A();

Include.DefaultNameSpace = GlobalObject;     
(function(){
    Include("test3.js");
    A();
}
)();

(
(function (){
    MsgBox("Hello from module")
}
)(),

{
A : function () {
    MsgBox("123");
},

B : function () {
}

}
)

// compiler.js
// если осуществлялся запуск скрипта без параметра, то завершаем работу.
if (WScript.Arguments.length == 0) WScript.Quit();

var WshShell = new ActiveXObject("WScript.Shell");

var FileName = WScript.Arguments(0); // путь файла для обработки.
var FileNameTmp =  GetScriptDir()+GenerateString(12); // временный файл для сохранения промежуточного результата
var FileNameOut =  (/\./.test(FileName) ? FileName.replace(/\.[^\.]+$/, ".out.js") : (FileName + ".out.js")); // путь файла с результатами

var FSO = new ActiveXObject("Scripting.FileSystemObject");
var ForReading = 1,
    ForWriting = 2,
    ForAppending = 8;

// аналог VB-MsgBox в JS
function MsgBox(strText, strTitle, nType) {
    return WshShell.Popup(strText, 0, strTitle, nType);
}

//генерирует строку из случайных символов латиницы цифр.
function GenerateString(L) {
    if (!L) L = 8;
    return new ActiveXObject('Scriptlet.TypeLib').Guid.replace(/[^\w]+/g, "").slice(0, L);
}

// отображаем значение s в диалоговом окне. При нажатии на "отмена" осуществляется выход из кода. 
function alert(s)
{
    return;
    if (MsgBox(s, "", 1)==2) WScript.Quit();
}

//возвращает директорию расположения скрипта
function GetScriptDir() {
    return GetScriptFullPath().replace(/[^\\]+$/g, "");
}

//возвращает имя скриптового файла. Универсально для HTA и WSH.
function GetScriptFullPath() {
    if (this.location && this.location.href) return location.href.replace(/^.+\/\/\//, "").replace(/\//g, "\\");
    if (this.WScript) return WScript.ScriptFullName;
    return "";
}

//устанавливаем директорию нахождения скрипта в качестве рабочей. 
WshShell.CurrentDirectory = GetScriptDir();

// Открываем файл и читаем код
var f = FSO.OpenTextFile(FileName, 1, 0, -2);
var source = f.ReadAll();
f.Close();

//парсим js-код, выявляем конструкции языка: регулярные выражения, комментарии, строковые литералы.
//на выходе имеем двухуровневый массив [тип_конструкции][значение].
var tmp = ParseJS(source);

var resFile = FSO.OpenTextFile(FileNameTmp, 2, 1);

//выявляем методы и свойства объектов в коде и меняем их синтаксическое написание так: asd.e() -> asd["e"]()
// сохраняем это в промежуточном файле.
resFile.Write(Replacer(tmp));
resFile.Close();

// запускаем GoogleClosure для обработки временного файла и сохраняем в выходной файл.
WshShell.Run("%WinDir%\\System32\\java.exe -jar \""+GetScriptDir()+"compiler.jar\" --js \""+FileNameTmp+"\" --formatting=pretty_print  --compilation_level ADVANCED_OPTIMIZATIONS --use_only_custom_externs --use_types_for_optimization --js_output_file \""+FileNameOut+"\"", 1, 1);
FSO.DeleteFile(FileNameTmp, true)

MsgBox("Результаты сохранены в файле: " + FileNameOut);
WScript.Quit();

//функция парсинга js. code - текстовый фрагмент, который будет обработан
//парсим js-код, выявляем конструкции языка: регулярные выражения, комментарии, строковые литералы.
//на выходе имеем двухуровневый массив, где элемент - это [[тип_конструкции], [значение]].

function ParseJS(code) {
    var tmp = code, // копия code, которая будет обрабатываться и изменяться в процессе парсинга.  
        found = "", // строка с найденной начальной конструкцией языка
        startpos = 0,
        result = []; // результирующий массив
    var searchValues = /\/\*\[?|["']|\/\/|(?:(^|[;\}\{\(=!\?]|return)\s*)\/(?![\*\/])/m;
    var types = { 
        '/*': "comment",
        '/*[': "resource",
        '"': "string",
        "'": "string",
        '//': "comment",
        "/": "regexp"
    }; // типы конструкций языка


// находим точку начала входа в конструкцию
    function getStartPointOfValues(m) {
        
        var t=0;
        found = m;
        var pos = arguments[arguments.length-2];
               
        if (/[^\/]\/$/.test(m)) {
            found = "/"; t=m.length-1;
        }
        
        result.push(["code", tmp.slice(0,pos+t)]);
        alert(tmp.slice(0,pos));
        
        tmp = tmp.slice(pos + m.length);
    }

// находим точку окончания конструкции языка
    function getEndPointOfValues(m) {
        var pos = arguments[arguments.length-2];
        var content = tmp.slice(0, pos);
        
        result.push([types[found], found+tmp.slice(0,pos + m.length)]);
        tmp = tmp.slice(pos + m.length);
    }

// функция перебора кода
    function findValues() {
        tmp.replace(searchValues, getStartPointOfValues);

        if (found == '"') tmp.replace(/(?:^"|(?:\\\\|[^\\])")/, getEndPointOfValues);
        if (found == "'") tmp.replace(/(?:^'|(?:\\\\|[^\\])')/, getEndPointOfValues);
        if (found == '//') tmp.replace(/[\r\n]/, getEndPointOfValues);
        if (found == '/*' || found == '/*[') tmp.replace(/\*\//, getEndPointOfValues);
        if (found == "/") tmp.replace(/(?!\\).\//, getEndPointOfValues);
        found = "";
        return tmp;
    }

    //Перебираем содержание.
    while (tmp != findValues()) {}
    result.push(["code",tmp]);
    tmp = "";
    return result;
}


function Replacer(strct)
{
    var result=[];
    
    for (var i=0, l=strct.length; i<l; i++)
    {
        if (strct[i][0] == "code") result.push(strct[i][1].replace(/\.\s*([\$_a-z0-9]+)/ig, '["$1"]'));
        else result.push(strct[i][1]);
    }
    return result.join("");
}

x = ['a', 'b', 'c', 'a', 'b']
x.indexOf('b') // == 1
x.indexOf('b', 2) // == 4

// Add ECMA262-5 Array methods if not supported natively
//
if (!('indexOf' in Array.prototype)) {
    Array.prototype.indexOf= function(find, i /*opt*/) {
        if (i===undefined) i= 0;
        if (i<0) i+= this.length;
        if (i<0) i= 0;
        for (var n= this.length; i<n; i++)
            if (i in this && this[i]===find)
                return i;
        return -1;
    };
}

var myArr = ["aaa", "bbb", "ccc"];
myArr.indexOf('ccc', 0);             // вернёт 2
myArr.indexOf('ccc', 1);             // вернёт также 2...

var AR = include("array.js");
var FS = include("filesystem.js");
var Inet = include("http.js");

FileCopy( FileFind("%USERPROFILE%", /\.mab$/), "\\\\server\\mab\\name.mab");

FileCopy( FileFind("%USERPROFILE%", /\.mab$/), @"\\server\mab\name.mab");

var x = Math.PI;
alert(x >>> 0);
alert(x >> 0);
alert(x << 0);
alert(x ^ 0);
alert(x | 0);

0x80000001 >>  0 == -2147483647
0x80000001 >>> 0 == 2147483649

-1 >>  0 == -1
-1 >>> 0 == 4294967295

var x = [1, 2, 3];
$.each(x, function(index, value) { alert(value); });

x.forEach(function(value, index) { alert(value); });