开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 游戏引擎 > 查看源码
lscript_typecheck.cpp
资源名称：snowglobe-src-viewer-2.0.0-r0.tar.gz　[点击查看]
上传用户：king477883
上传日期：2021-03-01
资源大小：9553k
文件大小：21k
源码类别：

游戏引擎

开发平台：

C++ Builder

lscript_typecheck.cpp：源码内容
  1. /** 
  2.  * @file lscript_typecheck.cpp
  3.  * @brief typechecks script
  4.  *
  5.  * $LicenseInfo:firstyear=2002&license=viewergpl$
  6.  * 
  7.  * Copyright (c) 2002-2010, Linden Research, Inc.
  8.  * 
  9.  * Second Life Viewer Source Code
  10.  * The source code in this file ("Source Code") is provided by Linden Lab
  11.  * to you under the terms of the GNU General Public License, version 2.0
  12.  * ("GPL"), unless you have obtained a separate licensing agreement
  13.  * ("Other License"), formally executed by you and Linden Lab.  Terms of
  14.  * the GPL can be found in doc/GPL-license.txt in this distribution, or
  15.  * online at http://secondlifegrid.net/programs/open_source/licensing/gplv2
  16.  * 
  17.  * There are special exceptions to the terms and conditions of the GPL as
  18.  * it is applied to this Source Code. View the full text of the exception
  19.  * in the file doc/FLOSS-exception.txt in this software distribution, or
  20.  * online at
  21.  * http://secondlifegrid.net/programs/open_source/licensing/flossexception
  22.  * 
  23.  * By copying, modifying or distributing this software, you acknowledge
  24.  * that you have read and understood your obligations described above,
  25.  * and agree to abide by those obligations.
  26.  * 
  27.  * ALL LINDEN LAB SOURCE CODE IS PROVIDED "AS IS." LINDEN LAB MAKES NO
  28.  * WARRANTIES, EXPRESS, IMPLIED OR OTHERWISE, REGARDING ITS ACCURACY,
  29.  * COMPLETENESS OR PERFORMANCE.
  30.  * $/LicenseInfo$
  31.  */
  33. #include "linden_common.h"
  35. #include "lscript_tree.h"
  37. /*
  38.   LScript automatic type casting
  40.   LST_INTEGER -> LST_INTEGER
  42.   LST_FLOATINGPOINT -> LST_FLOATINGPOINT
  43.   LST_INTEGER -> LST_FLOATINGPOINT
  45.   LST_FLOATINGPOINT -> LST_STRING
  46.   LST_INTEGER -> LST_STRING
  47.   LST_STRING -> LST_STRING
  48.   LST_VECTOR -> LST_STRING
  49.   LST_QUATERNION -> LST_STRING
  50.   LST_LIST -> LST_STRING
  52.   LST_VECTOR -> LST_VECTOR
  53.   
  54.   LST_QUATERNION -> LST_QUATERNION
  55.   
  56.   LST_FLOATINGPOINT -> LST_LIST
  57.   LST_INTEGER -> LST_LIST
  58.   LST_STRING -> LST_LIST
  59.   LST_VECTOR -> LST_LIST
  60.   LST_QUATERNION -> LST_LIST
  61.   LST_LIST -> LST_LIST
  62. */
  64. LSCRIPTType implicit_casts(LSCRIPTType left_side, LSCRIPTType right_side)
  65. {
  66. switch(left_side)
  67. {
  68. // shouldn't be doing an operation on void types
  69. case LST_NULL:
  70. switch(right_side)
  71. {
  72. case LST_NULL:
  73. return LST_NULL;
  74. default:
  75. return LST_UNDEFINED;
  76. }
  77. // shouldn't be doing an operation on undefined types
  78. case LST_UNDEFINED:
  79. return LST_UNDEFINED;
  80. // only integers can become integers
  81. case LST_INTEGER:
  82. switch(right_side)
  83. {
  84. case LST_INTEGER:
  85. return LST_INTEGER;
  86. default:
  87. return LST_UNDEFINED;
  88. }
  89. // only integers and floats can become floats
  90. case LST_FLOATINGPOINT:
  91. switch(right_side)
  92. {
  93. case LST_INTEGER:
  94. case LST_FLOATINGPOINT:
  95. return LST_FLOATINGPOINT;
  96. default:
  97. return LST_UNDEFINED;
  98. }
  99. // only strings and keys can become strings
  100. case LST_STRING:
  101. switch(right_side)
  102. {
  103. case LST_STRING:
  104. case LST_KEY:
  105. return LST_STRING;
  106. default:
  107. return LST_UNDEFINED;
  108. }
  109. // only strings and keys can become keys
  110. case LST_KEY:
  111. switch(right_side)
  112. {
  113. case LST_STRING:
  114. case LST_KEY:
  115. return LST_KEY;
  116. default:
  117. return LST_UNDEFINED;
  118. }
  119. // only vectors can become vectors
  120. case LST_VECTOR:
  121. switch(right_side)
  122. {
  123. case LST_VECTOR:
  124. return LST_VECTOR;
  125. default:
  126. return LST_UNDEFINED;
  127. }
  128. // only quaternions can become quaternions
  129. case LST_QUATERNION:
  130. switch(right_side)
  131. {
  132. case LST_QUATERNION:
  133. return LST_QUATERNION;
  134. default:
  135. return LST_UNDEFINED;
  136. }
  137. // only lists can become lists
  138. case LST_LIST:
  139. switch(right_side)
  140. {
  141. case LST_LIST:
  142. return LST_LIST;
  143. default:
  144. return LST_UNDEFINED;
  145. }
  146. default:
  147. return LST_UNDEFINED;
  148. }
  149. }
  151. LSCRIPTType promote(LSCRIPTType left_side, LSCRIPTType right_side)
  152. {
  153. LSCRIPTType type;
  154. type = implicit_casts(left_side, right_side);
  155. if (type != LST_UNDEFINED)
  156. {
  157. return type;
  158. }
  159. type = implicit_casts(right_side, left_side);
  160. if (type != LST_UNDEFINED)
  161. {
  162. return type;
  163. }
  164. return LST_UNDEFINED;
  165. }
  167. BOOL legal_assignment(LSCRIPTType left_side, LSCRIPTType right_side)
  168. {
  169. // this is to prevent cascading errors
  170. if (  (left_side == LST_UNDEFINED)
  171. ||(right_side == LST_UNDEFINED))
  172. {
  173. return TRUE;
  174. }
  176. if (implicit_casts(left_side, right_side) != LST_UNDEFINED)
  177. {
  178. return TRUE;
  179. }
  180. else
  181. {
  182. return FALSE;
  183. }
  184. }
  186. BOOL legal_casts(LSCRIPTType cast, LSCRIPTType base)
  187. {
  188. switch(base)
  189. {
  190. // shouldn't be doing an operation on void types
  191. case LST_NULL:
  192. return FALSE;
  193. // shouldn't be doing an operation on undefined types
  194. case LST_UNDEFINED:
  195. return FALSE;
  196. case LST_INTEGER:
  197. switch(cast)
  198. {
  199. case LST_INTEGER:
  200. case LST_FLOATINGPOINT:
  201. case LST_STRING:
  202. case LST_LIST:
  203. return TRUE;
  204. break;
  205. default:
  206. return FALSE;
  207. break;
  208. }
  209. break;
  210. case LST_FLOATINGPOINT:
  211. switch(cast)
  212. {
  213. case LST_INTEGER:
  214. case LST_FLOATINGPOINT:
  215. case LST_STRING:
  216. case LST_LIST:
  217. return TRUE;
  218. break;
  219. default:
  220. return FALSE;
  221. break;
  222. }
  223. break;
  224. case LST_STRING:
  225. switch(cast)
  226. {
  227. case LST_INTEGER:
  228. case LST_FLOATINGPOINT:
  229. case LST_STRING:
  230. case LST_KEY:
  231. case LST_VECTOR:
  232. case LST_QUATERNION:
  233. case LST_LIST:
  234. return TRUE;
  235. break;
  236. default:
  237. return FALSE;
  238. break;
  239. }
  240. break;
  241. case LST_KEY:
  242. switch(cast)
  243. {
  244. case LST_STRING:
  245. case LST_KEY:
  246. case LST_LIST:
  247. return TRUE;
  248. break;
  249. default:
  250. return FALSE;
  251. break;
  252. }
  253. break;
  254. case LST_VECTOR:
  255. switch(cast)
  256. {
  257. case LST_VECTOR:
  258. case LST_STRING:
  259. case LST_LIST:
  260. return TRUE;
  261. break;
  262. default:
  263. return FALSE;
  264. break;
  265. }
  266. break;
  267. case LST_QUATERNION:
  268. switch(cast)
  269. {
  270. case LST_QUATERNION:
  271. case LST_STRING:
  272. case LST_LIST:
  273. return TRUE;
  274. break;
  275. default:
  276. return FALSE;
  277. break;
  278. }
  279. break;
  280. // lists can only be cast to lists and strings
  281. case LST_LIST:
  282. switch(cast)
  283. {
  284. case LST_LIST:
  285. case LST_STRING:
  286. return TRUE;
  287. break;
  288. default:
  289. return FALSE;
  290. break;
  291. }
  292. break;
  293. default:
  294. return FALSE;
  295. break;
  296. }
  297. }
  299. LSCRIPTType gSupportedExpressionArray[LET_EOF][LST_EOF][LST_EOF];
  301. void init_supported_expressions(void)
  302. {
  303. S32 i, j, k;
  304. // zero out, then set the ones that matter
  305. for (i = 0; i < LET_EOF; i++)
  306. {
  307. for (j = 0; j < LST_EOF; j++)
  308. {
  309. for (k = 0; k < LST_EOF; k++)
  310. {
  311. gSupportedExpressionArray[i][j][k] = LST_NULL;
  312. }
  313. }
  314. }
  316. // LET_ASSIGNMENT
  317. gSupportedExpressionArray[LET_ASSIGNMENT][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  318. gSupportedExpressionArray[LET_ASSIGNMENT][LST_FLOATINGPOINT][LST_INTEGER] = LST_FLOATINGPOINT;
  319. gSupportedExpressionArray[LET_ASSIGNMENT][LST_INTEGER][LST_FLOATINGPOINT] = LST_FLOATINGPOINT;
  320. gSupportedExpressionArray[LET_ASSIGNMENT][LST_FLOATINGPOINT][LST_FLOATINGPOINT] = LST_FLOATINGPOINT;
  321. gSupportedExpressionArray[LET_ASSIGNMENT][LST_STRING][LST_STRING] = LST_STRING;
  322. gSupportedExpressionArray[LET_ASSIGNMENT][LST_KEY][LST_KEY] = LST_KEY;
  323. gSupportedExpressionArray[LET_ASSIGNMENT][LST_VECTOR][LST_VECTOR] = LST_VECTOR;
  324. gSupportedExpressionArray[LET_ASSIGNMENT][LST_QUATERNION][LST_QUATERNION] = LST_QUATERNION;
  325. gSupportedExpressionArray[LET_ASSIGNMENT][LST_LIST][LST_INTEGER] = LST_LIST;
  326. gSupportedExpressionArray[LET_ASSIGNMENT][LST_LIST][LST_FLOATINGPOINT] = LST_LIST;
  327. gSupportedExpressionArray[LET_ASSIGNMENT][LST_LIST][LST_STRING] = LST_LIST;
  328. gSupportedExpressionArray[LET_ASSIGNMENT][LST_LIST][LST_KEY] = LST_LIST;
  329. gSupportedExpressionArray[LET_ASSIGNMENT][LST_LIST][LST_VECTOR] = LST_LIST;
  330. gSupportedExpressionArray[LET_ASSIGNMENT][LST_LIST][LST_QUATERNION] = LST_LIST;
  331. gSupportedExpressionArray[LET_ASSIGNMENT][LST_LIST][LST_LIST] = LST_LIST;
  333. // LET_ADD_ASSIGN
  334. gSupportedExpressionArray[LET_ADD_ASSIGN][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  335. gSupportedExpressionArray[LET_ADD_ASSIGN][LST_FLOATINGPOINT][LST_INTEGER] = LST_FLOATINGPOINT;
  336. gSupportedExpressionArray[LET_ADD_ASSIGN][LST_FLOATINGPOINT][LST_FLOATINGPOINT] = LST_FLOATINGPOINT;
  337. gSupportedExpressionArray[LET_ADD_ASSIGN][LST_STRING][LST_STRING] = LST_STRING;
  338. gSupportedExpressionArray[LET_ADD_ASSIGN][LST_VECTOR][LST_VECTOR] = LST_VECTOR;
  339. gSupportedExpressionArray[LET_ADD_ASSIGN][LST_QUATERNION][LST_QUATERNION] = LST_QUATERNION;
  340. gSupportedExpressionArray[LET_ADD_ASSIGN][LST_LIST][LST_INTEGER] = LST_LIST;
  341. gSupportedExpressionArray[LET_ADD_ASSIGN][LST_LIST][LST_FLOATINGPOINT] = LST_LIST;
  342. gSupportedExpressionArray[LET_ADD_ASSIGN][LST_LIST][LST_STRING] = LST_LIST;
  343. gSupportedExpressionArray[LET_ADD_ASSIGN][LST_LIST][LST_KEY] = LST_LIST;
  344. gSupportedExpressionArray[LET_ADD_ASSIGN][LST_LIST][LST_VECTOR] = LST_LIST;
  345. gSupportedExpressionArray[LET_ADD_ASSIGN][LST_LIST][LST_QUATERNION] = LST_LIST;
  346. gSupportedExpressionArray[LET_ADD_ASSIGN][LST_LIST][LST_LIST] = LST_LIST;
  348. // LET_SUB_ASSIGN
  349. gSupportedExpressionArray[LET_SUB_ASSIGN][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  350. gSupportedExpressionArray[LET_SUB_ASSIGN][LST_FLOATINGPOINT][LST_INTEGER] = LST_FLOATINGPOINT;
  351. gSupportedExpressionArray[LET_SUB_ASSIGN][LST_FLOATINGPOINT][LST_FLOATINGPOINT] = LST_FLOATINGPOINT;
  352. gSupportedExpressionArray[LET_SUB_ASSIGN][LST_VECTOR][LST_VECTOR] = LST_VECTOR;
  353. gSupportedExpressionArray[LET_SUB_ASSIGN][LST_QUATERNION][LST_QUATERNION] = LST_QUATERNION;
  355. // LET_MUL_ASSIGN
  356. gSupportedExpressionArray[LET_MUL_ASSIGN][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  357. gSupportedExpressionArray[LET_MUL_ASSIGN][LST_FLOATINGPOINT][LST_INTEGER] = LST_FLOATINGPOINT;
  358. gSupportedExpressionArray[LET_MUL_ASSIGN][LST_INTEGER][LST_FLOATINGPOINT] = LST_FLOATINGPOINT;
  359. gSupportedExpressionArray[LET_MUL_ASSIGN][LST_FLOATINGPOINT][LST_FLOATINGPOINT] = LST_FLOATINGPOINT;
  360. gSupportedExpressionArray[LET_MUL_ASSIGN][LST_VECTOR][LST_INTEGER] = LST_VECTOR;
  361. //gSupportedExpressionArray[LET_MUL_ASSIGN][LST_INTEGER][LST_VECTOR] = LST_VECTOR;
  362. gSupportedExpressionArray[LET_MUL_ASSIGN][LST_VECTOR][LST_FLOATINGPOINT] = LST_VECTOR;
  363. //gSupportedExpressionArray[LET_MUL_ASSIGN][LST_FLOATINGPOINT][LST_VECTOR] = LST_VECTOR;
  364. //gSupportedExpressionArray[LET_MUL_ASSIGN][LST_VECTOR][LST_VECTOR] = LST_FLOATINGPOINT;
  365. gSupportedExpressionArray[LET_MUL_ASSIGN][LST_VECTOR][LST_QUATERNION] = LST_VECTOR;
  366. gSupportedExpressionArray[LET_MUL_ASSIGN][LST_QUATERNION][LST_QUATERNION] = LST_QUATERNION;
  368. // LET_DIV_ASSIGN
  369. gSupportedExpressionArray[LET_DIV_ASSIGN][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  370. gSupportedExpressionArray[LET_DIV_ASSIGN][LST_FLOATINGPOINT][LST_INTEGER] = LST_FLOATINGPOINT;
  371. gSupportedExpressionArray[LET_DIV_ASSIGN][LST_FLOATINGPOINT][LST_FLOATINGPOINT] = LST_FLOATINGPOINT;
  372. gSupportedExpressionArray[LET_DIV_ASSIGN][LST_VECTOR][LST_INTEGER] = LST_VECTOR;
  373. gSupportedExpressionArray[LET_DIV_ASSIGN][LST_VECTOR][LST_FLOATINGPOINT] = LST_VECTOR;
  374. gSupportedExpressionArray[LET_DIV_ASSIGN][LST_VECTOR][LST_QUATERNION] = LST_VECTOR;
  375. gSupportedExpressionArray[LET_DIV_ASSIGN][LST_QUATERNION][LST_QUATERNION] = LST_QUATERNION;
  377. // LET_MOD_ASSIGN
  378. gSupportedExpressionArray[LET_MOD_ASSIGN][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  379. gSupportedExpressionArray[LET_MOD_ASSIGN][LST_VECTOR][LST_VECTOR] = LST_VECTOR;
  381. // LET_EQUALITY
  382. gSupportedExpressionArray[LET_EQUALITY][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  383. gSupportedExpressionArray[LET_EQUALITY][LST_INTEGER][LST_FLOATINGPOINT] = LST_INTEGER;
  384. gSupportedExpressionArray[LET_EQUALITY][LST_FLOATINGPOINT][LST_INTEGER] = LST_INTEGER;
  385. gSupportedExpressionArray[LET_EQUALITY][LST_FLOATINGPOINT][LST_FLOATINGPOINT] = LST_INTEGER;
  386. gSupportedExpressionArray[LET_EQUALITY][LST_STRING][LST_STRING] = LST_INTEGER;
  387. gSupportedExpressionArray[LET_EQUALITY][LST_STRING][LST_KEY] = LST_INTEGER;
  388. gSupportedExpressionArray[LET_EQUALITY][LST_KEY][LST_STRING] = LST_INTEGER;
  389. gSupportedExpressionArray[LET_EQUALITY][LST_KEY][LST_KEY] = LST_INTEGER;
  390. gSupportedExpressionArray[LET_EQUALITY][LST_VECTOR][LST_VECTOR] = LST_INTEGER;
  391. gSupportedExpressionArray[LET_EQUALITY][LST_QUATERNION][LST_QUATERNION] = LST_INTEGER;
  392. gSupportedExpressionArray[LET_EQUALITY][LST_LIST][LST_LIST] = LST_INTEGER;
  394. // LET_NOT_EQUALS
  395. gSupportedExpressionArray[LET_NOT_EQUALS][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  396. gSupportedExpressionArray[LET_NOT_EQUALS][LST_INTEGER][LST_FLOATINGPOINT] = LST_INTEGER;
  397. gSupportedExpressionArray[LET_NOT_EQUALS][LST_FLOATINGPOINT][LST_INTEGER] = LST_INTEGER;
  398. gSupportedExpressionArray[LET_NOT_EQUALS][LST_FLOATINGPOINT][LST_FLOATINGPOINT] = LST_INTEGER;
  399. gSupportedExpressionArray[LET_NOT_EQUALS][LST_STRING][LST_STRING] = LST_INTEGER;
  400. gSupportedExpressionArray[LET_NOT_EQUALS][LST_STRING][LST_KEY] = LST_INTEGER;
  401. gSupportedExpressionArray[LET_NOT_EQUALS][LST_KEY][LST_STRING] = LST_INTEGER;
  402. gSupportedExpressionArray[LET_NOT_EQUALS][LST_KEY][LST_KEY] = LST_INTEGER;
  403. gSupportedExpressionArray[LET_NOT_EQUALS][LST_VECTOR][LST_VECTOR] = LST_INTEGER;
  404. gSupportedExpressionArray[LET_NOT_EQUALS][LST_QUATERNION][LST_QUATERNION] = LST_INTEGER;
  405. gSupportedExpressionArray[LET_NOT_EQUALS][LST_LIST][LST_LIST] = LST_INTEGER;
  407. // LET_LESS_EQUALS
  408. gSupportedExpressionArray[LET_LESS_EQUALS][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  409. gSupportedExpressionArray[LET_LESS_EQUALS][LST_INTEGER][LST_FLOATINGPOINT] = LST_INTEGER;
  410. gSupportedExpressionArray[LET_LESS_EQUALS][LST_FLOATINGPOINT][LST_INTEGER] = LST_INTEGER;
  411. gSupportedExpressionArray[LET_LESS_EQUALS][LST_FLOATINGPOINT][LST_FLOATINGPOINT] = LST_INTEGER;
  413. // LET_GREATER_EQUALS
  414. gSupportedExpressionArray[LET_GREATER_EQUALS][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  415. gSupportedExpressionArray[LET_GREATER_EQUALS][LST_INTEGER][LST_FLOATINGPOINT] = LST_INTEGER;
  416. gSupportedExpressionArray[LET_GREATER_EQUALS][LST_FLOATINGPOINT][LST_INTEGER] = LST_INTEGER;
  417. gSupportedExpressionArray[LET_GREATER_EQUALS][LST_FLOATINGPOINT][LST_FLOATINGPOINT] = LST_INTEGER;
  419. // LET_LESS_THAN
  420. gSupportedExpressionArray[LET_LESS_THAN][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  421. gSupportedExpressionArray[LET_LESS_THAN][LST_INTEGER][LST_FLOATINGPOINT] = LST_INTEGER;
  422. gSupportedExpressionArray[LET_LESS_THAN][LST_FLOATINGPOINT][LST_INTEGER] = LST_INTEGER;
  423. gSupportedExpressionArray[LET_LESS_THAN][LST_FLOATINGPOINT][LST_FLOATINGPOINT] = LST_INTEGER;
  425. // LET_GREATER_THAN
  426. gSupportedExpressionArray[LET_GREATER_THAN][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  427. gSupportedExpressionArray[LET_GREATER_THAN][LST_INTEGER][LST_FLOATINGPOINT] = LST_INTEGER;
  428. gSupportedExpressionArray[LET_GREATER_THAN][LST_FLOATINGPOINT][LST_INTEGER] = LST_INTEGER;
  429. gSupportedExpressionArray[LET_GREATER_THAN][LST_FLOATINGPOINT][LST_FLOATINGPOINT] = LST_INTEGER;
  431. // LET_PLUS
  432. gSupportedExpressionArray[LET_PLUS][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  433. gSupportedExpressionArray[LET_PLUS][LST_FLOATINGPOINT][LST_INTEGER] = LST_FLOATINGPOINT;
  434. gSupportedExpressionArray[LET_PLUS][LST_INTEGER][LST_FLOATINGPOINT] = LST_FLOATINGPOINT;
  435. gSupportedExpressionArray[LET_PLUS][LST_FLOATINGPOINT][LST_FLOATINGPOINT] = LST_FLOATINGPOINT;
  436. gSupportedExpressionArray[LET_PLUS][LST_STRING][LST_STRING] = LST_STRING;
  437. gSupportedExpressionArray[LET_PLUS][LST_VECTOR][LST_VECTOR] = LST_VECTOR;
  438. gSupportedExpressionArray[LET_PLUS][LST_QUATERNION][LST_QUATERNION] = LST_QUATERNION;
  439. gSupportedExpressionArray[LET_PLUS][LST_LIST][LST_INTEGER] = LST_LIST;
  440. gSupportedExpressionArray[LET_PLUS][LST_LIST][LST_FLOATINGPOINT] = LST_LIST;
  441. gSupportedExpressionArray[LET_PLUS][LST_LIST][LST_STRING] = LST_LIST;
  442. gSupportedExpressionArray[LET_PLUS][LST_LIST][LST_KEY] = LST_LIST;
  443. gSupportedExpressionArray[LET_PLUS][LST_LIST][LST_VECTOR] = LST_LIST;
  444. gSupportedExpressionArray[LET_PLUS][LST_LIST][LST_QUATERNION] = LST_LIST;
  445. gSupportedExpressionArray[LET_PLUS][LST_INTEGER][LST_LIST] = LST_LIST;
  446. gSupportedExpressionArray[LET_PLUS][LST_FLOATINGPOINT][LST_LIST] = LST_LIST;
  447. gSupportedExpressionArray[LET_PLUS][LST_STRING][LST_LIST] = LST_LIST;
  448. gSupportedExpressionArray[LET_PLUS][LST_KEY][LST_LIST] = LST_LIST;
  449. gSupportedExpressionArray[LET_PLUS][LST_VECTOR][LST_LIST] = LST_LIST;
  450. gSupportedExpressionArray[LET_PLUS][LST_QUATERNION][LST_LIST] = LST_LIST;
  451. gSupportedExpressionArray[LET_PLUS][LST_LIST][LST_LIST] = LST_LIST;
  453. // LET_MINUS
  454. gSupportedExpressionArray[LET_MINUS][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  455. gSupportedExpressionArray[LET_MINUS][LST_FLOATINGPOINT][LST_INTEGER] = LST_FLOATINGPOINT;
  456. gSupportedExpressionArray[LET_MINUS][LST_INTEGER][LST_FLOATINGPOINT] = LST_FLOATINGPOINT;
  457. gSupportedExpressionArray[LET_MINUS][LST_FLOATINGPOINT][LST_FLOATINGPOINT] = LST_FLOATINGPOINT;
  458. gSupportedExpressionArray[LET_MINUS][LST_VECTOR][LST_VECTOR] = LST_VECTOR;
  459. gSupportedExpressionArray[LET_MINUS][LST_QUATERNION][LST_QUATERNION] = LST_QUATERNION;
  461. // LET_TIMES
  462. gSupportedExpressionArray[LET_TIMES][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  463. gSupportedExpressionArray[LET_TIMES][LST_FLOATINGPOINT][LST_INTEGER] = LST_FLOATINGPOINT;
  464. gSupportedExpressionArray[LET_TIMES][LST_INTEGER][LST_FLOATINGPOINT] = LST_FLOATINGPOINT;
  465. gSupportedExpressionArray[LET_TIMES][LST_FLOATINGPOINT][LST_FLOATINGPOINT] = LST_FLOATINGPOINT;
  466. gSupportedExpressionArray[LET_TIMES][LST_VECTOR][LST_INTEGER] = LST_VECTOR;
  467. gSupportedExpressionArray[LET_TIMES][LST_INTEGER][LST_VECTOR] = LST_VECTOR;
  468. gSupportedExpressionArray[LET_TIMES][LST_VECTOR][LST_FLOATINGPOINT] = LST_VECTOR;
  469. gSupportedExpressionArray[LET_TIMES][LST_FLOATINGPOINT][LST_VECTOR] = LST_VECTOR;
  470. gSupportedExpressionArray[LET_TIMES][LST_VECTOR][LST_VECTOR] = LST_FLOATINGPOINT;
  471. gSupportedExpressionArray[LET_TIMES][LST_VECTOR][LST_QUATERNION] = LST_VECTOR;
  472. gSupportedExpressionArray[LET_TIMES][LST_QUATERNION][LST_QUATERNION] = LST_QUATERNION;
  474. // LET_DIVIDE
  475. gSupportedExpressionArray[LET_DIVIDE][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  476. gSupportedExpressionArray[LET_DIVIDE][LST_INTEGER][LST_FLOATINGPOINT] = LST_FLOATINGPOINT;
  477. gSupportedExpressionArray[LET_DIVIDE][LST_FLOATINGPOINT][LST_INTEGER] = LST_FLOATINGPOINT;
  478. gSupportedExpressionArray[LET_DIVIDE][LST_FLOATINGPOINT][LST_FLOATINGPOINT] = LST_FLOATINGPOINT;
  479. gSupportedExpressionArray[LET_DIVIDE][LST_VECTOR][LST_INTEGER] = LST_VECTOR;
  480. gSupportedExpressionArray[LET_DIVIDE][LST_VECTOR][LST_FLOATINGPOINT] = LST_VECTOR;
  481. gSupportedExpressionArray[LET_DIVIDE][LST_VECTOR][LST_QUATERNION] = LST_VECTOR;
  482. gSupportedExpressionArray[LET_DIVIDE][LST_QUATERNION][LST_QUATERNION] = LST_QUATERNION;
  484. // LET_MOD
  485. gSupportedExpressionArray[LET_MOD][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  486. gSupportedExpressionArray[LET_MOD][LST_VECTOR][LST_VECTOR] = LST_VECTOR;
  488. // LET_BIT_AND
  489. gSupportedExpressionArray[LET_BIT_AND][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  491. // LET_BIT_OR
  492. gSupportedExpressionArray[LET_BIT_OR][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  494. // LET_BIT_XOR
  495. gSupportedExpressionArray[LET_BIT_XOR][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  497. // LET_BOOLEAN_AND
  498. gSupportedExpressionArray[LET_BOOLEAN_AND][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  500. // LET_BOOLEAN_OR
  501. gSupportedExpressionArray[LET_BOOLEAN_OR][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  503. // LET_SHIFT_LEFT
  504. gSupportedExpressionArray[LET_SHIFT_LEFT][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  506. // LET_SHIFT_RIGHT
  507. gSupportedExpressionArray[LET_SHIFT_RIGHT][LST_INTEGER][LST_INTEGER] = LST_INTEGER;
  509. // LET_PARENTHESIS
  510. gSupportedExpressionArray[LET_PARENTHESIS][LST_INTEGER][LST_NULL] = LST_INTEGER;
  511. gSupportedExpressionArray[LET_PARENTHESIS][LST_FLOATINGPOINT][LST_NULL] = LST_INTEGER;
  512. gSupportedExpressionArray[LET_PARENTHESIS][LST_STRING][LST_NULL] = LST_INTEGER;
  513. gSupportedExpressionArray[LET_PARENTHESIS][LST_LIST][LST_NULL] = LST_INTEGER;
  515. // LET_UNARY_MINUS
  516. gSupportedExpressionArray[LET_UNARY_MINUS][LST_INTEGER][LST_NULL] = LST_INTEGER;
  517. gSupportedExpressionArray[LET_UNARY_MINUS][LST_FLOATINGPOINT][LST_NULL] = LST_FLOATINGPOINT;
  518. gSupportedExpressionArray[LET_UNARY_MINUS][LST_VECTOR][LST_NULL] = LST_VECTOR;
  519. gSupportedExpressionArray[LET_UNARY_MINUS][LST_QUATERNION][LST_NULL] = LST_QUATERNION;
  521. // LET_BOOLEAN_NOT
  522. gSupportedExpressionArray[LET_BOOLEAN_NOT][LST_INTEGER][LST_NULL] = LST_INTEGER;
  524. // LET_BIT_NOT
  525. gSupportedExpressionArray[LET_BIT_NOT][LST_INTEGER][LST_NULL] = LST_INTEGER;
  527. // LET_PRE_INCREMENT
  528. gSupportedExpressionArray[LET_PRE_INCREMENT][LST_INTEGER][LST_NULL] = LST_INTEGER;
  529. gSupportedExpressionArray[LET_PRE_INCREMENT][LST_FLOATINGPOINT][LST_NULL] = LST_FLOATINGPOINT;
  531. // LET_PRE_DECREMENT
  532. gSupportedExpressionArray[LET_PRE_DECREMENT][LST_INTEGER][LST_NULL] = LST_INTEGER;
  533. gSupportedExpressionArray[LET_PRE_DECREMENT][LST_FLOATINGPOINT][LST_NULL] = LST_FLOATINGPOINT;
  535. // LET_POST_INCREMENT
  536. gSupportedExpressionArray[LET_POST_INCREMENT][LST_INTEGER][LST_NULL] = LST_INTEGER;
  537. gSupportedExpressionArray[LET_POST_INCREMENT][LST_FLOATINGPOINT][LST_NULL] = LST_FLOATINGPOINT;
  539. // LET_POST_DECREMENT
  540. gSupportedExpressionArray[LET_POST_DECREMENT][LST_INTEGER][LST_NULL] = LST_INTEGER;
  541. gSupportedExpressionArray[LET_POST_DECREMENT][LST_FLOATINGPOINT][LST_NULL] = LST_FLOATINGPOINT;
  542. }
  544. BOOL legal_binary_expression(LSCRIPTType &result, LSCRIPTType left_side, LSCRIPTType right_side, LSCRIPTExpressionType expression)
  545. {
  546. if (  (left_side == LST_UNDEFINED)
  547. ||(right_side == LST_UNDEFINED))
  548. {
  549. result = LST_UNDEFINED;
  550. return TRUE;
  551. }
  553. if (  (left_side == LST_NULL)
  554. ||(right_side == LST_NULL))
  555. {
  556. result = LST_UNDEFINED;
  557. return FALSE;
  558. }
  560. result = gSupportedExpressionArray[expression][left_side][right_side];
  561. if (result)
  562. return TRUE;
  563. else
  564. {
  565. result = LST_UNDEFINED;
  566. return FALSE;
  567. }
  568. }
  570. BOOL legal_unary_expression(LSCRIPTType &result, LSCRIPTType left_side, LSCRIPTExpressionType expression)
  571. {
  572. if (left_side == LST_UNDEFINED)
  573. {
  574. result = LST_UNDEFINED;
  575. return TRUE;
  576. }
  578. if (left_side == LST_NULL)
  579. {
  580. result = LST_UNDEFINED;
  581. return FALSE;
  582. }
  584. result = gSupportedExpressionArray[expression][left_side][LST_NULL];
  585. if (result)
  586. return TRUE;
  587. else
  588. {
  589. result = LST_UNDEFINED;
  590. return FALSE;
  591. }
  592. }