z-exp.c

harvest是一个下载html网页得机器人

	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_implicit_tag (o, z_HumanString,
			&(*p)->description, ODR_CONTEXT, 0, 1, "description") &&
		odr_implicit_settag (o, ODR_CONTEXT, 1) &&
		(odr_sequence_of(o, (Odr_fun) z_Specification, &(*p)->elementSpecifications,
		  &(*p)->num_elementSpecifications, "elementSpecifications") || odr_ok(o)) &&
		odr_implicit_tag (o, z_AttributeCombinations,
			&(*p)->attributeSpecifications, ODR_CONTEXT, 2, 1, "attributeSpecifications") &&
		((odr_constructed_begin (o, &(*p)->u, ODR_CONTEXT, 3, "sortType") &&
		odr_choice (o, arm, &(*p)->u, &(*p)->which, 0) &&
		odr_constructed_end (o)) || odr_ok(o)) &&
		odr_implicit_tag (o, odr_integer,
			&(*p)->caseSensitivity, ODR_CONTEXT, 4, 1, "caseSensitivity") &&
		odr_sequence_end (o);
}

int z_ProcessingInformation (ODR o, Z_ProcessingInformation **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_implicit_tag (o, z_CommonInfo,
			&(*p)->commonInfo, ODR_CONTEXT, 0, 1, "commonInfo") &&
		odr_implicit_tag (o, z_DatabaseName,
			&(*p)->databaseName, ODR_CONTEXT, 1, 0, "databaseName") &&
		odr_implicit_tag (o, odr_integer,
			&(*p)->processingContext, ODR_CONTEXT, 2, 0, "processingContext") &&
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->name, ODR_CONTEXT, 3, 0, "name") &&
		odr_implicit_tag (o, odr_oid,
			&(*p)->oid, ODR_CONTEXT, 4, 0, "oid") &&
		odr_implicit_tag (o, z_HumanString,
			&(*p)->description, ODR_CONTEXT, 5, 1, "description") &&
		odr_implicit_tag (o, z_External,
			&(*p)->instructions, ODR_CONTEXT, 6, 1, "instructions") &&
		odr_sequence_end (o);
}

int z_VariantSetInfo (ODR o, Z_VariantSetInfo **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_implicit_tag (o, z_CommonInfo,
			&(*p)->commonInfo, ODR_CONTEXT, 0, 1, "commonInfo") &&
		odr_implicit_tag (o, odr_oid,
			&(*p)->variantSet, ODR_CONTEXT, 1, 0, "variantSet") &&
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->name, ODR_CONTEXT, 2, 0, "name") &&
		odr_implicit_settag (o, ODR_CONTEXT, 3) &&
		(odr_sequence_of(o, (Odr_fun) z_VariantClass, &(*p)->variants,
		  &(*p)->num_variants, "variants") || odr_ok(o)) &&
		odr_sequence_end (o);
}

int z_VariantClass (ODR o, Z_VariantClass **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->name, ODR_CONTEXT, 0, 1, "name") &&
		odr_implicit_tag (o, z_HumanString,
			&(*p)->description, ODR_CONTEXT, 1, 1, "description") &&
		odr_implicit_tag (o, odr_integer,
			&(*p)->variantClass, ODR_CONTEXT, 2, 0, "variantClass") &&
		odr_implicit_settag (o, ODR_CONTEXT, 3) &&
		odr_sequence_of(o, (Odr_fun) z_VariantType, &(*p)->variantTypes,
		  &(*p)->num_variantTypes, "variantTypes") &&
		odr_sequence_end (o);
}

int z_VariantType (ODR o, Z_VariantType **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->name, ODR_CONTEXT, 0, 1, "name") &&
		odr_implicit_tag (o, z_HumanString,
			&(*p)->description, ODR_CONTEXT, 1, 1, "description") &&
		odr_implicit_tag (o, odr_integer,
			&(*p)->variantType, ODR_CONTEXT, 2, 0, "variantType") &&
		odr_implicit_tag (o, z_VariantValue,
			&(*p)->variantValue, ODR_CONTEXT, 3, 1, "variantValue") &&
		odr_sequence_end (o);
}

int z_VariantValue (ODR o, Z_VariantValue **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_explicit_tag (o, z_PrimitiveDataType,
			&(*p)->dataType, ODR_CONTEXT, 0, 0, "dataType") &&
		odr_explicit_tag (o, z_ValueSet,
			&(*p)->values, ODR_CONTEXT, 1, 1, "values") &&
		odr_sequence_end (o);
}

int z_ValueSetEnumerated (ODR o, Z_ValueSetEnumerated **p, int opt, const char *name)
{
	if (!odr_initmember (o, p, sizeof(**p)))
		return odr_missing(o, opt, name);
	if (odr_sequence_of (o, (Odr_fun) z_ValueDescription, &(*p)->elements,
		&(*p)->num, name))
		return 1;
	*p = 0;
	return odr_missing(o, opt, name);
}

