view src/sys_read_impl.cbc @ 133:ae25a4e76377

fix gen_context.pl
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Wed, 11 Dec 2019 17:10:43 +0900
parents 8e93917ce4be
children 0c24464a66d8
line wrap: on
line source

#include "../context.h"
#interface "SysRead.h"
//data_gear "file.dg"

// ----
// typedef struct SysReadImpl <Type, Isa> impl SysRead {
// 
// } SysReadImpl;
// ----

SysRead* createSysReadImpl(struct Context* cbc_context) {
    struct SysRead* sys_read  = new SysRead();
    struct SysReadImpl* sys_read_impl = new SysReadImpl();
    sys_read->sys_read = (union Data*)sys_read_impl;
    sys_read->num  = 0;
    sys_read->addr = NULL;
    sys_read->file = NULL;
    sys_read->read = C_readSysReadImpl;
    sys_read->next = C_nextSysReadImpl;
    return sys_read;
}
__code readSysReadImpl(struct SysReadImpl* sys_read, __code next(...)) {

  goto next(...);
}

__code nextSysReadImpl(...) {

}