# Build the code which inits prims.

BEGIN {
  FS=", *"
  printf "#include \"forth.h\"\n\n"
  printf "void\ninit_prims ()\n{\n"
}

/^PRIMITIVE/ {
  printf "  {\n    extern struct prim_skel %s;\n", $3
  printf "    add_primitive (%s);\n  }\n", $3
}

END {
  print "}"
}