Files
TempleOS-Rijn/Demo/ReverseFileExample/Reverse.CPP
T
2018-09-08 21:46:29 +02:00

23 lines
508 B
C++

/*We use the internal routines from the text editor
to cut and paste lines to reverse the order of
lines in a text file.
*/
Cd(__DIR__);;
U0 Reverse(U8 *in_name,U8 *out_name)
{
CDoc *doc_in =DocRead(in_name),
*doc_out=DocNew(out_name);
DocTop(doc_in);
while (doc_in->root.next!=doc_in) {
EdLineDown(doc_in,SC_CURSOR_DOWN|SCF_SHIFT);
EdCutToClipboard(doc_in);
DocTop(doc_out);
EdPasteClipboard(doc_out);
}
DocWrite(doc_out);
}
Reverse("PoemBackward.TXT.Z","PoemForeward.TXT.Z");