#!/bin/awk

BEGIN {
  FS = sprintf(" ");
}

/function/,/{/ {
  gsub(/[()]/, " ");
  if ($1 == "function") {
    name = $2;
    printf "<h3>%s</h3>\n", name;
    msg = sprintf ("<?php DefFunction('%s (", name);
    d = 3;
  } else 
    d = 1;

  for (i=d; i<=NF; i++) {
    if ($(i) != "{")
      msg = sprintf ("%s%s ", msg, $(i));
    else {
      msg = sprintf ("%s)', \"\", \"\"); ?>\n\n\n", msg);
      gsub(" )", ")", msg);
      printf "%s", msg;

    }
  }
}