1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
/*
* notes.c
*
* Copyright (c) Chris Putnam 2016-2021
*
* Program and source code released under the GPL version 2
*
*/
#include <string.h>
#include "bibl.h"
#include "url.h"
#include "notes.h"
/*
* notes are mostly directly copies; however, lots of formats hide
* URLs/DOIs in the notes fields. For example:
*
* For RIS, Oxford Journals hides DOI in the N1 field.
* For Endnote, Wiley hides DOI in the %1 field.
* etc.
*/
typedef struct url_t {
char *prefix;
char *tag;
int offset;
} url_t;
static int
added_url( fields *bibout, str *invalue, int level )
{
url_t prefixes[] = {
{ "arXiv:", "ARXIV", 6 },
{ "http://arxiv.org/abs/", "ARXIV", 21 },
{ "jstor:", "JSTOR", 6 },
{ "http://www.jstor.org/stable/", "JSTOR", 28 },
{ "medline:", "MEDLINE", 8 },
{ "pubmed:", "PMID", 7 },
{ "http://www.ncbi.nlm.nih.gov/pubmed/", "PMID", 35 },
{ "http://www.ncbi.nlm.nih.gov/pmc/articles/", "PMC", 41 },
{ "http://dx.doi.org/", "DOI", 19 },
{ "isi:", "ISIREFNUM", 4 },
};
int nprefixes = sizeof( prefixes ) / sizeof( prefixes[0] );
const char *p = str_cstr( invalue );
char *tag = "URL";
int fstatus;
int i;
/* bibtex/biblatex-specific */
if ( !strncasecmp( p, "\\urllink", 8 ) ) p += 8;
if ( !strncasecmp( p, "\\url", 4 ) ) p += 4;
for ( i=0; i<nprefixes; ++i ) {
if ( !strncasecmp( p, prefixes[i].prefix, prefixes[i].offset ) ) {
tag = prefixes[i].tag;
p = p + prefixes[i].offset;
break;
}
}
fstatus = fields_add( bibout, tag, p, level );
if ( fstatus==FIELDS_OK ) return BIBL_OK;
else return BIBL_ERR_MEMERR;
}
static int
added_doi( fields *bibout, str *invalue, int level, int *status )
{
int doi, fstatus;
*status = BIBL_OK;
doi = is_doi( str_cstr( invalue ) );
if ( doi != -1 ) {
fstatus = fields_add( bibout, "DOI", &(invalue->data[doi]), level );
if ( fstatus != FIELDS_OK ) *status = BIBL_ERR_MEMERR;
return 1;
}
else return 0;
}
int
add_notes( fields *bibout, str *invalue, int level )
{
int fstatus, done, status;
if ( !is_embedded_link( str_cstr( invalue ) ) ) {
fstatus = fields_add( bibout, "NOTES", str_cstr( invalue ), level );
if ( fstatus != FIELDS_OK ) return BIBL_ERR_MEMERR;
else return BIBL_OK;
}
else {
done = added_doi( bibout, invalue, level, &status );
if ( !done ) status = added_url( bibout, invalue, level );
return status;
}
}
|
