DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T n

⟦ad61b01e5⟧ TextFile

    Length: 2389 (0x955)
    Types: TextFile
    Names: »ns.py«

Derivation

└─⟦3d0c2be1b⟧ Bits:30001254 ISODE-5.0 Tape
    └─⟦eba4602b1⟧ »./isode-5.0.tar.Z« 
        └─⟦d3ac74d73⟧ 
            └─⟦this⟧ »isode-5.0/acsap/ns.py«

TextFile

-- ns.py - "higher performance" nameservice

-- $Header: /f/osi/acsap/RCS/ns.py,v 6.0 89/03/18 23:24:47 mrose Rel $
--
--
-- $Log:	ns.py,v $
-- Revision 6.0  89/03/18  23:24:47  mrose
-- Release 5.0
-- 

--
--				  NOTICE
--
--    Acquisition, use, and distribution of this module and related
--    materials are subject to the restrictions of a license agreement.
--    Consult the Preface in the User's Manual for the full terms of
--    this agreement.
--
--


NS DEFINITIONS ::=
%{
#ifndef	lint
static char *rcsid = "$Header: /f/osi/acsap/RCS/ns.py,v 6.0 89/03/18 23:24:47 mrose Rel $";
#endif

#include <stdio.h>
#include "psap.h"
#include "isoaddrs.h"

/* \f

 */
%}

BEGIN

ENCODER	build

Query
    %{
	register struct ns_query *ns = (struct ns_query *) parm;
    %}
    ::=
    [0]
	IMPLICIT SEQUENCE {
	    request-id[0]
		IMPLICIT INTEGER
		[[ i ns -> ns_id ]],

	    name[1]
		IMPLICIT IA5String
		[[ s ns -> ns_name ]],

	    attribute[2]
		IMPLICIT IA5String
		[[ s ns -> ns_attribute ]]
	}

Response
    %{
	register struct ns_response *ns = (struct ns_response *) parm;
    %}
    ::=
    [1]
	IMPLICIT SEQUENCE {
	    request-id[0]
		IMPLICIT INTEGER
		[[ i ns -> ns_id ]],

	    name[1]
		ANY
		[[ a ns -> ns_name ]]
		OPTIONAL
		<< ns -> ns_name >>,

	    value[2]
		ANY
		[[ a ns -> ns_value ]]
		OPTIONAL
		<< ns -> ns_value >>
	}


DECODER	parse

Query
    %{
	register struct ns_query *ns = (struct ns_query *) parm;
    %}
    ::=
    [0]
	IMPLICIT SEQUENCE {
	    request-id[0]
		IMPLICIT INTEGER
		[[ i ns -> ns_id ]],

	    name[1]
		IMPLICIT IA5String
		[[ s ns -> ns_name ]],

	    attribute[2]
		IMPLICIT IA5String
		[[ s ns -> ns_attribute ]]
	}

Response
    %{
	register struct ns_response *ns = (struct ns_response *) parm;
    %}
    ::=
    [1]
	IMPLICIT SEQUENCE {
	    request-id[0]
		IMPLICIT INTEGER
		[[ i ns -> ns_id ]],

	    name[1]
		ANY
		[[ a ns -> ns_name ]]
		OPTIONAL,

	    value[2]
		ANY
		[[ a ns -> ns_value ]]
		OPTIONAL
	}


PRINTER	print

Message
    ::=
	CHOICE {
	    query
		Query,

	     response
		 Response
	}

Query
    ::=
    [0]
	IMPLICIT SEQUENCE {
	    request-id[0]
		IMPLICIT INTEGER,

	    name[1]
		IMPLICIT IA5String,

	    attribute[2]
		IMPLICIT IA5String
	}

Response
    ::=
    [1]
	IMPLICIT SEQUENCE {
	    request-id[0]
		IMPLICIT INTEGER,

	    name[1]
		ANY
		OPTIONAL,

	    value[2]
		ANY
		OPTIONAL
	}

END