1	#Region "Microsoft.VisualBasic::2803be39c8bca883c581fee23cecb813, Microsoft.VisualBasic.Core\Scripting\TokenIcer\Prefix.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 Prefix
35	'
36	'
37	'         Enum MathTokens
38	'
39	'
40	'
41	'
42	'
43	'
44	'     Properties: MathParser
45	'
46	'     Function: __getMathParser, IsScientificNotation, MathExpression, MathParserHash
47	'
48	'
49	' /********************************************************************************/
50
51	#End Region
52
53	Imports System.Runtime.CompilerServices
54	Imports System.Text.RegularExpressions
55	Imports Microsoft.VisualBasic.Scripting.Runtime
56
57	Namespace Scripting.TokenIcer
58
59	''' <summary>
60	''' 预定义的一些脚本的解析程序
61	''' </summary>
62	Public Module Prefix
63
64	Public Const undefined$ = NameOf(MathTokens.UNDEFINED)
65
66	' This is our token enumeration. It holds every token defined in the grammar
67	''' <summary>
68	''' Tokens is an enumeration of all possible token values.
69	''' </summary>
70	Public Enum MathTokens
71	UNDEFINED = 0
72	CallFunc = 1
73	Float = 2
74	Factorial = 3
75	[Integer] = 4
76	ArrayType = 5
77	ParamDeli = 6
78	WhiteSpace = 7
79	[Let] = 8
80	Equals = 9
81	LPair = 10
82	RPair = 11
83	Asterisk = 12
84	Slash = 13
85	Plus = 14
86	Minus = 15
87	Power = 16
88	[Mod] = 17
89	Pretend = 18
90	[And] = 19
91	[Not] = 20
92	[Or] = 21
93	var = 22
94	varRef = 23
95	constRef = 24
96	End Enum
97
98	ReadOnly _mathStack As New StackTokens(Of MathTokens)(Function(a, b) a = b) With {
99	.LPair = MathTokens.LPair,
100	.ParamDeli = MathTokens.ParamDeli,
101	.Pretend = MathTokens.Pretend,
102	.RPair = MathTokens.RPair,
103	.WhiteSpace = MathTokens.WhiteSpace
104	}
105
106	Public Function MathExpression(expr As String) As Func(Of MathTokens)
107	SyncLock MathParser
108	Return MathParser.TokenParser(expr, _mathStack)
109	End SyncLock
110	End Function
111
112	Public ReadOnly Property MathParser As TokenParser(Of MathTokens) =
113	__getMathParser()
114
115	Private Function __getMathParser() As TokenParser(Of MathTokens)
116	Return New TokenParser(Of MathTokens)(MathParserHash, MathTokens.UNDEFINED)
117	End Function
118
119	''' <summary>
120	''' These lines add each grammar rule to the dictionary
121	''' </summary>
122	''' <returns></returns>
123	Public Function MathParserHash() As Dictionary(Of MathTokens, String)
124	Dim tokens As New Dictionary(Of MathTokens, String)
125
126	tokens.Add(MathTokens.CallFunc, "->\s*[a-zA-Z_][a-zA-Z0-9_]*")
127	tokens.Add(MathTokens.Float, "[0-9]+\.+[0-9]+")
128	tokens.Add(MathTokens.Factorial, "[0-9]+!")
129	tokens.Add(MathTokens.[Integer], "[0-9]+")
130	tokens.Add(MathTokens.ArrayType, "[a-zA-Z_][a-zA-Z0-9_]*\(\)")
131	tokens.Add(MathTokens.ParamDeli, ",")
132	tokens.Add(MathTokens.WhiteSpace, "[ \t]+")
133	tokens.Add(MathTokens.[Let], "[Ll][Ee][Tt]")
134	tokens.Add(MathTokens.Equals, "=")
135	tokens.Add(MathTokens.LPair, "\(")
136	tokens.Add(MathTokens.RPair, "\)")
137	tokens.Add(MathTokens.Asterisk, "\*")
138	tokens.Add(MathTokens.Slash, "\")
139	tokens.Add(MathTokens.Plus, "\+")
140	tokens.Add(MathTokens.Minus, "\-")
141	tokens.Add(MathTokens.Power, "\^")
142	tokens.Add(MathTokens.[Mod], "%")
143	tokens.Add(MathTokens.Pretend, "Pretend")
144	tokens.Add(MathTokens.[And], "[aA][nN][dD]")
145	tokens.Add(MathTokens.[Not], "[nN][oO][tT]")
146	tokens.Add(MathTokens.[Or], "[oO][rR]")
147	tokens.Add(MathTokens.var, "[a-zA-Z_][a-zA-Z0-9_]*")
148	tokens.Add(MathTokens.varRef, "\$[a-zA-Z0-9_]*")
149	tokens.Add(MathTokens.constRef, "[&][a-zA-Z0-9_]*")
150
151	Return tokens
152	End Function
153
154	''' <summary>
155	''' 这个字符串表达式是否是科学记数法的数字？
156	''' </summary>
157	''' <param name="s$"></param>
158	''' <returns></returns>
159	<Extension>
160	Public Function IsScientificNotation(s$) As Boolean
161	Dim n$ = Regex.Match(s, ScientificNotation, RegexOptions.IgnoreCase).Value
162	Dim yes As Boolean = (n = s)
163	Return yes
164	End Function
165	End Module
166	End Namespace