Attribute VB_Name = "modUtilities"
' *********************************************************************
'* CLASS Modulo di utilità. Contiene funzioni utili alla libreria SMom.
'* <BR/>Autore: <B>Giorgio Bernardi</B>
'* E-Mail: <A HREF="mailto:giorgio.bernardi@studio.unibo.it">Giorgio.Bernardi@studio.unibo.it</A>
'* Data  : Settembre 2004
'* <DIV CLASS="ClassDescription">
'* </DIV>
' *********************************************************************
Option Explicit

'* Restituisce la classe singleton di utilità
Function Utilities() As SMomUtilities
    Static utils    As SMomUtilities
    If utils Is Nothing Then Set utils = New SMomUtilities
    Set Utilities = utils
End Function

'* Restituisce un oggetto CValue corrispondente al tipo di dato indicato
Public Function getNewCValue(ValueType As String) As CValue
    Select Case ValueType
        Case "String"
            Set getNewCValue = New CStringValue
        Case "Int32"
            Set getNewCValue = New CInt32Value
        Case "Int16"
            'TODO
        Case "Byte"
            'TODO
        Case Else
            Call Utilities.RaiseSMomException(VarTypeUnKnownException)
    End Select
End Function