AkelPad

Code: Select all

function do_cool_stuff(args)
{
  var stuff_callback = function(arg1,arg2,arg3)
  {
     // do it
  }
  var func = oSys.RegisterCallback(stuff_callback);
  oSys.Call("module::function_with_callback_arg",param, func);
  oSys.UnregisterCallkback(func);
}

Code: Select all

var func = oSys.RegisterCallback(function(param1,param2){
  //stuff in callback
});
  oSys.Call("module::function_with_callback_arg",param, func);
  oSys.UnregisterCallkback(func);

Code: Select all

var oSys = AkelPad.SystemFunction();
//! Функция возвпащает первое и последнее дочернее окно заданого окна
function GetFirstLastChild(window)
{
	// Локальные переменные, будут видны Callback а не глобально, где и могу подпортить.
	var first = null, last = null;
	// Функция отзыва. Глобально не видна, потому назвать можем как угодно.
	// Задекларировання с двумя аргументами.
	function Callback(hwnd, lparam)
	{
		if(first != null)
		{
			first = hwnd;
		}
		last = hwnd;
	}
	
	var enumerator = oSys.RegisterCallback(Callback);
	// Выполняем. Функция будет вызываться определенное количество раз
	// и данные будет сохранять в локальных first и last а не в глобальных переменных
	// где их тоже могут подпортить.
	oSys.Call("user32::EnumWindows",enumerator,0);
	oSys.UnregisterCallback(enumerator);
	return {"first":first,"last":last};
}
// Тут Callback, first, last уже не существует, можем их имена использовать сколько угодно раз.

Code: Select all

HRESULT STDMETHODCALLTYPE SystemFunction_RegisterCallback(ISystemFunction *this, BSTR wpCallbackName, IDispatch **objFunction)
{
  IDispatch *objScript;
  IDispatch *objCallback=NULL;
  ITypeInfo *pTypeInfo;
  TYPEATTR *pAttr;
  FUNCDESC *pFuncDesc=NULL;
  DISPPARAMS dispp;
  VARIANT vtResult;
  DISPID dispidCallbackName;
  DWORD dwArgCount=0;
  int i;
  HRESULT hr;

  if ((hr=g_objActiveScript->lpVtbl->GetScriptDispatch(g_objActiveScript, 0, &objScript)) == S_OK)
  {
    if ((hr=objScript->lpVtbl->GetIDsOfNames(objScript, &IID_NULL, &wpCallbackName, 1, LOCALE_USER_DEFAULT, &dispidCallbackName)) == S_OK)
    {
      //Get function IDispatch
      dispp.rgvarg=NULL;
      dispp.rgdispidNamedArgs=NULL;
      dispp.cArgs=0;
      dispp.cNamedArgs=0;

      if ((hr=objScript->lpVtbl->Invoke(objScript, dispidCallbackName, &IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &dispp, &vtResult, 0, 0)) == S_OK)
      {
        objCallback=vtResult.pdispVal;

        //Get function arguments count
        if ((hr=objScript->lpVtbl->GetTypeInfo(objScript, 0, LOCALE_USER_DEFAULT, &pTypeInfo)) == S_OK)
        {

Code: Select all

HRESULT STDMETHODCALLTYPE SystemFunction_RegisterCallback(ISystemFunction *this, IDispatch *objScript, IDispatch **objFunction)
{
  IDispatch *objCallback=NULL;
  ITypeInfo *pTypeInfo;
  TYPEATTR *pAttr;
  FUNCDESC *pFuncDesc=NULL;
  DISPPARAMS dispp;
  VARIANT vtResult;
  DISPID dispidCallbackName;
  DWORD dwArgCount=0;
  int i;
  HRESULT hr;
  if ((hr=objScript->lpVtbl->GetIDsOfNames(objScript, &IID_NULL, &wpCallbackName, 1, LOCALE_USER_DEFAULT, &dispidCallbackName)) == S_OK)
  {
    //Get function IDispatch
    dispp.rgvarg=NULL;
    dispp.rgdispidNamedArgs=NULL;
    dispp.cArgs=0;
    dispp.cNamedArgs=0;
  
    if ((hr=objScript->lpVtbl->Invoke(objScript, dispidCallbackName, &IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &dispp, &vtResult, 0, 0)) == S_OK)
    {
      objCallback=vtResult.pdispVal;
  
      //Get function arguments count
      if ((hr=objScript->lpVtbl->GetTypeInfo(objScript, 0, LOCALE_USER_DEFAULT, &pTypeInfo)) == S_OK)
      {

Code: Select all

var buf1,buf2,buf3,res;
function init(){} //! buf1(2,3) = AkelPad.MemAlloc(size);
function doStuff1(choice){} //
function doStuff2(choice){} //  use buffers
function doStuff3(choice){} //
function cleanup() // free buffers
{
	if(buf1!=0) AkelPad.MemFree(buf1);
	if(buf2!=0) AkelPad.MemFree(buf2);
	if(buf3!=0) AkelPad.MemFree(buf3);
}
res = AkelPad.MessageBox(hMainWnd,"Question1","Title1",flags1,cleanup);
doStuff1(res);
res = AkelPad.MessageBox(hMainWnd,"Question2","Title2",flags2,cleanup);
doStuff2(res);
res = AkelPad.MessageBox(hMainWnd,"Question3","Title3",flags3,cleanup);
doStuff3(res);

cleanup();

Code: Select all

// (c) Infocatcher 2010
// version 0.1.0 - 2010-11-19

var iniFile = WScript.ScriptFullName + ".ini";
var iniParser = INIParser(iniFile);

var test = iniParser.get("qwe", "0");
WScript.Echo(test);
iniParser.set("qwe", ++test);

function INIParser(iniFile) {
	var initialized = false;
	var saved = true;
	var data = {};
	var fso;
	function getFso() {
		return fso || (fso = new ActiveXObject("Scripting.FileSystemObject"));
	}
	function read() {
		if(initialized)
			return;
		initialized = true;
		getFso();
		if(!fso.FileExists(iniFile))
			return;
		var textStream = fso.OpenTextFile(iniFile, 1 /*read*/, false /*create*/, -1 /*unicode*/);
		while(!textStream.AtEndOfStream) {
			var line = textStream.ReadLine();
			var indx = line.indexOf("=");
			if(indx == -1)
				continue;
			var name = line.substr(0, indx);
			var val  = line.substr(indx + 1);
			data[name] = val;
		}
		textStream.close();
	}
	function save() {
		if(saved)
			return;
		saved = true;
		var textStream = fso.CreateTextFile(iniFile, true /*overwrite*/, true /*unicode*/);
		for(var name in data)
			textStream.WriteLine(name + "=" + data[name]);
		textStream.close();
	}
	function has(name) {
		read();
		return name in data;
	}
	function get(name, defaultValue) {
		return has(name)
			? data[name]
			: String(defaultValue);
	}
	function set(name, val) {
		val = String(val);
		if(has(name) && get(name) === val)
			return val;
		saved = false;
		data[name] = val;
		return val;
	}
	function remove(name) {
		if(!has(name))
			return false;
		saved = false;
		return delete data[name];
	}
	function list() {
		var r = [];
		for(var name in data)
			r.push(name);
		return r;
	}
	function reset() {
		initialized = true;
		saved = true;
		data = {};
		getFso();
		if(fso.FileExists(iniFile))
			fso.DeleteFile(iniFile);
	}
	return {
		has: has,
		get: get,
		set: set,
		remove: remove,
		save: save,
		list: list,
		reset: reset
	};
}
iniParser.save();