[Xsb-commits] CVS: XSB/packages/curl/cc curl2pl.c,1.7,1.8

[Michael K. <ki...@us...>]

Update of /cvsroot/xsb/XSB/packages/curl/cc
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv11143/packages/curl/cc

Modified Files:
	curl2pl.c 
Log Message:
convert time to local


Index: curl2pl.c
===================================================================
RCS file: /cvsroot/xsb/XSB/packages/curl/cc/curl2pl.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- curl2pl.c	23 Apr 2010 05:54:29 -0000	1.7
+++ curl2pl.c	26 Apr 2010 03:59:59 -0000	1.8
@@ -83,6 +83,7 @@
 
   curl_opt options = init_options();
   curl_ret ret_vals;
+
 	
   tail = reg_term(1);
   
@@ -171,14 +172,26 @@
       else if(!strcmp(functor,"properties")){
 
 	c2p_int(CTXTc (int) ret_vals.size, p2p_arg(head, 1));
+	/* the following code can be used to convert to local/UTC time, if
+	    necessary. Note: XSB uses local time, and ret_vals.modify_time
+	    seems to be local, too.
+
+	    struct tm * timeinfo;
+
+	    timeinfo = gmtime(&(ret_vals.modify_time)); // UTC time
+	    timeinfo = localtime(&(ret_vals.modify_time)); // local time
+	    c2p_int(CTXTc (int) mktime(timeinfo), p2p_arg(head,2));
+	*/
 	/* return modification time as an integer */
-	c2p_int(CTXTc (int) ret_vals.modify_time, p2p_arg(head, 2));
+	c2p_int(CTXTc (int) ret_vals.modify_time, p2p_arg(head,2));
 	/*
-	if (ctime(&ret_vals.modify_time) == NULL)
-	    c2p_string("", p2p_arg(head, 2));
-	else
-	    c2p_string(CTXTc (char *) ctime(&ret_vals.modify_time),
-		       p2p_arg(head, 2));
+	  The following converts time to string - not useful
+
+	  if (ctime(&ret_vals.modify_time) == NULL)
+	      c2p_string("", p2p_arg(head, 2));
+	  else
+	      c2p_string(CTXTc (char *) ctime(&ret_vals.modify_time),
+		         p2p_arg(head, 2));
 	*/
       }
     }