summaryrefslogtreecommitdiff
path: root/appl/svc/webget/date.b
diff options
context:
space:
mode:
Diffstat (limited to 'appl/svc/webget/date.b')
-rw-r--r--appl/svc/webget/date.b24
1 files changed, 16 insertions, 8 deletions
diff --git a/appl/svc/webget/date.b b/appl/svc/webget/date.b
index 71248954..8e5ab5d4 100644
--- a/appl/svc/webget/date.b
+++ b/appl/svc/webget/date.b
@@ -62,31 +62,36 @@ dateindex : fn(nil: string, nill:array of string): int;
gmtm2sec : fn(tm: Tm): int;
-yrsize(yr : int): array of int {
+yrsize(yr : int): array of int
+{
if(yr % 4 == 0 && (yr % 100 != 0 || yr % 400 == 0))
return ldmsize;
else
return dmsize;
}
-tolower(c: int): int {
+tolower(c: int): int
+{
if(c >= 'A' && c <= 'Z')
return c - 'A' + 'a';
return c;
}
-isalpha(c: int): int{
+isalpha(c: int): int
+{
return c >= 'A' && c <= 'Z' || c >= 'a' && c <= 'z';
}
-isdig(c: int): int {
+isdig(c: int): int
+{
return c >= '0' && c <= '9';
}
-dateconv(t: int): string {
+dateconv(t: int): string
+{
tm : ref Tm;
tm = daytime->gmt(t);
return sys->sprint("%s, %.2d %s %.4d %.2d:%.2d:%.2d GMT",
@@ -132,7 +137,8 @@ datenum(date : string): (string, int){
# return 0 for a failure
# could be big?
-date2sec(date : string): int {
+date2sec(date : string): int
+{
tm : Tm;
buf : string;
@@ -210,14 +216,16 @@ date2sec(date : string): int {
return gmtm2sec(tm);
}
-lowercase(name:string): string {
+lowercase(name:string): string
+{
p: string;
for(i:=0;i<len name;i++)
p[i]=tolower(name[i]);
return p;
}
-dateindex(d : string, tab : array of string): int{
+dateindex(d : string, tab : array of string): int
+{
for(i := 0; i < len tab; i++)
if (lowercase(tab[i]) == d)
return i;