- introdotta funzione GetNextDoor chiamabile da lua

- gestito DeleteAll in DoorListPage - corretto id porte che riparte da 1 solo in caso di lista vuota - aggiunta gestione funzioni chiamabili da lua - corretta lettura variabili macchina booleane
2024-08-09 17:02:39 +02:00
parent d3314d0c1f
commit c670ba4758
9 changed files with 456 additions and 12 deletions
@@ -45,6 +45,7 @@ Public Class DoorListPageVM
 #Region "CONSTRUCTOR"

   Sub New()
+      Map.SetRefDoorListPageVM(Me)
      Dim sBackupDirPath As String = ""
      GetPluginPrivateProfileString(S_GENERAL, "BackupDir", "", sBackupDirPath)
      Dim sBackupFilePath As String = sBackupDirPath & "\Backup.json"
@@ -131,6 +132,10 @@ Public Class DoorListPageVM
      End If
   End Sub

+   Friend Function GetNextDoor() As Door
+      Return m_DoorList.FirstOrDefault(Function(x) x.nState >= Door.DoorStates.SENT_TO_PRODUCTION AndAlso x.nState <= Door.DoorStates.IN_PRODUCTION)
+   End Function
+
 #End Region    ' METHODS

 #Region "COMMANDS"
@@ -247,10 +252,10 @@ Public Class DoorListPageVM
                  For nQuantityIndex = 1 To nQuantity
                     Dim nId As Integer = 1
                     If m_DoorList.Count > 0 Then
-                        Dim LastDoor = m_DoorList.LastOrDefault()
-                        If Not IsNothing(LastDoor) AndAlso LastDoor.nId < 1000 Then
-                           nId = LastDoor.nId + 1
-                        End If
+                        Dim nMaxId As Integer = m_DoorList.Max(Of Integer)(Function(x) x.nId)
+                        'If nMaxId < 100 Then
+                        nId = nMaxId + 1
+                        'End If
                     End If
                     Dim NewDoor As New Door(nId, nLineIndex, Values(nDDFNameIndex), Path.GetFileName(sCSVPath),
                                          1, dWidth, dHeight, dThickness, Headers, Values)
@@ -373,8 +378,15 @@ Public Class DoorListPageVM
   End Property

   Public Sub DeleteAll()
-      If IsNothing(SelDoor) OrElse SelDoor.nState >= Door.DoorStates.SENT_TO_PRODUCTION Then Return
-      WriteBackup()
+      If m_DoorList.Count = 0 Then Return
+      If MessageBox.Show("Are you sure you want to delete all the doors?", "Info", MessageBoxButton.YesNo, MessageBoxImage.Information) = MessageBoxResult.Yes Then
+         For nDoorIndex = m_DoorList.Count - 1 To 0 Step -1
+            Dim Door As Door = m_DoorList(nDoorIndex)
+            If Door.nState >= Door.DoorStates.SENT_TO_PRODUCTION Then Continue For
+            m_DoorList.Remove(Door)
+         Next
+         WriteBackup()
+      End If
   End Sub

 #End Region ' DeleteAll
@@ -397,9 +409,9 @@ Public Class DoorListPageVM
      ' la sposto dopo l'ultima da produrre
      Dim nNewIndex As Integer = m_DoorList.IndexOf(m_DoorList.FirstOrDefault(Function(x) x.nState < Door.DoorStates.SENT_TO_PRODUCTION))
      Dim nOldIndex As Integer = m_DoorList.IndexOf(SelDoor)
-
+      Dim SelectedDoor As Door = m_SelDoor
      m_DoorList.Move(nOldIndex, nNewIndex)
-      SelDoor.SetState(Door.DoorStates.SENT_TO_PRODUCTION)
+      SelectedDoor.SetState(Door.DoorStates.SENT_TO_PRODUCTION)
      WriteBackup()
   End Sub

