z-core.c

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

	return odr_missing(o, opt, name);
}

int z_SortElement (ODR o, Z_SortElement **p, int opt, const char *name)
{
	static Odr_arm arm[] = {
		{ODR_EXPLICIT, ODR_CONTEXT, 1, Z_SortElement_generic,
		(Odr_fun) z_SortKey, "generic"},
		{ODR_IMPLICIT, ODR_CONTEXT, 2, Z_SortElement_databaseSpecific,
		(Odr_fun) z_SortDbSpecificList, "databaseSpecific"},
		{-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_SortAttributes (ODR o, Z_SortAttributes **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
		z_AttributeSetId(o, &(*p)->id, 0, "id") &&
		z_AttributeList(o, &(*p)->list, 0, "list") &&
		odr_sequence_end (o);
}

int z_SortKey (ODR o, Z_SortKey **p, int opt, const char *name)
{
	static Odr_arm arm[] = {
		{ODR_IMPLICIT, ODR_CONTEXT, 0, Z_SortKey_sortField,
		(Odr_fun) z_InternationalString, "sortField"},
		{ODR_IMPLICIT, ODR_CONTEXT, 1, Z_SortKey_elementSpec,
		(Odr_fun) z_Specification, "elementSpec"},
		{ODR_IMPLICIT, ODR_CONTEXT, 2, Z_SortKey_sortAttributes,
		(Odr_fun) z_SortAttributes, "sortAttributes"},
		{-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_ExtendedServicesRequest (ODR o, Z_ExtendedServicesRequest **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
		z_ReferenceId(o, &(*p)->referenceId, 1, "referenceId") &&
		odr_implicit_tag (o, odr_integer,
			&(*p)->function, ODR_CONTEXT, 3, 0, "function") &&
		odr_implicit_tag (o, odr_oid,
			&(*p)->packageType, ODR_CONTEXT, 4, 0, "packageType") &&
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->packageName, ODR_CONTEXT, 5, 1, "packageName") &&
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->userId, ODR_CONTEXT, 6, 1, "userId") &&
		odr_implicit_tag (o, z_IntUnit,
			&(*p)->retentionTime, ODR_CONTEXT, 7, 1, "retentionTime") &&
		odr_implicit_tag (o, z_Permissions,
			&(*p)->permissions, ODR_CONTEXT, 8, 1, "permissions") &&
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->description, ODR_CONTEXT, 9, 1, "description") &&
		odr_implicit_tag (o, z_External,
			&(*p)->taskSpecificParameters, ODR_CONTEXT, 10, 1, "taskSpecificParameters") &&
		odr_implicit_tag (o, odr_integer,
			&(*p)->waitAction, ODR_CONTEXT, 11, 0, "waitAction") &&
		z_ElementSetName(o, &(*p)->elements, 1, "elements") &&
		z_OtherInformation(o, &(*p)->otherInfo, 1, "otherInfo") &&
		odr_sequence_end (o);
}

int z_ExtendedServicesResponse (ODR o, Z_ExtendedServicesResponse **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
		z_ReferenceId(o, &(*p)->referenceId, 1, "referenceId") &&
		odr_implicit_tag (o, odr_integer,
			&(*p)->operationStatus, ODR_CONTEXT, 3, 0, "operationStatus") &&
		odr_implicit_settag (o, ODR_CONTEXT, 4) &&
		(odr_sequence_of(o, (Odr_fun) z_DiagRec, &(*p)->diagnostics,
		  &(*p)->num_diagnostics, "diagnostics") || odr_ok(o)) &&
		odr_implicit_tag (o, z_External,
			&(*p)->taskPackage, ODR_CONTEXT, 5, 1, "taskPackage") &&
		z_OtherInformation(o, &(*p)->otherInfo, 1, "otherInfo") &&
		odr_sequence_end (o);
}

int z_Permissions_s (ODR o, Z_Permissions_s **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)->userId, ODR_CONTEXT, 1, 0, "userId") &&
		odr_implicit_settag (o, ODR_CONTEXT, 2) &&
		odr_sequence_of(o, (Odr_fun) odr_integer, &(*p)->allowableFunctions,
		  &(*p)->num_allowableFunctions, "allowableFunctions") &&
		odr_sequence_end (o);
}

int z_Permissions (ODR o, Z_Permissions **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_Permissions_s, &(*p)->elements,
		&(*p)->num, name))
		return 1;
	*p = 0;
	return odr_missing(o, opt, name);
}

