forked from zuberfowler/zedit
-
Notifications
You must be signed in to change notification settings - Fork 0
/
DELCHAR.C
42 lines (38 loc) · 1.64 KB
/
DELCHAR.C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#include "zedit.h"
void delchar(
int toright,
int f,
int rowcol[] [5],
int line_no,
int col_no,
char inptext[] [25] [80])
/**********************************************************************/
/* */
/* Delchar a character on a line of the screen. */
/* */
/**********************************************************************/
/* */
/* This is ZEDIT source material. */
/* */
/* ZEDIT Source Materials are intellectual property */
/* (c) Copyright 1987,2001 by Clyde Thomas Zuber. */
/* */
/**********************************************************************/
{
register int c;
register int i;
if (toright)
for (i = ATR; i <= OVR; ++i)
{
for (c = col_no; c < rowcol[f] [RIGHT_MAR]; ++c)
inptext[i] [line_no] [c] = inptext[i] [line_no] [c+1];
inptext[i] [line_no] [rowcol[f] [RIGHT_MAR]] = 0x00;
} /* end for, then */
else
for (i = ATR; i <= OVR; ++i)
{
for (c = col_no; c > rowcol[f] [LEFT_MAR]; --c)
inptext[i] [line_no] [c] = inptext[i] [line_no] [c-1];
inptext[i] [line_no] [rowcol[f] [LEFT_MAR]] = 0x00;
} /* end for, else */
} /* end delchar */