Mercurial > hg > Members > menikon > CbC_xv6
view src/impl/PipeRead.cbc @ 104:9bfc4fbb5502
create PipeRead.cbc
author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Wed, 20 Nov 2019 20:15:12 +0900 |
parents | |
children | f1be2d5abc8a |
line wrap: on
line source
#include "../context.h"; #interface "SysRead.h"; // ---- // typedef struct PipeRead<Type, Isa> impl SysRead { // struct CbCPipe *pipe; // struct String *addr; // struct Integer* i; // } PipeRead; // ---- SysRead* createPipeRead(struct Context* cbc_context) { struct SysRead* sys_read = new SysRead(); struct PipeRead* pipeRead = new PipeRead(); sys_read->sys_read = (union Data*)pipeRead; pipeRead->num = NULL; sys_read->read = C_readPipeRead; sys_read->ret = C_retPipeRead; sys_read->next = C_nextPipeRead; return sys_read; } __code readPipeRead(__code next(...)) { goto next(...); } __code retPipeRead(PipeRead* cbc_sys_file, UInteger* num) { } __code nextPipeRead(...) { }