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

changed some directives from symbols to plain words including class, method, pooldic, dcl.

Browse Source 
introduced stix_pfrc_t as a return code type from a primitive function
This commit is contained in:
hyunghwan.chung
2017-01-06 09:53:40 +00:00
parent af9c144a1c
commit 7779229b52
32 changed files with 1099 additions and 1337 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
stix/mod/console.c
View File

@ -48,7 +48,7 @@ struct console_t
};
/* ------------------------------------------------------------------------ */
static int pf_open (stix_t* stix, stix_ooi_t nargs)
static stix_pfrc_t pf_open (stix_t* stix, stix_ooi_t nargs)
{
#if defined(_WIN32)
HANDLE h;
@ -119,10 +119,10 @@ static int pf_open (stix_t* stix, stix_ooi_t nargs)
#endif
STIX_STACK_SETRET (stix, nargs, STIX_SMOOI_TO_OOP((stix_oow_t)con));
return 1;
return STIX_PF_SUCCESS;
}
static int pf_close (stix_t* stix, stix_ooi_t nargs)
static stix_pfrc_t pf_close (stix_t* stix, stix_ooi_t nargs)
{
#if defined(_WIN32)
HANDLE h;
@ -139,10 +139,10 @@ static int pf_close (stix_t* stix, stix_ooi_t nargs)
stix_freemem (stix, con);
STIX_STACK_SETRETTORCV (stix, nargs);
return 1;
return STIX_PF_SUCCESS;
}
static int pf_write (stix_t* stix, stix_ooi_t nargs)
static stix_pfrc_t pf_write (stix_t* stix, stix_ooi_t nargs)
{
console_t* con;
stix_oop_char_t oomsg;
@ -157,7 +157,7 @@ static int pf_write (stix_t* stix, stix_ooi_t nargs)
if (STIX_CLASSOF(stix,oomsg) != stix->_string)
{
/* TODO: invalid message */
return 0;
return STIX_PF_FAILURE;
}
ucspos = 0;
@ -171,7 +171,7 @@ static int pf_write (stix_t* stix, stix_ooi_t nargs)
if (n != -2 || ucslen <= 0)
{
stix_seterrnum (stix, STIX_EECERR);
return -1;
return STIX_PF_HARD_FAILURE;
}
}
@ -182,10 +182,10 @@ static int pf_write (stix_t* stix, stix_ooi_t nargs)
}
STIX_STACK_SETRETTORCV (stix, nargs); /* TODO: change return code */
return 1;
return STIX_PF_SUCCESS;
}
static int pf_clear (stix_t* stix, stix_ooi_t nargs)
static stix_pfrc_t pf_clear (stix_t* stix, stix_ooi_t nargs)
{
console_t* con;
@ -194,10 +194,10 @@ static int pf_clear (stix_t* stix, stix_ooi_t nargs)
write (con->fd, con->clear, strlen(con->clear));
STIX_STACK_SETRETTORCV (stix, nargs);
return 1;
return STIX_PF_SUCCESS;
}
static int pf_setcursor (stix_t* stix, stix_ooi_t nargs)
static stix_pfrc_t pf_setcursor (stix_t* stix, stix_ooi_t nargs)
{
console_t* con;
stix_oop_oop_t point;
@ -209,44 +209,16 @@ static int pf_setcursor (stix_t* stix, stix_ooi_t nargs)
/* TODO: error check, class check, size check.. */
if (STIX_OBJ_GET_SIZE(point) != 2)
{
return 0;
return STIX_PF_FAILURE;
}
cup = tiparm (con->cup, STIX_OOP_TO_SMOOI(point->slot[1]), STIX_OOP_TO_SMOOI(point->slot[0]));
write (con->fd, cup, strlen(cup)); /* TODO: error check */
STIX_STACK_SETRETTORCV (stix, nargs);
return 1;
return STIX_PF_SUCCESS;
}
#if 0
static int pf_setcursorto (stix_t* stix, stix_ooi_t nargs)
{
console_t* con;
stix_oop_oop_t point;
char* cup;
rcv = STIX_STACK_GETRCV(stix, nargs);
con = STIX_OOP_TO_SMOOI(
con = STIX_OOP_TO_SMOOI(STIX_STACK_GETARG(stix, nargs, 0));
point = STIX_STACK_GETARG(stix, nargs, 1);
/* TODO: error check, class check, size check.. */
if (STIX_OBJ_GET_SIZE(point) != 2)
{
return 0;
}
cup = tiparm (con->cup, STIX_OOP_TO_SMOOI(point->slot[1]), STIX_OOP_TO_SMOOI(point->slot[0]));
write (con->fd, cup, strlen(cup)); /* TODO: error check */
STIX_STACK_SETRETTORCV (stix, nargs);
return 1;
}
#endif
/* ------------------------------------------------------------------------ */
typedef struct fnctab_t fnctab_t;

28
stix/mod/stdio.c
View File

@ -39,14 +39,14 @@ struct stdio_t
FILE* fp;
};
static int pf_newinstsize (stix_t* stix, stix_ooi_t nargs)
static stix_pfrc_t pf_newinstsize (stix_t* stix, stix_ooi_t nargs)
{
stix_ooi_t newinstsize = STIX_SIZEOF(stdio_t) - STIX_SIZEOF(stix_obj_t);
STIX_STACK_SETRET (stix, nargs, STIX_SMOOI_TO_OOP(newinstsize));
return 1;
return STIX_PF_SUCCESS;
}
static int pf_open (stix_t* stix, stix_ooi_t nargs)
static stix_pfrc_t pf_open (stix_t* stix, stix_ooi_t nargs)
{
stix_oop_char_t name;
stix_oop_char_t mode;
@ -84,14 +84,14 @@ static int pf_open (stix_t* stix, stix_ooi_t nargs)
}
STIX_STACK_SETRETTORCV (stix, nargs);
return 1;
return STIX_PF_SUCCESS;
reterr:
STIX_STACK_SETRETTOERROR (stix, nargs);
return 1;
return STIX_PF_SUCCESS;
}
static int pf_close (stix_t* stix, stix_ooi_t nargs)
static stix_pfrc_t pf_close (stix_t* stix, stix_ooi_t nargs)
{
stdio_t* rcv;
@ -103,17 +103,17 @@ static int pf_close (stix_t* stix, stix_ooi_t nargs)
}
STIX_STACK_SETRETTORCV (stix, nargs);
return 1;
return STIX_PF_SUCCESS;
}
static int pf_gets (stix_t* stix, stix_ooi_t nargs)
static stix_pfrc_t pf_gets (stix_t* stix, stix_ooi_t nargs)
{
/* return how many bytes have been written.. */
STIX_STACK_SETRETTORCV (stix, nargs);
return 1;
return STIX_PF_SUCCESS;
}
static int __pf_puts (stix_t* stix, stix_ooi_t nargs, stix_oow_t limit)
static stix_pfrc_t __pf_puts (stix_t* stix, stix_ooi_t nargs, stix_oow_t limit)
{
stdio_t* rcv;
stix_ooi_t i;
@ -181,19 +181,19 @@ static int __pf_puts (stix_t* stix, stix_ooi_t nargs, stix_oow_t limit)
}
STIX_STACK_SETRETTORCV (stix, nargs);
return 1;
return STIX_PF_SUCCESS;
reterr:
STIX_STACK_SETRETTOERROR (stix, nargs);
return 1;
return STIX_PF_SUCCESS;
}
static int pf_putc (stix_t* stix, stix_ooi_t nargs)
static stix_pfrc_t pf_putc (stix_t* stix, stix_ooi_t nargs)
{
return __pf_puts (stix, nargs, 1);
}
static int pf_puts (stix_t* stix, stix_ooi_t nargs)
static stix_pfrc_t pf_puts (stix_t* stix, stix_ooi_t nargs)
{
return __pf_puts (stix, nargs, STIX_TYPE_MAX(stix_oow_t));
}