111 lines
3.1 KiB
C++
111 lines
3.1 KiB
C++
|
|
||
|
|
// ------------------------------------------------------------------
|
||
|
|
// GoldED+
|
||
|
|
// Copyright (C) 1990-1999 Odinn Sorensen
|
||
|
|
// Copyright (C) 1999-2000 Alexander S. Aganichev
|
||
|
|
// ------------------------------------------------------------------
|
||
|
|
// This program is free software; you can redistribute it and/or
|
||
|
|
// modify it under the terms of the GNU General Public License as
|
||
|
|
// published by the Free Software Foundation; either version 2 of the
|
||
|
|
// License, or (at your option) any later version.
|
||
|
|
//
|
||
|
|
// This program is distributed in the hope that it will be useful,
|
||
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||
|
|
// General Public License for more details.
|
||
|
|
//
|
||
|
|
// You should have received a copy of the GNU General Public License
|
||
|
|
// along with this program; if not, write to the Free Software
|
||
|
|
// Foundation, Inc., 59 Temple Place, Suite 330, Boston,
|
||
|
|
// MA 02111-1307 USA
|
||
|
|
// ------------------------------------------------------------------
|
||
|
|
// $Id$
|
||
|
|
// ------------------------------------------------------------------
|
||
|
|
// OS/2 clipboard to/from edit paste buffer.
|
||
|
|
// ------------------------------------------------------------------
|
||
|
|
|
||
|
|
#include <golded.h>
|
||
|
|
#include <geedit.h>
|
||
|
|
#include <gutlclip.h>
|
||
|
|
|
||
|
|
void IEclass::Clip2Buf() {
|
||
|
|
|
||
|
|
gclipbrd clipbrd;
|
||
|
|
|
||
|
|
if(not clipbrd.openread())
|
||
|
|
return;
|
||
|
|
|
||
|
|
int tabsz = CFG->disptabsize ? CFG->disptabsize : 1;
|
||
|
|
__extension__ char spaces[tabsz+1];
|
||
|
|
memset(spaces, ' ', tabsz);
|
||
|
|
spaces[tabsz] = NUL;
|
||
|
|
|
||
|
|
// Allocate paragraph read buffer
|
||
|
|
char *buf = (char *)throw_malloc(EDIT_PARABUFLEN);
|
||
|
|
Line *__line = NULL;
|
||
|
|
|
||
|
|
Undo->undo_enabled = NO;
|
||
|
|
|
||
|
|
// Read paragraphs
|
||
|
|
while(clipbrd.read(buf, EDIT_PARABUFLEN-6)) {
|
||
|
|
|
||
|
|
// Replace tabs
|
||
|
|
char *ht = buf;
|
||
|
|
while((ht = strchr(ht, '\t')) != NULL) {
|
||
|
|
int rposn = ht-buf;
|
||
|
|
int rstart = rposn%tabsz+1;
|
||
|
|
*ht = ' ';
|
||
|
|
if(tabsz > rstart)
|
||
|
|
strins(spaces+rstart, buf, rposn);
|
||
|
|
}
|
||
|
|
|
||
|
|
// Copy the paragraph to the new line and retype it
|
||
|
|
Line* _newline = __line = insertlinebelow(__line, buf);
|
||
|
|
if(Edit__pastebuf == NULL)
|
||
|
|
Edit__pastebuf = _newline;
|
||
|
|
setlinetype(_newline);
|
||
|
|
|
||
|
|
// If the paragraph is longer than one line
|
||
|
|
uint _wrapmargin = (_newline->type & GLINE_QUOT) ? marginquotes : margintext;
|
||
|
|
if(strlen(_newline->text) >= _wrapmargin) {
|
||
|
|
|
||
|
|
// Wrap it
|
||
|
|
uint _tmpcol = 0;
|
||
|
|
uint _tmprow = 0;
|
||
|
|
_newline = wrapins(&_newline, &_tmpcol, &_tmprow, NO);
|
||
|
|
}
|
||
|
|
|
||
|
|
__line = _newline;
|
||
|
|
}
|
||
|
|
Undo->undo_enabled = YES;
|
||
|
|
throw_free(buf);
|
||
|
|
clipbrd.close();
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
void IEclass::Buf2Clip() {
|
||
|
|
|
||
|
|
gclipbrd clipbrd;
|
||
|
|
int buflen = 0;
|
||
|
|
Line *_bufline;
|
||
|
|
|
||
|
|
for(_bufline = Edit__pastebuf; _bufline; _bufline = _bufline->next)
|
||
|
|
buflen += strlen(_bufline->text) + 1;
|
||
|
|
|
||
|
|
char *clipdata = (char *)throw_malloc(buflen);
|
||
|
|
|
||
|
|
char *curptr = clipdata;
|
||
|
|
*curptr = NUL;
|
||
|
|
for(_bufline = Edit__pastebuf; _bufline; _bufline = _bufline->next) {
|
||
|
|
strcpy(curptr, _bufline->text);
|
||
|
|
if(*curptr) {
|
||
|
|
curptr += strlen(curptr) - 1;
|
||
|
|
if(*curptr == '\n') strcpy(curptr, "\r\n");
|
||
|
|
}
|
||
|
|
curptr += strlen(curptr);
|
||
|
|
}
|
||
|
|
|
||
|
|
clipbrd.writeclipbrd(clipdata);
|
||
|
|
throw_free(clipdata);
|
||
|
|
}
|