pike.git / lib / modules / Calendar.pmod / Timezone.pmod

version» Context lines:

pike.git/lib/modules/Calendar.pmod/Timezone.pmod:80: Inside #if 1
  #if 1    string s;       if ( (s=getenv("TZ")) )    {    tz=`[](s);    if (tz) return tz;    }      // Linux RedHat -  if ( (s=Stdio.read_bytes("/etc/sysconfig/clock")) ) +  if (Stdio.is_dir("/etc/sysconfig/.") && +  (s = Stdio.read_bytes("/etc/sysconfig/clock")) )    {    sscanf(s,"%*sZONE=\"%s\"",s);    tz=`[](s);   // werror("=>%O\n",tz);    if (tz) return tz;    }      #if constant(tzname)    mapping l=predef::localtime(time());    array(string) tzn=tzname();
pike.git/lib/modules/Calendar.pmod/Timezone.pmod:864:    else if (sscanf(a[1],"%d:%d:%d",h,m,s)==3) roff=h*3600+m*60+s;    else if (sscanf(a[1],"-%d:%d",h,m)==2) roff=h*3600+m*60;    else if (sscanf(a[1],"%d:%d",h,m)==2) roff=h*3600+m*60;       if (roff==-17) // based on DST rule    return sprintf(    "TZrules.%s(%d,%O)",    FIXID(a[1]),-a[0],a[2]);    else // simple timezone    return sprintf( -  "Rules.Timezone(%d,%O)", +  "Rule.Timezone(%d,%O)",    -(roff+a[0]),a[2]);    }       string rule_shift(array a)    {    if (a[3]=="" || a[3][0]=='#') return "forever";       string in=a[3];    sscanf(in,"until %s",in);    sscanf(in,"%s#",in);
pike.git/lib/modules/Calendar.pmod/Timezone.pmod:952:    }       mapping rname=([]);    int n=1;       foreach (rules,array a)    if (rname[a[4]]) a[6]=rname[a[4]];    else a[6]=rname[a[4]]="tz"+n++;       res+=({ "inherit TZHistory;\n" -  "Rules.Timezone ", +  "Rule.Timezone ",    sort(values(rname))*",",";\n" -  "Rules.Timezone whatrule(int ux)\n" +  "Rule.Timezone whatrule(int ux)\n"    "{\n" });       foreach (rules,array a)    {    if (!a[5]) a[5]=rule_shift(a);       string s="";    sscanf(a[3],"%s#%*[ \t]%s",a[3],s);    a[3]="from "+reverse(array_sscanf(reverse(a[3]),"%*[ \t]%s")[0]);    a[7]=s;
pike.git/lib/modules/Calendar.pmod/Timezone.pmod:1054:       object compile_handler = class {    mapping(string:mixed) get_default_module() {    return constants;    }       mapping constants = all_constants() +    (["TZrules":Dummymodule(find_rule),    "TZRules":TZRules,    "TZHistory":TZHistory, -  "Rules":.Rule, +  "Rule":.Rule,    "ZEROSHIFT":({0,0,0,""})    ]);       }();      // #define RTTZC_DEBUG   // #define RTTZC_TIMING       object find_zone(string s)    {