summaryrefslogtreecommitdiffstats
path: root/crs.c
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:31 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:31 -0800
commitae2b295c7deaf2d7c18ad1ed9b6050970e56bae7 (patch)
treeeee15e02ae016333546d3841712be591b2bcb06f /crs.c
parent302e3218b7d487539ec305bf23881a6ee7d5be99 (diff)
downloadscm-ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7.tar.gz
scm-ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7.zip
Import Upstream version 5e2upstream/5e2
Diffstat (limited to 'crs.c')
-rw-r--r--crs.c26
1 files changed, 13 insertions, 13 deletions
diff --git a/crs.c b/crs.c
index 0b4fe5f..9a45493 100644
--- a/crs.c
+++ b/crs.c
@@ -112,7 +112,7 @@ SCM *loc_stdscr = 0;
SCM linitscr()
{
WINDOW *win;
- if NIMP(*loc_stdscr) {
+ if (NIMP(*loc_stdscr)) {
refresh();
return *loc_stdscr;
}
@@ -121,7 +121,7 @@ SCM linitscr()
}
SCM lendwin()
{
- if IMP(*loc_stdscr) return BOOL_F;
+ if (IMP(*loc_stdscr)) return BOOL_F;
return ERR==endwin() ? BOOL_F : BOOL_T;
}
@@ -204,9 +204,9 @@ SCM lwadd(win, obj)
SCM win, obj;
{
ASRTER(NIMP(win) && WINP(win), win, ARG1, s_wadd);
- if ICHRP(obj)
+ if (ICHRP(obj))
return ERR==waddch(WIN(win), ICHR(obj)) ? BOOL_F : BOOL_T;
- if INUMP(obj)
+ if (INUMP(obj))
return ERR==waddch(WIN(win), INUM(obj)) ? BOOL_F : BOOL_T;
ASRTER(NIMP(obj) && STRINGP(obj), obj, ARG2, s_wadd);
return ERR==waddstr(WIN(win), CHARS(obj)) ? BOOL_F : BOOL_T;
@@ -216,7 +216,7 @@ SCM lwinsch(win, obj)
SCM win, obj;
{
ASRTER(NIMP(win) && WINP(win), win, ARG1, s_winsch);
- if INUMP(obj)
+ if (INUMP(obj))
return ERR==winsch(WIN(win), INUM(obj)) ? BOOL_F : BOOL_T;
ASRTER(ICHRP(obj), obj, ARG2, s_winsch);
return ERR==winsch(WIN(win), ICHR(obj)) ? BOOL_F : BOOL_T;
@@ -227,12 +227,12 @@ SCM lbox(win, vertch, horch)
{
int v, h;
ASRTER(NIMP(win) && WINP(win), win, ARG1, s_box);
- if INUMP(vertch) v = INUM(vertch);
+ if (INUMP(vertch)) v = INUM(vertch);
else {
ASRTER(ICHRP(vertch), vertch, ARG2, s_box);
v = ICHR(vertch);
}
- if INUMP(horch) h = INUM(horch);
+ if (INUMP(horch)) h = INUM(horch);
else {
ASRTER(ICHRP(horch), horch, ARG3, s_box);
h = ICHR(horch);
@@ -271,20 +271,20 @@ static char s_oheight[] = "output-port-height";
SCM owidth(arg)
SCM arg;
{
- if UNBNDP(arg) arg = cur_outp;
+ if (UNBNDP(arg)) arg = cur_outp;
ASRTER(NIMP(arg) && OPOUTPORTP(arg), arg, ARG1, s_owidth);
- if NIMP(*loc_stdscr)
- if WINP(arg) return MAKINUM(WIN(arg)->_maxx+1);
+ if (NIMP(*loc_stdscr))
+ if (WINP(arg)) return MAKINUM(WIN(arg)->_maxx+1);
else return MAKINUM(COLS);
return MAKINUM(80);
}
SCM oheight(arg)
SCM arg;
{
- if UNBNDP(arg) arg = cur_outp;
+ if (UNBNDP(arg)) arg = cur_outp;
ASRTER(NIMP(arg) && OPOUTPORTP(arg), arg, ARG1, s_owidth);
- if NIMP(*loc_stdscr)
- if WINP(arg) return MAKINUM(WIN(arg)->_maxy+1);
+ if (NIMP(*loc_stdscr))
+ if (WINP(arg)) return MAKINUM(WIN(arg)->_maxy+1);
else return MAKINUM(LINES);
return MAKINUM(24);
}