@@ -0,0 +1,16 @@
+Imports System.ComponentModel.Composition
+Imports Supervisor.Plugin.Interface
+Imports KeraLua
+
+<Export(GetType(IPluginLuaManager))>
+<ExportMetadata("Name", "LuaManager")>
+Public Class LuaManager
+   Implements IPluginLuaManager
+
+   Private state As Lua
+
+   Public Function PlgInit(state As Object) As Boolean Implements IPluginLuaManager.PlgInit
+      Return LuaInstallGeneral(state)
+   End Function
+
+End Class
@@ -0,0 +1,363 @@
+Imports KeraLua
+
+Public Module Lua_Aux
+
+   Friend Function LuaClearStack(state As Lua)
+      Dim nIndex As Integer = state.GetTop()
+      If nIndex > 0 Then
+         state.Pop(nIndex)
+      End If
+      Return True
+   End Function
+
+   Friend Function LuaCheckParam(state As Lua, nIndex As Integer, ByRef bValue As Boolean)
+      If Not LuaGetParam(state, nIndex, bValue) Then
+         Return state.Error(" Invalid Parameter # " & nIndex)
+      End If
+      Return True
+   End Function
+
+   Friend Function LuaCheckParam(state As Lua, nIndex As Integer, ByRef nValue As Integer)
+      If Not LuaGetParam(state, nIndex, nValue) Then
+         Return state.Error(" Invalid Parameter # " & nIndex)
+      End If
+      Return True
+   End Function
+
+   Friend Function LuaCheckParam(state As Lua, nIndex As Integer, ByRef dValue As Double)
+      If Not LuaGetParam(state, nIndex, dValue) Then
+         Return state.Error(" Invalid Parameter # " & nIndex)
+      End If
+      Return True
+   End Function
+
+   Friend Function LuaCheckParam(state As Lua, nIndex As Integer, ByRef sValue As String)
+      If Not LuaGetParam(state, nIndex, sValue) Then
+         Return state.Error(" Invalid Parameter # " & nIndex)
+      End If
+      Return True
+   End Function
+
+   Friend Function LuaGetParam(state As Lua, nIndex As Integer, ByRef bValue As Boolean) As Boolean
+      If Not state.IsBoolean(nIndex) Then Return False
+      bValue = state.ToBoolean(nIndex)
+      Return True
+   End Function
+
+   Friend Function LuaGetParam(state As Lua, nIndex As Integer, ByRef nValue As Integer) As Boolean
+      If Not state.IsNumber(nIndex) Then Return False
+      nValue = Math.Round(state.ToNumber(nIndex))
+      Return True
+   End Function
+
+   Friend Function LuaGetParam(state As Lua, nIndex As Integer, ByRef dValue As Double) As Boolean
+      If Not state.IsNumber(nIndex) Then Return False
+      dValue = state.ToNumber(nIndex)
+      Return True
+   End Function
+
+   Friend Function LuaGetParam(state As Lua, nIndex As Integer, ByRef sValue As String) As Boolean
+      If Not state.IsString(nIndex) Then Return False
+      sValue = state.ToString(nIndex)
+      Return True
+   End Function
+
+   Friend Function LuaSetParam(state As Lua) As Boolean
+      Try
+         state.PushNil()
+      Catch ex As Exception
+         Return False
+      End Try
+      Return True
+   End Function
+
+   Friend Function LuaSetParam(state As Lua, ByRef bValue As Boolean) As Boolean
+      Try
+         state.PushBoolean(bValue)
+      Catch ex As Exception
+         Return False
+      End Try
+      Return True
+   End Function
+
+   Friend Function LuaSetParam(state As Lua, ByRef nValue As Integer) As Boolean
+      Try
+         state.PushInteger(nValue)
+      Catch ex As Exception
+         Return False
+      End Try
+      Return True
+   End Function
+
+   Friend Function LuaSetParam(state As Lua, ByRef dValue As Double) As Boolean
+      Try
+         state.PushNumber(dValue)
+      Catch ex As Exception
+         Return False
+      End Try
+      Return True
+   End Function
+
+   Friend Function LuaSetParam(state As Lua, ByRef sValue As String) As Boolean
+      Try
+         state.PushString(sValue)
+      Catch ex As Exception
+         Return False
+      End Try
+      Return True
+   End Function
+
+   Friend Function LuaGetTabFieldParam(state As Lua, nIndex As Integer, sVarName As String, ByRef bValue As Boolean) As Boolean
+      If Not state.IsTable(nIndex) Then Return False
+      state.GetField(nIndex, sVarName)
+      Dim bResult As Boolean = LuaGetParam(state, -1, bValue)
+      state.Pop(1)
+      Return bResult
+   End Function
+
+   Friend Function LuaGetTabFieldParam(state As Lua, nIndex As Integer, sVarName As String, ByRef nValue As Integer) As Boolean
+      If Not state.IsTable(nIndex) Then Return False
+      state.GetField(nIndex, sVarName)
+      Dim bResult As Boolean = LuaGetParam(state, -1, nValue)
+      state.Pop(1)
+      Return bResult
+   End Function
+
+   Friend Function LuaGetTabFieldParam(state As Lua, nIndex As Integer, sVarName As String, ByRef dValue As Double) As Boolean
+      If Not state.IsTable(nIndex) Then Return False
+      state.GetField(nIndex, sVarName)
+      Dim bResult As Boolean = LuaGetParam(state, -1, dValue)
+      state.Pop(1)
+      Return bResult
+   End Function
+
+   Friend Function LuaGetTabFieldParam(state As Lua, nIndex As Integer, sVarName As String, ByRef sValue As String) As Boolean
+      If Not state.IsTable(nIndex) Then Return False
+      state.GetField(nIndex, sVarName)
+      Dim bResult As Boolean = LuaGetParam(state, -1, sValue)
+      state.Pop(1)
+      Return bResult
+   End Function
+
+   Friend Function LuaGetGlobVar(state As Lua, ByRef sName As String, ByRef bValue As Boolean) As Boolean
+      ' se variabile standard
+      If Not sName.Contains("."c) Then
+         state.GetGlobal(sName)
+         Dim bResult As Boolean = LuaGetParam(state, -1, bValue)
+         state.Pop(1)
+         Return bResult
+      Else
+         Dim sTableName As String = "", sVarName As String = ""
+         Dim sParams() As String = sName.Split("."c)
+         sTableName = sParams(0)
+         sVarName = sParams(1)
+         state.GetGlobal(sTableName)
+         Dim bResult As Boolean = LuaGetTabFieldParam(state, -1, sVarName, bValue)
+         state.Pop(1)
+         Return bResult
+      End If
+   End Function
+
+   Friend Function LuaGetGlobVar(state As Lua, ByRef sName As String, ByRef nValue As Integer) As Boolean
+      ' se variabile standard
+      If Not sName.Contains("."c) Then
+         state.GetGlobal(sName)
+         Dim bResult As Boolean = LuaGetParam(state, -1, nValue)
+         state.Pop(1)
+         Return bResult
+      Else
+         Dim sTableName As String = "", sVarName As String = ""
+         Dim sParams() As String = sName.Split("."c)
+         sTableName = sParams(0)
+         sVarName = sParams(1)
+         state.GetGlobal(sTableName)
+         Dim bResult As Boolean = LuaGetTabFieldParam(state, -1, sVarName, nValue)
+         state.Pop(1)
+         Return bResult
+      End If
+   End Function
+
+   Friend Function LuaGetGlobVar(state As Lua, ByRef sName As String, ByRef dValue As Double) As Boolean
+      ' se variabile standard
+      If Not sName.Contains("."c) Then
+         state.GetGlobal(sName)
+         Dim bResult As Boolean = LuaGetParam(state, -1, dValue)
+         state.Pop(1)
+         Return bResult
+      Else
+         Dim sTableName As String = "", sVarName As String = ""
+         Dim sParams() As String = sName.Split("."c)
+         sTableName = sParams(0)
+         sVarName = sParams(1)
+         state.GetGlobal(sTableName)
+         Dim bResult As Boolean = LuaGetTabFieldParam(state, -1, sVarName, dValue)
+         state.Pop(1)
+         Return bResult
+      End If
+   End Function
+
+   Friend Function LuaGetGlobVar(state As Lua, ByRef sName As String, ByRef sValue As String) As Boolean
+      ' se variabile standard
+      If Not sName.Contains("."c) Then
+         state.GetGlobal(sName)
+         Dim bResult As Boolean = LuaGetParam(state, -1, sValue)
+         state.Pop(1)
+         Return bResult
+      Else
+         Dim sTableName As String = "", sVarName As String = ""
+         Dim sParams() As String = sName.Split("."c)
+         sTableName = sParams(0)
+         sVarName = sParams(1)
+         state.GetGlobal(sTableName)
+         Dim bResult As Boolean = LuaGetTabFieldParam(state, -1, sVarName, sValue)
+         state.Pop(1)
+         Return bResult
+      End If
+   End Function
+
+   Friend Function LuaSetTabFieldParam(state As Lua, nIndex As Integer, sVarName As String) As Boolean
+      If Not state.IsTable(nIndex) Then Return False
+      If Not LuaSetParam(state) Then Return False
+      Dim nPos As Integer = (If(nIndex > 0, nIndex, nIndex - 1))
+      state.SetField(nPos, sVarName)
+      Return True
+   End Function
+
+   Friend Function LuaSetTabFieldParam(state As Lua, nIndex As Integer, sVarName As String, ByRef bValue As Boolean) As Boolean
+      If Not state.IsTable(nIndex) Then Return False
+      If Not LuaSetParam(state, bValue) Then Return False
+      Dim nPos As Integer = (If(nIndex > 0, nIndex, nIndex - 1))
+      state.SetField(nPos, sVarName)
+      Return True
+   End Function
+
+   Friend Function LuaSetTabFieldParam(state As Lua, nIndex As Integer, sVarName As String, ByRef nValue As Integer) As Boolean
+      If Not state.IsTable(nIndex) Then Return False
+      If Not LuaSetParam(state, nValue) Then Return False
+      Dim nPos As Integer = (If(nIndex > 0, nIndex, nIndex - 1))
+      state.SetField(nPos, sVarName)
+      Return True
+   End Function
+
+   Friend Function LuaSetTabFieldParam(state As Lua, nIndex As Integer, sVarName As String, ByRef dValue As Double) As Boolean
+      If Not state.IsTable(nIndex) Then Return False
+      If Not LuaSetParam(state, dValue) Then Return False
+      Dim nPos As Integer = (If(nIndex > 0, nIndex, nIndex - 1))
+      state.SetField(nPos, sVarName)
+      Return True
+   End Function
+
+   Friend Function LuaSetTabFieldParam(state As Lua, nIndex As Integer, sVarName As String, ByRef sValue As String) As Boolean
+      If Not state.IsTable(nIndex) Then Return False
+      If Not LuaSetParam(state, sValue) Then Return False
+      Dim nPos As Integer = (If(nIndex > 0, nIndex, nIndex - 1))
+      state.SetField(nPos, sVarName)
+      Return True
+   End Function
+
+   Friend Function LuaSetGlobVar(state As Lua, ByRef sName As String, ByRef bValue As Boolean) As Boolean
+      ' se variabile standard
+      If Not sName.Contains("."c) Then
+         If Not LuaSetParam(state, bValue) Then Return False
+         state.SetGlobal(sName)
+         Return True
+         ' altrimenti campo di tabella
+      Else
+         Dim sTableName As String = "", sVarName As String = ""
+         Dim sParams() As String = sName.Split("."c)
+         sTableName = sParams(0)
+         sVarName = sParams(1)
+         state.GetGlobal(sTableName)
+         Dim bResult As Boolean = LuaSetTabFieldParam(state, -1, sVarName, bValue)
+         state.Pop(1)
+         Return bResult
+      End If
+   End Function
+
+   Friend Function LuaSetGlobVar(state As Lua, ByRef sName As String, ByRef nValue As Integer) As Boolean
+      ' se variabile standard
+      If Not sName.Contains("."c) Then
+         If Not LuaSetParam(state, nValue) Then Return False
+         state.SetGlobal(sName)
+         Return True
+         ' altrimenti campo di tabella
+      Else
+         Dim sTableName As String = "", sVarName As String = ""
+         Dim sParams() As String = sName.Split("."c)
+         sTableName = sParams(0)
+         sVarName = sParams(1)
+         state.GetGlobal(sTableName)
+         Dim bResult As Boolean = LuaSetTabFieldParam(state, -1, sVarName, nValue)
+         state.Pop(1)
+         Return bResult
+      End If
+   End Function
+
+   Friend Function LuaSetGlobVar(state As Lua, ByRef sName As String, ByRef dValue As Double) As Boolean
+      ' se variabile standard
+      If Not sName.Contains("."c) Then
+         If Not LuaSetParam(state, dValue) Then Return False
+         state.SetGlobal(sName)
+         Return True
+         ' altrimenti campo di tabella
+      Else
+         Dim sTableName As String = "", sVarName As String = ""
+         Dim sParams() As String = sName.Split("."c)
+         sTableName = sParams(0)
+         sVarName = sParams(1)
+         state.GetGlobal(sTableName)
+         Dim bResult As Boolean = LuaSetTabFieldParam(state, -1, sVarName, dValue)
+         state.Pop(1)
+         Return bResult
+      End If
+   End Function
+
+   Friend Function LuaSetGlobVar(state As Lua, ByRef sName As String, ByRef sValue As String) As Boolean
+      ' se variabile standard
+      If Not sName.Contains("."c) Then
+         If Not LuaSetParam(state, sValue) Then Return False
+         state.SetGlobal(sName)
+         Return True
+         ' altrimenti campo di tabella
+      Else
+         Dim sTableName As String = "", sVarName As String = ""
+         Dim sParams() As String = sName.Split("."c)
+         sTableName = sParams(0)
+         sVarName = sParams(1)
+         state.GetGlobal(sTableName)
+         Dim bResult As Boolean = LuaSetTabFieldParam(state, -1, sVarName, sValue)
+         state.Pop(1)
+         Return bResult
+      End If
+   End Function
+
+   Friend Function LuaResetGlobVar(state As Lua, ByRef sName As String) As Boolean
+      ' se variabile standard
+      If Not sName.Contains("."c) Then
+         If Not LuaSetParam(state) Then Return False
+         state.SetGlobal(sName)
+         Return True
+         ' altrimenti campo di tabella
+      Else
+         Dim sTableName As String = "", sVarName As String = ""
+         Dim sParams() As String = sName.Split("."c)
+         sTableName = sParams(0)
+         sVarName = sParams(1)
+         state.GetGlobal(sTableName)
+         Dim bResult As Boolean = LuaSetTabFieldParam(state, -1, sVarName)
+         state.Pop(1)
+         Return bResult
+      End If
+   End Function
+
+   Friend Function LuaCreateGlobTable(state As Lua, ByRef sName As String) As Boolean
+      Try
+         state.NewTable()
+         state.SetGlobal(sName)
+      Catch ex As Exception
+         Return False
+      End Try
+      Return True
+   End Function
+
+End Module
@@ -0,0 +1,26 @@
+Imports KeraLua
+
+Public Module Lua_General
+
+   Friend func_PlgGetNextDoor As LuaFunction = AddressOf Lua_PlgGetNextDoor
+
+   Private Function Lua_PlgGetNextDoor(ByVal p As IntPtr) As Integer
+      Dim state = Lua.FromIntPtr(p)
+      LuaClearStack(state)
+      Dim NextDoor As Door = Map.refDoorListPageVM.GetNextDoor()
+      If Not IsNothing(NextDoor) Then
+         ' restituisco il risultato
+         LuaSetParam(state, NextDoor.nId)
+         LuaSetParam(state, NextDoor.sDDFName)
+         Return 2
+      End If
+      Return 0
+   End Function
+
+   Friend Function LuaInstallGeneral(state As Lua) As Boolean
+      If IsNothing(state) Then Return False
+      state.Register("PlgGetNextDoor", func_PlgGetNextDoor)
+      Return True
+   End Function
+
+End Module
@@ -77,10 +77,9 @@ Public Class MachinePageVM
               Dim sIndexSplit() As String = Var.sIndex.Split("."c)
               Integer.TryParse(sIndexSplit(0), nIndex)
               Integer.TryParse(sIndexSplit(1), nBit)