int z_ValueSet (ODR o, Z_ValueSet **p, int opt, const char *name)
{
	static Odr_arm arm[] = {
		{ODR_IMPLICIT, ODR_CONTEXT, 0, Z_ValueSet_range,
		(Odr_fun) z_ValueRange, "range"},
		{ODR_IMPLICIT, ODR_CONTEXT, 1, Z_ValueSet_enumerated,
		(Odr_fun) z_ValueSetEnumerated, "enumerated"},
		{-1, -1, -1, -1, (Odr_fun) 0, 0}
	};
	if (!odr_initmember(o, p, sizeof(**p)))
		return odr_missing(o, opt, name);
	if (odr_choice(o, arm, &(*p)->u, &(*p)->which, name))
		return 1;
	*p = 0;
	return odr_missing(o, opt, name);
}

int z_ValueRange (ODR o, Z_ValueRange **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_explicit_tag (o, z_ValueDescription,
			&(*p)->lower, ODR_CONTEXT, 0, 1, "lower") &&
		odr_explicit_tag (o, z_ValueDescription,
			&(*p)->upper, ODR_CONTEXT, 1, 1, "upper") &&
		odr_sequence_end (o);
}

int z_ValueDescription (ODR o, Z_ValueDescription **p, int opt, const char *name)
{
	static Odr_arm arm[] = {
		{-1, -1, -1, Z_ValueDescription_integer,
		 (Odr_fun) odr_integer, "integer"},
		{-1, -1, -1, Z_ValueDescription_string,
		 (Odr_fun) z_InternationalString, "string"},
		{-1, -1, -1, Z_ValueDescription_octets,
		 (Odr_fun) odr_octetstring, "octets"},
		{-1, -1, -1, Z_ValueDescription_oid,
		 (Odr_fun) odr_oid, "oid"},
		{ODR_IMPLICIT, ODR_CONTEXT, 1, Z_ValueDescription_unit,
		(Odr_fun) z_Unit, "unit"},
		{ODR_IMPLICIT, ODR_CONTEXT, 2, Z_ValueDescription_valueAndUnit,
		(Odr_fun) z_IntUnit, "valueAndUnit"},
		{-1, -1, -1, -1, (Odr_fun) 0, 0}
	};
	if (!odr_initmember(o, p, sizeof(**p)))
		return odr_missing(o, opt, name);
	if (odr_choice(o, arm, &(*p)->u, &(*p)->which, name))
		return 1;
	*p = 0;
	return odr_missing(o, opt, name);
}

int z_UnitInfo (ODR o, Z_UnitInfo **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_implicit_tag (o, z_CommonInfo,
			&(*p)->commonInfo, ODR_CONTEXT, 0, 1, "commonInfo") &&
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->unitSystem, ODR_CONTEXT, 1, 0, "unitSystem") &&
		odr_implicit_tag (o, z_HumanString,
			&(*p)->description, ODR_CONTEXT, 2, 1, "description") &&
		odr_implicit_settag (o, ODR_CONTEXT, 3) &&
		(odr_sequence_of(o, (Odr_fun) z_UnitType, &(*p)->units,
		  &(*p)->num_units, "units") || odr_ok(o)) &&
		odr_sequence_end (o);
}

int z_UnitType (ODR o, Z_UnitType **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->name, ODR_CONTEXT, 0, 1, "name") &&
		odr_implicit_tag (o, z_HumanString,
			&(*p)->description, ODR_CONTEXT, 1, 1, "description") &&
		odr_explicit_tag (o, z_StringOrNumeric,
			&(*p)->unitType, ODR_CONTEXT, 2, 0, "unitType") &&
		odr_implicit_settag (o, ODR_CONTEXT, 3) &&
		odr_sequence_of(o, (Odr_fun) z_Units, &(*p)->units,
		  &(*p)->num_units, "units") &&
		odr_sequence_end (o);
}

int z_Units (ODR o, Z_Units **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->name, ODR_CONTEXT, 0, 1, "name") &&
		odr_implicit_tag (o, z_HumanString,
			&(*p)->description, ODR_CONTEXT, 1, 1, "description") &&
		odr_explicit_tag (o, z_StringOrNumeric,
			&(*p)->unit, ODR_CONTEXT, 2, 0, "unit") &&
		odr_sequence_end (o);
}

int z_CategoryList (ODR o, Z_CategoryList **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_implicit_tag (o, z_CommonInfo,
			&(*p)->commonInfo, ODR_CONTEXT, 0, 1, "commonInfo") &&
		odr_implicit_settag (o, ODR_CONTEXT, 1) &&
		odr_sequence_of(o, (Odr_fun) z_CategoryInfo, &(*p)->categories,
		  &(*p)->num_categories, "categories") &&
		odr_sequence_end (o);
}

