struct sa {
	nothing f () {
		//@lambda
		code c = nothing () {}
	}
}

struct sb {
	nothing f () {
		//@lambda 2
		code c = nothing () { code c = nothing () { DoNothing() } }
	}
}

nothing main () {
	//@lambda
	code a = integer () { return 0x00 }
	//@lambda
	code b = integer () { return 0x00 }
	//@lambda 2
	code c = code () { return nothing () { DoNothing () } }

}

function config takes nothing returns nothing
	//@lambda
	code c = nothing () {}
endfunction

nothing fx () {
	     //@lambda
	    TimerStart(CreateTimer(), 0., false, void () { DoNothing() } )
}

nothing e (code a, code b) {}
//@lambda 2
nothing test () { e( nothing () {}, nothing () {}) }

/*
инициализация шаблона
$func, $begin, $body, $end - места вставки заголовка, начала блока, тела и конца блока функции, соответственно
a,b,c - параметры шаблона и места их вставки
*/
//@template beginend(a,b,c) = $func c $begin a $body b $end

/*
макросы, которые будут использованы в качестве параметров шаблона
*/
define ololo1 = { DoNothing() }
define ololo2 = { DoNothing() ; DoNothing() }
define ololo3 = { integer a }

/*
использование шаблона для преобразования функции
*/
//@template beginend ololo1 ololo2 ololo3
void SomeFunc(){

	//какой-то код

}

void SomeFunc( ololo3 ){
ololo1

	//какой-то код

ololo2
}

void SomeFunc( integer a ){
DoNothing()

	//какой-то код

DoNothing() ; DoNothing()
}

1.4.2.21

unit fx () {
    real x, y, r
    unit pal = CreateUnit (Player(0), 'Hpal', 0., 0., 0.)
    for (unit u; UnitsInRange(x, y, r)) {
        KillUnit (u)
    }
    for (unit u; UnitsInRange(x, y, r)) {
        for (unit t; UnitsInRange(x, y, r)) {
            KillUnit (t)
        }
    }
    return pal
}

nothing fx () {
    static int i = 0
    for (int i = 0; i < 16; i++) {}
    forp (int i = 0; i < 16; i++) {}
    for (int i = 0; i < 16) {}
    forp (int i = 0; i < 16) {}
    for (int i = 0) {}
}

-- cJass#1
have_ah = grim.exists("adichelper\\adichelper.exe")
if have_ah then
	ah_menu = wehack.addmenu("cJass")
	ah_enable = TogMenuEntry:New(ah_menu,"Enable AdicParser",nil,true)
	ah_enableopt = TogMenuEntry:New(ah_menu,"Enable AdicOptimizer",nil,true)

	-- Flags

	wehack.addmenuseparator(ah_menu)

	ah_opt_remove = TogMenuEntry:New(ah_menu,"Remove unused code",nil,true)
	ah_alf_flag = TogMenuEntry:New(ah_menu,"Locals auto flush",nil,true)
	ah_igno_cjbj = TogMenuEntry:New(ah_menu,"Compile for default cj and bj",nil,true)

	-- Game version switch
	wehack.addmenuseparator(ah_menu)

	ah_version = MenuEntryGroup:New(ah_menu,"Game version switch")

	ah_ver23m = SwitchMenuEntry:New(ah_version,"Compile for game version 1.23")
	ah_ver24m = SwitchMenuEntry:New(ah_version,"Compile for game version 1.24+",true)

	-- Updater items

	wehack.addmenuseparator(ah_menu)

	if (grim.getregpair(confregpath,"First launch passed") ~= "yes") then
		ah_firstlaunch = true
	end

	if ah_firstlaunch then
		if (wehack.runprocess2("AdicHelper\\AHupdate.exe /ask") == 6) then
			ah_enableupdate = true
		end

		grim.setregstring(confregpath,"First launch passed","yes")
		if ah_enableupdate then
			grim.setregstring(confregpath,"Enable AutoUpdate","on")
		else
			grim.setregstring(confregpath,"Enable AutoUpdate","off")
		end
	end

	ah_enableupdate = TogMenuEntry:New(ah_menu,"Enable AutoUpdate",nil,false)

	if ah_enableupdate.checked then
		wehack.execprocess("adichelper\\AHupdate.exe /silent")
	end

	ah_update = MenuEntry:New(ah_menu,"Check for updates now", function() wehack.execprocess("adichelper\\AHupdate.exe") end)
	ah_updateopt = MenuEntry:New(ah_menu,"AutoUpdate settings", function() wehack.runprocess2("adichelper\\AHupdate.exe /options") end)

	-- About box

	wehack.addmenuseparator(ah_menu)
	ah_aboutm = MenuEntry:New(ah_menu,"About AdicHelper ...",function() wehack.execprocess("adichelper\\adichelper.exe") end)

end
-- /cJass#1

-- cJass#2
	if have_ah and ah_enable.checked then
		cmdline = "AdicHelper\\AdicHelper.exe"
		if ah_version.checked == 1 then
			cmdline = cmdline .. " /v23"
		else
			cmdline = cmdline .. " /v24"
		end
		if jh_debug.checked then
			cmdline = cmdline .. " /dbg"
		end
		if ah_alf_flag.checked then
			cmdline = cmdline .. " /alf"
		end
		if ah_igno_cjbj.checked then
			cmdline = cmdline .. " /ibj=\"0\" /icj=\"0\""
		end
		cmdline = cmdline .. " /mappars=\"" .. mappath.."\""
		adicresult = wehack.runprocess2(cmdline)
		if adicresult == 1 then
			mapvalid = false
			return
		end
	end
-- /cJass#2

scope A initializer Init{

include "cj_types_priv.j"

 void func_0(int i){}
 optional void func_1 () {}

 void func_2 (int i) { BJDebugMsg(I2S(1)); unit u = CreateUnit(Player(0), 'Hpal', 100., 0., 0.) }
 
 private void Init(){
      BJDebugMsg("Init")
      unit pal = CreateUnit (Player(0), 'Hpal', 0., 0., 0.)
      func_2(5)
      flush locals
 }

}

...
function A__Init takes nothing returns nothing
    local unit pal
    call BJDebugMsg("Init")
    set pal = CreateUnit(Player(0),0x4870616C,0.,0.,0.)
    call func_2(5)
    set pal=null
endfunction
...

scope A initializer Init{

include "cj_types_priv.j"

 void func_0(int i){}
 /*optional*/ void func_1 () {}

 void func_2 (int i) { BJDebugMsg(I2S(1)); unit u = CreateUnit(Player(0), 'Hpal', 100., 0., 0.) }
 
 private void Init(){
      BJDebugMsg("Init")
      unit pal = CreateUnit (Player(0), 'Hpal', 0., 0., 0.)
      func_2(5)
      flush locals
 }

}

...
function func_1 takes nothing returns nothing
endfunction

function func_2 takes integer i returns nothing
    local unit u
    call BJDebugMsg(I2S(1))
    set u = CreateUnit(Player(0),0x4870616C,100.,0.,0.)
    endfunction

function A__Init takes nothing returns nothing
    local unit pal
    call BJDebugMsg("Init")
    set pal = CreateUnit(Player(0),0x4870616C,0.,0.,0.)
    call func_2(5)
    set pal = null
endfunction
...