-               Integer.TryParse(Var.sIndex, nIndex)
-               Dim dValue As Double = 0
-               If Map.refSupervisorFunction.ComReadBitVar(nIndex, nBit, dValue, Var.nMachine) Then
-                  Var.SetValue(dValue)
+               Dim bValue As Boolean = 0
+               If Map.refSupervisorFunction.ComReadBitVar(nIndex, nBit, bValue, Var.nMachine) Then
+                  Var.SetValue(bValue)
               Else
                  Map.refSupervisorFunction.PlgOutLog("Error! Reading Variable " & Var.sIndex & " on machine " & Var.nMachine & "failed!")
               End If
@@ -11,6 +11,8 @@
    <MyType>Custom</MyType>
    <Deterministic>true</Deterministic>
    <ProjectGuid>{7C77F537-8235-40AB-B24A-4E71CFB96D2C}</ProjectGuid>
+    <NuGetPackageImportStamp>
+    </NuGetPackageImportStamp>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
    <DebugSymbols>true</DebugSymbols>
@@ -49,6 +51,9 @@
    <Reference Include="EgtWPFLib48">
      <HintPath>..\..\..\EgtProg\DllD32\EgtWPFLib48.dll</HintPath>
    </Reference>
+    <Reference Include="KeraLua, Version=1.4.1.0, Culture=neutral, PublicKeyToken=6a194c04b9c89217, processorArchitecture=MSIL">
+      <HintPath>..\packages\KeraLua.1.4.1\lib\net46\KeraLua.dll</HintPath>
+    </Reference>
    <Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
      <HintPath>..\packages\Newtonsoft.Json.13.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
    </Reference>
