Changeset 074444f in mainline for uspace/app/sbi/src/p_expr.c

Timestamp:

2010-04-10T11:15:33Z (15 years ago)

Author:

Jiri Svoboda <jiri@…>

Branches:

lfn, master, serial, ticket/834-toolchain-update, topic/msim-upgrade, topic/simplify-dev-export

Children:

1ef0fc3, 38aaacc2

Parents:

23de644

Message:

Update SBI to rev. 184.

File:

• uspace/app/sbi/src/p_expr.c (modified) (3 diffs)

uspace/app/sbi/src/p_expr.c

@@ -56 +56 @@
 static stree_expr_t *parse_primitive(parse_t *parse);
 static stree_expr_t *parse_nameref(parse_t *parse);
+static stree_expr_t *parse_lit_bool(parse_t *parse);
+static stree_expr_t *parse_lit_char(parse_t *parse);
 static stree_expr_t *parse_lit_int(parse_t *parse);
 static stree_expr_t *parse_lit_ref(parse_t *parse);
@@ -494 +496 @@
                 expr = parse_nameref(parse);
                 break;
+        case lc_false:
+        case lc_true:
+                expr = parse_lit_bool(parse);
+                break;
+        case lc_lit_char:
+                expr = parse_lit_char(parse);
+                break;
         case lc_lit_int:
                 expr = parse_lit_int(parse);
@@ -531 +540 @@
 }
 
+/** Parse boolean literal.
+ *
+ * @param parse         Parser object.
+ */
+static stree_expr_t *parse_lit_bool(parse_t *parse)
+{
+        stree_literal_t *literal;
+        stree_expr_t *expr;
+        bool_t value;
+
+        switch (lcur_lc(parse)) {
+        case lc_false: value = b_false; break;
+        case lc_true: value = b_true; break;
+        default: assert(b_false);
+        }
+
+        lskip(parse);
+
+        literal = stree_literal_new(ltc_bool);
+        literal->u.lit_bool.value = value;
+
+        expr = stree_expr_new(ec_literal);
+        expr->u.literal = literal;
+
+        return expr;
+}
+
+/** Parse character literal.
+ *
+ * @param parse         Parser object.
+ */
+static stree_expr_t *parse_lit_char(parse_t *parse)
+{
+        stree_literal_t *literal;
+        stree_expr_t *expr;
+
+        lcheck(parse, lc_lit_char);
+
+        literal = stree_literal_new(ltc_char);
+        bigint_clone(&lcur(parse)->u.lit_char.value,
+            &literal->u.lit_char.value);
+
+        lskip(parse);
+
+        expr = stree_expr_new(ec_literal);
+        expr->u.literal = literal;
+
+        return expr;
+}
+
 /** Parse integer literal.
  *