90 lines
2.1 KiB
C
90 lines
2.1 KiB
C
/*
|
|
TXTWRITE.C
|
|
*/
|
|
|
|
#include <p_std.h>
|
|
#include <p_file.h>
|
|
#include <ws$txt.g>
|
|
#include "wpfconv.h"
|
|
|
|
GLREF_D VOID *DatApp5;
|
|
|
|
LOCAL_C INT OpenFile(PR_TXTSAVE *self)
|
|
/* forces .TXT extension */
|
|
{
|
|
TEXT extension[6];
|
|
P_INFO info;
|
|
TEXT name[P_FNAMESIZE];
|
|
|
|
*((UWORD *)&extension[0])='.'+('T'<<8);
|
|
*((UWORD *)&extension[2])='X'+('T'<<8);
|
|
extension[4]=0;
|
|
f_fparse(&extension[0],DatApp5,&name[0],NULL);
|
|
if (!p_finfo(&name[0],&info))
|
|
{
|
|
if (!DoConfirmOverwrite())
|
|
return(FALSE);
|
|
}
|
|
f_open(&self->active.pcb,&name[0],P_FUPDATE|P_FREPLACE|P_FSTREAM_TEXT);
|
|
return(TRUE);
|
|
}
|
|
|
|
LOCAL_C VOID ReplaceNulls(TEXT *p,UINT len)
|
|
{
|
|
TEXT *pe;
|
|
|
|
for (pe=p+len;p<pe;p++)
|
|
{
|
|
if (!*p)
|
|
*p=CHAR_CR;
|
|
}
|
|
}
|
|
|
|
#pragma METHOD_CALL
|
|
|
|
METHOD VOID txtsave_ao_init(PR_TXTSAVE *self)
|
|
{
|
|
OpenFile(self);
|
|
self->txtsave.ntags=CountTags();
|
|
StartActive(self);
|
|
}
|
|
METHOD VOID txtsave_ao_queue(PR_TXTSAVE *self)
|
|
{
|
|
self->active.isactive=TRUE;
|
|
p_iosignal();
|
|
}
|
|
METHOD INT txtsave_ao_run(PR_TXTSAVE *self)
|
|
{
|
|
PARA_STYLE style;
|
|
EMPH_STYLE emphasis;
|
|
UINT taglen,txtlen;
|
|
|
|
taglen=SenseTagItem(self->txtsave.curtag++,&style,&emphasis);
|
|
while (taglen)
|
|
{
|
|
txtlen=taglen>TXTSAVE_BUFFER_LEN ? TXTSAVE_BUFFER_LEN : taglen;
|
|
ExtractText(self->txtsave.pos,&self->txtsave.buf[0],txtlen);
|
|
ReplaceNulls(&self->txtsave.buf[0],txtlen);
|
|
f_write(self->active.pcb,&self->txtsave.buf[0],txtlen);
|
|
self->txtsave.pos+=txtlen;
|
|
taglen-=txtlen;
|
|
}
|
|
if (self->txtsave.curtag<self->txtsave.ntags)
|
|
p_send2(self,O_AO_QUEUE);
|
|
else
|
|
p_send2(self,O_DESTROY);
|
|
return(RUN_ACTIVE_USED);
|
|
}
|
|
METHOD VOID txtsave_ao_abrun(PR_TXTSAVE *self)
|
|
{
|
|
p_close(self->active.pcb);
|
|
StopActive();
|
|
p_supersend2(self,O_AO_ABRUN);
|
|
p_supersend2(self,O_DESTROY);
|
|
}
|
|
METHOD VOID txtsave_destroy(PR_TXTSAVE *self)
|
|
{
|
|
StopActive();
|
|
p_supersend2(self,O_DESTROY);
|
|
}
|