@@ -100,6 +105,9 @@
      <DependentUpon>FiveLakesUI.xaml</DependentUpon>
    </Compile>
    <Compile Include="FiveLakesUIVM.vb" />
+    <Compile Include="LUA\LuaManager.vb" />
+    <Compile Include="LUA\Lua_Aux.vb" />
+    <Compile Include="LUA\Lua_General.vb" />
    <Compile Include="MachinePage\MachinePageV.xaml.vb">
      <DependentUpon>MachinePageV.xaml</DependentUpon>
    </Compile>
@@ -173,4 +181,11 @@
    <PostBuildEvent>copy $(TargetPath) c:\EgtData\Supervisor\Plugin\Supervisor.Plugin.FiveLakes\Supervisor.Plugin.FiveLakes.dll
 </PostBuildEvent>
  </PropertyGroup>
+  <Import Project="..\packages\KeraLua.1.4.1\build\net46\KeraLua.targets" Condition="Exists('..\packages\KeraLua.1.4.1\build\net46\KeraLua.targets')" />
+  <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
+    <PropertyGroup>
+      <ErrorText>This project references NuGet package(s) that are missing on this computer. Use NuGet Package Restore to download them.  For more information, see http://go.microsoft.com/fwlink/?LinkID=322105. The missing file is {0}.</ErrorText>
+    </PropertyGroup>
+    <Error Condition="!Exists('..\packages\KeraLua.1.4.1\build\net46\KeraLua.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\KeraLua.1.4.1\build\net46\KeraLua.targets'))" />
+  </Target>
 </Project>
