#include <config.h>

#include FORMS_H_LOCATION
#include "print_form.h"
#include "lyx_main.h"
#include "lyxrc.h"
#include "LString.h"
#include "filetools.h"
#include "pathstack.h"
#include "buffer.h"
#include "lyx_gui_misc.h"
#include "syscall.h"
#include "gettext.h"
#include "lyx_cb.h"

//  $Id: LyXSendto.C,v 1.3 1998/10/21 09:29:14 lasgoutt Exp $

#if !defined(lint) && !defined(WITH_WARNINGS)
static char vcid[] = "$Id: LyXSendto.C,v 1.3 1998/10/21 09:29:14 lasgoutt Exp $";
#endif /* lint */

/* Prototypes */
extern FD_form_sendto *fd_form_sendto;
extern BufferView *current_view;
extern int MakeDVIOutput(Buffer *buffer);
extern bool MenuRunDvips(Buffer *buffer, bool wait);

// Whereas this feature is under the menu item File->Export->Custom,
// I kept the old name sendto in the code because I am lazy (JMarc)

void MenuSendto()
{
    // do this only if the command is empty
    if (!fl_get_input(fd_form_sendto->input_cmd) &&
        !lyxrc->custom_export_command.empty())
        fl_set_input(fd_form_sendto->input_cmd,
                     lyxrc->custom_export_command.c_str());
    if (fd_form_sendto->form_sendto->visible) {
        fl_raise_form(fd_form_sendto->form_sendto);
    } else {  
        fl_show_form(fd_form_sendto->form_sendto,
                     FL_PLACE_MOUSE | FL_FREE_SIZE, FL_FULLBORDER,
                     _("Send Document to Command"));
    }
}

void SendtoApplyCB(FL_OBJECT *, long)
{
    if (!current_view->available())
        return;

    LString command = fl_get_input(fd_form_sendto->input_cmd);
    if (command.empty())
        return;
    Buffer *buffer = current_view->currentBuffer();
    if (fl_get_button(fd_form_sendto->radio_ftype_dvi) ||
        fl_get_button(fd_form_sendto->radio_ftype_ps)) {
        ProhibitInput();
        // Generate dvi file and check if there are errors in the .lyx file
        if (MakeDVIOutput(buffer) > 0) {
            AllowInput();
            return;
        }
        AllowInput();
    }
    LString ftypeext;
    if (fl_get_button(fd_form_sendto->radio_ftype_lyx))
        ftypeext = ".lyx";
    else if (fl_get_button(fd_form_sendto->radio_ftype_latex))
        ftypeext = ".tex";
    else if (fl_get_button(fd_form_sendto->radio_ftype_dvi))
        ftypeext = ".dvi";
    else if (fl_get_button(fd_form_sendto->radio_ftype_ascii))
        ftypeext = ".txt";
    else {
        ftypeext = ".ps_tmp";
        if (!MenuRunDvips(buffer, true)) {
     return;
 }
    }
    LString fname = ChangeExtension(buffer->getFileName(), ftypeext, true);
    if (!command.contains("$$FName"))
        command = "( " + command + " ) <$$FName";
    command.subst("$$FName",fname);
    command += " &"; // execute in background
    // push directorypath, if necessary 
    LString path = OnlyPath(buffer->getFileName());
    if (lyxrc->use_tempdir || (IsDirWriteable(path) < 1)){
        path = buffer->tmppath;
    }
    PathPush(path);
    // save the .lyx file in tmp_dir if this filetype is requested
    if (fl_get_button(fd_form_sendto->radio_ftype_lyx))
        buffer->writeFile(fname,true);
    // if the .tex file is requested save it to the tempdir
    // as now we don't do the MakeDVIOutput anymore
    if (fl_get_button(fd_form_sendto->radio_ftype_latex))
        buffer->makeLaTeXFile(fname,path,false);
    // create the .txt file in tmp_dir if this filetype is requested
    if (fl_get_button(fd_form_sendto->radio_ftype_ascii))
        buffer->writeFileAscii(fname, lyxrc->ascii_linelen);
    Systemcalls one(Systemcalls::System, command);    
    PathPop();
}

void SendtoCancelCB(FL_OBJECT *, long)
{
    fl_hide_form(fd_form_sendto->form_sendto);
}

void SendtoOKCB(FL_OBJECT *ob, long data)
{
    SendtoCancelCB(ob,data);
    SendtoApplyCB(ob,data);
}