summaryrefslogtreecommitdiff
path: root/support/texlab/crates/bibutils_sys/src/type.c
diff options
context:
space:
mode:
Diffstat (limited to 'support/texlab/crates/bibutils_sys/src/type.c')
-rw-r--r--support/texlab/crates/bibutils_sys/src/type.c87
1 files changed, 87 insertions, 0 deletions
diff --git a/support/texlab/crates/bibutils_sys/src/type.c b/support/texlab/crates/bibutils_sys/src/type.c
new file mode 100644
index 0000000000..ad457363d6
--- /dev/null
+++ b/support/texlab/crates/bibutils_sys/src/type.c
@@ -0,0 +1,87 @@
+/*
+ * type.c
+ *
+ * Copyright (c) Chris Putnam 2003-2019
+ *
+ * Source code released under the GPL version 2
+ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "type.h"
+#include "msvc_fix.h"
+
+static int
+is_genre_element( fields *in, int n )
+{
+ char *tag;
+
+ tag = fields_tag( in, n, FIELDS_CHRP );
+
+ if ( !strcasecmp( tag, "GENRE:MARC" ) ) return 1;
+ if ( !strcasecmp( tag, "GENRE:BIBUTILS" ) ) return 1;
+ if ( !strcasecmp( tag, "GENRE:UNKNOWN" ) ) return 1;
+
+ return 0;
+}
+
+static int
+is_resource_element( fields *in, int n )
+{
+ if ( !strcasecmp( fields_tag( in, n, FIELDS_CHRP ), "RESOURCE" ) ) return 1;
+ return 0;
+}
+
+static int
+is_issuance_element( fields *in, int n )
+{
+ if ( !strcasecmp( fields_tag( in, n, FIELDS_CHRP ), "ISSUANCE" ) ) return 1;
+ else return 0;
+}
+
+static int
+match_hints( const char *value, int level, const char *match_name, int match_level )
+{
+ if ( strcasecmp( value, match_name ) ) return 0;
+ if ( match_level!=LEVEL_ANY && level!=match_level ) return 0;
+ return 1;
+}
+
+/* type_from_mods_hints()
+ *
+ * We return the first match from the match list that works...this makes us
+ * independent of how the genre hints are internally stored in fields *in.
+ *
+ * Thus we can distinguish between 'book' and 'book chapter' in which book is
+ * at different MODS levels by match_type arrays of:
+ *
+ * ...
+ * { "book", TYPE_BOOK, LEVEL_MAIN },
+ * { "book", TYPE_BOOKCHAPTER, LEVEL_ANY },
+ * ...
+ *
+ * e.g. "book" at LEVEL_ANY matches any values of "book" not caught by the "book" LEVEL_MAIN line
+ *
+ */
+int
+type_from_mods_hints( fields *in, int mode, match_type matches[], int nmatches, int type_unknown )
+{
+ int i, j, level, type = type_unknown;
+ char *value;
+
+ for ( i=0; i<nmatches; ++i ) {
+
+ for ( j=0; j<in->n; ++j ) {
+ if ( mode==TYPE_FROM_GENRE && !is_genre_element( in, j ) ) continue;
+ if ( mode==TYPE_FROM_RESOURCE && !is_resource_element( in, j ) ) continue;
+ if ( mode==TYPE_FROM_ISSUANCE && !is_issuance_element( in, j ) ) continue;
+ value = fields_value( in, j, FIELDS_CHRP );
+ level = fields_level( in, j );
+ if ( match_hints( value, level, matches[i].name, matches[i].level ) ) {
+ if ( type==type_unknown ) type = matches[i].type;
+ }
+ }
+ }
+
+ return type;
+}