@@ -3,6 +3,7 @@
 Module Map

   Private m_refFiveLakesUIVM As FiveLakesUIVM
+   Private m_refDoorListPageVM As DoorListPageVM
   Private m_refSupervisorFunction As IHost

   'Private m_refMyStatusBarVM As MyStatusBarVM
@@ -46,6 +47,12 @@ Module Map
      End Get
   End Property

+   Public ReadOnly Property refDoorListPageVM As DoorListPageVM
+      Get
+         Return m_refDoorListPageVM
+      End Get
+   End Property
+
   Public ReadOnly Property refSupervisorFunction As IHost
      Get
         Return m_refSupervisorFunction
@@ -264,6 +271,11 @@ Module Map
      Return Not IsNothing(m_refSupervisorFunction)
   End Function

+   Friend Function SetRefDoorListPageVM(DoorListPageVM As DoorListPageVM) As Boolean
+      m_refDoorListPageVM = DoorListPageVM
+      Return Not IsNothing(m_refDoorListPageVM)
+   End Function
+
   '   Friend Function SetRefProjManagerVM(ProjManagerVM As ProjManagerVM) As Boolean
   '      m_refProjManagerVM = ProjManagerVM
   '      Return Not IsNothing(m_refProjManagerVM)
@@ -1,4 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
+  <package id="KeraLua" version="1.4.1" targetFramework="net472" />
  <package id="Newtonsoft.Json" version="13.0.3" targetFramework="net472" />
 </packages>