Mercurial > hg-old > index.cgi

comparison src/expr.c @ 14:b28d7cb60779

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkpoint
author lost
date Thu, 23 Oct 2008 02:44:07 +0000
parents 05d4115b4860
children 1f598d89b9b0
comparison
equal deleted inserted replaced
13:05d4115b4860 14:b28d7cb60779
21 /* 21 /*
22 This file contains implementations associated with the expression evaluator 22 This file contains implementations associated with the expression evaluator
23 used by LWASM. 23 used by LWASM.
24 24
25 */ 25 */
26
27 #include <malloc.h>
28
29 #define __expr_c_seen__
30 #include "expr.h"
31
32 LWVAL *lwval_construct_int(int value)
33 {
34 LWVAL *v;
35
36 v = malloc(sizeof(LWVAL));
37 if (!v)
38 return NULL;
39
40 v -> lwval_type = LWVAL_TYPE_INT;
41 v -> dt.lwval_int = value;
42
43 return v;
44 }
45
46 void lwval_destroy(LWVAL *value)
47 {
48 if (value)
49 free(value);
50 }
51
52 // v1 + v2 -> v3, return v3
53 LWVAL *lwval_add(LWVAL *v1, LWVAL *v2, LWVAL *v3)
54 {
55 }
56
57 // v1 - v2 -> v3, return v3
58 LWVAL *lwval_sub(LWVAL *v1, LWVAL *v2, LWVAL *v3)
59 {
60 }
61
62 // v1 * v2 -> v3, return v3
63 LWVAL *lwval_mul(LWVAL *v1, LWVAL *v2, LWVAL *v3)
64 {
65 }
66
67 // v1 / v2 -> v3, return v3
68 LWVAL *lwval_div(LWVAL *v1, LWVAL *v2, LWVAL *v3)
69 {
70 }
71
72 // v1 % v2 -> v3, return v3
73 LWVAL *lwval_mod(LWVAL *v1, LWVAL *v2, LWVAL *v3)
74 {
75 }