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 "<22><><EFBFBD><EFBFBD>": DetectorFromStr = T_DETECTOR_DATE
|
|||
|
|
Case "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>": DetectorFromStr = T_DETECTOR_ACTION
|
|||
|
|
Case "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>": DetectorFromStr = T_DETECTOR_LIST
|
|||
|
|
Case "RegExp": DetectorFromStr = T_DETECTOR_REGEX
|
|||
|
|
Case "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>": DetectorFromStr = T_DETECTOR_MORPHO
|
|||
|
|
Case "<22><><EFBFBD>": DetectorFromStr = T_DETECTOR_NPA
|
|||
|
|
Case "<22><>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>": 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 = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
Case T_DETECTOR_DATE: DetectorToStr = "<22><><EFBFBD><EFBFBD>"
|
|||
|
|
Case T_DETECTOR_ACTION: DetectorToStr = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
Case T_DETECTOR_LIST: DetectorToStr = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
|||
|
|
Case T_DETECTOR_REGEX: DetectorToStr = "RegExp"
|
|||
|
|
Case T_DETECTOR_MORPHO: DetectorToStr = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
Case T_DETECTOR_NPA: DetectorToStr = "<22><><EFBFBD>"
|
|||
|
|
Case T_DETECTOR_BASIC_NER: DetectorToStr = "<22><>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
End Select
|
|||
|
|
End Function
|