package require tcc
 namespace import tcc::*

 cproc fopen {char* name char* mode} char* {
    static char handle[16];
    FILE* fp = fopen(name, mode);
    sprintf(handle,"%p",fp);
    return &handle;
 } 
 cproc fgets {char* handle} char* {
    FILE* fp;
    static char buf[4096];
    if(!strcmp(handle,"stdin")) fp = stdin;
    else sscanf(handle,"%p",&fp);
    fgets(&buf, sizeof(buf)-1, fp);
    buf[strlen(buf)-1] = '\0';
    return &buf;
 }
 cproc fputs {char* handle char* str} ok {
    FILE* fp;
    if(!strcmp(handle,"stdout"))      fp = (FILE*)stdout;
    else if(!strcmp(handle,"stderr")) fp = (FILE*)stderr;
    else sscanf(handle,"%p",&fp);
    fputs(str,fp);
    fputs("\n",fp);
    return TCL_OK;
 }
 cproc fclose {char* handle} ok {
    FILE* fp;
    sscanf(handle,"%p",&fp);
    fclose(fp);
    return TCL_OK;
 }
 cproc feof {char* handle} int {
    FILE* fp;
    sscanf(handle,"%p",&fp);
    return feof(fp);
 }

#-- Testing: writing with quickio

 set f [fopen test.txt w]
 fputs $f hällo,
 fputs $f world!
 fclose $f

#-- reading with Tcl, as utf-8
 set f [open test.txt]
 fconfigure $f -encoding utf-8
 puts >>[read $f][close $f]

#-- reading with quickio, should be the same thing
 set f [fopen test.txt r]
 while 1 {
    set line [fgets $f]
    if [feof $f] break
    puts >>$line<<
 }

#-- Test, switchable between Tcl and quickio routines:
    set prefix "f"
    set f [${prefix}open [lindex $argv 0] r]
    while 1 {
        set line [${prefix}gets $f]
        if {[${prefix}eof $f]} break
        ${prefix}puts stdout $line
    }
    ${prefix}close $f