int z_CategoryInfo (ODR o, Z_CategoryInfo **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->category, ODR_CONTEXT, 1, 0, "category") &&
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->originalCategory, ODR_CONTEXT, 2, 1, "originalCategory") &&
		odr_implicit_tag (o, z_HumanString,
			&(*p)->description, ODR_CONTEXT, 3, 1, "description") &&
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->asn1Module, ODR_CONTEXT, 4, 1, "asn1Module") &&
		odr_sequence_end (o);
}

int z_CommonInfo (ODR o, Z_CommonInfo **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_implicit_tag (o, odr_generalizedtime,
			&(*p)->dateAdded, ODR_CONTEXT, 0, 1, "dateAdded") &&
		odr_implicit_tag (o, odr_generalizedtime,
			&(*p)->dateChanged, ODR_CONTEXT, 1, 1, "dateChanged") &&
		odr_implicit_tag (o, odr_generalizedtime,
			&(*p)->expiry, ODR_CONTEXT, 2, 1, "expiry") &&
		odr_implicit_tag (o, z_LanguageCode,
			&(*p)->humanStringLanguage, ODR_CONTEXT, 3, 1, "humanStringLanguage") &&
		z_OtherInformation(o, &(*p)->otherInfo, 1, "otherInfo") &&
		odr_sequence_end (o);
}

int z_HumanStringUnit (ODR o, Z_HumanStringUnit **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_implicit_tag (o, z_LanguageCode,
			&(*p)->language, ODR_CONTEXT, 0, 1, "language") &&
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->text, ODR_CONTEXT, 1, 0, "text") &&
		odr_sequence_end (o);
}

int z_HumanString (ODR o, Z_HumanString **p, int opt, const char *name)
{
	if (!odr_initmember (o, p, sizeof(**p)))
		return odr_missing(o, opt, name);
	if (odr_sequence_of (o, (Odr_fun) z_HumanStringUnit, &(*p)->strings,
		&(*p)->num_strings, name))
		return 1;
	*p = 0;
	return odr_missing(o, opt, name);
}

int z_IconObjectUnit (ODR o, Z_IconObjectUnit **p, int opt, const char *name)
{
	static Odr_arm arm[] = {
		{ODR_IMPLICIT, ODR_CONTEXT, 1, Z_IconObjectUnit_ianaType,
		(Odr_fun) z_InternationalString, "ianaType"},
		{ODR_IMPLICIT, ODR_CONTEXT, 2, Z_IconObjectUnit_z3950type,
		(Odr_fun) z_InternationalString, "z3950type"},
		{ODR_IMPLICIT, ODR_CONTEXT, 3, Z_IconObjectUnit_otherType,
		(Odr_fun) z_InternationalString, "otherType"},
		{-1, -1, -1, -1, (Odr_fun) 0, 0}
	};
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_constructed_begin (o, &(*p)->u, ODR_CONTEXT, 1, "bodyType") &&
		odr_choice (o, arm, &(*p)->u, &(*p)->which, 0) &&
		odr_constructed_end (o) &&
		odr_implicit_tag (o, odr_octetstring,
			&(*p)->content, ODR_CONTEXT, 2, 0, "content") &&
		odr_sequence_end (o);
}

int z_IconObject (ODR o, Z_IconObject **p, int opt, const char *name)
{
	if (!odr_initmember (o, p, sizeof(**p)))
		return odr_missing(o, opt, name);
	if (odr_sequence_of (o, (Odr_fun) z_IconObjectUnit, &(*p)->elements,
		&(*p)->num, name))
		return 1;
	*p = 0;
	return odr_missing(o, opt, name);
}

int z_LanguageCode (ODR o, Z_LanguageCode **p, int opt, const char *name)
{
	return z_InternationalString (o, p, opt, name);
}

int z_ContactInfo (ODR o, Z_ContactInfo **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->name, ODR_CONTEXT, 0, 1, "name") &&
		odr_implicit_tag (o, z_HumanString,
			&(*p)->description, ODR_CONTEXT, 1, 1, "description") &&
		odr_implicit_tag (o, z_HumanString,
			&(*p)->address, ODR_CONTEXT, 2, 1, "address") &&
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->email, ODR_CONTEXT, 3, 1, "email") &&
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->phone, ODR_CONTEXT, 4, 1, "phone") &&
		odr_sequence_end (o);
}

int z_NetworkAddressIA (ODR o, Z_NetworkAddressIA **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->hostAddress, ODR_CONTEXT, 0, 0, "hostAddress") &&
		odr_implicit_tag (o, odr_integer,
			&(*p)->port, ODR_CONTEXT, 1, 0, "port") &&
		odr_sequence_end (o);
}

int z_NetworkAddressOPA (ODR o, Z_NetworkAddressOPA **p, int opt, const char *name)
{
	if (!odr_sequence_begin (o, p, sizeof(**p), name))
		return odr_missing(o, opt, name) && odr_ok (o);
	return
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->pSel, ODR_CONTEXT, 0, 0, "pSel") &&
		odr_implicit_tag (o, z_InternationalString,