Subversion Repositories Kolibri OS

@echo off

set languages=en ru ge et

set drivers=sound sis infinity ati2d vmode ps2mouse

set targets=all kernel drivers skins lib clean

call :Check_Target %1

for %%a in (all kernel) do if %%a==%target% call :Check_Lang %2

call :Target_%target%

if ERRORLEVEL 0 goto Exit_OK

echo There was an error executing script.

echo For any help, please send a report.

pause

goto :eof

:Check_Lang

   set res=%1

  :Check_Lang_loop

   for %%a in (%languages%) do if %%a==%res% set lang=%res%

   if defined lang goto :eof

   echo Language '%res%' is incorrect

   echo Enter valid language [ %languages% ]:

   set /P res=">

   goto Check_Lang_loop

goto :eof

:Check_Target

   set res=%1

  :Check_Target_loop

   for %%a in (%targets%) do if %%a==%res% set target=%res%

   if defined target goto :eof

   echo Target '%res%' is incorrect

   echo Enter valid target [ %targets% ]:

   set /P res=">

   goto Check_Target_loop

goto :eof

:Target_kernel

   echo *** building kernel with language '%lang%' ...

   if not exist bin mkdir bin

   echo lang fix %lang% > lang.inc

   fasm -m 65536 kernel.asm bin\kernel.mnt

   if not %errorlevel%==0 goto :Error_FasmFailed

   erase lang.inc

goto :eof

:Target_all

   call :Target_kernel

   call :Target_drivers

   call :Target_skins

   call :Target_lib

goto :eof

:Target_drivers

   echo *** building drivers ...

   if not exist bin\drivers mkdir bin\drivers

   cd drivers

   for %%a in (%drivers%) do (

     fasm -m 65536 %%a.asm ..\bin\drivers\%%a.obj

     if not %errorlevel%==0 goto :Error_FasmFailed

   )

   cd ..

   move bin\drivers\vmode.obj bin\drivers\vmode.mdr

goto :eof

:Target_skins

   echo *** building skins ...

   if not exist bin\skins mkdir bin\skins

   cd skin

   fasm -m 65536 default.asm ..\bin\skins\default.skn

   if not %errorlevel%==0 goto :Error_FasmFailed

   cd ..

goto :eof

:Target_lib

   echo *** building libs ...

   if not exist bin\lib mkdir bin\lib

   cd lib

   fasm -m 65536 inifiles.asm ..\bin\lib\inifiles.obj

   if not %errorlevel%==0 goto :Error_FasmFailed

   cd ..

goto :eof

:Target_clean

   echo *** cleaning ...

   rmdir /S /Q bin

goto :Exit_OK

:Error_FasmFailed

echo error: fasm execution failed

erase lang.inc

pause

exit 1

:Exit_OK

echo all operations has been done

pause

exit 0