int z_Close (ODR o, Z_Close **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
		z_ReferenceId(o, &(*p)->referenceId, 1, "referenceId") &&
		z_CloseReason(o, &(*p)->closeReason, 0, "closeReason") &&
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->diagnosticInformation, ODR_CONTEXT, 3, 1, "diagnosticInformation") &&
		odr_implicit_tag (o, z_ResourceReportId,
			&(*p)->resourceReportFormat, ODR_CONTEXT, 4, 1, "resourceReportFormat") &&
		odr_explicit_tag (o, z_ResourceReport,
			&(*p)->resourceReport, ODR_CONTEXT, 5, 1, "resourceReport") &&
		z_OtherInformation(o, &(*p)->otherInfo, 1, "otherInfo") &&
		odr_sequence_end (o);
}

int z_CloseReason (ODR o, Z_CloseReason **p, int opt, const char *name)
{
	return odr_implicit_tag (o, odr_integer, p, ODR_CONTEXT, 211, opt, name);
}

int z_DuplicateDetectionRequest (ODR o, Z_DuplicateDetectionRequest **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
		z_ReferenceId(o, &(*p)->referenceId, 1, "referenceId") &&
		odr_implicit_settag (o, ODR_CONTEXT, 3) &&
		odr_sequence_of(o, (Odr_fun) z_InternationalString, &(*p)->inputResultSetIds,
		  &(*p)->num_inputResultSetIds, "inputResultSetIds") &&
		odr_implicit_tag (o, z_InternationalString,
			&(*p)->outputResultSetName, ODR_CONTEXT, 4, 0, "outputResultSetName") &&
		odr_implicit_tag (o, z_External,
			&(*p)->applicablePortionOfRecord, ODR_CONTEXT, 5, 1, "applicablePortionOfRecord") &&
		odr_implicit_settag (o, ODR_CONTEXT, 6) &&
		(odr_sequence_of(o, (Odr_fun) z_DuplicateDetectionCriterion, &(*p)->duplicateDetectionCriteria,
		  &(*p)->num_duplicateDetectionCriteria, "duplicateDetectionCriteria") || odr_ok(o)) &&
		odr_implicit_tag (o, odr_bool,
			&(*p)->clustering, ODR_CONTEXT, 7, 1, "clustering") &&
		odr_implicit_settag (o, ODR_CONTEXT, 8) &&
		odr_sequence_of(o, (Odr_fun) z_RetentionCriterion, &(*p)->retentionCriteria,
		  &(*p)->num_retentionCriteria, "retentionCriteria") &&
		odr_implicit_settag (o, ODR_CONTEXT, 9) &&
		(odr_sequence_of(o, (Odr_fun) z_SortCriterion, &(*p)->sortCriteria,
		  &(*p)->num_sortCriteria, "sortCriteria") || odr_ok(o)) &&
		z_OtherInformation(o, &(*p)->otherInfo, 1, "otherInfo") &&
		odr_sequence_end (o);
}

