1 #Region "Microsoft.VisualBasic::8ddd40304d5281d706a88f0a9ff9381c, Microsoft.VisualBasic.Core\Scripting\TokenIcer\ParserCommon.vb"
2
3     ' Author:
4     
5     '       asuka (amethyst.asuka@gcmodeller.org)
6     '       xie (genetics@smrucc.org)
7     '       xieguigang (xie.guigang@live.com)
8     
9     ' Copyright (c) 2018 GPL3 Licensed
10     
11     
12     ' GNU GENERAL PUBLIC LICENSE (GPL3)
13     
14     
15     ' This program is free software: you can redistribute it and/or modify
16     ' it under the terms of the GNU General Public License as published by
17     ' the Free Software Foundation, either version 3 of the License, or
18     ' (at your option) any later version.
19     
20     ' This program is distributed in the hope that it will be useful,
21     ' but WITHOUT ANY WARRANTY; without even the implied warranty of
22     ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23     ' GNU General Public License for more details.
24     
25     ' You should have received a copy of the GNU General Public License
26     ' along with this program. If not, see <http://www.gnu.org/licenses/>.
27
28
29
30     ' /********************************************************************************/
31
32     ' Summaries:
33
34     '     Module ParserCommon
35     
36     '         Function: [As], [CType], [TryCast], GetCodeComment, GetTokens
37     '                   StartEscaping, TokenParser
38     
39     
40     ' /********************************************************************************/
41
42 #End Region
43
44 Imports System.Runtime.CompilerServices
45 Imports Microsoft.VisualBasic.Language
46
47 Namespace Scripting.TokenIcer
48
49     ''' <summary>
50     ''' Generally expression parser codes
51     ''' </summary>
52     Public Module ParserCommon
53
54         ''' <summary>
55         ''' 当前的token对象之中是否是转义的起始,即当前的token之中的最后一个符号是否是转移符<paramref name="escape"/>?
56         ''' </summary>
57         ''' <param name="buffer"></param>
58         ''' <param name="escape"></param>
59         ''' <returns></returns>
60         <Extension>
61         Public Function StartEscaping(buffer As List(Of Char), Optional escape As Char = "\"c) As Boolean
62             If buffer.IsNullOrEmpty Then
63                 Return False
64             Else
65                 Return buffer.Last = escape
66             End If
67         End Function
68
69         ''' <summary>
70         ''' 假若返回来的是空字符串,则说明不是注释行
71         ''' </summary>
72         ''' <param name="line$"></param>
73         ''' <param name="prefix$">The prefix of the code comment character/string</param>
74         ''' <returns></returns>
75         <Extension>
76         Public Function GetCodeComment(line$, ParamArray prefix$()) As String
77             Dim code As String = Trim(line)
78
79             For Each s As String In prefix
80                 If InStr(code, s, CompareMethod.Text) = 1 Then
81                     Return Mid(code, s.Length)
82                 End If
83             Next
84
85             Return Nothing
86         End Function
87
88         <Extension>
89         Public Function GetTokens(Of Tokens As IComparable)(parser As TokenParser(Of Tokens), expr As StringAs Token(Of Tokens)()
90             Dim lstToken As New List(Of Token(Of Tokens))
91             Dim tmp As New Value(Of Token(Of Tokens))
92
93             parser.InputString = expr
94             Do While Not (tmp = parser.GetToken) Is Nothing
95                 Call lstToken.Add(+tmp)
96             Loop
97
98             Return lstToken.ToArray
99         End Function
100
101         ''' <summary>
102         ''' 
103         ''' </summary>
104         ''' <typeparam name="Tokens"></typeparam>
105         ''' <param name="parser"></param>
106         ''' <param name="expr">表达式字符串</param>
107         ''' <param name="stackT"></param>
108         ''' <returns></returns>
109         <Extension>
110         Public Function TokenParser(Of Tokens As IComparable)(parser As TokenParser(Of Tokens),
111                                                expr$,
112                                                stackT As StackTokens(Of Tokens)) As Func(Of Tokens)
113
114             Dim lstToken As Token(Of Tokens)() = parser.GetTokens(expr)
115             Dim whiteSpace As Tokens = stackT.WhiteSpace
116             Dim source As Token(Of Tokens)() = LinqAPI.Exec(Of Token(Of Tokens)) <=
117  _
118                 From x As Token(Of Tokens)
119                 In lstToken
120                 Where Not stackT.Equals(x.name, whiteSpace)
121                 Select x
122
123             Dim func As Func(Of Tokens) =
124                 StackParser.Parsing(Of Tokens)(source, stackT)
125             Return func
126         End Function
127
128         ''' <summary>
129         ''' Dynamics casting the token value expression as target type object.
130         ''' </summary>
131         ''' <typeparam name="Tokens"></typeparam>
132         ''' <typeparam name="T"></typeparam>
133         ''' <param name="x"></param>
134         ''' <returns></returns>
135         <Extension> Public Function [As](Of Tokens As IComparable, T)(x As Token(Of Tokens)) As T
136             Dim obj As T = InputHandler.CTypeDynamic(Of T)(x.Value)
137             Return obj
138         End Function
139
140         ''' <summary>
141         ''' Dynamics casting the token value expression as target type object.
142         ''' </summary>
143         ''' <typeparam name="Tokens"></typeparam>
144         ''' <param name="x"></param>
145         ''' <param name="type"></param>
146         ''' <returns></returns>
147         <Extension> Public Function [CType](Of Tokens As IComparable)(x As Token(Of Tokens), type As Type) As Object
148             Dim obj As Object = InputHandler.CTypeDynamic(x.Value, type)
149             Return obj
150         End Function
151
152         ''' <summary>
153         ''' Try cast the token value to a .NET object based on the token type name.
154         ''' </summary>
155         ''' <typeparam name="Tokens"></typeparam>
156         ''' <param name="x"></param>
157         ''' <returns></returns>
158         <Extension> Public Function [TryCast](Of Tokens As IComparable)(x As Token(Of Tokens)) As Object
159             Dim typeName As String = Scripting.ToString(x.name)
160             Dim type As New Value(Of Type)
161
162             If type = Scripting.GetType(typeName, FalseIs Nothing Then
163                 Return x.Value
164             Else
165                 Return CTypeDynamic(x.Value, +type)
166             End If
167         End Function
168     End Module
169 End Namespace