hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
hyung-hwan 2008-07-06 09:05:48 +00:00
parent 97fb77f21f
commit b18be770ce
1 changed files with 39 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
ase/cmd/tgp/tgp.c
View File

@ -110,35 +110,63 @@ typedef struct xout_t
} xout_t; } xout_t;
static int io_1 (int cmd, void* arg, ase_char_t* buf, int len) static int io_in (int cmd, void* arg, ase_char_t* buf, int len)
{ {
xin_t* xin = (xin_t*)arg; xin_t* xin = (xin_t*)arg;
switch (cmd) switch (cmd)
{ {
case ASE_TGP_IO_OPEN: case ASE_TGP_IO_OPEN:
xin->fp = ase_fopen (ASE_T("abc.tgp"), ASE_T("r")); xin->fp = (xin->name == ASE_NULL)?
ASE_STDIN:
ase_fopen(xin->name,ASE_T("r"));
return (xin->fp == NULL)? -1: 0; return (xin->fp == NULL)? -1: 0;
case ASE_TGP_IO_CLOSE: case ASE_TGP_IO_CLOSE:
ase_fclose (xin->fp); if (xin->name != ASE_NULL) ase_fclose (xin->fp);
return 0; return 0;
case ASE_TGP_IO_READ: case ASE_TGP_IO_READ:
//ase_fgets (xin->fp); if (ase_fgets (buf, len, xin->fp) == ASE_NULL) return 0;
return 0; return ase_strlen(buf);
} }
return -1; return -1;
} }
static int io_2 (ase_tgp_t* tgp, int cmd, ase_char_t* buf, int len) static int io_out (int cmd, void* arg, ase_char_t* buf, int len)
{ {
xout_t* xout = (xout_t*)arg;
switch (cmd)
{
case ASE_TGP_IO_OPEN:
xout->fp = (xout->name == ASE_NULL)?
ASE_STDOUT:
ase_fopen(xout->name,ASE_T("r"));
return (xout->fp == NULL)? -1: 0;
case ASE_TGP_IO_CLOSE:
if (xout->name != ASE_NULL) ase_fclose (xout->fp);
return 0;
case ASE_TGP_IO_WRITE:
ase_fprintf (xout->fp, "%.*s", len, buf);
return len;
}
return -1;
} }
int tgp_main (int argc, ase_char_t* argv[]) int tgp_main (int argc, ase_char_t* argv[])
{ {
ase_tgp_t* tgp; ase_tgp_t* tgp;
xin_t xin;
xout_t xout;
int ret = 0; int ret = 0;
if (handle_args (argc, argv) == -1) return -1; if (handle_args (argc, argv) == -1) return -1;
@ -151,8 +179,11 @@ int tgp_main (int argc, ase_char_t* argv[])
return -1; return -1;
} }
//ase_tgp_setstdin (tgp, io, xin); xin.name = ASE_T("x.tgp");
//ase_tgp_setstdout (tgp, io, ASE_NULL); xout.name = ASE_NULL;
ase_tgp_attachin (tgp, io_in, &xin);
ase_tgp_attachout (tgp, io_out, &xout);
/* /*
ase_tgp_setexecin (tgp, io, ); ase_tgp_setexecin (tgp, io, );
ase_tgp_setexecout (tgp, io, ); ase_tgp_setexecout (tgp, io, );