DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »tes.py«

└─⟦3d0c2be1b⟧ Bits:30001254 ISODE-5.0 Tape
    └─⟦eba4602b1⟧ »./isode-5.0.tar.Z« 
        └─⟦d3ac74d73⟧ 
            └─⟦this⟧ »isode-5.0/pepy/test.asn1/tes.py« 
└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
    └─⟦35176feda⟧ »EurOpenD22/isode/isode-6.tar.Z« 
        └─⟦de7628f85⟧ 
            └─⟦this⟧ »isode-6.0/pepy/test.asn1/tes.py« 

TextFile

Fred DEFINITIONS IMPLICIT TAGS ::=
%{
int	br = 10;
int	frd = 9;
%}
BEGIN

SECTIONS build parse print

Barney ::= SEQUENCE {
	COMPONENTS OF Fred,
	wilma INTEGER [[i frd]],
	fred INTEGER [[i frd]],
	pets SEQUENCE SIZE (1..MAX) OF INTEGER }

Fred ::= SEQUENCE {
	barney-rubble INTEGER [[i br]],
	betty-rubble INTEGER [[i br]],
	the-dog REAL }

END
%{
#include <stdio.h>

char	*myname;

main (argc, argv)
int	argc;
char	**argv;
{
	PE	pe;
	PE	pe2;

	myname = argv[0];

	build_Fred_Barney(&pe, 1, 0, NULLCP, NullParm);
	build_Fred_Fred(&pe2, 1, 0, NULLCP, NullParm);
	parse_Fred_Barney(pe, 1, NULLIP, NULLVP, NullParm);
	parse_Fred_Fred(pe2, 1, NULLIP, NULLVP, NullParm);
	print_Fred_Barney(pe, 1, NULLIP, NULLVP, NullParm);
	print_Fred_Fred(pe2, 1, NULLIP, NULLVP, NullParm);
	exit (0);
}


/* VARARGS2 */

adios (what, fmt, a, b, c, d, e, f, g, h, i, j)
char   *what,
       *fmt,
       *a,
       *b,
       *c,
       *d,
       *e,
       *f,
       *g,
       *h,
       *i,
       *j;
{
    advise (what, fmt, a, b, c, d, e, f, g, h, i, j);
    _exit (1);
}

/* \f

 */

/* VARARGS2 */

void advise (what, fmt, a, b, c, d, e, f, g, h, i, j)
char   *what,
       *fmt,
       *a,
       *b,
       *c,
       *d,
       *e,
       *f,
       *g,
       *h,
       *i,
       *j;
{
    (void) fflush (stdout);

    fprintf (stderr, "%s: ", myname);
    fprintf (stderr, fmt, a, b, c, d, e, f, g, h, i, j);
    if (what)
	(void) fputc (' ', stderr), perror (what);
    else
	(void) fputc ('\n', stderr);

    (void) fflush (stderr);
}


%}