36 lines
476 B
C
36 lines
476 B
C
/*
|
|
** --- RG_COL.C -------- COLUMN PROCESSOR -----------------------------------
|
|
**
|
|
** Version: @(#)rg_col.c 4.0 02/05/89
|
|
**
|
|
*/
|
|
|
|
# include "rg.h"
|
|
|
|
|
|
set_col(col)
|
|
register int col;
|
|
{
|
|
register int len;
|
|
extern char *AApad();
|
|
|
|
if (--col < 0)
|
|
return;
|
|
|
|
if ((len = Col_begin + col - SYS_col) < 0)
|
|
{
|
|
if (RUNline)
|
|
goto ign_col;
|
|
new_line();
|
|
if (RUN)
|
|
{
|
|
ign_col:
|
|
RUN++;
|
|
return;
|
|
}
|
|
len = Col_begin - Line + col;
|
|
}
|
|
if (len)
|
|
SYS_col = AApad(SYS_col, len);
|
|
}
|