%% This OTP, part of the Makor2 package, converts to the dagesh form
%% where appropriate.  There are two mechanisms for adding a dagesh:
%% (1) an asterisk following the letter; and (2) doubling the letter.

input: 
	1;
output: 
	1;

aliases:

	AST	= 42
		;
	RAW_LETTER	= (96-122)
		;
	ALIF	= 96
		;
	VET	= 97
		;
	GIMEL	= 98
		;
	DALET	= 99
		;
	HE	= 100
		;
	VAV	= 101
		;
	ZAYIN	= 102
		;
	HET	= 103
		;
	TET	= 104
		;
	YOD	= 105
		;
	FINALKHAF	= 106
		;
	KHAF	= 107
		;
	LAMED	= 108
		;
	FINALMEM	= 109
		;
	MEM	= 110
		;
	FINALNUN	= 111
		;
	NUN	= 112
		;
	SAMEKH	= 113
		;
	AYIN	= 114
		;
	FINALPHE	= 115
		;
	PHE	= 116
		;
	FINALTSADI	= 117
		;
	TSADI	= 118
		;
	QOF	= 119
		;
	RESH	= 120
		;
	SHIN	= 121
		;
	SAV	= 122
		;
	SHINDOT	= 176
		;
	SINDOT	= 177
		;
expressions:
%% First, the asterisk convention...
	{RAW_LETTER}{AST}	=> #(\1 + 48)
		;
	{SHINDOT}{AST}		=> 192
		;
	{SINDOT}{AST}		=> 193
		;
%% Now some special cases (more-or-less):
	{SHIN}{SHINDOT}		=> 192
		;
	{SINDOT}{SHIN}		=> 193
		;
%% Finally, the doubling convention.  
	{ALIF}{ALIF}		=> #(\1 + 48)
		;
	{VET}{VET}		=> #(\1 + 48)
		;
	{GIMEL}{GIMEL}		=> #(\1 + 48)
		;
	{DALET}{DALET}		=> #(\1 + 48)
		;
	{HE}{HE}		=> #(\1 + 48)
		;
	{VAV}{VAV}		=> #(\1 + 48)
		;
	{ZAYIN}{ZAYIN}		=> #(\1 + 48)
		;
	{HET}{HET}		=> #(\1 + 48)
		;
	{TET}{TET}		=> #(\1 + 48)
		;
	{YOD}{YOD}		=> #(\1 + 48)
		;
	{FINALKHAF}{FINALKHAF}	=> #(\1 + 48)
		;
	{KHAF}{KHAF}		=> #(\1 + 48)
		;
	{LAMED}{LAMED}		=> #(\1 + 48)
		;
	{FINALMEM}{FINALMEM}	=> #(\1 + 48)
		;
	{MEM}{MEM}		=> #(\1 + 48)
		;
	{FINALNUN}{FINALNUN}	=> #(\1 + 48)
		;
	{NUN}{NUN}		=> #(\1 + 48)
		;
	{SAMEKH}{SAMEKH}	=> #(\1 + 48)
		;
	{AYIN}{AYIN}		=> #(\1 + 48)
		;
	{FINALPHE}{FINALPHE}	=> #(\1 + 48)
		;
	{PHE}{PHE}		=> #(\1 + 48)
		;
	{FINALTSADI}{FINALTSADI}=> #(\1 + 48)
		;
	{TSADI}{TSADI}		=> #(\1 + 48)
		;
	{QOF}{QOF}		=> #(\1 + 48)
		;
	{RESH}{RESH}		=> #(\1 + 48)
		;
	{SHIN}{SHIN}		=> #(\1 + 48)
		;
	{SAV}{SAV}		=> #(\1 + 48)
		;