1/* -*- buffer-read-only: t -*- vi: set ro:
2   THIS FILE IS GENERATED AUTOMATICALLY.  PLEASE DO NOT EDIT.
3*/
4#line 1 "rateok.mf4"
5/* Higher-level interface to the rate function.       -*- mfl -*-
6   Copyright (C) 2009-2021 Sergey Poznyakoff
7
8   This program is free software; you can redistribute it and/or modify
9   it under the terms of the GNU General Public License as published by
10   the Free Software Foundation; either version 3, or (at your option)
11   any later version.
12
13   This program is distributed in the hope that it will be useful,
14   but WITHOUT ANY WARRANTY; without even the implied warranty of
15   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16   GNU General Public License for more details.
17
18   You should have received a copy of the GNU General Public License
19   along with this program.  If not, see <http://www.gnu.org/licenses/>. */
20
21module 'rateok'.
22
23func rateok(string key, number timespan, number threshold; number mincnt)
24  returns number
25do
26  if not $#>@mincnt
27    set mincnt 4
28  fi
29  return rate(key, timespan, mincnt, threshold) <= threshold
30done
31