23 lines
478 B
HolyC
23 lines
478 B
HolyC
|
/*We use the internal routines from the text editor
|
||
|
|
to cut and paste lines to rev the order of
|
||
|
|
lines in a text file.
|
||
|
|
*/
|
||
|
|
|
||
|
|
Cd(__DIR__);;
|
||
|
|
|
||
|
|
U0 Rev(U8 *in_name,U8 *out_name)
|
||
|
|
{
|
||
|
|
CDoc *doc_in =DocRead(in_name),
|
||
|
|
*doc_out=DocNew(out_name);
|
||
|
|
DocTop(doc_in);
|
||
|
|
while (doc_in->head.next!=doc_in) {
|
||
|
|
EdLineDown(doc_in,SC_CURSOR_DOWN|SCF_SHIFT);
|
||
|
|
ClipCut(doc_in);
|
||
|
|
DocTop(doc_out);
|
||
|
|
ClipPaste(doc_out);
|
||
|
|
}
|
||
|
|
DocWrite(doc_out);
|
||
|
|
}
|
||
|
|
|
||
|
|
Rev("DemoPoemBwd.DD.Z","~/DemoPoemFwd.DD.Z");
|