DosTips.com

Code: Select all

:mainlabel
::1
::2
::3
:default
::1
::2
:settings

Code: Select all

:function
echo This is the test function that is shown in the main batch file :)
pause


call :function mainlabel 2, settings 5
exit /b

Code: Select all

listing code...

call a%%

the variable 'a' is the names of all the batch files.

Code: Select all

call :function mainlabel 2, settings 5

Code: Select all

:mainlabel
::1
::2
::3
:default
::1
::2
:settings

Code: Select all

@echo off
for /F "tokens=1*" %%l in (%*) do (goto %%~l %%m)
goto :eof

Code: Select all

@echo off
setlocal enableDelayedExpansion

:: initializing
set "slots=":mainlabel" "::1" "::2" "::3" ":default" "::1" "::2" ":settings""
set "label="
for %%s in (%slots%) do (
   set "token=%%~s"
   if "!token:::=!" == "!token!" ( set "label=%%~s"
   ) else ( set "!label!%%~s= "
   )
)

:: process parameter
set "dislayInfo="
set "processed="
for %%p in (%*) do (
   if "%~1" == "/slots" ( for %%s in (%slots%) do echo %%~s
   ) else ( 
      set "dislayInfo=1"
   )
   set "processed=1"
)
if not defined processed if not "%*" == "" set "dislayInfo=1"
if defined dislayInfo (
   set "dislayInfo="
   echo usage: %~nx0 [/slots] [/?^|/help] ...
   echo [...]
   goto :eof
)

:: plugin manager (currently a loader only)
:: %%p = pluging, %%f = function, %%g = greedy load param(s), %%l = label, %%m = mark, 
for %%p in (*plugin.bat) do (
   for /F "tokens=2*" %%f in ('findstr "call" "%%~p"') do (
      set "function=%%~f"
      set "greedyLoadParams=%%g"
   )

   for %%g in ("!greedyLoadParams:, =" "!") do (
      for /F "tokens=1,2" %%l in ("%%~g") do (
         set "_%%~l__%%~m=call "%%~p" "!function!""
      )
   )
)

:: run program
:: %%t = token, %%l = label, %%m = mark, 
set "label="
for %%t in (%slots%) do (
   set "token=%%~t"
   if "!token:::=!" == "!token!" ( set "label=!token!"
   ) else ( for %%l in ("!label::=_!") do for %%m in ("!token::=_!") do !%%~l%%~m!
   )
)

goto :eof

Code: Select all

@echo off
for /F "tokens=1*" %%l in (%*) do (goto %%~l %%m)
goto :eof

:function
echo This is the test function that is shown in the main batch file :)
pause
goto :eof

call :function mainlabel 2, settings 5
exit /b

Code: Select all

:function

Code: Select all

call :callfunction: function, mainlabel 2, settings 5

:function
echo It works.
exit /b

:callfunction
REM The call function is what every plugin has to have OR contained in the main batch file. It managers the parameters.
REM 'callfunction: function' it the name of the function that must be called, the "," is a separator to the new parameter/argument.
REM 'mainlabel' is the name of the existing label in 'main.bat'. Also the 'callfunction' must check if 'mainlabel' exists first and if not show an error, for debugging purposes.
REM Any way 'callfunction' will call the function 'function' at the label in the main batch file with the argument 2, which is optional. The number is for how many lines
REM down after the label.
REM Those '::Number' were just indicators for helping explaining. Sorry
REM 'settings' is another label in the main batch file, so it MUST support multi-labels if you can say that. So the function can be used over and over.
REM OR/AND
REM You can do this:
[code]
call :callfunction: function, mainlabel 2
call :callfunction: function, settings 5
[/code]

So for 'mainlabel' the function 'function' will be called from the plugin.

The prefix:
Let us add a argument to use white lines:


call :callfunction: 'The function name contained in the plugin batch file'. "," 'Comma to separate it to the next argument.' 'The label name in the main batch file' 'The line number after the label to be called' 'Should we allow white lines? Optionally we can put 'y' or 'n'

[code]
call :callfunction: function, mainlabel 5 y
[/code]

There for in:

[code]
:mainlabel




echo It works.
[/code]
It still works with the argument 'y'

It would execute like this in code view:

call :callfunction: function, mainlabel 5 n

[code]
:mainlabel
echo Line 1
echo Line 2
echo Line 3
echo Line 4
echo It works.

Code: Select all

rem MY_BATCH_FILE_NAME_TEXT
:: PluginSample.bat

Either this {
   call :callfunction :labelXY, mainlabel 2, settings 5
} or that {
   call :callfunction: labelXY, mainlabel 2
   call :callfunction: labelXY, settings 5
}
   exit /B

:labelXY
   echo It works.
   exit /b

:callfunction
   let be %* := functionName (parameter argument)+ == functionName, parameter1 argument(s)1, parameter2 argument(s)2, ...
   for all (parameter argument(s)) in %* do {
      if (parameter exists in "..\main.bat") {
         call functionName parameter argument(s)
      } else if (debugging is enabled) {
         showError (parameter not in "..\main.bat": cannot call functionName parameter argument(s).)
      }
   }
   exit/b

Code: Select all

rem main.bat content
   loadAllPlugins (); // result: unique map Plugin:={(key1=":mainlabel", value1="call pluginXY with optional parameters"), (key2, value2), ...}
