From 0f3db39e37962190a1ab913039c344ae40bd1713 Mon Sep 17 00:00:00 2001 From: henesy Date: Mon, 25 Feb 2019 16:59:36 -0600 Subject: add values example --- Values/values.b | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 Values/values.b (limited to 'Values/values.b') diff --git a/Values/values.b b/Values/values.b new file mode 100644 index 0000000..a3732d6 --- /dev/null +++ b/Values/values.b @@ -0,0 +1,35 @@ +implement Values; + +include "sys.m"; +include "draw.m"; + +sys: Sys; +print, sprint: import sys; + +Values: module { + init: fn(nil: ref Draw->Context, nil: list of string); +}; + +init(nil: ref Draw->Context, nil: list of string) { + sys = load Sys Sys->PATH; + + n := 7; + b := big 8; + f := real 3.2; + str := "String!"; + + print("%d\n", 0 || 1); + print("%d\n", 0 && 1); + + print("%d\n", n / int f); + print("%f\n", real n / f); + print("%bd\n", b / big 8); + + print("%s\n", str[:len str-1]); + print("%s\n", str[2:]); + + print("%s", "inferno " + "os " + sprint("%c", '\n')); + print("limbo" + " " + "lang\n"); + + exit; +} -- cgit v1.2.3