/* FILE WRITER HTFWrite.h ** =========== ** ** This version of the stream object just writes to a C file. ** The file is assumed open and left open. ** ** Bugs: ** strings written must be less than buffer size. */ #include "HTFWriter.h" #include "HTFormat.h" #include "HTAlert.h" #include "HTFile.h" #include "LYStrings.h" #include "LYUtils.h" #ifndef VMS #include "signal.h" #endif /* Stream Object ** ------------ */ struct _HTStream { CONST HTStreamClass * isa; FILE * fp; char * end_command; char * remove_command; }; /*_________________________________________________________________________ ** ** A C T I O N R O U T I N E S ** Bug: ** All errors are ignored. */ /* Character handling ** ------------------ */ PRIVATE void HTFWriter_put_character ARGS2(HTStream *, me, char, c) { putc(c, me->fp); } /* String handling ** --------------- ** ** Strings must be smaller than this buffer size. */ PRIVATE void HTFWriter_put_string ARGS2(HTStream *, me, CONST char*, s) { fputs(s, me->fp); } /* Buffer write. Buffers can (and should!) be big. ** ------------ */ PRIVATE void HTFWriter_write ARGS3(HTStream *, me, CONST char*, s, int, l) { fwrite(s, 1, l, me->fp); } /* Free an HTML object ** ------------------- ** ** Note that the SGML parsing context is freed, but the created ** object is not, ** as it takes on an existence of its own unless explicitly freed. */ extern int InteruptTransfer; PRIVATE void HTFWriter_free ARGS1(HTStream *, me) { fflush(me->fp); if (me->end_command) { /* Temp file */ fclose(me->fp); HTProgress(me->end_command); /* Tell user what's happening */ system(me->end_command); free (me->end_command); /* if transfer was interupted remove the file */ if (InteruptTransfer && me->remove_command) { HTAlert("Removing partialy transferred file"); system(me->remove_command); free(me->remove_command); } else if(me->remove_command) { free(me->remove_command); } } free(me); } /* End writing */ PRIVATE void HTFWriter_end_document ARGS2(HTStream *, me, HTError, e) { fflush(me->fp); } /* Structured Object Class ** ----------------------- */ PRIVATE CONST HTStreamClass HTFWriter = /* As opposed to print etc */ { "FileWriter", HTFWriter_free, HTFWriter_end_document, HTFWriter_put_character, HTFWriter_put_string, HTFWriter_write }; /* Subclass-specific Methods ** ------------------------- */ PUBLIC HTStream* HTFWriter_new ARGS1(FILE *, fp) { HTStream* me; if (!fp) return NULL; me = (HTStream*)calloc(sizeof(*me),1); if (me == NULL) outofmem(__FILE__, "HTML_new"); me->isa = &HTFWriter; me->fp = fp; me->end_command = NULL; me->remove_command = NULL; return me; } /* Make system command from template ** --------------------------------- ** ** See mailcap spec for description of template. */ /* @@ to be written. sprintfs will do for now. */ /* Take action using a system command ** ---------------------------------- ** ** originally from Ghostview handling by Marc Andreseen. ** Creates temporary file, writes to it, executes system command ** on end-document. The suffix of the temp file can be given ** in case the application is fussy, or so that a generic opener can ** be used. */ PUBLIC HTStream* HTSaveAndExecute ARGS3( HTPresentation *, pres, HTParentAnchor *, anchor, /* Not used */ HTStream *, sink) /* Not used */ #ifdef unix #define REMOVE_COMMAND "/bin/rm -f %s" #endif #ifdef VMS #define REMOVE_COMMAND "delete/noconfirm/nolog %s.." #endif #ifdef REMOVE_COMMAND { char *fnam; CONST char * suffix; HTStream* me; me = (HTStream*)calloc(sizeof(*me),1); if (me == NULL) outofmem(__FILE__, "Save and execute"); me->isa = &HTFWriter; /* Save the file under a suitably suffixed name */ suffix = HTFileSuffix(pres->rep); fnam = (char *)calloc (L_tmpnam + 16 + strlen(suffix),1); tempname (fnam, 0); /* lynx routine to create a filename */ if (suffix) strcat(fnam, suffix); me->fp = fopen (fnam, "w"); if (!me->fp) { HTAlert("Can't open temporary file!"); free(fnam); free(me); return NULL; } /* Make command to process file */ me->end_command = (char *)calloc ( (strlen (pres->command) + 10+ 3*strlen(fnam)) * sizeof (char),1); if (me == NULL) outofmem(__FILE__, "SaveAndExecute"); sprintf (me->end_command, pres->command, fnam, fnam, fnam); /* Make command to delete file */ me->remove_command = (char *)calloc ( (strlen (REMOVE_COMMAND) + 10+ strlen(fnam)) * sizeof (char),1); if (me == NULL) outofmem(__FILE__, "SaveAndExecute"); sprintf (me->remove_command, REMOVE_COMMAND, fnam); free (fnam); return me; } #else /* cant do remove */ { return NULL; } #endif /* Format Converter using system command ** ------------------------------------- */ /* @@@@@@@@@@@@@@@@@@@@@@ */ /* Save to a local file LJM!!! ** -------------------- ** ** usually a binary file that can't be displayed ** ** originally from Ghostview handling by Marc Andreseen. ** Asks the user for a file name, creates the file, and writes ** to it. */ PUBLIC HTStream* HTSaveToFile ARGS3( HTPresentation *, pres, HTParentAnchor *, anchor, /* Not used */ HTStream *, sink) /* Not used */ { HTStream * ret_obj; char fnam[240]; char *last_slash; void async_interupt(); ret_obj = (HTStream*)calloc(sizeof(* ret_obj),1); if (ret_obj == NULL) outofmem(__FILE__, "Save To File"); ret_obj->isa = &HTFWriter; ret_obj->remove_command = NULL; ret_obj->end_command = NULL; statusline("Saving file to disk, enter file name: "); last_slash = strrchr(anchor->address,'/'); if(last_slash != NULL) strcpy(fnam,last_slash+1); else strcpy(fnam,anchor->address); change_sug_filename(fnam); #ifdef HAVE_SIGIO signal(SIGIO, SIG_IGN); #endif HAVE_SIGIO if(LYgetstr(fnam, VISIBLE) == -1 || fnam[0] == '\0') { statusline("Cancelling file! -- Please Wait"); free(ret_obj); return NULL; } #ifdef HAVE_SIGIO signal(SIGIO, async_interupt); #endif HAVE_SIGIO ret_obj->fp = fopen (fnam, "w"); if (!ret_obj->fp) { HTAlert("Can't open output file! Cancelling"); free(ret_obj); return NULL; } /* Make command to delete file */ ret_obj->remove_command = (char *)calloc ( (strlen (REMOVE_COMMAND) + 10+ strlen(fnam)) * sizeof (char),1); if (ret_obj == NULL) outofmem(__FILE__, "SaveAndExecute"); sprintf (ret_obj->remove_command, REMOVE_COMMAND, fnam); statusline("Retrieving file. - PLEASE WAIT -"); return ret_obj; }