xref: /csrg-svn/usr.bin/pascal/src/opc.c (revision 22179)
1*22179Sdist /*
2*22179Sdist  * Copyright (c) 1980 Regents of the University of California.
3*22179Sdist  * All rights reserved.  The Berkeley software License Agreement
4*22179Sdist  * specifies the terms and conditions for redistribution.
5*22179Sdist  */
6761Speter 
714737Sthien #ifndef lint
8*22179Sdist char copyright[] =
9*22179Sdist "@(#) Copyright (c) 1980 Regents of the University of California.\n\
10*22179Sdist  All rights reserved.\n";
11*22179Sdist #endif not lint
12761Speter 
13761Speter #include "OPnames.h"
14761Speter 
15761Speter main()  {
16761Speter 	register int i;
17761Speter 
18761Speter 	for (i = 0;  i < 256;  i++)
19761Speter 		if (otext[i])
20761Speter 			printf("#define O_%s %04o\n", otext[i]+1, i);
21761Speter 	exit(0);
22761Speter }
23