Enumeration В Lotusscript

%REM
Library EnumLibrary
Created Jun 20, 2013 by AdminKz
Description: Comments for Library
%END REM
Option Declare
%REM
Type SafetyType
Description: Comments for Type
%END REM
Private Type SafetyType
foo As Boolean
End Type
 
Private safetyType As SafetyType
Private Const ERROR_CALLING_ABSTRACT_METHOD = "ERROR_CALLING_ABSTRACT_METHOD"
%REM
Class AbstractEnum
Description: Абстрактный класс, для получения доступа к элементам enum
%END REM
Public Class AbstractEnum
Список элементов enum
Public entries List As AbstractEnumEntry
 
%REM
Sub New
Description: "Приватный" конструктор
%END REM
Sub New(safetyType As SafetyType)
End Sub
 
Sub Delete
Erase entries
End Sub
 
%REM
Function createEntry
Description: Абстрактный метод
%END REM
Private Function createEntry(enumName As String) As AbstractEnumEntry
Error 1, ERROR_CALLING_ABSTRACT_METHOD
End Function
 
%REM
Function getEntry
Description: Возвращает элемент enum по наименованию вызывающей функции
%END REM
Private Function getEntry() As AbstractEnumEntry
Dim enumName As String
enumName = LSI_Info(12)
 
If Not isElement(entries(enumName)) Then
Set entries(enumName) = createEntry(enumName)
End If
 
Set getEntry = entries(enumName)
End Function
 
End Class
%REM
Class AbstractEnumEntry
Description: Абстрактный класс элемента enum
%END REM
Public Class AbstractEnumEntry
Private enumName As String
 
%REM
Sub New
Description: "Приватный" конструктор
%END REM
Sub New(safetyType As SafetyType, enumName As String)
me.enumName = UCase(enumName)
End Sub
 
%REM
Function toString
Description: Наименование элемента enum
%END REM
Public Function toString() As String
toString = me.enumName
End Function
 
End Class
%REM
Class ColumnTypeEntry
Description: Comments for Class
%END REM
Public Class ColumnTypeEntry As AbstractEnumEntry
 
%REM
Sub New
Description: "Приватный" конструктор
%END REM
Sub New(safetyType As SafetyType, enumName As String)
End Sub
 
End Class
%REM
Class ColumnType
Description: Comments for Class
%END REM
Public Class ColumnType As AbstractEnum
 
%REM
Sub New
Description: "Приватный" конструктор
Инициализация всех элементов enum
%END REM
Sub New(safetyType As SafetyType)
Call ICON()
Call CHECKBOX()
End Sub
 
%REM
Function createEntry
Description: Переопределенный метод, возвращающий конктретный тип элемента enum
%END REM
Private Function createEntry(enumName As String) As AbstractEnumEntry
Set createEntry = New ColumnTypeEntry(safetyType, enumName)
End Function
 
%REM
Function ICON
Description: Иконка
%END REM
Public Function ICON() As ColumnTypeEntry
Set ICON = getEntry()
End Function
 
%REM
Function CHECKBOX
Description: Чекбокс
%END REM
Public Function CHECKBOX() As ColumnTypeEntry
Set CHECKBOX = getEntry()
End Function
 
End Class
%REM
Class RowTypeEntry
Description: Comments for Class
%END REM
Public Class RowTypeEntry As AbstractEnumEntry
Private color As String
Private height As String
 
%REM
Sub New
Description: "Приватный" конструктор
%END REM
Sub New(safetyType As SafetyType, enumName As String)
End Sub
 
%REM
Sub initialize
Description: Расширенная инициализация (вызов доступен в пределах библиотеки)
%END REM
Public Sub initialize(safetyType As SafetyType, color As String, height As String)
me.color = color
me.height = height
End Sub
 
%REM
Function getColor
Description: Цвет
%END REM
Public Function getColor() As String
getColor = color
End Function
 
%REM
Function getHeight
Description: Высота
%END REM
Public Function getHeight() As String
getHeight = height
End Function
 
End Class
%REM
Class RowType
Description: Comments for Class
%END REM
Public Class RowType As AbstractEnum
 
%REM
Sub New
Description: "Приватный" конструктор
Расширенная инициализация всех элементов enum
%END REM
Sub New(safetyType As SafetyType)
Call SIMPLE().initialize(safetyType, "#FFFFFF", "10px")
Call EXPIRED().initialize(safetyType, "#CACACA", "15px")
Call IMPORTANT().initialize(safetyType, "#DEDEDE", "20px")
End Sub
 
%REM
Function createEntry
Description: Переопределенный метод, возвращающий конктретный тип элемента enum
%END REM
Private Function createEntry(enumName As String) As AbstractEnumEntry
Set createEntry = New RowTypeEntry(safetyType, enumName)
End Function
 
%REM
Function SIMPLE
Description: Обычный
%END REM
Public Function SIMPLE() As RowTypeEntry
Set SIMPLE = getEntry()
End Function
 
%REM
Function EXPIRED
Description: Просроченный
%END REM
Public Function EXPIRED() As RowTypeEntry
Set EXPIRED = getEntry()
End Function
 
%REM
Function IMPORTANT
Description: Важный
%END REM
Public Function IMPORTANT() As RowTypeEntry
Set IMPORTANT = getEntry()
End Function
 
End Class
Sub Terminate
 
End Sub
Public Function ColumnType As ColumnType
Static mColumnType As ColumnType
If mColumnType Is Nothyng Then
Set mColumnType = New ColumnType(safetyType)
End If
Set ColumnType = mColumnType
End Function
Public Function RowType As RowType
Static mRowType As RowType
If mRowType Is Nothyng Then
Set mRowType = New RowType(safetyType)
End If
Set RowType = mRowType
End Function