Initial import of the CDE 2.1.30 sources from the Open Group.
This commit is contained in:
Peter Howkins
380
cde/lib/DtTerm/TermPrim/TermPrimFunction.c
Normal file
380
cde/lib/DtTerm/TermPrim/TermPrimFunction.c
Normal file
@@ -0,0 +1,380 @@
|
||||
#ifndef lint
|
||||
#ifdef VERBOSE_REV_INFO
|
||||
static char rcs_id[] = "$XConsortium: TermPrimFunction.c /main/1 1996/04/21 19:17:27 drk $";
|
||||
#endif /* VERBOSE_REV_INFO */
|
||||
#endif /* lint */
|
||||
|
||||
/* *
|
||||
* (c) Copyright 1993, 1994 Hewlett-Packard Company *
|
||||
* (c) Copyright 1993, 1994 International Business Machines Corp. *
|
||||
* (c) Copyright 1993, 1994 Sun Microsystems, Inc. *
|
||||
* (c) Copyright 1993, 1994 Novell, Inc. *
|
||||
*/
|
||||
|
||||
#include "TermHeader.h"
|
||||
#include "TermPrimDebug.h"
|
||||
#include "TermPrimP.h"
|
||||
#include "TermPrimData.h"
|
||||
#include "TermPrimFunction.h"
|
||||
#include "TermPrimSetPty.h"
|
||||
|
||||
/******************************************************************************
|
||||
*
|
||||
* #### ##### # ######
|
||||
* # # # # # #
|
||||
* # # # ### # ##### ###
|
||||
* # ##### ### # # ###
|
||||
* # # # # # # # #
|
||||
* #### # # # ###### # #
|
||||
*
|
||||
*
|
||||
* ##### #### ##### ## #####
|
||||
* # # # # # # # #
|
||||
* ##### #### ### # # # #####
|
||||
* # # # ### # ###### # #
|
||||
* # # # # # # # # # #
|
||||
* ##### #### # # # # #####
|
||||
*/
|
||||
|
||||
void
|
||||
_DtTermPrimFuncLF(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget)w;
|
||||
struct termData *tpd = tw->term.tpd;
|
||||
|
||||
/*
|
||||
** move the insert point...
|
||||
*/
|
||||
if (++tpd->cursorRow >= tw->term.rows)
|
||||
{
|
||||
/*
|
||||
** scroll one line...
|
||||
*/
|
||||
(void) _DtTermPrimScrollText(w, 1);
|
||||
tpd->cursorRow = tw->term.rows - 1;
|
||||
}
|
||||
(void) _DtTermPrimFillScreenGap(w);
|
||||
return;
|
||||
}
|
||||
|
||||
void
|
||||
_DtTermPrimFuncBackspace(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget)w;
|
||||
struct termData *tpd = tw->term.tpd;
|
||||
|
||||
if (tpd->cursorColumn > 0) {
|
||||
(void) tpd->cursorColumn--;
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
void
|
||||
_DtTermPrimFuncCR(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget)w;
|
||||
struct termData *tpd = tw->term.tpd;
|
||||
|
||||
tpd->cursorColumn = tpd->leftMargin;
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
/*** CURSOR MOTION ************************************************************
|
||||
*
|
||||
* #### # # ##### #### #### #####
|
||||
* # # # # # # # # # # #
|
||||
* # # # # # #### # # # #
|
||||
* # # # ##### # # # #####
|
||||
* # # # # # # # # # # # #
|
||||
* #### #### # # #### #### # #
|
||||
*
|
||||
*
|
||||
* # # #### ##### # #### # #
|
||||
* ## ## # # # # # # ## #
|
||||
* # ## # # # # # # # # # #
|
||||
* # # # # # # # # # # #
|
||||
* # # # # # # # # # ##
|
||||
* # # #### # # #### # #
|
||||
*/
|
||||
|
||||
void
|
||||
_DtTermPrimFuncNextLine(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget) w;
|
||||
struct termData *tpd = tw->term.tpd;
|
||||
|
||||
/* move down...
|
||||
*/
|
||||
(void) _DtTermPrimCursorOff(w);
|
||||
while (count-- > 0) {
|
||||
if (tpd->cursorRow < tw->term.rows - 1) {
|
||||
(void) tpd->cursorRow++;
|
||||
} else {
|
||||
tpd->cursorRow = 0;
|
||||
}
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
void
|
||||
_DtTermPrimFuncPreviousLine(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget) w;
|
||||
struct termData *tpd = tw->term.tpd;
|
||||
|
||||
/* move up...
|
||||
*/
|
||||
(void) _DtTermPrimCursorOff(w);
|
||||
while (count-- > 0) {
|
||||
if (tpd->cursorRow > 0) {
|
||||
tpd->cursorRow--;
|
||||
} else {
|
||||
tpd->cursorRow = tw->term.rows - 1;
|
||||
}
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
void
|
||||
_DtTermPrimFuncBackwardCharacter(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget) w;
|
||||
struct termData *tpd = tw->term.tpd;
|
||||
|
||||
/* move left...
|
||||
*/
|
||||
(void) _DtTermPrimCursorOff(w);
|
||||
while (count-- > 0) {
|
||||
if (tpd->cursorColumn > 0) {
|
||||
(void) tpd->cursorColumn--;
|
||||
} else {
|
||||
/* past left edge -- wrap up... */
|
||||
tpd->cursorColumn = tw->term.columns - 1;
|
||||
if (tpd->cursorRow > 0) {
|
||||
(void) tpd->cursorRow--;
|
||||
} else {
|
||||
/* past first line -- wrap to bottom of screen... */
|
||||
tpd->cursorRow = tw->term.rows - 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
void
|
||||
_DtTermPrimFuncForwardCharacter(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget) w;
|
||||
struct termData *tpd = tw->term.tpd;
|
||||
|
||||
/* move right...
|
||||
*/
|
||||
(void) _DtTermPrimCursorOff(w);
|
||||
while (count-- > 0) {
|
||||
if (tpd->cursorColumn < tw->term.columns - 1) {
|
||||
(void) tpd->cursorColumn++;
|
||||
} else {
|
||||
/* past right edge -- wrap... */
|
||||
tpd->cursorColumn = 0;
|
||||
if (tpd->cursorRow < tw->term.rows - 1) {
|
||||
(void) tpd->cursorRow++;
|
||||
} else {
|
||||
/* past last line -- wrap to top of screen... */
|
||||
tpd->cursorRow = 0;
|
||||
}
|
||||
}
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
void
|
||||
_DtTermPrimFuncReturn(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
Debug('i', fprintf(stderr,
|
||||
">>_DtTermPrimFuncReturn: not yet implemented\n"));
|
||||
}
|
||||
|
||||
|
||||
void
|
||||
_DtTermPrimFuncTab(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget)w;
|
||||
struct termData *tpd = tw->term.tpd;
|
||||
TermBuffer tBuffer = tpd->termBuffer;
|
||||
short nextTab;
|
||||
|
||||
(void) _DtTermPrimCursorOff(w);
|
||||
|
||||
if (tpd->cursorColumn < tpd->leftMargin) {
|
||||
/* move to left margin on current line... */
|
||||
tpd->cursorColumn = tpd->leftMargin;
|
||||
} else {
|
||||
/* Move to the next tab stop. Note that this cursor motion is
|
||||
* similar to the right arrow cursor motion in that
|
||||
* it doesn't set the line length until a character is entered.
|
||||
*/
|
||||
/* DKS: this code currently enforces tabs at every 8 character
|
||||
* positions. It needs to be worked on to support the margins/tabs
|
||||
* buffer...
|
||||
*/
|
||||
nextTab = _DtTermPrimBufferGetNextTab(tBuffer, tpd->cursorColumn);
|
||||
|
||||
/* check to see if we are past the end of the line... */
|
||||
if ((nextTab <= 0) || (nextTab >= tpd->rightMargin)) {
|
||||
/* wrap to next line...
|
||||
*/
|
||||
tpd->cursorColumn = tpd->leftMargin;
|
||||
|
||||
/* check to see if we scrolled off the bottom of the screen... */
|
||||
if (++tpd->cursorRow >= tw->term.rows) {
|
||||
/* scroll one line...
|
||||
*/
|
||||
(void)_DtTermPrimScrollText(w, 1);
|
||||
tpd->cursorRow = tw->term.rows - 1;
|
||||
}
|
||||
/* fill any screen gap... */
|
||||
if (tpd->topRow + tpd->cursorRow >= tpd->lastUsedRow) {
|
||||
(void) _DtTermPrimFillScreenGap(w);
|
||||
}
|
||||
} else {
|
||||
tpd->cursorColumn = nextTab;
|
||||
}
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
|
||||
/*** TAB FUNCTIONS ************************************************************
|
||||
*
|
||||
* ##### ## #####
|
||||
* # # # # #
|
||||
* # # # #####
|
||||
* # ###### # #
|
||||
* # # # # #
|
||||
* # # # #####
|
||||
*
|
||||
*
|
||||
* ###### # # # # #### ##### # #### # # ####
|
||||
* # # # ## # # # # # # # ## # #
|
||||
* ##### # # # # # # # # # # # # # ####
|
||||
* # # # # # # # # # # # # # # #
|
||||
* # # # # ## # # # # # # # ## # #
|
||||
* # #### # # #### # # #### # # ####
|
||||
*/
|
||||
|
||||
void
|
||||
_DtTermPrimFuncTabSet(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget) w;
|
||||
struct termData *tpd = tw->term.tpd;
|
||||
|
||||
(void) _DtTermPrimBufferSetTab(tpd->termBuffer, tpd->cursorColumn);
|
||||
}
|
||||
|
||||
void
|
||||
_DtTermPrimFuncTabClear(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget) w;
|
||||
struct termData *tpd = tw->term.tpd;
|
||||
|
||||
(void) _DtTermPrimBufferClearTab(tpd->termBuffer, tpd->cursorColumn);
|
||||
}
|
||||
|
||||
void
|
||||
_DtTermPrimFuncTabClearAll(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget) w;
|
||||
struct termData *tpd = tw->term.tpd;
|
||||
|
||||
(void) _DtTermPrimBufferClearAllTabs(tpd->termBuffer);
|
||||
}
|
||||
|
||||
|
||||
/*** REDRAW DISPLAY ***********************************************************
|
||||
*
|
||||
* # # ## ##### #### # # #
|
||||
* ## ## # # # # # # # ## #
|
||||
* # ## # # # # # # # # # #
|
||||
* # # ###### ##### # ### # # # #
|
||||
* # # # # # # # # # # ##
|
||||
* # # # # # # #### # # #
|
||||
*
|
||||
*
|
||||
* ###### # # # # #### ##### # #### # # ####
|
||||
* # # # ## # # # # # # # ## # #
|
||||
* ##### # # # # # # # # # # # # # ####
|
||||
* # # # # # # # # # # # # # # #
|
||||
* # # # # ## # # # # # # # ## # #
|
||||
* # #### # # #### # # #### # # ####
|
||||
*/
|
||||
void
|
||||
_DtTermPrimFuncMarginSetLeft(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget) w;
|
||||
struct termData *tpd = tw->term.tpd;
|
||||
|
||||
if (tpd->cursorColumn < tpd->rightMargin) {
|
||||
tpd->leftMargin = tpd->cursorColumn;
|
||||
} else {
|
||||
_DtTermPrimBell(w);
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
void
|
||||
_DtTermPrimFuncMarginSetRight(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget) w;
|
||||
struct termData *tpd = tw->term.tpd;
|
||||
|
||||
if (tpd->cursorColumn > tpd->leftMargin) {
|
||||
tpd->rightMargin = tpd->cursorColumn;
|
||||
} else {
|
||||
_DtTermPrimBell(w);
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
void
|
||||
_DtTermPrimFuncMarginClear(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget)w;
|
||||
struct termData *tpd = tw->term.tpd;
|
||||
|
||||
tpd->leftMargin = 0;
|
||||
tpd->rightMargin = tw->term.columns - 1;
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
/*** REDRAW DISPLAY ***********************************************************
|
||||
*
|
||||
* ##### ###### ##### ##### ## # #
|
||||
* # # # # # # # # # # #
|
||||
* # # ##### # # # # # # # #
|
||||
* ##### # # # ##### ###### # ## #
|
||||
* # # # # # # # # # ## ##
|
||||
* # # ###### ##### # # # # # #
|
||||
*
|
||||
*
|
||||
* ##### # #### ##### # ## # #
|
||||
* # # # # # # # # # # #
|
||||
* # # # #### # # # # # #
|
||||
* # # # # ##### # ###### #
|
||||
* # # # # # # # # # #
|
||||
* ##### # #### # ###### # # #
|
||||
*/
|
||||
|
||||
void
|
||||
_DtTermPrimFuncRedrawDisplay(Widget w, int count, FunctionSource functionSource)
|
||||
{
|
||||
DtTermPrimitiveWidget tw = (DtTermPrimitiveWidget) w;
|
||||
struct termData *tpd = tw->term.tpd;
|
||||
|
||||
(void) XClearArea(XtDisplay(w), XtWindow(w), 0, 0, 0, 0, True);
|
||||
return;
|
||||
}
|
||||
Reference in New Issue
Block a user