#!/bin/bash

for s in /usr/include/webkitgtk-1.0/webkit/WebKitDOM*
do
	t="${s##*/}"
	t="${t/.h/}"
	b="${t#WebKit}"
	echo "(define-object $b"
	echo "  (in-module \"WebKit\")"
	echo "  (c-name \"$t\")"
	grep parent_instance "$s" |awk '{ print "  (parent \"" $1 "\")" }'
	echo ")"
done