felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-17 06:48:47 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add the slide(date, amt [,localomits]) built-in function.

Browse Source
This commit is contained in:
David F. Skoll
2009-05-09 00:07:59 -04:00
parent dd8d67f659
commit 3e20ce56c9
1 changed files with 48 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
src/funcs.c
View File

@@ -85,6 +85,7 @@ static int FIif (void);
static int FIndex (void);
static int FIsdst (void);
static int FIsomitted (void);
static int FSlide (void);
static int FLanguage (void);
static int FMax (void);
static int FMin (void);
@@ -249,6 +250,7 @@ Operator Func[] = {
{ "realtoday", 0, 0, FRealtoday },
{ "sgn", 1, 1, FSgn },
{ "shell", 1, 2, FShell },
{ "slide", 2, NO_MAX, FSlide },
{ "strlen", 1, 1, FStrlen },
{ "substr", 2, 3, FSubstr },
{ "sunrise", 0, 1, FSunrise},
@@ -2488,6 +2490,51 @@ static int FTzconvert(void)
return OK;
}
static int
FSlide(void)
{
int r, omit, d, i, localomit, amt;
Token tok;
if (!HASDATE(ARG(0))) return E_BAD_TYPE;
ASSERT_TYPE(1, INT_TYPE);
d = DATEPART(ARG(0));
amt = ARGV(1);
if (amt > 1000000) return E_2HIGH;
if (amt < -1000000) return E_2LOW;
RetVal.type = DATE_TYPE;
localomit = 0;
for (i=2; i<Nargs; i++) {
if (ARG(i).type != STR_TYPE) return E_BAD_TYPE;
FindToken(ARG(i).v.str, &tok);
if (tok.type != T_WkDay) return E_UNKNOWN_TOKEN;
localomit |= (1 << tok.val);
}
if (amt == 0) {
RetVal.v.val = d;
return OK;
}
if (amt > 0) {
while(amt) {
d++;
r = IsOmitted(d, localomit, NULL,&omit);
if (r) return r;
if (!omit) amt--;
}
} else {
while(amt) {
d--;
r = IsOmitted(d, localomit, NULL,&omit);
if (r) return r;
if (!omit) amt++;
}
}
RetVal.v.val = d;
return OK;
}
static int
FNonomitted(void)
{
@@ -2497,6 +2544,7 @@ FNonomitted(void)
if (!HASDATE(ARG(0)) ||
!HASDATE(ARG(1))) {
return E_BAD_TYPE;
}
d1 = DATEPART(ARG(0));
d2 = DATEPART(ARG(1));