文法生成オブジェクト
サイバーキャンパス「鷹山」
の単元です。
小単元
概要
デリゲードはそれ以上、意味ツリーに分解できないとき、解析終了と見なして真を返します。文章内に参照オブジェクトを見つけたときはデータベース参照オブジェクト1)を埋め込みます。
Public Delegate Function Disassemble(ByVal p As Phrase) As Boolean
Public DisassembleFuncArray(32) As Disassemble
Public Sub New()
Me.tblName = "syntaxProduction"
Me.szDataKeyFieldName = "nProductionID"
Me.szDataTextFieldName = "szCaption"
Me.ObjectTitle = "文法"
Me.DisassembleFuncArray(0) = AddressOf NoDisassemble
Me.DisassembleFuncArray(1) = AddressOf NoDisassemble
Me.DisassembleFuncArray(2) = AddressOf NoDisassemble
Me.DisassembleFuncArray(3) = AddressOf NoDisassemble
Me.DisassembleFuncArray(4) = AddressOf Kakko
Me.DisassembleFuncArray(5) = AddressOf SetRef
Me.DisassembleFuncArray(6) = AddressOf SetKeyword
Me.DisassembleFuncArray(7) = AddressOf Protocol '句→句＋プロトコル指定ＵＲＩ＋句
Me.DisassembleFuncArray(8) = AddressOf Sep '句→句＋区切り文字＋句
Me.DisassembleFuncArray(9) = AddressOf Wo '句→名詞句＋を＋動詞句
Me.DisassembleFuncArray(10) = AddressOf Num '句→名詞句＋数値句＋動詞句
Me.DisassembleFuncArray(11) = AddressOf Katakana '句→名詞句＋カタカナ句＋動詞句
Me.DisassembleFuncArray(12) = AddressOf NoDisassemble '予備
Me.DisassembleFuncArray(13) = AddressOf NoDisassemble '予備
Me.DisassembleFuncArray(14) = AddressOf NoDisassemble '予備
Me.DisassembleFuncArray(15) = AddressOf NoDisassemble '予備
Me.DisassembleFuncArray(16) = AddressOf LookUpKeyword '句→辞書にある語
Me.DisassembleFuncArray(17) = AddressOf LookUpLeftKeyword '句→辞書にある語＋句
Me.DisassembleFuncArray(18) = AddressOf LookUpLeftParticle '句→辞書にある語＋句
End Sub