int z_DuplicateDetectionCriterion (ODR o, Z_DuplicateDetectionCriterion **p, int opt, const char *name)
{
	static Odr_arm arm[] = {
		{ODR_IMPLICIT, ODR_CONTEXT, 1, Z_DuplicateDetectionCriterion_levelOfMatch,
		(Odr_fun) odr_integer, "levelOfMatch"},
		{ODR_IMPLICIT, ODR_CONTEXT, 2, Z_DuplicateDetectionCriterion_caseSensitive,
		(Odr_fun) odr_null, "caseSensitive"},
		{ODR_IMPLICIT, ODR_CONTEXT, 3, Z_DuplicateDetectionCriterion_punctuationSensitive,
		(Odr_fun) odr_null, "punctuationSensitive"},
		{ODR_IMPLICIT, ODR_CONTEXT, 4, Z_DuplicateDetectionCriterion_regularExpression,
		(Odr_fun) z_External, "regularExpression"},
		{ODR_IMPLICIT, ODR_CONTEXT, 5, Z_DuplicateDetectionCriterion_rsDuplicates,
		(Odr_fun) odr_null, "rsDuplicates"},
		{-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_RetentionCriterion (ODR o, Z_RetentionCriterion **p, int opt, const char *name)
{
	static Odr_arm arm[] = {
		{ODR_IMPLICIT, ODR_CONTEXT, 1, Z_RetentionCriterion_numberOfEntries,
		(Odr_fun) odr_integer, "numberOfEntries"},
		{ODR_IMPLICIT, ODR_CONTEXT, 2, Z_RetentionCriterion_percentOfEntries,
		(Odr_fun) odr_integer, "percentOfEntries"},
		{ODR_IMPLICIT, ODR_CONTEXT, 3, Z_RetentionCriterion_duplicatesOnly,
		(Odr_fun) odr_null, "duplicatesOnly"},
		{ODR_IMPLICIT, ODR_CONTEXT, 4, Z_RetentionCriterion_discardRsDuplicates,
		(Odr_fun) odr_null, "discardRsDuplicates"},
		{-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_SortCriterionPreferredDatabases (ODR o, Z_SortCriterionPreferredDatabases **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_InternationalString, &(*p)->elements,
		&(*p)->num, name))
		return 1;
	*p = 0;
	return odr_missing(o, opt, name);
}

int z_SortCriterion (ODR o, Z_SortCriterion **p, int opt, const char *name)
{
	static Odr_arm arm[] = {
		{ODR_IMPLICIT, ODR_CONTEXT, 1, Z_SortCriterion_mostComprehensive,
		(Odr_fun) odr_null, "mostComprehensive"},
		{ODR_IMPLICIT, ODR_CONTEXT, 2, Z_SortCriterion_leastConmprehensive,
		(Odr_fun) odr_null, "leastConmprehensive"},
		{ODR_IMPLICIT, ODR_CONTEXT, 3, Z_SortCriterion_mostRecent,
		(Odr_fun) odr_null, "mostRecent"},
		{ODR_IMPLICIT, ODR_CONTEXT, 4, Z_SortCriterion_oldest,
		(Odr_fun) odr_null, "oldest"},
		{ODR_IMPLICIT, ODR_CONTEXT, 5, Z_SortCriterion_leastCost,
		(Odr_fun) odr_null, "leastCost"},
		{ODR_IMPLICIT, ODR_CONTEXT, 6, Z_SortCriterion_preferredDatabases,
		(Odr_fun) z_SortCriterionPreferredDatabases, "preferredDatabases"},
		{-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_DuplicateDetectionResponse (ODR o, Z_DuplicateDetectionResponse **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
		z_ReferenceId(o, &(*p)->referenceId, 1, "referenceId") &&
		odr_implicit_tag (o, odr_integer,
			&(*p)->status, ODR_CONTEXT, 3, 0, "status") &&
		odr_implicit_tag (o, odr_integer,
			&(*p)->resultSetCount, ODR_CONTEXT, 4, 1, "resultSetCount") &&
		odr_implicit_settag (o, ODR_CONTEXT, 5) &&
		(odr_sequence_of(o, (Odr_fun) z_DiagRec, &(*p)->diagnostics,
		  &(*p)->num_diagnostics, "diagnostics") || odr_ok(o)) &&
		z_OtherInformation(o, &(*p)->otherInfo, 1, "otherInfo") &&
		odr_sequence_end (o);
}

int z_ReferenceId (ODR o, Z_ReferenceId **p, int opt, const char *name)
{
	return odr_implicit_tag (o, odr_octetstring, p, ODR_CONTEXT, 2, opt, name);
}

int z_ResultSetId (ODR o, Z_ResultSetId **p, int opt, const char *name)
{
	return odr_implicit_tag (o, z_InternationalString, p, ODR_CONTEXT, 31, opt, name);
}

int z_ElementSetName (ODR o, Z_ElementSetName **p, int opt, const char *name)
{
	return odr_implicit_tag (o, z_InternationalString, p, ODR_CONTEXT, 103, opt, name);
}

int z_DatabaseName (ODR o, Z_DatabaseName **p, int opt, const char *name)
{
	return odr_implicit_tag (o, z_InternationalString, p, ODR_CONTEXT, 105, opt, name);
}

int z_AttributeSetId (ODR o, Z_AttributeSetId **p, int opt, const char *name)
{
	return odr_oid (o, p, opt, name);
}

int z_OtherInformationUnit (ODR o, Z_OtherInformationUnit **p, int opt, const char *name)
{
	static Odr_arm arm[] = {
		{ODR_IMPLICIT, ODR_CONTEXT, 2, Z_OtherInfo_characterInfo,
		(Odr_fun) z_InternationalString, "characterInfo"},
		{ODR_IMPLICIT, ODR_CONTEXT, 3, Z_OtherInfo_binaryInfo,
		(Odr_fun) odr_octetstring, "binaryInfo"},
		{ODR_IMPLICIT, ODR_CONTEXT, 4, Z_OtherInfo_externallyDefinedInfo,
		(Odr_fun) z_External, "externallyDefinedInfo"},
		{ODR_IMPLICIT, ODR_CONTEXT, 5, Z_OtherInfo_oid,
		(Odr_fun) odr_oid, "oid"},
		{-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_implicit_tag (o, z_InfoCategory,
			&(*p)->category, ODR_CONTEXT, 1, 1, "category") &&
		odr_choice (o, arm, &(*p)->information, &(*p)->which, 0) &&
		odr_sequence_end (o);
}

int z_OtherInformation (ODR o, Z_OtherInformation **p, int opt, const char *name)
{
	if (!odr_initmember (o, p, sizeof(**p)))
		return odr_missing(o, opt, name);
	odr_implicit_settag (o, ODR_CONTEXT, 201);
	if (odr_sequence_of (o, (Odr_fun) z_OtherInformationUnit, &(*p)->list,
		&(*p)->num_elements, name))
		return 1;
	*p = 0;
	return odr_missing(o, opt, name);
}

int z_InfoCategory (ODR o, Z_InfoCategory **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_oid,
			&(*p)->categoryTypeId, ODR_CONTEXT, 1, 1, "categoryTypeId") &&
		odr_implicit_tag (o, odr_integer,
			&(*p)->categoryValue, ODR_CONTEXT, 2, 0, "categoryValue") &&
		odr_sequence_end (o);
}

int z_IntUnit (ODR o, Z_IntUnit **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_integer,
			&(*p)->value, ODR_CONTEXT, 1, 0, "value") &&
		odr_implicit_tag (o, z_Unit,
			&(*p)->unitUsed, ODR_CONTEXT, 2, 0, "unitUsed") &&
		odr_sequence_end (o);
}

int z_Unit (ODR o, Z_Unit **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_InternationalString,
			&(*p)->unitSystem, ODR_CONTEXT, 1, 1, "unitSystem") &&
		odr_explicit_tag (o, z_StringOrNumeric,
			&(*p)->unitType, ODR_CONTEXT, 2, 1, "unitType") &&
		odr_explicit_tag (o, z_StringOrNumeric,
			&(*p)->unit, ODR_CONTEXT, 3, 1, "unit") &&
		odr_implicit_tag (o, odr_integer,
			&(*p)->scaleFactor, ODR_CONTEXT, 4, 1, "scaleFactor") &&
		odr_sequence_end (o);
}

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

int z_StringOrNumeric (ODR o, Z_StringOrNumeric **p, int opt, const char *name)
{
	static Odr_arm arm[] = {
		{ODR_IMPLICIT, ODR_CONTEXT, 1, Z_StringOrNumeric_string,
		(Odr_fun) z_InternationalString, "string"},
		{ODR_IMPLICIT, ODR_CONTEXT, 2, Z_StringOrNumeric_numeric,
		(Odr_fun) odr_integer, "numeric"},
		{-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);
}


/* the type-0 query ... */
int z_ANY_type_0 (ODR o, void **p, int opt)
{
    return 0;
}