Voicemeeter

4.0.0

base.ps1

. $PSScriptRoot\errors.ps1
. $PSScriptRoot\binding.ps1

function Login {
    param(
        [string]$kindId
    )
    $retval = [int][Voicemeeter.Remote]::VBVMR_Login()
    if ($retval -notin @(0, 1, -2)) {
        throw [CAPIError]::new($retval, 'VBVMR_Login')
    }

    switch ($retval) {
        1 {
            'Voicemeeter Engine running but GUI not launched. Launching GUI now.' | Write-Verbose
            RunVoicemeeter -kindId $kindId
        }
        -2 {
            throw [LoginError]::new('Login may only be called once per session.')
        }
    }

    $timeout = New-TimeSpan -Seconds 2
    $sw = [diagnostics.stopwatch]::StartNew()
    $exception = $null
    do {
        Start-Sleep -m 100
        try {
            'Successfully logged into Voicemeeter [' + $(VmType).ToUpper() + '] Version ' + $(VmVersion) | Write-Verbose
            $exception = $null
            break
        }
        catch [CAPIError] {
            $exception = $_
            $exception | Write-Debug
        }
    } while ($sw.elapsed -lt $timeout)

    if ($null -ne $exception) {
        throw [VMRemoteError]::new('Timeout logging into the API.')
    }

    while (P_Dirty -or M_Dirty) { Start-Sleep -m 1 }
}

function Logout {
    Start-Sleep -m 100
    $retval = [int][Voicemeeter.Remote]::VBVMR_Logout()
    if ($retval -notin @(0)) {
        throw [CAPIError]::new($retval, 'VBVMR_Logout')
    }
    if ($retval -eq 0) { 'Sucessfully logged out' | Write-Verbose }
}

function RunVoicemeeter {
    param(
        [string]$kindId
    )
    $kinds = @{
        'basic'  = $(if ([Environment]::Is64BitOperatingSystem) { 4 } else { 1 })
        'banana' = $(if ([Environment]::Is64BitOperatingSystem) { 5 } else { 2 })
        'potato' = $(if ([Environment]::Is64BitOperatingSystem) { 6 } else { 3 })
    }

    $retval = [int][Voicemeeter.Remote]::VBVMR_RunVoicemeeter([int64]$kinds[$kindId])
    if ($retval -notin @(0)) {
        throw [CAPIError]::new($retval, 'VBVMR_RunVoicemeeter') 
    }
}

function P_Dirty {
    $retval = [Voicemeeter.Remote]::VBVMR_IsParametersDirty()
    if ($retval -notin @(0, 1)) {
        throw [CAPIError]::new($retval, 'VBVMR_IsParametersDirty') 
    }
    [bool]$retval
}

function M_Dirty {
    $retval = [Voicemeeter.Remote]::VBVMR_MacroButton_IsDirty()
    if ($retval -notin @(0, 1)) {
        throw [CAPIError]::new($retval, 'VBVMR_MacroButton_IsDirty') 
    }
    [bool]$retval
}

function VmType {
    New-Variable -Name ptr -Value 0
    $retval = [int][Voicemeeter.Remote]::VBVMR_GetVoicemeeterType([ref]$ptr)
    if ($retval -notin @(0)) { 
        throw [CAPIError]::new($retval, 'VBVMR_GetVoicemeeterType') 
    }
    switch ($ptr) {
        1 { return 'basic' }
        2 { return 'banana' }
        3 { return 'potato' }
    }
}

function VmVersion {
    New-Variable -Name ptr -Value 0
    $retval = [int][Voicemeeter.Remote]::VBVMR_GetVoicemeeterVersion([ref]$ptr)
    if ($retval -notin @(0)) { 
        throw [CAPIError]::new($retval, 'VBVMR_GetVoicemeeterVersion') 
    }
    $v1 = ($ptr -band 0xFF000000) -shr 24
    $v2 = ($ptr -band 0x00FF0000) -shr 16
    $v3 = ($ptr -band 0x0000FF00) -shr 8
    $v4 = $ptr -band 0x000000FF
    "$v1.$v2.$v3.$v4"
}


