Source

ocaml / tools / make-opcodes

#########################################################################
#                                                                       #
#                                 OCaml                                 #
#                                                                       #
#            Xavier Leroy, projet Cristal, INRIA Rocquencourt           #
#                                                                       #
#   Copyright 1995 Institut National de Recherche en Informatique et    #
#   en Automatique.  All rights reserved.  This file is distributed     #
#   under the terms of the Q Public License version 1.0.                #
#                                                                       #
#########################################################################

$1=="enum" {n=0; next; }
           {for (i = 1; i <= NF; i++) {printf("let op%s = %d\n", $i, n++);}}