xref: /original-bsd/usr.bin/pascal/src/opc.c (revision e59fb703)
1 /*-
2  * Copyright (c) 1980 The Regents of the University of California.
3  * All rights reserved.
4  *
5  * %sccs.include.redist.c%
6  */
7 
8 #ifndef lint
9 char copyright[] =
10 "@(#) Copyright (c) 1980 The Regents of the University of California.\n\
11  All rights reserved.\n";
12 #endif /* not lint */
13 
14 #ifndef lint
15 static char sccsid[] = "@(#)opc.c	5.2 (Berkeley) 04/16/91";
16 #endif /* not lint */
17 
18 #include "OPnames.h"
19 
20 main()  {
21 	register int i;
22 
23 	for (i = 0;  i < 256;  i++)
24 		if (otext[i])
25 			printf("#define O_%s %04o\n", otext[i]+1, i);
26 	exit(0);
27 }
28