void CScreenDevice::ReverseScroll (void)
{
if ( m_nCursorX == 0
&& m_nCursorY == 0
)
{
InsertLines (1);
}
}
DocEdit::DocEdit()
{
updownleave = false;
cx = 0;
filter = NULL;
after = 0;
font = StdFont();
AutoHideSb();
SetFrame(ViewFrame());
AddFrame(sb);
sb.SetLine(8);
sb.WhenScroll = THISBACK(Scroll);
InsertLines(0, 1);
eofline = true;
}
void InsertLines_CurrPos(
struct Tracker_Windows *window,
int toinsert
){
struct WBlocks *wblock=window->wblock;
int curr_realline=wblock->curr_realline;
int curr_line=wblock->reallines[curr_realline]->Tline;
int num_lines=wblock->block->num_lines;
if(toinsert==0)
toinsert=GFX_GetInteger(window,NULL,"Number of lines to insert\n(number can be negative): ",-(num_lines-curr_line),10000);
if(toinsert==-(num_lines-curr_line)-1) return;
ADD_UNDO(Block_CurrPos(window));
InsertLines(window->wblock->block,curr_line,toinsert);
window=root->song->tracker_windows;
while(window!=NULL){
window->must_redraw = true;
window=NextWindow(window);
}
}
/*
* insertGenericSavebuf - insert contents of a savebuf before/after current pos
*/
static vi_rc insertGenericSavebuf( int buf, bool afterflag )
{
#ifdef __WIN__
savebuf clip;
#endif
savebuf *tmp;
fcb_list fcblist;
fcb *end;
int i, scol, len;
int maxCursor;
vi_rc rc;
rc = ModificationTest();
if( rc != ERR_NO_ERR ) {
return( rc );
}
if( EditFlags.Modeless ) {
DeleteSelectedRegion();
SelRgn.selected = false;
}
#ifdef __WIN__
if( buf == CLIPBOARD_SAVEBUF ) {
rc = GetClipboardSavebuf( &clip );
if( rc != ERR_NO_ERR ) {
return( rc );
}
tmp = &clip;
} else
#endif
if( buf >= MAX_SAVEBUFS ) {
tmp = &SpecialSavebufs[buf - MAX_SAVEBUFS];
} else {
tmp = &Savebufs[buf];
}
switch( tmp->type ) {
case SAVEBUF_NOP:
rc = ERR_EMPTY_SAVEBUF;
break;
case SAVEBUF_LINE:
/*
* get starting data
*/
len = strlen( tmp->u.data );
if( len + CurrentLine->len >= EditVars.MaxLine ) {
rc = ERR_LINE_FULL;
break;
}
if( afterflag ) {
scol = CurrentPos.column;
} else {
scol = CurrentPos.column - 1;
}
CurrentLineReplaceUndoStart();
GetCurrentLine();
/*
* open up line and copy in data
*/
if( WorkLine->len == 0 ) {
scol = 0;
}
for( i = WorkLine->len; i >= scol; i-- ) {
WorkLine->data[i + len] = WorkLine->data[i];
}
for( i = 0; i < len; i++ ) {
WorkLine->data[i + scol] = tmp->u.data[i];
}
WorkLine->len += len;
DisplayWorkLine( true );
ReplaceCurrentLine();
CurrentLineReplaceUndoEnd( true );
scol += len + 1;
maxCursor = CurrentLine->len;
if( EditFlags.Modeless ) {
maxCursor++;
}
if( scol > maxCursor ) {
scol = maxCursor;
}
rc = GoToColumn( scol, maxCursor );
break;
case SAVEBUF_FCBS:
fcblist.head = NULL;
fcblist.tail = NULL;
end = tmp->u.fcbs.tail->next;
tmp->u.fcbs.tail->next = NULL;
CreateDuplicateFcbList( tmp->u.fcbs.head, &fcblist );
tmp->u.fcbs.tail->next = end;
if( !EditFlags.LineBased ) {
rc = InsertLinesAtCursor( &fcblist, UndoStack );
} else {
if( afterflag) {
rc = InsertLines( CurrentPos.line, &fcblist, UndoStack );
} else {
rc = InsertLines( CurrentPos.line - 1, &fcblist, UndoStack );
}
}
break;
}
#ifdef __WIN__
if( tmp == &clip ) {
freeSavebuf( &clip );
}
#endif
EditFlags.Dotable = true;
return( rc );
} /* insertGenericSavebuf */
void CScreenDevice::Write (char chChar)
{
switch (m_nState)
{
case ScreenStateStart:
switch (chChar)
{
case '\b':
CursorLeft ();
break;
case '\t':
Tabulator ();
break;
case '\n':
NewLine ();
break;
case '\r':
CarriageReturn ();
break;
case '\x1b':
m_nState = ScreenStateEscape;
break;
default:
DisplayChar (chChar);
break;
}
break;
case ScreenStateEscape:
switch (chChar)
{
case 'M':
ReverseScroll ();
m_nState = ScreenStateStart;
break;
case '[':
m_nState = ScreenStateBracket;
break;
default:
m_nState = ScreenStateStart;
break;
}
break;
case ScreenStateBracket:
switch (chChar)
{
case '?':
m_nState = ScreenStateQuestionMark;
break;
case 'A':
CursorUp ();
m_nState = ScreenStateStart;
break;
case 'B':
CursorDown ();
m_nState = ScreenStateStart;
break;
case 'C':
CursorRight ();
m_nState = ScreenStateStart;
break;
case 'H':
CursorHome ();
m_nState = ScreenStateStart;
break;
case 'J':
ClearDisplayEnd ();
m_nState = ScreenStateStart;
break;
case 'K':
ClearLineEnd ();
m_nState = ScreenStateStart;
break;
case 'L':
InsertLines (1);
m_nState = ScreenStateStart;
break;
case 'M':
DeleteLines (1);
m_nState = ScreenStateStart;
break;
case 'P':
DeleteChars (1);
m_nState = ScreenStateStart;
break;
default:
if ('0' <= chChar && chChar <= '9')
{
m_nParam1 = chChar - '0';
m_nState = ScreenStateNumber1;
}
else
{
m_nState = ScreenStateStart;
}
break;
}
break;
case ScreenStateNumber1:
switch (chChar)
{
case ';':
m_nState = ScreenStateSemicolon;
break;
case 'L':
InsertLines (m_nParam1);
m_nState = ScreenStateStart;
break;
case 'M':
DeleteLines (m_nParam1);
m_nState = ScreenStateStart;
break;
case 'P':
DeleteChars (m_nParam1);
m_nState = ScreenStateStart;
break;
case 'X':
EraseChars (m_nParam1);
m_nState = ScreenStateStart;
break;
case 'h':
case 'l':
if (m_nParam1 == 4)
{
InsertMode (chChar == 'h');
}
m_nState = ScreenStateStart;
break;
case 'm':
SetStandoutMode (m_nParam1);
m_nState = ScreenStateStart;
break;
default:
if ('0' <= chChar && chChar <= '9')
{
m_nParam1 *= 10;
m_nParam1 += chChar - '0';
if (m_nParam1 > 99)
{
m_nState = ScreenStateStart;
}
}
else
{
m_nState = ScreenStateStart;
}
break;
}
break;
case ScreenStateSemicolon:
if ('0' <= chChar && chChar <= '9')
{
m_nParam2 = chChar - '0';
m_nState = ScreenStateNumber2;
}
else
{
m_nState = ScreenStateStart;
}
break;
case ScreenStateQuestionMark:
if ('0' <= chChar && chChar <= '9')
{
m_nParam1 = chChar - '0';
m_nState = ScreenStateNumber3;
}
else
{
m_nState = ScreenStateStart;
}
break;
case ScreenStateNumber2:
switch (chChar)
{
case 'H':
CursorMove (m_nParam1, m_nParam2);
m_nState = ScreenStateStart;
break;
case 'r':
SetScrollRegion (m_nParam1, m_nParam2);
m_nState = ScreenStateStart;
break;
default:
if ('0' <= chChar && chChar <= '9')
{
m_nParam2 *= 10;
m_nParam2 += chChar - '0';
if (m_nParam2 > 199)
{
m_nState = ScreenStateStart;
}
}
else
{
m_nState = ScreenStateStart;
}
break;
}
break;
case ScreenStateNumber3:
switch (chChar)
{
case 'h':
case 'l':
if (m_nParam1 == 25)
{
SetCursorMode (chChar == 'h');
}
m_nState = ScreenStateStart;
break;
default:
if ('0' <= chChar && chChar <= '9')
{
m_nParam1 *= 10;
m_nParam1 += chChar - '0';
if (m_nParam1 > 99)
{
m_nState = ScreenStateStart;
}
}
else
{
m_nState = ScreenStateStart;
}
break;
}
break;
default:
m_nState = ScreenStateStart;
break;
}
}
/*
* ProcessEx - process an ex command
*/
vi_rc ProcessEx( linenum n1, linenum n2, bool n2f, int tkn, const char *data )
{
vi_rc rc = ERR_INVALID_COMMAND, i;
char word[MAX_STR];
linenum addr, tlines;
fcb *cfcb;
line *cline;
fcb_list fcblist;
GetNextWord1( data, word );
data = word;
if( GetAddress( &data, &addr ) != ERR_NO_ERR ) {
addr = -1;
}
tlines = n2 - n1 + 1;
switch( tkn ) {
case EX_T_APPEND:
if( !EditFlags.ExMode ) {
return( ERR_ONLY_VALID_IN_EX_MODE );
}
if( !n2f ) {
rc = Append( n1, true );
}
break;
case EX_T_CHANGE:
if( !EditFlags.ExMode ) {
return( ERR_ONLY_VALID_IN_EX_MODE );
}
StartUndoGroup( UndoStack );
rc = DeleteLineRange( n1, n2, 0 );
if( rc != ERR_NO_ERR ) {
EndUndoGroup( UndoStack );
break;
}
rc = Append( n1 - 1, false );
if( rc != ERR_NO_ERR ) {
EndUndoGroup( UndoStack );
break;
}
break;
case EX_T_COPY:
if( addr < 0 || IsPastLastLine( addr ) ) {
return( ERR_INVALID_ADDRESS );
}
i = GetCopyOfLineRange( n1, n2, &fcblist );
if( i ) {
break;
}
rc = InsertLines( addr, &fcblist, UndoStack );
GoToLineNoRelCurs( addr );
if( rc == ERR_NO_ERR ) {
Message1( strCmmsg, tlines, "copied", addr );
}
break;
case EX_T_INSERT:
if( !EditFlags.ExMode ) {
return( ERR_ONLY_VALID_IN_EX_MODE );
}
if( !n2f ) {
rc = Append( n1 - 1, true );
}
break;
case EX_T_JOIN:
if( SaveAndResetFilePos( n1 ) != ERR_NO_ERR ) {
rc = ERR_NO_SUCH_LINE;
break;
}
if( tlines == 1 ) {
n2 = n1 + 1;
tlines = 2;
}
SetRepeatCount( tlines - 1 );
rc = JoinCurrentLineToNext();
RestoreCurrentFilePos();
GoToLineNoRelCurs( n1 );
if( rc == ERR_NO_ERR ) {
Message1( "lines %l to %l joined", n1, n2 );
}
break;
case EX_T_LIST:
if( !EditFlags.ExMode ) {
return( ERR_ONLY_VALID_IN_EX_MODE );
}
for( rc = CGimmeLinePtr( n1, &cfcb, &cline ); rc == ERR_NO_ERR; rc = CGimmeNextLinePtr( &cfcb, &cline ) ) {
if( EditFlags.LineNumbers ) {
MyPrintf( "%M %s\n", n1, cline->data );
} else {
MyPrintf( "%s\n", cline->data );
}
if( n1 >= n2 ) {
break;
}
n1++;
}
break;
case EX_T_MARK:
rc = SetGenericMark( n1, 1, C2VIKEY( word[0] ) );
break;
case EX_T_MOVE:
if( addr < 0 || IsPastLastLine( addr ) ) {
return( ERR_INVALID_ADDRESS );
}
SavebufNumber = WORK_SAVEBUF;
StartUndoGroup( UndoStack );
rc = DeleteLineRange( n1, n2, SAVEBUF_FLAG );
if( SavebufNumber != WORK_SAVEBUF ) {
/* if this changes, the command will fail
* this could be caused by checking out a read-only file
* so fix the deleted text and give an error message
*/
DoUndo();
return( ERR_INVALID_COMMAND );
}
if( rc != ERR_NO_ERR ) {
EndUndoGroup( UndoStack );
break;
}
if( addr > n2 ) {
addr -= tlines;
} else if( addr >= n1 && addr <= n2 ) {
addr = n1;
}
rc = InsertLines( addr, &WorkSavebuf->u.fcbs, UndoStack );
EndUndoGroup( UndoStack );
GoToLineNoRelCurs( addr );
if( rc == ERR_NO_ERR ) {
Message1( strCmmsg, tlines, "moved", addr );
}
break;
case EX_T_UNDO:
rc = DoUndo();
break;
case EX_T_UNDO_DMT:
rc = DoUndoUndo();
break;
case EX_T_EQUALS:
Message1( "%l", n1 );
rc = ERR_NO_ERR;
break;
case EX_T_VERSION:
rc = DoVersion();
break;
case EX_T_VISUAL:
case EX_T_VISUAL_DMT:
if( EditFlags.LineDisplay ) {
ScreenPage( -1 );
EditFlags.ExMode = false;
EditFlags.LineDisplay = false;
EditFlags.ClockActive = true;
ReDisplayScreen();
DoVersion();
}
if( word[0] != '\0' ) {
rc = EditFile( word, ( tkn == EX_T_VISUAL_DMT ) );
} else {
rc = ERR_NO_ERR;
}
break;
}
return( rc );
} /* ProcessEx */
/*
* InsertLinesAtCursor - insert a set of lines at current pos. in file
*/
vi_rc InsertLinesAtCursor( fcb_list *fcblist, undo_stack *us )
{
fcb *cfcb;
linenum e;
int lastLineLen;
char *source;
line *tLine;
vi_rc rc;
rc = ModificationTest();
if( rc != ERR_NO_ERR ) {
return( rc );
}
/*
* find the number of lines inserted
*/
e = 0;
for( cfcb = fcblist->head; cfcb != NULL; cfcb = cfcb->next ) {
e += (cfcb->end_line - cfcb->start_line + 1);
}
// add chars from right of cursor to end of last line of buffer
source = CurrentLine->data + CurrentPos.column - 1;
lastLineLen = fcblist->tail->lines.tail->len;
fcblist->tail->lines.tail->len += CurrentLine->len - CurrentPos.column + 1;
fcblist->tail->byte_cnt += CurrentLine->len - CurrentPos.column + 1;
tLine = fcblist->tail->lines.tail->prev;
fcblist->tail->lines.tail = MemReAlloc( fcblist->tail->lines.tail,
sizeof( line ) + fcblist->tail->lines.tail->len + 1 );
if( tLine ) {
tLine->next = fcblist->tail->lines.tail;
}
strcpy( fcblist->tail->lines.tail->data + lastLineLen, source );
StartUndoGroup( us );
// create new current line in work line
CurrentLineReplaceUndoStart();
GetCurrentLine();
WorkLine->len = CurrentPos.column + fcblist->head->lines.head->len - 1;
strcpy( WorkLine->data + CurrentPos.column - 1, fcblist->head->lines.head->data );
// replace current line
ReplaceCurrentLine();
CurrentLineReplaceUndoEnd( true );
// remove first line of buffer
FetchFcb( fcblist->head );
fcblist->head->non_swappable = true;
fcblist->head->start_line++;
fcblist->head->byte_cnt -= fcblist->head->lines.head->len + 1;
tLine = fcblist->head->lines.head;
fcblist->head->lines.head = fcblist->head->lines.head->next;
fcblist->head->lines.head->prev = NULL;
MemFree( tLine );
fcblist->head->non_swappable = false;
// add rest of lines of buffer & done
if( fcblist->head->lines.head) {
InsertLines( CurrentPos.line, fcblist, us );
}
EndUndoGroup( us );
// if are indeed linebased, move cursor as well
if( !EditFlags.LineBased ) {
GoToLineNoRelCurs( CurrentPos.line + e - 1 );
GoToColumnOnCurrentLine( lastLineLen + 1 );
}
return( ERR_NO_ERR );
} /* InsertLinesAtCursor */
