#!/bin/sh
#
# Copyright (C) 1990 Department of Computer Science, University of Queensland

echo "/*
 * Copyright (C) 19`date +%y` Department of Computer Science, University of Queensland
 *
 * Access to escape predicates for call/1
 */

'\$query' / 0:
end('\$query' / 0):
"

sed '1,/{/d
	/{.*}/!d
	/^}/,$d
	s|	*{ [^,]*,[	]*\([0-9]*\),[	]*"\(.*\)".*|'"'\2'"' / \1:\
	allocate(0)\
	escape('"'\2'"', \1)\
	deallocate\
	proceed\
end('"'\2'"' / \1):\
|'
