55 lines
1.7 KiB
QBasic
55 lines
1.7 KiB
QBasic
Attribute VB_Name = "ParserDeclarations"
|
|
' ======== Parser declarations ========
|
|
' Shared module version: 20220614
|
|
' Tested in:
|
|
' Depends on:
|
|
' Required reference:
|
|
Option Private Module
|
|
Option Explicit
|
|
|
|
Public Const LOCAL_MODELS = "C:\Tools\models"
|
|
Public Const MODEL_ACTION_VERBS = "ActionVerbs.txt"
|
|
|
|
Public Const CUSTOM_ERROR_DEBUG = 1025
|
|
|
|
Public Enum TDetector
|
|
[_First] = 1
|
|
|
|
T_DETECTOR_UNKNOWN = 0
|
|
T_DETECTOR_REGEX = 1
|
|
T_DETECTOR_MORPHO = 2
|
|
T_DETECTOR_LIST = 3
|
|
T_DETECTOR_DATE = 4
|
|
T_DETECTOR_ACTION = 5
|
|
T_DETECTOR_NPA = 6
|
|
T_DETECTOR_BASIC_NER = 7
|
|
|
|
[_Last] = 7
|
|
End Enum
|
|
|
|
Public Function DetectorFromStr(sName$) As TDetector
|
|
Select Case sName
|
|
Case "Äàòà": DetectorFromStr = T_DETECTOR_DATE
|
|
Case "Äåéñòâèå": DetectorFromStr = T_DETECTOR_ACTION
|
|
Case "Ñïèñîê ñëîâ": DetectorFromStr = T_DETECTOR_LIST
|
|
Case "RegExp": DetectorFromStr = T_DETECTOR_REGEX
|
|
Case "Ìîðôîëîãèÿ": DetectorFromStr = T_DETECTOR_MORPHO
|
|
Case "ÍÏÀ": DetectorFromStr = T_DETECTOR_NPA
|
|
Case "Èì. ñóùíîñòè": DetectorFromStr = T_DETECTOR_BASIC_NER
|
|
Case Else: DetectorFromStr = T_DETECTOR_UNKNOWN
|
|
End Select
|
|
End Function
|
|
|
|
Public Function DetectorToStr(iType As TDetector) As String
|
|
Select Case iType
|
|
Case T_DETECTOR_UNKNOWN: DetectorToStr = "Íåîïðåäåëåííàÿ"
|
|
Case T_DETECTOR_DATE: DetectorToStr = "Äàòà"
|
|
Case T_DETECTOR_ACTION: DetectorToStr = "Äåéñòâèå"
|
|
Case T_DETECTOR_LIST: DetectorToStr = "Ñïèñîê ñëîâ"
|
|
Case T_DETECTOR_REGEX: DetectorToStr = "RegExp"
|
|
Case T_DETECTOR_MORPHO: DetectorToStr = "Ìîðôîëîãèÿ"
|
|
Case T_DETECTOR_NPA: DetectorToStr = "ÍÏÀ"
|
|
Case T_DETECTOR_BASIC_NER: DetectorToStr = "Èì. ñóùíîñòè"
|
|
End Select
|
|
End Function
|