function Param_Get {
    param(
        [string]$PARAM, [bool]$IS_STRING = $false
    )
    Start-Sleep -m 30
    while (P_Dirty) { Start-Sleep -m 1 }

    if ($IS_STRING) {
        $BYTES = [System.Byte[]]::new(512)
        $retval = [int][Voicemeeter.Remote]::VBVMR_GetParameterStringA($PARAM, $BYTES)
        if ($retval -notin @(0)) { 
            throw [CAPIError]::new($retval, 'VBVMR_GetParameterStringA') 
        }
        [System.Text.Encoding]::ASCII.GetString($BYTES).Trim([char]0)
    }
    else {
        New-Variable -Name ptr -Value 0.0
        $retval = [int][Voicemeeter.Remote]::VBVMR_GetParameterFloat($PARAM, [ref]$ptr)
        if ($retval -notin @(0)) { 
            throw [CAPIError]::new($retval, 'VBVMR_GetParameterFloat') 
        }
        [single]$ptr
    }
}

function Param_Set {
    param(
        [string]$PARAM, [Object]$VALUE
    )
    if ($VALUE -is [string]) {
        $retval = [int][Voicemeeter.Remote]::VBVMR_SetParameterStringA($PARAM, $VALUE)
        if ($retval -notin @(0)) { 
            throw [CAPIError]::new($retval, 'VBVMR_SetParameterStringA') 
        }
    }
    else {
        $retval = [int][Voicemeeter.Remote]::VBVMR_SetParameterFloat($PARAM, $VALUE)
        if ($retval -notin @(0)) { 
            throw [CAPIError]::new($retval, 'VBVMR_SetParameterFloat') 
        }
    }
}

function MB_Set {
    param(
        [int64]$ID, [single]$SET, [int64]$MODE
    )
    $retval = [int][Voicemeeter.Remote]::VBVMR_MacroButton_SetStatus($ID, $SET, $MODE)
    if ($retval -notin @(0)) { 
        throw [CAPIError]::new($retval, 'VBVMR_MacroButton_SetStatus') 
    }
}

function MB_Get {
    param(
        [int64]$ID, [int64]$MODE
    )
    Start-Sleep -m 50
    while (M_Dirty) { Start-Sleep -m 1 }

    New-Variable -Name ptr -Value 0.0
    $retval = [int][Voicemeeter.Remote]::VBVMR_MacroButton_GetStatus($ID, [ref]$ptr, $MODE)
    if ($retval -notin @(0)) { 
        throw [CAPIError]::new($retval, 'VBVMR_MacroButton_GetStatus') 
    }
    [int]$ptr
}

function Param_Set_Multi {
    param(
        [hashtable]$HASH
    )
    foreach ($key in $HASH.keys) {
        $classobj, $m2, $m3 = $key.Split('_')
        if ($m2 -match '^\d+$') { $index = [int]$m2 } else { $index = [int]$m3 }

        foreach ($h in $HASH[$key].GetEnumerator()) {
            $property = $h.Name
            $value = $h.Value
            if ($value -in ('False', 'True')) { [System.Convert]::ToBoolean($value) }

            switch ($classobj) {
                'strip' { $this.strip[$index].$property = $value }
                'bus' { $this.bus[$index].$property = $value }
                { ($_ -eq 'button') -or ($_ -eq 'mb') } { $this.button[$index].$property = $value }
                'vban' { $this.vban.$m2[$index].$property = $value }
            }
        }
    }
}

function Set_By_Script {
    param(
        [string]$script
    )
    if ($script.Length -gt 48000) {
        throw [VMRemoteError]::new('Script size cannot be larger than 48kB')
    }
    $retval = [int][Voicemeeter.Remote]::VBVMR_SetParameters($script)
    if ($retval -notin @(0)) { 
        throw [CAPIError]::new($retval, 'VBVMR_SetParameters') 
    }
}

function Get_Level {
    param(
        [int64]$MODE, [int64]$INDEX
    )
    New-Variable -Name ptr -Value 0.0
    $retval = [int][Voicemeeter.Remote]::VBVMR_GetLevel($MODE, $INDEX, [ref]$ptr)
    if ($retval -notin @(0)) { 
        throw [CAPIError]::new($retval, 'VBVMR_GetLevel') 
    }
    [float]$ptr
}