diff options
author | Mattias Andrée <maandree@operamail.com> | 2014-10-24 11:49:41 +0200 |
---|---|---|
committer | Mattias Andrée <maandree@operamail.com> | 2014-10-24 11:49:41 +0200 |
commit | a196f7af5559db6d23e96e916ea55a475508e98e (patch) | |
tree | 1c85ef6fa89446b14d6381d3c7cd65df5c1c65d4 /src/mds-kbdc/mds-kbdc.c | |
parent | m (diff) | |
download | mds-a196f7af5559db6d23e96e916ea55a475508e98e.tar.gz mds-a196f7af5559db6d23e96e916ea55a475508e98e.tar.bz2 mds-a196f7af5559db6d23e96e916ea55a475508e98e.tar.xz |
mds-kbdc: most of the built-in functions
Signed-off-by: Mattias Andrée <maandree@operamail.com>
Diffstat (limited to 'src/mds-kbdc/mds-kbdc.c')
-rw-r--r-- | src/mds-kbdc/mds-kbdc.c | 21 |
1 files changed, 2 insertions, 19 deletions
diff --git a/src/mds-kbdc/mds-kbdc.c b/src/mds-kbdc/mds-kbdc.c index da1d9a4..2cc6cff 100644 --- a/src/mds-kbdc/mds-kbdc.c +++ b/src/mds-kbdc/mds-kbdc.c @@ -44,9 +44,9 @@ int main(int argc_, char** argv_) source_code_initialise(&source_code); fail_if (read_source_lines(pathname, &source_code) < 0); - + /* - + information language "LANGUAGE" # multiple is allowed country "COUNTRY" # multiple is allowed @@ -103,23 +103,6 @@ int main(int argc_, char** argv_) let \2 : \or(\2 64) end if - \add(a b) # a + b - \sub(a b) # a - b - \mul(a b) # a ⋅ b - \div(a b) # floor[a / b] - \mod(a b) # a mod b - \rsh(a b) # a ⋅ 2 ↑ b - \lsh(a b) # floor[a / 2 ↑ b] - \or(a b) # bitwise - \and(a b) # bitwise - \xor(a b) # bitwise - \not(a) # logical - \equals(a b) # a = b - \greater(a b) # a > b - \less(a b) # a < b - \set(variable index value) - \get(variable index) - */ source_code_destroy(&source_code); |