ref: d3862b5a63077cb3d8967f97eb487368cd431d23
parent: a20c3fd13b2a03c8b4efc6dbab673de3cdfd79e7
parent: d121746576d1286f41e99cbb562d727f642556bc
author: Ori Bernstein <[email protected]>
date: Wed Aug 1 12:25:15 EDT 2012
Merge branch 'master' of git+ssh://mimir.eigenstate.org/git/ori/libmyr
--- a/bld.sh
+++ b/bld.sh
@@ -66,8 +66,3 @@
echo $COMP
$COMP
-build f.myr
-COMP="$CC -m32 -o f f.o -L. -lstd"
-echo $COMP
-$COMP
-
--- /dev/null
+++ b/fmt.myr
@@ -1,0 +1,34 @@
+use "die.use"
+use "sys.use"
+use "types.use"
+use "str.use"
+
+pkg std =
+ const bfmt : (buf : byte[,], fmt : byte[,], args:... -> size)
+ const fmt : (fmt : byte[,], args:... -> size)
+;;
+
+const fmt = {fmt, args+ var c
+ var s
+ var n
+
+ n = 0
+ for (c, s) = striter(fmt); s.len; (c, s) = striter(s)
+ if c == '%'
+ (c, s) = striter(s)
+ match c
+ 's':
+ write(1, "str")
+ ;;
+ 'd':
+ write(1, "int")
+ ;;
+ 'p':
+ write(1, "ptr")
+ ;;
+ ;;
+ ;;
+ ;;
+ -> n
+}