gemstone/tests/driver/gcc/main.gsc

import "std"

fun cstrlen(in cstr: str)(out u32: len) {
    u32: idx = 0 as u32

    while !(str[idx] == 0) {
        idx = idx + 1 as u32
    }

    len = idx
}

fun printcstr(in cstr: msg) {
    u32: len = 0 as u32
    cstrlen(msg)(len)

    handle: stdout = 0 as u32
    getStdoutHandle()(stdout)

    u32: written = 0 as u32
    writeBytes(stdout, msg, len)(written)
}

fun main() {
    cstr: msg = "Hello, world!\n"
    printcstr(msg)
}