The R Project SVN R

Rev

Rev 51705 | Rev 52570 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 51705 Rev 51712
Line 617... Line 617...
617 
	} else valid = 0;
 617 
	} else valid = 0;
618 
	makelt(ptm, ans, i, valid, d - floor(d));
 618 
	makelt(ptm, ans, i, valid, d - floor(d));
619 
    }
 619 
    }
620 
    setAttrib(ans, R_NamesSymbol, ansnames);
 620 
    setAttrib(ans, R_NamesSymbol, ansnames);
621 
    PROTECT(klass = allocVector(STRSXP, 2));
 621 
    PROTECT(klass = allocVector(STRSXP, 2));
622 
    SET_STRING_ELT(klass, 0, mkChar("POSIXt"));
 622 
    SET_STRING_ELT(klass, 0, mkChar("POSIXlt"));
623 
    SET_STRING_ELT(klass, 1, mkChar("POSIXlt"));
 623 
    SET_STRING_ELT(klass, 1, mkChar("POSIXt"));
624 
    classgets(ans, klass);
 624 
    classgets(ans, klass);
625 
    if (isgmt) {
 625 
    if (isgmt) {
626 
	PROTECT(tzone = mkString(tz));
 626 
	PROTECT(tzone = mkString(tz));
627 
    } else {
 627 
    } else {
628 
	PROTECT(tzone = allocVector(STRSXP, 3));
 628 
	PROTECT(tzone = allocVector(STRSXP, 3));
Line 946... Line 946...
946 
	makelt(ptm, ans, i, !invalid, psecs - floor(psecs));
 946 
	makelt(ptm, ans, i, !invalid, psecs - floor(psecs));
947 
    }
 947 
    }
948 
 
 948 
 
949 
    setAttrib(ans, R_NamesSymbol, ansnames);
 949 
    setAttrib(ans, R_NamesSymbol, ansnames);
950 
    PROTECT(klass = allocVector(STRSXP, 2));
 950 
    PROTECT(klass = allocVector(STRSXP, 2));
951 
    SET_STRING_ELT(klass, 0, mkChar("POSIXt"));
 951 
    SET_STRING_ELT(klass, 0, mkChar("POSIXlt"));
952 
    SET_STRING_ELT(klass, 1, mkChar("POSIXlt"));
 952 
    SET_STRING_ELT(klass, 1, mkChar("POSIXt"));
953 
    classgets(ans, klass);
 953 
    classgets(ans, klass);
954 
    if (isgmt) {
 954 
    if (isgmt) {
955 
	PROTECT(tzone = mkString(tz));
 955 
	PROTECT(tzone = mkString(tz));
956 
	setAttrib(ans, install("tzone"), tzone);
 956 
	setAttrib(ans, install("tzone"), tzone);
957 
	UNPROTECT(1);
 957 
	UNPROTECT(1);
Line 1018... Line 1018...
1018 
	} else valid = 0;
 1018 
	} else valid = 0;
1019 
	makelt(&tm, ans, i, valid, 0.0);
 1019 
	makelt(&tm, ans, i, valid, 0.0);
1020 
    }
 1020 
    }
1021 
    setAttrib(ans, R_NamesSymbol, ansnames);
 1021 
    setAttrib(ans, R_NamesSymbol, ansnames);
1022 
    PROTECT(klass = allocVector(STRSXP, 2));
 1022 
    PROTECT(klass = allocVector(STRSXP, 2));
1023 
    SET_STRING_ELT(klass, 0, mkChar("POSIXt"));
 1023 
    SET_STRING_ELT(klass, 0, mkChar("POSIXlt"));
1024 
    SET_STRING_ELT(klass, 1, mkChar("POSIXlt"));
 1024 
    SET_STRING_ELT(klass, 1, mkChar("POSIXt"));
1025 
    classgets(ans, klass);
 1025 
    classgets(ans, klass);
1026 
    setAttrib(ans, install("tzone"), mkString("UTC"));
 1026 
    setAttrib(ans, install("tzone"), mkString("UTC"));
1027 
    UNPROTECT(4);
 1027 
    UNPROTECT(4);
1028 
 
 1028 
 
1029 
    return ans;
 1029 
    return ans;