$prefix _TMPRFSM_
$$#include "fsmsubs.h"
$anyof	real_exp_char	edgEDG
$state	real
$tran		$lambda				_TMPR_init
$state
$tran		'-'				_TMPR_negative
$tran		'+'
$tran		$lambda
$state	int_digit
$tran		$digit->int_got_digit		_TMPR_int_digit($arg)
$tran		'.'->fraction
$state	int_got_digit
$tran		$digit->int_got_digit		_TMPR_int_digit($arg)
$tran		'.'->frac_got_digit
$tran		$lambda->exp
$state	fraction
$tran		$digit->frac_got_digit		_TMPR_frac_digit($arg)
$state	frac_got_digit
$tran		$digit->frac_got_digit		_TMPR_frac_digit($arg)
$tran		$lambda->exp
$state	exp
$tran		!exponent
$tran		$lambda
$state
$tran		$eos->$exit			_TMPR_finish_real
$state	exponent
$tran		$anyof real_exp_char
$state
$tran		'+'
$tran		'-'				_TMPR_negate_exp
$tran		$lambda
$state
$tran		$decimal->$exit			_TMPR_set_exp($arg)