mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2025-12-16 22:35:41 +00:00
Code Issues Projects Releases Wiki Activity

Implementation of gmtime_to_timestamp_2.

Browse Source 
Estimated hours taken: 2
Branches: main

compiler/timestamp.m:
	Implementation of gmtime_to_timestamp_2.
This commit is contained in:
Peter Ross
2003-11-03 18:14:51 +00:00
parent c52500cb82
commit ae301cbd6b
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/timestamp.m
View File

@@ -102,12 +102,16 @@ gmtime_to_timestamp(tm(Year, Month, MD, Hrs, Min, Sec, YD, WD, DST)) =
strftime(Result, size, ""%Y-%m-%d %H:%M:%S"", &t); strftime(Result, size, ""%Y-%m-%d %H:%M:%S"", &t);
}"). }").
:- pragma foreign_proc("MC++", :- pragma foreign_proc("C#",
gmtime_to_timestamp_2(_Yr::in, _Mnt::in, _MD::in, _Hrs::in, _Min::in, gmtime_to_timestamp_2(Yr::in, Mnt::in, MD::in, Hrs::in, Min::in,
_Sec::in, _YD::in, _WD::in, _N::in) = (_Result::out), Sec::in, _YD::in, _WD::in, _N::in) = (Result::out),
[will_not_call_mercury, promise_pure], [will_not_call_mercury, promise_pure],
"{ "{
mercury::runtime::Errors::SORRY(""foreign code for this function""); System.DateTime t;
t = new System.DateTime(Yr + 1900, Mnt + 1, MD, Hrs, Min, Sec);
string format_str = ""yyyy-MM-dd hh:mm:ss"";
Result = t.ToString(format_str);
}"). }").
:- func maybe_dst_to_int(maybe(dst)) = int. :- func maybe_dst_to_int(maybe(dst)) = int.