X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=z39.50%2Fz-diag1.c;fp=z39.50%2Fz-diag1.c;h=eb4d21bf8db097333d2be7fc061b3729fa25b11c;hb=69abdf35bf2cb6927d34b9fb1f526a0962f0fe8f;hp=0000000000000000000000000000000000000000;hpb=007a366af5ddaebf813e39588f1c09646d33bcef;p=yaz-moved-to-github.git

diff --git a/z39.50/z-diag1.c b/z39.50/z-diag1.c
new file mode 100644
index 0000000..eb4d21b
--- /dev/null
+++ b/z39.50/z-diag1.c
@@ -0,0 +1,381 @@
+/* YC 0.2 Tue Feb 29 16:45:06 CET 2000 */
+/* Module-C: DiagnosticFormatDiag1 */
+
+#include <yaz/z-diag1.h>
+
+int z_DiagnosticFormat_s (ODR o, Z_DiagnosticFormat_s **p, int opt, const char *name)
+{
+	static Odr_arm arm[] = {
+		{ODR_IMPLICIT, ODR_CONTEXT, 1, Z_DiagnosticFormat_s_defaultDiagRec,
+		(Odr_fun) z_DefaultDiagFormat, "defaultDiagRec"},
+		{ODR_EXPLICIT, ODR_CONTEXT, 2, Z_DiagnosticFormat_s_explicitDiagnostic,
+		(Odr_fun) z_DiagFormat, "explicitDiagnostic"},
+		{-1, -1, -1, -1, (Odr_fun) 0, 0}
+	};
+	if (!odr_sequence_begin (o, p, sizeof(**p), name))
+		return opt && odr_ok (o);
+	return
+		((odr_constructed_begin (o, &(*p)->u, ODR_CONTEXT, 1, "diagnostic") &&
+		odr_choice (o, arm, &(*p)->u, &(*p)->which, 0) &&
+		odr_constructed_end (o)) || odr_ok(o)) &&
+		odr_implicit_tag (o, z_InternationalString,
+			&(*p)->message, ODR_CONTEXT, 2, 1, "message") &&
+		odr_sequence_end (o);
+}
+
+int z_DiagnosticFormat (ODR o, Z_DiagnosticFormat **p, int opt, const char *name)
+{
+	if (!odr_initmember (o, p, sizeof(**p)))
+		return opt && odr_ok(o);
+	if (odr_sequence_of (o, (Odr_fun) z_DiagnosticFormat_s, &(*p)->elements,
+		&(*p)->num, name))
+		return 1;
+	*p = 0;
+	return opt && odr_ok(o);
+}
+
+int z_TooMany (ODR o, Z_TooMany **p, int opt, const char *name)
+{
+	if (!odr_sequence_begin (o, p, sizeof(**p), name))
+		return opt && odr_ok (o);
+	return
+		odr_implicit_tag (o, odr_integer,
+			&(*p)->tooManyWhat, ODR_CONTEXT, 1, 0, "tooManyWhat") &&
+		odr_implicit_tag (o, odr_integer,
+			&(*p)->max, ODR_CONTEXT, 2, 1, "max") &&
+		odr_sequence_end (o);
+}
+
+int z_BadSpec (ODR o, Z_BadSpec **p, int opt, const char *name)
+{
+	if (!odr_sequence_begin (o, p, sizeof(**p), name))
+		return opt && odr_ok (o);
+	return
+		odr_implicit_tag (o, z_Specification,
+			&(*p)->spec, ODR_CONTEXT, 1, 0, "spec") &&
+		odr_implicit_tag (o, z_DatabaseName,
+			&(*p)->db, ODR_CONTEXT, 2, 1, "db") &&
+		odr_implicit_settag (o, ODR_CONTEXT, 3) &&
+		(odr_sequence_of(o, (Odr_fun) z_Specification, &(*p)->goodOnes,
+		  &(*p)->num_goodOnes, "goodOnes") || odr_ok(o)) &&
+		odr_sequence_end (o);
+}
+
+int z_DbUnavail_0 (ODR o, Z_DbUnavail_0 **p, int opt, const char *name)
+{
+	if (!odr_sequence_begin (o, p, sizeof(**p), name))
+		return opt && odr_ok (o);
+	return
+		odr_implicit_tag (o, odr_integer,
+			&(*p)->reasonCode, ODR_CONTEXT, 1, 1, "reasonCode") &&
+		odr_implicit_tag (o, z_InternationalString,
+			&(*p)->message, ODR_CONTEXT, 2, 1, "message") &&
+		odr_sequence_end (o);
+}
+
+int z_DbUnavail (ODR o, Z_DbUnavail **p, int opt, const char *name)
+{
+	if (!odr_sequence_begin (o, p, sizeof(**p), name))
+		return opt && odr_ok (o);
+	return
+		odr_implicit_tag (o, z_DatabaseName,
+			&(*p)->db, ODR_CONTEXT, 1, 0, "db") &&
+		odr_implicit_tag (o, z_DbUnavail_0,
+			&(*p)->why, ODR_CONTEXT, 2, 0, "why") &&
+		odr_sequence_end (o);
+}
+
+int z_Attribute (ODR o, Z_Attribute **p, int opt, const char *name)
+{
+	if (!odr_sequence_begin (o, p, sizeof(**p), name))
+		return opt && odr_ok (o);
+	return
+		odr_implicit_tag (o, odr_oid,
+			&(*p)->id, ODR_CONTEXT, 1, 0, "id") &&
+		odr_implicit_tag (o, odr_integer,
+			&(*p)->type, ODR_CONTEXT, 2, 1, "type") &&
+		odr_implicit_tag (o, odr_integer,
+			&(*p)->value, ODR_CONTEXT, 3, 1, "value") &&
+		odr_explicit_tag (o, z_Term,
+			&(*p)->term, ODR_CONTEXT, 4, 1, "term") &&
+		odr_sequence_end (o);
+}
+
+int z_AttCombo (ODR o, Z_AttCombo **p, int opt, const char *name)
+{
+	if (!odr_sequence_begin (o, p, sizeof(**p), name))
+		return opt && odr_ok (o);
+	return
+		odr_implicit_tag (o, z_AttributeList,
+			&(*p)->unsupportedCombination, ODR_CONTEXT, 1, 0, "unsupportedCombination") &&
+		odr_implicit_settag (o, ODR_CONTEXT, 2) &&
+		(odr_sequence_of(o, (Odr_fun) z_AttributeList, &(*p)->recommendedAlternatives,
+		  &(*p)->num_recommendedAlternatives, "recommendedAlternatives") || odr_ok(o)) &&
+		odr_sequence_end (o);
+}
+
+int z_DiagTerm (ODR o, Z_DiagTerm **p, int opt, const char *name)
+{
+	if (!odr_sequence_begin (o, p, sizeof(**p), name))
+		return opt && odr_ok (o);
+	return
+		odr_implicit_tag (o, odr_integer,
+			&(*p)->problem, ODR_CONTEXT, 1, 1, "problem") &&
+		odr_explicit_tag (o, z_Term,
+			&(*p)->term, ODR_CONTEXT, 2, 0, "term") &&
+		odr_sequence_end (o);
+}
+
+int z_Proximity (ODR o, Z_Proximity **p, int opt, const char *name)
+{
+	static Odr_arm arm[] = {
+		{ODR_IMPLICIT, ODR_CONTEXT, 1, Z_Proximity_resultSets,
+		(Odr_fun) odr_null, "resultSets"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 2, Z_Proximity_badSet,
+		(Odr_fun) z_InternationalString, "badSet"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 3, Z_Proximity_relation,
+		(Odr_fun) odr_integer, "relation"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 4, Z_Proximity_unit,
+		(Odr_fun) odr_integer, "unit"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 5, Z_Proximity_distance,
+		(Odr_fun) odr_integer, "distance"},
+		{ODR_EXPLICIT, ODR_CONTEXT, 6, Z_Proximity_attributes,
+		(Odr_fun) z_AttributeList, "attributes"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 7, Z_Proximity_ordered,
+		(Odr_fun) odr_null, "ordered"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 8, Z_Proximity_exclusion,
+		(Odr_fun) odr_null, "exclusion"},
+		{-1, -1, -1, -1, (Odr_fun) 0, 0}
+	};
+	if (!odr_initmember(o, p, sizeof(**p)))
+		return opt && odr_ok(o);
+	if (odr_choice(o, arm, &(*p)->u, &(*p)->which, name))
+		return 1;
+	*p = 0;
+	return opt && odr_ok(o);
+}
+
+int z_AttrListList (ODR o, Z_AttrListList **p, int opt, const char *name)
+{
+	if (!odr_initmember (o, p, sizeof(**p)))
+		return opt && odr_ok(o);
+	if (odr_sequence_of (o, (Odr_fun) z_AttributeList, &(*p)->elements,
+		&(*p)->num, name))
+		return 1;
+	*p = 0;
+	return opt && odr_ok(o);
+}
+
+int z_Scan (ODR o, Z_Scan **p, int opt, const char *name)
+{
+	static Odr_arm arm[] = {
+		{ODR_IMPLICIT, ODR_CONTEXT, 0, Z_Scan_nonZeroStepSize,
+		(Odr_fun) odr_null, "nonZeroStepSize"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 1, Z_Scan_specifiedStepSize,
+		(Odr_fun) odr_null, "specifiedStepSize"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 3, Z_Scan_termList1,
+		(Odr_fun) odr_null, "termList1"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 4, Z_Scan_termList2,
+		(Odr_fun) z_AttrListList, "termList2"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 5, Z_Scan_posInResponse,
+		(Odr_fun) odr_integer, "posInResponse"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 6, Z_Scan_resources,
+		(Odr_fun) odr_null, "resources"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 7, Z_Scan_endOfList,
+		(Odr_fun) odr_null, "endOfList"},
+		{-1, -1, -1, -1, (Odr_fun) 0, 0}
+	};
+	if (!odr_initmember(o, p, sizeof(**p)))
+		return opt && odr_ok(o);
+	if (odr_choice(o, arm, &(*p)->u, &(*p)->which, name))
+		return 1;
+	*p = 0;
+	return opt && odr_ok(o);
+}
+
+int z_StringList (ODR o, Z_StringList **p, int opt, const char *name)
+{
+	if (!odr_initmember (o, p, sizeof(**p)))
+		return opt && odr_ok(o);
+	if (odr_sequence_of (o, (Odr_fun) z_InternationalString, &(*p)->elements,
+		&(*p)->num, name))
+		return 1;
+	*p = 0;
+	return opt && odr_ok(o);
+}
+
+int z_Sort (ODR o, Z_Sort **p, int opt, const char *name)
+{
+	static Odr_arm arm[] = {
+		{ODR_IMPLICIT, ODR_CONTEXT, 0, Z_SortD_sequence,
+		(Odr_fun) odr_null, "sequence"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 1, Z_SortD_noRsName,
+		(Odr_fun) odr_null, "noRsName"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 2, Z_SortD_tooMany,
+		(Odr_fun) odr_integer, "tooMany"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 3, Z_SortD_incompatible,
+		(Odr_fun) odr_null, "incompatible"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 4, Z_SortD_generic,
+		(Odr_fun) odr_null, "generic"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 5, Z_SortD_dbSpecific,
+		(Odr_fun) odr_null, "dbSpecific"},
+		{ODR_EXPLICIT, ODR_CONTEXT, 6, Z_SortD_sortElement,
+		(Odr_fun) z_SortElement, "sortElement"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 7, Z_SortD_key,
+		(Odr_fun) odr_integer, "key"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 8, Z_SortD_action,
+		(Odr_fun) odr_null, "action"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 9, Z_SortD_illegal,
+		(Odr_fun) odr_integer, "illegal"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 10, Z_SortD_inputTooLarge,
+		(Odr_fun) z_StringList, "inputTooLarge"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 11, Z_SortD_aggregateTooLarge,
+		(Odr_fun) odr_null, "aggregateTooLarge"},
+		{-1, -1, -1, -1, (Odr_fun) 0, 0}
+	};
+	if (!odr_initmember(o, p, sizeof(**p)))
+		return opt && odr_ok(o);
+	if (odr_choice(o, arm, &(*p)->u, &(*p)->which, name))
+		return 1;
+	*p = 0;
+	return opt && odr_ok(o);
+}
+
+int z_Segmentation (ODR o, Z_Segmentation **p, int opt, const char *name)
+{
+	static Odr_arm arm[] = {
+		{ODR_IMPLICIT, ODR_CONTEXT, 0, Z_Segmentation_segmentCount,
+		(Odr_fun) odr_null, "segmentCount"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 1, Z_Segmentation_segmentSize,
+		(Odr_fun) odr_integer, "segmentSize"},
+		{-1, -1, -1, -1, (Odr_fun) 0, 0}
+	};
+	if (!odr_initmember(o, p, sizeof(**p)))
+		return opt && odr_ok(o);
+	if (odr_choice(o, arm, &(*p)->u, &(*p)->which, name))
+		return 1;
+	*p = 0;
+	return opt && odr_ok(o);
+}
+
+int z_ExtServices (ODR o, Z_ExtServices **p, int opt, const char *name)
+{
+	static Odr_arm arm[] = {
+		{ODR_IMPLICIT, ODR_CONTEXT, 1, Z_ExtServices_req,
+		(Odr_fun) odr_integer, "req"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 2, Z_ExtServices_permission,
+		(Odr_fun) odr_integer, "permission"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 3, Z_ExtServices_immediate,
+		(Odr_fun) odr_integer, "immediate"},
+		{-1, -1, -1, -1, (Odr_fun) 0, 0}
+	};
+	if (!odr_initmember(o, p, sizeof(**p)))
+		return opt && odr_ok(o);
+	if (odr_choice(o, arm, &(*p)->u, &(*p)->which, name))
+		return 1;
+	*p = 0;
+	return opt && odr_ok(o);
+}
+
+int z_OidList (ODR o, Z_OidList **p, int opt, const char *name)
+{
+	if (!odr_initmember (o, p, sizeof(**p)))
+		return opt && odr_ok(o);
+	if (odr_sequence_of (o, (Odr_fun) odr_oid, &(*p)->elements,
+		&(*p)->num, name))
+		return 1;
+	*p = 0;
+	return opt && odr_ok(o);
+}
+
+int z_AltOidList (ODR o, Z_AltOidList **p, int opt, const char *name)
+{
+	if (!odr_initmember (o, p, sizeof(**p)))
+		return opt && odr_ok(o);
+	if (odr_sequence_of (o, (Odr_fun) odr_oid, &(*p)->elements,
+		&(*p)->num, name))
+		return 1;
+	*p = 0;
+	return opt && odr_ok(o);
+}
+
+int z_AccessCtrl (ODR o, Z_AccessCtrl **p, int opt, const char *name)
+{
+	static Odr_arm arm[] = {
+		{ODR_IMPLICIT, ODR_CONTEXT, 1, Z_AccessCtrl_noUser,
+		(Odr_fun) odr_null, "noUser"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 2, Z_AccessCtrl_refused,
+		(Odr_fun) odr_null, "refused"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 3, Z_AccessCtrl_simple,
+		(Odr_fun) odr_null, "simple"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 4, Z_AccessCtrl_oid,
+		(Odr_fun) z_OidList, "oid"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 5, Z_AccessCtrl_alternative,
+		(Odr_fun) z_AltOidList, "alternative"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 6, Z_AccessCtrl_pwdInv,
+		(Odr_fun) odr_null, "pwdInv"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 7, Z_AccessCtrl_pwdExp,
+		(Odr_fun) odr_null, "pwdExp"},
+		{-1, -1, -1, -1, (Odr_fun) 0, 0}
+	};
+	if (!odr_initmember(o, p, sizeof(**p)))
+		return opt && odr_ok(o);
+	if (odr_choice(o, arm, &(*p)->u, &(*p)->which, name))
+		return 1;
+	*p = 0;
+	return opt && odr_ok(o);
+}
+
+int z_RecordSyntax (ODR o, Z_RecordSyntax **p, int opt, const char *name)
+{
+	if (!odr_sequence_begin (o, p, sizeof(**p), name))
+		return opt && odr_ok (o);
+	return
+		odr_implicit_tag (o, odr_oid,
+			&(*p)->unsupportedSyntax, ODR_CONTEXT, 1, 0, "unsupportedSyntax") &&
+		odr_implicit_settag (o, ODR_CONTEXT, 2) &&
+		(odr_sequence_of(o, (Odr_fun) odr_oid, &(*p)->suggestedAlternatives,
+		  &(*p)->num_suggestedAlternatives, "suggestedAlternatives") || odr_ok(o)) &&
+		odr_sequence_end (o);
+}
+
+int z_DiagFormat (ODR o, Z_DiagFormat **p, int opt, const char *name)
+{
+	static Odr_arm arm[] = {
+		{ODR_IMPLICIT, ODR_CONTEXT, 1000, Z_DiagFormat_tooMany,
+		(Odr_fun) z_TooMany, "tooMany"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 1001, Z_DiagFormat_badSpec,
+		(Odr_fun) z_BadSpec, "badSpec"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 1002, Z_DiagFormat_dbUnavail,
+		(Odr_fun) z_DbUnavail, "dbUnavail"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 1003, Z_DiagFormat_unSupOp,
+		(Odr_fun) odr_integer, "unSupOp"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 1004, Z_DiagFormat_attribute,
+		(Odr_fun) z_Attribute, "attribute"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 1005, Z_DiagFormat_attCombo,
+		(Odr_fun) z_AttCombo, "attCombo"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 1006, Z_DiagFormat_term,
+		(Odr_fun) z_DiagTerm, "term"},
+		{ODR_EXPLICIT, ODR_CONTEXT, 1007, Z_DiagFormat_proximity,
+		(Odr_fun) z_Proximity, "proximity"},
+		{ODR_EXPLICIT, ODR_CONTEXT, 1008, Z_DiagFormat_scan,
+		(Odr_fun) z_Scan, "scan"},
+		{ODR_EXPLICIT, ODR_CONTEXT, 1009, Z_DiagFormat_sort,
+		(Odr_fun) z_Sort, "sort"},
+		{ODR_EXPLICIT, ODR_CONTEXT, 1010, Z_DiagFormat_segmentation,
+		(Odr_fun) z_Segmentation, "segmentation"},
+		{ODR_EXPLICIT, ODR_CONTEXT, 1011, Z_DiagFormat_extServices,
+		(Odr_fun) z_ExtServices, "extServices"},
+		{ODR_EXPLICIT, ODR_CONTEXT, 1012, Z_DiagFormat_accessCtrl,
+		(Odr_fun) z_AccessCtrl, "accessCtrl"},
+		{ODR_IMPLICIT, ODR_CONTEXT, 1013, Z_DiagFormat_recordSyntax,
+		(Odr_fun) z_RecordSyntax, "recordSyntax"},
+		{-1, -1, -1, -1, (Odr_fun) 0, 0}
+	};
+	if (!odr_initmember(o, p, sizeof(**p)))
+		return opt && odr_ok(o);
+	if (odr_choice(o, arm, &(*p)->u, &(*p)->which, name))
+		return 1;
+	*p = 0;
+	return opt && odr_ok(o);
+}