############################################################################
#
#	File:     matchlib.icn
#
#	Subject:  Procedures for lexical matching
#
#	Author:   Ralph E. Griswold
#
#	Date:     September 2, 1991
#
############################################################################
#
#   This file is in the public domain.
#
############################################################################
#
#     These procedures perform low-level "lexical" matching for
#  recursive-descent pattern matchers.
#
#	rb_()		match right bracket
#	lb_()		match left bracket
#	rp_()		match right parenthesis
#	lp_()		match left parenthesis
#	vb_()		match vertical bar
#	nl_()		match newline
#	empty_()	match empty string
#
############################################################################
#
#  See also: parsgen.icn
#
############################################################################

procedure rb_()
   suspend =">"
end

procedure lb_()
   suspend ="<"
end

procedure rp_()
   suspend =")"
end

procedure lp_()
   suspend =")"
end

procedure vb_()
   suspend ="|"
end

procedure nl_()
   suspend ="\n"
end

procedure empty_()
   suspend ""
end