:: ...

:mainlabel
   for (key, value) of Plugin with key == ":mainlabel" do execute value
:: ...

:settings
   for (key, value) of Plugin with key == ":settings" do execute value
:: ...

Code: Select all

rem plugin.bat content
:: ...
call :mainlabel of main.bat

Code: Select all

@rem MY_BATCH_FILE_NAME_TEXT: functionXY, mainlabel 2, setting 5 (, mainLabel options)*

Code: Select all

:mainlabel
taskkill ie.exe
echo Hello. This is the second line
::3
::4
call :function within 'plugin.bat'
REM So line 5 is the line where the function within the plugin must be called, with this option well if the user leaves it out it will
REM be called from line after the label 'mainlabel', i.e "taskill i.e.exe"

Code: Select all

call :callfunction(within 'main.bat') mainlabel 5(within 'main.bat), settings 5 y

Code: Select all

call :callfunction function, mainlabel 5 y, settings 5 y

Code: Select all

call :callfunction(within 'main.bat') :function, mainlabel 5 y(within 'main.bat), settings 5 y

OR

call :callfunction :function, mainlabel 5, settings 5

OR

call :callfunction :function, mainlabel 5, settings 5

Code: Select all

:mainlabel
echo Line 1
::2
::3
::4
call function withing 'plugin.bat'
echo Line 5

Code: Select all

::MY_PROGRAM_PLUGIN
set version=1.0

call :callcuntion :function, mainmenu 5 n

:function
echo It works^^!
pause
exit /b

Code: Select all

:: processing parameters
@   if /I .%1 == ./list if .%2 == . goto :list
@   if /I .%1 == ./call goto :call
@   goto :help


:call
@   for /F %%e in ('call %~f0 /list') do @(
      if /I "%%~e" == "%2" goto %%~e
   )

@   echo No such exported function found: %0 %*.
@   exit /b 1

:SampleFunction
@   echo Successfully called: %0 %*
@   exit /b 0

:list
@   for %%e in (
      ":SampleFunction"
   ) do @(
      echo(%%~e
   )
@   exit /b 0

:help
@   for %%h in (
      "Sample.dll.bat [/list|/call functionName parameter(s)]" 
      "  /list               returns a list of all exported functions"
      "  /call               executes a function, if it is an exported function,"
      "                      an appropriate error message is displayed else."
      "        functionName  denotes a label that defines an exported function"
      "        parameter(s)  one or more parameters."
      ""
   ) do @(
      echo(%%h
   )
@   exit /b 0

Code: Select all

@echo off
setlocal enableDelayedExpansion
cls

:: initiate
   set "PluginFunctions.length=3"
   set "PluginFunctions[Pluginable1]=2"
   set "PluginFunctions[Pluginable2]=3"
   set "PluginFunctions[Pluginable3]=1"
   set "PluginFunctions[1]=call :Pluginable3"
   set "PluginFunctions[2]=call :Pluginable1"
   set "PluginFunctions[3]=call :Pluginable2"
   set "usePlugins=true"
   goto :processParams

:processParams
   if /I .%1 == ./noPlugins set "usePlugins=false"
   goto :pluginManager

:pluginManager
   if %usePlugins% == false goto :main
   for %%f in (plugins\*.bat) do (
      set "header="
      (set /P "header=" < %%f)
      for /F "tokens=1-3" %%r in ("!header!") do (
         if .%%r%%s == .@remMY_BATCH_FILE_NAME_TEXT (
            set "PluginFunction=%%~t"
            set "PluggedInFunction=%%~f"

            for /F %%p in ("!PluginFunction::=!") do (
               set "PluginFunctions[!PluginFunctions[%%~p]!]=call "!PluggedInFunction!""
            )
         )
      )
   )
   goto :main

:main
   echo call Sample.dll.bat from main
   call Sample.dll.bat /call :SampleFunction
   goto :mainlabel

:mainlabel
echo =================================================================
::2
::3
::4
call :callfunction :Pluginable1, mainlabel 5 n
echo =================================================================

:default
::1
call :callfunction :Pluginable2, default 2 n
echo =================================================================

:settings
::1
::2
call :callfunction :Pluginable3, settings 2 n
::4
::5
echo =================================================================
   exit /b 0


:callfunction
   set "params=%*"
   set "command=%1"
   for /F %%c in ("!PluginFunctions[%command::=%]!") do set "command=!PluginFunctions[%%~c]!"
   %command% %params:* =%
   exit /b %ErrorLevel%


:Pluginable1
   echo %0 :Pluginable1
   echo params: %*
   exit /b 0

:Pluginable2
   echo %0 :Pluginable2
   echo params: %*
   exit /b 0

:Pluginable3
   echo %0 :Pluginable3
   echo params: %*
   exit /b 0

Code: Select all

@rem MY_BATCH_FILE_NAME_TEXT :Pluginable2

@echo(This is the test function that is shown in the main batch file :)
@echo(
@echo(call Sample.dll.bat /call :SampleFunction
@call Sample.dll.bat /call :SampleFunction
@echo(Notice: The working directory is that of the SampleMain.bat file.
@echo(
@echo(Finished
@exit /b

Code: Select all

@echo MY_BATCH_FILE_NAME_TEXT MY_BATCH_FILE_NAME_TEXT2 MY_BATCH_FILE_NAME_TEXT3

Code: Select all