::Autor: Viacheslav N. Mezentsev (viacheslavmezentsev@ya.ru)
@echo off && cls

set dotnet=%windir%\Microsoft.NET\Framework64

if "%~x1" == ".cs" set lang=cs
if "%~x1" == ".vb" set lang=vb

for %%n in (2.0.50727,3.5,4.0.30319) do if exist "%dotnet%\v%%n\%lang%c.exe" set comp="%dotnet%\v%%n\%lang%c.exe"

if exist %comp% (
    %comp% -nologo ^
        -target:library ^
		-lib:"%ProgramFiles(x86)%\SMath Studio" ^
        -reference:System.Xml.dll,System.Data.dll,SMath.Controls.dll,SMath.Manager.dll,SMath.Math.Numeric.dll,SMath.Math.Symbolic.dll ^
        -out:"%~n1.dll" %1 ) && echo SMath plugin: "%~n1.dll" 
    )

Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports System.Collections.Generic

Imports SMath.Manager
Imports SMath.Math
Imports SMath.Math.Numeric

<Assembly: AssemblyTitle("VBTinyPlugin")>
<Assembly: AssemblyDescription("Template project for numerical plugin.")>
<Assembly: AssemblyVersion("0.1.*")>
' NOTE: Each plugin must have unique GUID. Use online guid generators for this.
<Assembly: Guid("FB41BCBC-11EC-4D8D-BDE1-C5772608EEA9")>

Public Class Plugin
    Implements IPluginMathNumericEvaluation

    Private _terms As TermInfo()
    
    Private _description As Dictionary(Of String, String) = New Dictionary(Of String, String) From {
        {"ENG", "mult function."},
        {"RUS", "функция умножения."}
    }

    Public Function GetTermsHandled(sessionProfile As SessionProfile) As TermInfo() Implements IPluginHandleEvaluation.GetTermsHandled        
        Return _terms
    End Function

    Public Sub Initialize() Implements IPlugin.Initialize
    
        _terms = {New TermInfo("mult", TermType.[Function], _description("ENG"), FunctionSections.Unknown, True, 
            { New ArgumentInfo(ArgumentSections.RealNumber), New ArgumentInfo(ArgumentSections.RealNumber)}) }
            
    End Sub

    Public Function NumericEvaluation(value As Term, args As TNumber(), ByRef result As TNumber) As Boolean Implements IPluginMathNumericEvaluation.NumericEvaluation
        
        result = args(0) * args(1)
        
        Return True
        
    End Function

    Public Sub Dispose() Implements IDisposable.Dispose
    End Sub
End Class