mirror of
https://git.lyx.org/repos/lyx.git
synced 2024-09-23 00:11:49 +00:00
549 lines
14 KiB
C++
549 lines
14 KiB
C++
|
|
||
|
#include <config.h>
|
||
|
|
||
|
#include <stdlib.h>
|
||
|
|
||
|
#ifdef __GNUG__
|
||
|
#pragma implementation
|
||
|
#endif
|
||
|
|
||
|
#include FORMS_H_LOCATION
|
||
|
#include "insetbib.h"
|
||
|
#include "combox.h"
|
||
|
#include "buffer.h"
|
||
|
#include "error.h"
|
||
|
#include "lyx_gui_misc.h"
|
||
|
#include "BufferView.h"
|
||
|
#include "gettext.h"
|
||
|
#include "bibforms.h"
|
||
|
#include "lyxtext.h"
|
||
|
#include "filetools.h"
|
||
|
|
||
|
extern BufferView *current_view;
|
||
|
|
||
|
FD_citation_form *citation_form=0;
|
||
|
FD_bibitem_form *bibitem_form=0;
|
||
|
static Combox *bibcombox = NULL;
|
||
|
|
||
|
extern void UpdateInset(Inset* inset, bool mark_dirty = true);
|
||
|
void BibitemUpdate(Combox *);
|
||
|
void bibitem_cb(FL_OBJECT *, long);
|
||
|
FD_citation_form * create_form_citation_form(void);
|
||
|
FD_bibitem_form * create_form_bibitem_form(void);
|
||
|
|
||
|
|
||
|
void bibitem_cb(FL_OBJECT *, long data)
|
||
|
{
|
||
|
switch (data) {
|
||
|
// case 0: fl_hide_form(citation_form->citation_form);
|
||
|
// break;
|
||
|
// case 1:
|
||
|
case 1: // OK, citation
|
||
|
{
|
||
|
// InsetCommand *inset = (InsetCommand*)citation_form->vdata;
|
||
|
// inset->setContents(bibcombox->getline());
|
||
|
// inset->setOptions(fl_get_input(citation_form->label));
|
||
|
// fl_hide_form(citation_form->citation_form);
|
||
|
// UpdateInset(inset);
|
||
|
// break;
|
||
|
if(!current_view->currentBuffer()->isReadonly()) {
|
||
|
InsetCommand *inset = (InsetCommand*)citation_form->vdata;
|
||
|
inset->setContents(bibcombox->getline());
|
||
|
inset->setOptions(fl_get_input(citation_form->label));
|
||
|
fl_hide_form(citation_form->citation_form);
|
||
|
// shouldn't mark the buffer dirty unless something
|
||
|
// was actually altered
|
||
|
UpdateInset(inset);
|
||
|
break;
|
||
|
}
|
||
|
// fall through to Cancel on RO-mode
|
||
|
}
|
||
|
// case 2: fl_hide_form(bibitem_form->bibitem_form);
|
||
|
case 0: fl_hide_form(citation_form->citation_form);
|
||
|
break;
|
||
|
// case 3:
|
||
|
|
||
|
case 3: // OK, bibitem
|
||
|
{
|
||
|
// InsetCommand *inset = (InsetCommand *)bibitem_form->vdata;
|
||
|
// inset->setContents(fl_get_input(bibitem_form->key));
|
||
|
// inset->setOptions(fl_get_input(bibitem_form->label));
|
||
|
// fl_hide_form(bibitem_form->bibitem_form);
|
||
|
// // Does look like a hack? It is! (but will change at 0.13)
|
||
|
// current_view->currentBuffer()->text->RedoParagraph();
|
||
|
// current_view->currentBuffer()->update(1);
|
||
|
// break;
|
||
|
if(!current_view->currentBuffer()->isReadonly()) {
|
||
|
InsetCommand *inset = (InsetCommand *)bibitem_form->vdata;
|
||
|
inset->setContents(fl_get_input(bibitem_form->key));
|
||
|
inset->setOptions(fl_get_input(bibitem_form->label));
|
||
|
fl_hide_form(bibitem_form->bibitem_form);
|
||
|
// Does look like a hack? It is! (but will change at 0.13)
|
||
|
current_view->currentBuffer()->text->RedoParagraph();
|
||
|
current_view->currentBuffer()->update(1);
|
||
|
break;
|
||
|
} // fall through to Cancel on RO-mode
|
||
|
}
|
||
|
case 2: // Cancel, bibitem
|
||
|
fl_hide_form(bibitem_form->bibitem_form); // Cancel, bibitem
|
||
|
break;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
FD_citation_form *create_form_citation_form(void)
|
||
|
{
|
||
|
FL_OBJECT *obj;
|
||
|
FD_citation_form *fdui = (FD_citation_form *) fl_calloc(1, sizeof(FD_citation_form));
|
||
|
|
||
|
fdui->citation_form = fl_bgn_form(FL_NO_BOX, 220, 130);
|
||
|
obj = fl_add_box(FL_UP_BOX,0,0,220,130,"");
|
||
|
fdui->key = obj = fl_add_text(FL_NORMAL_TEXT,20,10,60,30,_("Key:"));
|
||
|
fl_set_object_lsize(obj,FL_NORMAL_SIZE);
|
||
|
fl_set_object_lalign(obj,FL_ALIGN_RIGHT);
|
||
|
|
||
|
bibcombox = new Combox(FL_COMBOX_INPUT);
|
||
|
bibcombox->add(80,10,130,30, 120);
|
||
|
|
||
|
obj = fl_add_button(FL_RETURN_BUTTON,20,90,90,30,_("OK"));
|
||
|
fl_set_object_lsize(obj,FL_NORMAL_SIZE);
|
||
|
fl_set_object_callback(obj,bibitem_cb,1);
|
||
|
obj = fl_add_button(FL_NORMAL_BUTTON,120,90,90,30,idex(_("Cancel|^[")));
|
||
|
fl_set_button_shortcut(obj,scex(_("Cancel|^[")),1);
|
||
|
fl_set_object_lsize(obj,FL_NORMAL_SIZE);
|
||
|
fl_set_object_callback(obj,bibitem_cb,0);
|
||
|
fdui->label = obj = fl_add_input(FL_NORMAL_INPUT,80,50,130,30,idex(_("Remark:|#R")));
|
||
|
fl_set_input_shortcut(obj,scex(_("Remark:|#R")),1);
|
||
|
fl_set_object_lsize(obj,FL_NORMAL_SIZE);
|
||
|
fl_end_form();
|
||
|
|
||
|
//fdui->citation_form->fdui = fdui;
|
||
|
|
||
|
return fdui;
|
||
|
}
|
||
|
/*---------------------------------------*/
|
||
|
|
||
|
FD_bibitem_form *create_form_bibitem_form(void)
|
||
|
{
|
||
|
FL_OBJECT *obj;
|
||
|
FD_bibitem_form *fdui = (FD_bibitem_form *) fl_calloc(1, sizeof(FD_bibitem_form));
|
||
|
|
||
|
fdui->bibitem_form = fl_bgn_form(FL_NO_BOX, 220, 130);
|
||
|
obj = fl_add_box(FL_UP_BOX,0,0,220,130,"");
|
||
|
fdui->key = obj = fl_add_input(FL_NORMAL_INPUT,80,10,130,30,idex(_("Key:|#K")));
|
||
|
fl_set_input_shortcut(obj,scex(_("Key:|#K")),1);
|
||
|
fl_set_object_lsize(obj,FL_NORMAL_SIZE);
|
||
|
obj = fl_add_button(FL_RETURN_BUTTON,20,90,90,30,_("OK"));
|
||
|
fl_set_object_lsize(obj,FL_NORMAL_SIZE);
|
||
|
fl_set_object_callback(obj,bibitem_cb,3);
|
||
|
obj = fl_add_button(FL_NORMAL_BUTTON,120,90,90,30,idex(_("Cancel|^[")));
|
||
|
fl_set_button_shortcut(obj,scex(_("Cancel|^[")),1);
|
||
|
fl_set_object_lsize(obj,FL_NORMAL_SIZE);
|
||
|
fl_set_object_callback(obj,bibitem_cb,2);
|
||
|
fdui->label = obj = fl_add_input(FL_NORMAL_INPUT,80,50,130,30,idex(_("Label:|#L")));
|
||
|
fl_set_input_shortcut(obj,scex(_("Label:|#L")),1);
|
||
|
fl_set_object_lsize(obj,FL_NORMAL_SIZE);
|
||
|
fl_end_form();
|
||
|
|
||
|
//fdui->bibitem_form->fdui = fdui;
|
||
|
|
||
|
return fdui;
|
||
|
}
|
||
|
/*---------------------------------------*/
|
||
|
|
||
|
|
||
|
InsetCitation::InsetCitation(LString const & key, LString const & note):
|
||
|
InsetCommand("cite", key, note)
|
||
|
{
|
||
|
|
||
|
}
|
||
|
InsetCitation::~InsetCitation()
|
||
|
{
|
||
|
if(citation_form && citation_form->citation_form
|
||
|
&& citation_form->citation_form->visible
|
||
|
&& citation_form->vdata == this)
|
||
|
fl_hide_form(citation_form->citation_form);
|
||
|
}
|
||
|
|
||
|
|
||
|
void InsetCitation::Edit(int, int)
|
||
|
{
|
||
|
if(current_view->currentBuffer()->isReadonly())
|
||
|
WarnReadonly();
|
||
|
|
||
|
if (!citation_form) {
|
||
|
citation_form = create_form_citation_form();
|
||
|
fl_set_form_atclose(citation_form->citation_form,
|
||
|
CancelCloseBoxCB, NULL);
|
||
|
}
|
||
|
citation_form->vdata = this;
|
||
|
|
||
|
BibitemUpdate(bibcombox);
|
||
|
if (!bibcombox->select_text(getContents().c_str()))
|
||
|
bibcombox->addline(getContents().c_str());
|
||
|
|
||
|
fl_set_input(citation_form->label, getOptions().c_str());
|
||
|
if (citation_form->citation_form->visible) {
|
||
|
fl_raise_form(citation_form->citation_form);
|
||
|
} else {
|
||
|
fl_show_form(citation_form->citation_form,FL_PLACE_MOUSE, FL_FULLBORDER,
|
||
|
_("Citation"));
|
||
|
}
|
||
|
}
|
||
|
|
||
|
|
||
|
LString InsetCitation::getScreenLabel() const
|
||
|
{
|
||
|
LString temp('[');
|
||
|
|
||
|
temp+=contents;
|
||
|
|
||
|
if (!options.empty()) {
|
||
|
temp+=","+options;
|
||
|
}
|
||
|
|
||
|
return temp+']';
|
||
|
}
|
||
|
|
||
|
|
||
|
InsetBibKey::InsetBibKey(LString const & key, LString const & label):
|
||
|
InsetCommand("bibitem", key, label)
|
||
|
{
|
||
|
counter = 1;
|
||
|
if (key.empty())
|
||
|
contents = ' ';
|
||
|
}
|
||
|
|
||
|
|
||
|
InsetBibKey::InsetBibKey(InsetBibKey const *b):
|
||
|
InsetCommand("bibitem", b->contents, b->options)
|
||
|
{
|
||
|
counter = b->counter;
|
||
|
}
|
||
|
|
||
|
InsetBibKey::~InsetBibKey()
|
||
|
{
|
||
|
if(bibitem_form && bibitem_form->bibitem_form
|
||
|
&& bibitem_form->bibitem_form->visible)
|
||
|
fl_hide_form(bibitem_form->bibitem_form);
|
||
|
}
|
||
|
|
||
|
void InsetBibKey::setCounter(int c)
|
||
|
{
|
||
|
counter = c;
|
||
|
|
||
|
if (contents.empty())
|
||
|
contents += counter;
|
||
|
}
|
||
|
|
||
|
|
||
|
// I'm sorry but this is still necessary because \bibitem is used also
|
||
|
// as a LyX 2.x command, and lyxlex is not enough smart to understand
|
||
|
// real LaTeX commands. Yes, that could be fixed, but would be a waste
|
||
|
// of time cause LyX3 won't use lyxlex anyway. (ale)
|
||
|
void InsetBibKey::Write(FILE *file)
|
||
|
{
|
||
|
LString s;
|
||
|
if (!options.empty()) {
|
||
|
s += '[';
|
||
|
s += options + ']';
|
||
|
}
|
||
|
s += '{';
|
||
|
s += contents + '}';
|
||
|
fprintf(file,"\\bibitem %s\n", s.c_str());
|
||
|
}
|
||
|
|
||
|
|
||
|
LString InsetBibKey::getScreenLabel() const
|
||
|
{
|
||
|
if (!options.empty())
|
||
|
return options;
|
||
|
|
||
|
LString s;
|
||
|
return s + counter;
|
||
|
}
|
||
|
|
||
|
|
||
|
/*
|
||
|
The value in "Key:" isn't allways set right after a few bibkey insets have
|
||
|
been added/removed. Perhaps the wrong object is deleted/used somewhere upwards?
|
||
|
(Joacim 1998-03-04)
|
||
|
*/
|
||
|
void InsetBibKey::Edit(int, int)
|
||
|
{
|
||
|
if(current_view->currentBuffer()->isReadonly())
|
||
|
WarnReadonly();
|
||
|
|
||
|
if (!bibitem_form) {
|
||
|
bibitem_form = create_form_bibitem_form();
|
||
|
fl_set_form_atclose(bibitem_form->bibitem_form,
|
||
|
CancelCloseBoxCB, NULL);
|
||
|
}
|
||
|
bibitem_form->vdata = this;
|
||
|
// InsetBibtex uses the same form, with different labels
|
||
|
fl_set_object_label(bibitem_form->key, idex(_("Key:|#K")));
|
||
|
fl_set_button_shortcut(bibitem_form->key,scex(_("Key:|#K")),1);
|
||
|
fl_set_object_label(bibitem_form->label, idex(_("Label:|#L")));
|
||
|
fl_set_button_shortcut(bibitem_form->label,scex(_("Label:|#L")),1);
|
||
|
fl_set_input(bibitem_form->key, getContents().c_str());
|
||
|
fl_set_input(bibitem_form->label, getOptions().c_str());
|
||
|
if (bibitem_form->bibitem_form->visible) {
|
||
|
fl_raise_form(bibitem_form->bibitem_form);
|
||
|
} else {
|
||
|
fl_show_form(bibitem_form->bibitem_form,FL_PLACE_MOUSE,
|
||
|
FL_FULLBORDER,
|
||
|
_("Bibliography item"));
|
||
|
}
|
||
|
}
|
||
|
|
||
|
|
||
|
|
||
|
InsetBibtex::InsetBibtex(LString const & dbase, LString const & style,
|
||
|
Buffer *o)
|
||
|
:InsetCommand("BibTeX", dbase, style), owner(o)
|
||
|
{
|
||
|
}
|
||
|
|
||
|
|
||
|
InsetBibtex::~InsetBibtex()
|
||
|
{
|
||
|
}
|
||
|
|
||
|
|
||
|
LString InsetBibtex::getScreenLabel() const
|
||
|
{
|
||
|
return _("BibTeX Generated References");
|
||
|
}
|
||
|
|
||
|
|
||
|
int InsetBibtex::Latex(FILE *file, signed char /*fragile*/)
|
||
|
{
|
||
|
LString bib;
|
||
|
signed char dummy = 0;
|
||
|
int result = Latex(bib, dummy);
|
||
|
fprintf(file, "%s", bib.c_str());
|
||
|
return result;
|
||
|
}
|
||
|
|
||
|
|
||
|
int InsetBibtex::Latex(LString &file, signed char /*fragile*/)
|
||
|
{
|
||
|
// this looks like an horrible hack and it is :) The problem
|
||
|
// is that owner is not initialized correctly when the bib
|
||
|
// inset is cut and pasted. Such hacks will not be needed
|
||
|
// later (JMarc)
|
||
|
if (!owner) {
|
||
|
owner = current_view->currentBuffer();
|
||
|
}
|
||
|
// If we generate in a temp dir, we might need to give an
|
||
|
// absolute path there. This is a bit complicated since we can
|
||
|
// have a comma-separated list of bibliographies
|
||
|
LString db_in, adb, db_out;
|
||
|
db_in = getContents();
|
||
|
db_in.split(adb, ',');
|
||
|
while(!adb.empty()) {
|
||
|
if (!owner->niceFile &&
|
||
|
IsFileReadable(MakeAbsPath(adb,owner->filepath)+".bib"))
|
||
|
adb = MakeAbsPath(adb,owner->filepath);
|
||
|
db_out += adb;
|
||
|
db_out += ',';
|
||
|
db_in.split(adb,',');
|
||
|
}
|
||
|
db_out.strip(',');
|
||
|
|
||
|
// Idem, but simpler
|
||
|
LString style;
|
||
|
if (!owner->niceFile
|
||
|
&& IsFileReadable(MakeAbsPath(getOptions(), owner->filepath)
|
||
|
+ ".bst"))
|
||
|
style = MakeAbsPath(getOptions(), owner->filepath);
|
||
|
else
|
||
|
style = getOptions();
|
||
|
|
||
|
file += "\\bibliographystyle{";
|
||
|
file += style;
|
||
|
file += "}\n";
|
||
|
file += "\\bibliography{";
|
||
|
file += db_out;
|
||
|
file += "}\n";
|
||
|
return 2;
|
||
|
}
|
||
|
|
||
|
// This method returns a comma separated list of Bibtex entries
|
||
|
LString InsetBibtex::getKeys()
|
||
|
{
|
||
|
// This hack is copied from InsetBibtex::Latex.
|
||
|
// Is it still needed? Probably yes.
|
||
|
if (!owner) {
|
||
|
owner = current_view->currentBuffer();
|
||
|
}
|
||
|
|
||
|
// We need to create absolute path names for bibliographies
|
||
|
// First look for bib-file in same directory as document,
|
||
|
// then in all directories listed in environment variable
|
||
|
// BIBINPUTS
|
||
|
LString bibfiles, linebuf, tmp, keys;
|
||
|
bibfiles = getContents();
|
||
|
bibfiles.split(tmp, ',');
|
||
|
while(!tmp.empty()) {
|
||
|
if (IsFileReadable(MakeAbsPath(tmp,owner->filepath)+".bib"))
|
||
|
tmp = MakeAbsPath(tmp,owner->filepath)+".bib";
|
||
|
else {
|
||
|
tmp = FileOpenSearch(getEnvPath("BIBINPUTS"),tmp,"bib");
|
||
|
if (tmp.empty())
|
||
|
tmp = FileOpenSearch(getEnvPath("BIBINPUT"),
|
||
|
tmp, "bib");
|
||
|
}
|
||
|
// If we didn't find a matching file name just fail silently
|
||
|
if (!tmp.empty()) {
|
||
|
|
||
|
// This is a _very_ simple parser for Bibtex database files.
|
||
|
// All it does is to look for lines starting in @ and not
|
||
|
// being @preamble and @string entries.
|
||
|
// It does NOT do any syntax checking!
|
||
|
FilePtr file(tmp,FilePtr::read);
|
||
|
char c;
|
||
|
|
||
|
// On some systems where feof() is a macro,
|
||
|
// the () after file is needed (JMarc)
|
||
|
while (! feof(file())) {
|
||
|
c = fgetc(file);
|
||
|
|
||
|
// At end of each line check if line begins with '@'
|
||
|
if ( c == '\n') {
|
||
|
if ( linebuf.prefixIs("@") ) {
|
||
|
linebuf.subst('{','(');
|
||
|
linebuf.split(tmp,'(');
|
||
|
tmp.lowercase();
|
||
|
if ( ! tmp.prefixIs("@string") && !tmp.prefixIs("@preamble") ) {
|
||
|
linebuf.split(tmp,',');
|
||
|
if (!tmp.empty())
|
||
|
keys +=tmp.strip()+",";
|
||
|
}
|
||
|
}
|
||
|
linebuf.clean();
|
||
|
} else {
|
||
|
linebuf += c;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
// Get next file name
|
||
|
bibfiles.split(tmp, ',');
|
||
|
}
|
||
|
return keys;
|
||
|
}
|
||
|
|
||
|
// BibTeX should have its own dialog. This is provisional.
|
||
|
void InsetBibtex::Edit(int, int)
|
||
|
{
|
||
|
if (!bibitem_form) {
|
||
|
bibitem_form = create_form_bibitem_form();
|
||
|
fl_set_form_atclose(bibitem_form->bibitem_form,
|
||
|
CancelCloseBoxCB, NULL);
|
||
|
}
|
||
|
|
||
|
bibitem_form->vdata = this;
|
||
|
fl_set_object_label(bibitem_form->key, _("Database:"));
|
||
|
fl_set_object_label(bibitem_form->label, _("Style: "));
|
||
|
fl_set_input(bibitem_form->key, getContents().c_str());
|
||
|
fl_set_input(bibitem_form->label, getOptions().c_str());
|
||
|
if (bibitem_form->bibitem_form->visible) {
|
||
|
fl_raise_form(bibitem_form->bibitem_form);
|
||
|
} else {
|
||
|
fl_show_form(bibitem_form->bibitem_form,FL_PLACE_MOUSE, FL_FULLBORDER,
|
||
|
_("BibTeX"));
|
||
|
}
|
||
|
}
|
||
|
|
||
|
|
||
|
bool InsetBibtex::addDatabase(LString const &db)
|
||
|
{
|
||
|
if (!contents.contains(db.c_str())) {
|
||
|
if (!contents.empty())
|
||
|
contents += ',';
|
||
|
contents += db;
|
||
|
return true;
|
||
|
}
|
||
|
return false;
|
||
|
}
|
||
|
|
||
|
|
||
|
bool InsetBibtex::delDatabase(LString const &db)
|
||
|
{
|
||
|
if (contents.contains(db.c_str())) {
|
||
|
LString bd = db;
|
||
|
int n = contents.tokenPos(',', bd);
|
||
|
if (n > 0) {
|
||
|
LString tmp(',');
|
||
|
tmp += bd;
|
||
|
contents.subst(tmp.c_str(), ",");
|
||
|
} else if (n==0)
|
||
|
contents.split(bd, ',');
|
||
|
else
|
||
|
return false;
|
||
|
}
|
||
|
return true;
|
||
|
}
|
||
|
|
||
|
|
||
|
// This function should be in LyXView when multiframe works ale970302
|
||
|
void BibitemUpdate(Combox* combox)
|
||
|
{
|
||
|
combox->clear();
|
||
|
|
||
|
if (!current_view->available())
|
||
|
return;
|
||
|
|
||
|
LString tmp, bibkeys = current_view->currentBuffer()->getBibkeyList(',');
|
||
|
bibkeys.split(tmp,',');
|
||
|
while (!tmp.empty()) {
|
||
|
combox->addto(tmp.c_str());
|
||
|
bibkeys.split(tmp,',');
|
||
|
}
|
||
|
}
|
||
|
|
||
|
|
||
|
|
||
|
// ale070405 This function maybe shouldn't be here. We'll fix this at 0.13.
|
||
|
int bibitemMaxWidth(const class LyXFont &font)
|
||
|
{
|
||
|
int w = 0;
|
||
|
// Does look like a hack? It is! (but will change at 0.13)
|
||
|
LyXParagraph *par = current_view->currentBuffer()->paragraph;
|
||
|
|
||
|
while (par) {
|
||
|
if (par->bibkey) {
|
||
|
int wx = par->bibkey->Width(font);
|
||
|
if (wx>w) w = wx;
|
||
|
}
|
||
|
par = par->next;
|
||
|
}
|
||
|
return w;
|
||
|
}
|
||
|
|
||
|
|
||
|
// ale070405
|
||
|
LString bibitemWidthest()
|
||
|
{
|
||
|
int w = 0;
|
||
|
// Does look like a hack? It is! (but will change at 0.13)
|
||
|
LyXParagraph *par = current_view->currentBuffer()->paragraph;
|
||
|
InsetBibKey *bkey=0;
|
||
|
LyXFont font;
|
||
|
|
||
|
while (par) {
|
||
|
if (par->bibkey) {
|
||
|
int wx = par->bibkey->Width(font);
|
||
|
if (wx>w) {
|
||
|
w = wx;
|
||
|
bkey = par->bibkey;
|
||
|
}
|
||
|
}
|
||
|
par = par->next;
|
||
|
}
|
||
|
|
||
|
if (bkey && !bkey->getScreenLabel().empty())
|
||
|
return bkey->getScreenLabel();
|
||
|
|
||
|
return "99";
|
||
|
}
|