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