aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/System-time/00-META.yaml Normal file
View file

@ -0,0 +1,6 @@
---
category:
- Date and time
- Simple
from: http://rosettacode.org/wiki/System_time
note: Programming environment operations

13
Task/System-time/00-TASK.txt Normal file
View file

@ -0,0 +1,13 @@
;Task:
Output the system '''time'''   (any units will do as long as they are noted) either by a [[Execute a System Command|system command]] or one built into the language.
The system time can be used for debugging, network information, random number seeds, or something as simple as program performance.
;Related task:
*   [[Date format]]
;See also:
*   [[wp:System time#Retrieving system time|Retrieving system time (wiki)]]
<br><br>

1
Task/System-time/11l/system-time.11l Normal file
View file

@ -0,0 +1 @@
print(Time())

205
Task/System-time/AArch64-Assembly/system-time.aarch64 Normal file
View file

@ -0,0 +1,205 @@
/* ARM assembly AARCH64 Raspberry PI 3B */
/* program sysTime64.s */
/*******************************************/
/* Constantes file */
/*******************************************/
/* for this file see task include a file in language AArch64 assembly*/
.include "../includeConstantesARM64.inc"
.equ GETTIME, 169 // call system linux gettimeofday
/*******************************************/
/* Structures */
/********************************************/
/* example structure time */
.struct 0
timeval_sec: //
.struct timeval_sec + 8
timeval_usec: //
.struct timeval_usec + 8
timeval_end:
.struct 0
timezone_min: //
.struct timezone_min + 8
timezone_dsttime: //
.struct timezone_dsttime + 8
timezone_end:
/*********************************/
/* Initialized data */
/*********************************/
.data
szMessEmpty: .asciz "Empty queue. \n"
szMessNotEmpty: .asciz "Not empty queue. \n"
szMessError: .asciz "Error detected !!!!. \n"
szMessResult: .asciz "GMT: @/@/@ @:@:@ @ms\n" // message result
szCarriageReturn: .asciz "\n"
.align 4
tbDayMonthYear: .quad 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335
.quad 366, 397, 425, 456, 486, 517, 547, 578, 609, 639, 670, 700
.quad 731, 762, 790, 821, 851, 882, 912, 943, 974,1004,1035,1065
.quad 1096,1127,1155,1186,1216,1247,1277,1308,1339,1369,1400,1430
/*********************************/
/* UnInitialized data */
/*********************************/
.bss
.align 4
stTVal: .skip timeval_end
stTZone: .skip timezone_end
sZoneConv: .skip 100
/*********************************/
/* code section */
/*********************************/
.text
.global main
main: // entry of program
ldr x0,qAdrstTVal // time zones
ldr x1,qAdrstTZone
mov x8,GETTIME // call system
svc 0
cmp x0,-1 // error ?
beq 99f
ldr x1,qAdrstTVal
ldr x0,[x1,timeval_sec] // timestamp in second
bl convTimeStamp
//ldr x0,qTStest1
//bl convTimeStamp
//ldr x0,qTStest2
//bl convTimeStamp
//ldr x0,qTStest3
//bl convTimeStamp
b 100f
99:
ldr x0,qAdrszMessError
bl affichageMess
100: // standard end of the program
mov x0,0 // return code
mov x8,EXIT // request to exit program
svc 0 // perform the system call
qAdrszMessError: .quad szMessError
qAdrstTVal: .quad stTVal
qAdrstTZone: .quad stTZone
qAdrszMessResult: .quad szMessResult
qAdrszCarriageReturn: .quad szCarriageReturn
qTStest1: .quad 1609508339 // 01/01/2021
qTStest2: .quad 1657805939 // 14/07/2022
qTStest3: .quad 1767221999 // 31/12/2025
/******************************************************************/
/* conversion timestamp to date */
/******************************************************************/
/* x0 contains the value of timestamp */
convTimeStamp:
stp x1,lr,[sp,-16]! // save registers
ldr x2,qSecJan2020
sub x3,x0,x2 // total secondes to 01/01/2020
mov x4,60
udiv x5,x3,x4
msub x6,x5,x4,x3 // compute secondes
udiv x3,x5,x4
msub x7,x3,x4,x5 // compute minutes
mov x4,24
udiv x5,x3,x4
msub x8,x5,x4,x3 // compute hours
mov x4,(365 * 4 + 1)
udiv x9,x5,x4
lsl x9,x9,2 // multiply by 4 = year1
udiv x12,x5,x4
msub x10,x12,x4,x5
ldr x11,qAdrtbDayMonthYear
mov x12,3
mov x13,12
1:
mul x14,x13,x12
ldr x15,[x11,x14,lsl 3] // load days by year
cmp x10,x15
bge 2f
sub x12,x12,1
cmp x12,0
cbnz x12,1b
2: // x12 = year2
mov x16,11
mul x15,x13,x12
lsl x15,x15,3 // * par 8
add x14,x15,x11
3:
ldr x15,[x14,x16,lsl 3] // load days by month
cmp x10,x15
bge 4f
sub x16,x16,1
cmp x16,0
cbnz x16,3b
4: // x16 = month - 1
mul x15,x13,x12
add x15,x15,x16
ldr x1,qAdrtbDayMonthYear
ldr x3,[x1,x15,lsl 3]
sub x0,x10,x3
add x0,x0,1 // final compute day
ldr x1,qAdrsZoneConv
bl conversion10
ldr x0,qAdrszMessResult
ldr x1,qAdrsZoneConv
bl strInsertAtCharInc // insert result at first @ character
mov x2,x0
add x0,x16,1 // final compute month
ldr x1,qAdrsZoneConv
bl conversion10
mov x0,x2
ldr x1,qAdrsZoneConv
bl strInsertAtCharInc // insert result at next @ character
mov x2,x0
add x0,x9,2020
add x0,x0,x12 // final compute year = 2020 + year1 + year2
ldr x1,qAdrsZoneConv
bl conversion10
mov x0,x2
ldr x1,qAdrsZoneConv
bl strInsertAtCharInc // insert result at next @ character
mov x2,x0
mov x0,x8 // hours
ldr x1,qAdrsZoneConv
bl conversion10
mov x0,x2
ldr x1,qAdrsZoneConv
bl strInsertAtCharInc // insert result at next @ character
mov x2,x0
mov x0,x7 // minutes
ldr x1,qAdrsZoneConv
bl conversion10
mov x0,x2
ldr x1,qAdrsZoneConv
bl strInsertAtCharInc // insert result at next @ character
mov x2,x0
mov x0,x6 // secondes
ldr x1,qAdrsZoneConv
bl conversion10
mov x0,x2
ldr x1,qAdrsZoneConv
bl strInsertAtCharInc // insert result at next @ character
mov x2,x0
ldr x1,qAdrstTVal
ldr x0,[x1,timeval_usec] // millisecondes
ldr x1,qAdrsZoneConv
bl conversion10
mov x0,x2
ldr x1,qAdrsZoneConv
bl strInsertAtCharInc // insert result at next @ character
bl affichageMess
b 100f
99:
ldr x0,qAdrszMessError
bl affichageMess
100:
ldp x1,lr,[sp],16 // restaur 2 registers
ret // return to address lr x30
qAdrsZoneConv: .quad sZoneConv
qSecJan2020: .quad 1577836800
qAdrtbDayMonthYear: .quad tbDayMonthYear
/********************************************************/
/* File Include fonctions */
/********************************************************/
/* for this file see task include a file in language AArch64 assembly */
.include "../includeARM64.inc"

3
Task/System-time/ABAP/system-time.abap Normal file
View file

@ -0,0 +1,3 @@
REPORT system_time.
WRITE: sy-uzeit.

5
Task/System-time/ALGOL-68/system-time.alg Normal file
View file

@ -0,0 +1,5 @@
FORMAT time repr = $"year="4d,", month="2d,", day="2d,", hours="2d,", \
minutes="2d,", seconds="2d,", day of week="d,", \
daylight-saving-time flag="dl$;
printf((time repr, local time));
printf((time repr, utc time))

216
Task/System-time/ARM-Assembly/system-time.arm Normal file
View file

@ -0,0 +1,216 @@
/* ARM assembly Raspberry PI */
/* program sysTime.s */
/* REMARK 1 : this program use routines in a include file
see task Include a file language arm assembly
for the routine affichageMess conversion10
see at end of this program the instruction include */
/*******************************************/
/* Constantes */
/*******************************************/
.equ STDOUT, 1 @ Linux output console
.equ EXIT, 1 @ Linux syscall
.equ WRITE, 4 @ Linux syscall
.equ BRK, 0x2d @ Linux syscall
.equ CHARPOS, '@'
.equ GETTIME, 0x4e @ call system linux gettimeofday
/*******************************************/
/* Structures */
/********************************************/
/* example structure time */
.struct 0
timeval_sec: @
.struct timeval_sec + 4
timeval_usec: @
.struct timeval_usec + 4
timeval_end:
.struct 0
timezone_min: @
.struct timezone_min + 4
timezone_dsttime: @
.struct timezone_dsttime + 4
timezone_end:
/*********************************/
/* Initialized data */
/*********************************/
.data
szMessError: .asciz "Error detected !!!!. \n"
szMessResult: .asciz "GMT: @/@/@ @:@:@ @ms\n" @ message result
szCarriageReturn: .asciz "\n"
.align 4
tbDayMonthYear: .int 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335
.int 366, 397, 425, 456, 486, 517, 547, 578, 609, 639, 670, 700
.int 731, 762, 790, 821, 851, 882, 912, 943, 974,1004,1035,1065
.int 1096,1127,1155,1186,1216,1247,1277,1308,1339,1369,1400,1430
/*********************************/
/* UnInitialized data */
/*********************************/
.bss
.align 4
stTVal: .skip timeval_end
stTZone: .skip timezone_end
sZoneConv: .skip 100
/*********************************/
/* code section */
/*********************************/
.text
.global main
main: @ entry of program
ldr r0,iAdrstTVal
ldr r1,iAdrstTZone
mov r7,#GETTIME
svc 0
cmp r0,#-1 @ error ?
beq 99f
ldr r0,iAdrstTVal
ldr r1,[r0,#timeval_sec] @ timestemp in second
//ldr r1,iTStest1
//ldr r1,iTStest2
//ldr r1,iTStest3
ldr r2,iSecJan2020
sub r0,r1,r2 @ total secondes to 01/01/2020
mov r1,#60
bl division
mov r0,r2
mov r6,r3 @ compute secondes
mov r1,#60
bl division
mov r7,r3 @ compute minutes
mov r0,r2
mov r1,#24
bl division
mov r8,r3 @ compute hours
mov r0,r2
mov r11,r0
mov r1,#(365 * 4 + 1)
bl division
lsl r9,r2,#2 @ multiply by 4 = year1
mov r1,#(365 * 4 + 1)
mov r0,r11
bl division
mov r10,r3
ldr r1,iAdrtbDayMonthYear
mov r2,#3
mov r3,#12
1:
mul r11,r3,r2
ldr r12,[r1,r11,lsl #2] @ load days by year
cmp r10,r12
bge 2f
sub r2,r2,#1
cmp r2,#0
bne 1b
2: @ r2 = year2
mov r5,#11
mul r4,r3,r2
lsl r4,#2
add r4,r1
3:
ldr r12,[r4,r5,lsl #2] @ load days by month
cmp r10,r12
bge 4f
subs r5,r5,#1
bne 3b
4: @ r5 = month - 1
mul r11,r3,r2
add r11,r5
ldr r1,iAdrtbDayMonthYear
ldr r3,[r1,r11,lsl #2]
sub r0,r10,r3
add r0,r0,#1 @ final compute day
ldr r1,iAdrsZoneConv
bl conversion10 @ this function do not zero final
mov r4,#0 @ store zero final
strb r4,[r1,r0]
ldr r0,iAdrszMessResult
ldr r1,iAdrsZoneConv
bl strInsertAtCharInc @ insert result at first @ character
mov r3,r0
add r0,r5,#1 @ final compute month
ldr r1,iAdrsZoneConv
bl conversion10
mov r4,#0 @ store zero final
strb r4,[r1,r0]
mov r0,r3
ldr r1,iAdrsZoneConv
bl strInsertAtCharInc @ insert result at next @ character
mov r3,r0
ldr r11,iYearStart
add r0,r9,r11
add r0,r0,r2 @ final compute year = 2020 + year1 + year2
ldr r1,iAdrsZoneConv
bl conversion10
mov r4,#0 @ store zero final
strb r4,[r1,r0]
mov r0,r3
ldr r1,iAdrsZoneConv
bl strInsertAtCharInc @ insert result at next @ character
mov r3,r0
mov r0,r8 @ hours
ldr r1,iAdrsZoneConv
bl conversion10
mov r4,#0 @ store zero final
strb r4,[r1,r0]
mov r0,r3
ldr r1,iAdrsZoneConv
bl strInsertAtCharInc @ insert result at next @ character
mov r3,r0
mov r0,r7 @ minutes
ldr r1,iAdrsZoneConv
bl conversion10
mov r4,#0 @ store zero final
strb r4,[r1,r0]
mov r0,r3
ldr r1,iAdrsZoneConv
bl strInsertAtCharInc @ insert result at next @ character
mov r3,r0
mov r0,r6 @ secondes
ldr r1,iAdrsZoneConv
bl conversion10
mov r4,#0 @ store zero final
strb r4,[r1,r0]
mov r0,r3
ldr r1,iAdrsZoneConv
bl strInsertAtCharInc @ insert result at next @ character
mov r3,r0
ldr r1,iAdrstTVal
ldr r0,[r1,#timeval_usec] @ millisecondes
ldr r1,iAdrsZoneConv
bl conversion10
mov r4,#0 @ store zero final
strb r4,[r1,r0]
mov r0,r3
ldr r1,iAdrsZoneConv
bl strInsertAtCharInc @ insert result at next @ character
bl affichageMess
b 100f
99:
ldr r0,iAdrszMessError
bl affichageMess
100: @ standard end of the program
mov r0,#0 @ return code
mov r7,#EXIT @ request to exit program
svc 0 @ perform the system call
iAdrszMessError: .int szMessError
iAdrstTVal: .int stTVal
iAdrstTZone: .int stTZone
iAdrszMessResult: .int szMessResult
iAdrszCarriageReturn: .int szCarriageReturn
iAdrsZoneConv: .int sZoneConv
iSecJan2020: .int 1577836800
iAdrtbDayMonthYear: .int tbDayMonthYear
iYearStart: .int 2020
iTStest1: .int 1609508339 @ 01/01/2021
iTStest2: .int 1657805939 @ 14/07/2022
iTStest3: .int 1767221999 @ 31/12/2025
/***************************************************/
/* ROUTINES INCLUDE */
/***************************************************/
.include "../affichage.inc"

1
Task/System-time/AWK/system-time-1.awk Normal file
View file

@ -0,0 +1 @@
$ awk 'BEGIN{print systime(),strftime()}'

20
Task/System-time/AWK/system-time-2.awk Normal file
View file

@ -0,0 +1,20 @@
function dos_date( cmd,d,t,x) { # under MS Windows
# cmd = "DATE /T"
# cmd | getline d # Format depends on locale, e.g. MM/DD/YYYY or YYYY-MM-DD
# close(cmd) # close pipe
# ##print d
# cmd = "TIME /T"
# cmd | getline t # 13:59
# close(cmd)
# ##print t
# return d t
cmd = "echo %DATE% %TIME%" # this gives better time-resolution
cmd | getline x # 2014-10-31 20:57:36.84
close(cmd)
return x
}
BEGIN {
print "Date and time:", dos_date()
#print systime(), strftime() # gawk only
}

10
Task/System-time/Ada/system-time.ada Normal file
View file

@ -0,0 +1,10 @@
with Ada.Calendar; use Ada.Calendar;
with Ada.Calendar.Formatting; use Ada.Calendar.Formatting;
with Ada.Calendar.Time_Zones; use Ada.Calendar.Time_Zones;
with Ada.Text_Io; use Ada.Text_Io;
procedure System_Time is
Now : Time := Clock;
begin
Put_line(Image(Date => Now, Time_Zone => -7*60));
end System_Time;

6
Task/System-time/Aime/system-time.aime Normal file
View file

@ -0,0 +1,6 @@
date d;
d_now(d);
o_form("~-/f2/-/f2/ /f2/:/f2/:/f2/\n", d_year(d), d_y_month(d), d_m_day(d),
d_d_hour(d), d_h_minute(d), d_m_second(d));

1
Task/System-time/AmigaBASIC/system-time.basic Normal file
View file

@ -0,0 +1 @@
print date$,time$

1
Task/System-time/AppleScript/system-time-1.applescript Normal file
View file

@ -0,0 +1 @@
display dialog ((current date) as text)

14
Task/System-time/AppleScript/system-time-2.applescript Normal file
View file

@ -0,0 +1,14 @@
set now to (current date)
set GMTOffset to (time to GMT)
copy now to epoch
tell epoch to set {its day, its month, its year, its time} to {1, January, 2001, 0}
set systemTime to now - GMTOffset - epoch
-- Format output:
set offsetStr to GMTOffset div hours * 100 + GMTOffset mod hours div minutes
if (GMTOffset < 0) then
set offsetStr to " -" & text 3 thru -1 of ((-10000 + offsetStr) as text)
else
set offsetStr to " +" & text 2 thru -1 of ((10000 + offsetStr) as text)
end if
return (now as text) & offsetStr & (linefeed & systemTime) & (" seconds since " & epoch & " UTC")

2
Task/System-time/AppleScript/system-time-3.applescript Normal file
View file

@ -0,0 +1,2 @@
"Tuesday 30 June 2020 at 11:34:31 +0100
6.15206071E+8 seconds since Monday 1 January 2001 at 00:00:00 UTC"

16
Task/System-time/AppleScript/system-time-4.applescript Normal file
View file

@ -0,0 +1,16 @@
use AppleScript version "2.4" -- Mac OS 10.10 (Yosemite) or later.
use framework "Foundation"
set now to current application's class "NSDate"'s |date|()
set systemTime to now's timeIntervalSinceReferenceDate()
-- Or, since timeIntervalSinceReferenceDate() is both an instance method and a class method:
-- set systemTime to current application's class "NSDate"'s timeIntervalSinceReferenceDate()
-- Format output:
set currentLocale to current application's class "NSLocale"'s currentLocale()
set nowAsText to (now's descriptionWithLocale:(currentLocale)) as text
set epoch to now's dateByAddingTimeInterval:(-systemTime)
-- Or:
-- set epoch to current application's class "NSDate"'s dateWithTimeIntervalSinceReferenceDate:(0)
set epochAsText to epoch's |description|() as text
return nowAsText & (linefeed & systemTime) & (" seconds since " & epochAsText)

2
Task/System-time/AppleScript/system-time-5.applescript Normal file
View file

@ -0,0 +1,2 @@
"Tuesday 30 June 2020 at 11:34:34 British Summer Time
6.152060746444E+8 seconds since 2001-01-01 00:00:00 +0000"

1
Task/System-time/Arturo/system-time.arturo Normal file
View file

@ -0,0 +1 @@
print now

3
Task/System-time/Asymptote/system-time.asymptote Normal file
View file

@ -0,0 +1,3 @@
time();
time("%a %b %d %H:%M:%S %Z %Y");
//are equivalent ways of returning the current time in the default format used by the UNIX date command.

2
Task/System-time/AutoHotkey/system-time.ahk Normal file
View file

@ -0,0 +1,2 @@
FormatTime, t
MsgBox,% t

1
Task/System-time/AutoIt/system-time.autoit Normal file
View file

@ -0,0 +1 @@
MsgBox(0,"Time", "Year: "&@YEAR&",Day: " &@MDAY& ",Hours: "& @HOUR & ", Minutes: "& @MIN &", Seconds: "& @SEC)

1
Task/System-time/Avail/system-time.avail Normal file
View file

@ -0,0 +1 @@
Print: “now”;

1
Task/System-time/BASIC/system-time-1.basic Normal file
View file

@ -0,0 +1 @@
PRINT TIMER

1
Task/System-time/BASIC/system-time-2.basic Normal file
View file

@ -0,0 +1 @@
PRINT TIME$

5
Task/System-time/BASIC256/system-time.basic Normal file
View file

@ -0,0 +1,5 @@
print month+1; "-"; day; "-"; year
# returns system date in format: mm-dd-yyyy
print hour; ":"; minute; ":"; second
# returns system time in format: hh:mm:ss

1
Task/System-time/BBC-BASIC/system-time-1.basic Normal file
View file

@ -0,0 +1 @@
PRINT TIME$

1
Task/System-time/BBC-BASIC/system-time-2.basic Normal file
View file

@ -0,0 +1 @@
PRINT RIGHT$(TIME$,8)

1
Task/System-time/BQN/system-time.bqn Normal file
View file

@ -0,0 +1 @@
•Show •UnixTime @

5
Task/System-time/BaCon/system-time.bacon Normal file
View file

@ -0,0 +1,5 @@
' BaCon time
n = NOW
PRINT n, " seconds since January 1st, 1970"
PRINT YEAR(n), MONTH(n), DAY(n) FORMAT "%04d/%02d/%02d "
PRINT HOUR(n), MINUTE(n), SECOND(n) FORMAT "%02d:%02d:%02d\n"

2
Task/System-time/Batch-File/system-time-1.bat Normal file
View file

@ -0,0 +1,2 @@
date /t
time /t

1
Task/System-time/Batch-File/system-time-2.bat Normal file
View file

@ -0,0 +1 @@
echo %DATE% %TIME%

8
Task/System-time/C++/system-time-1.cpp Normal file
View file

@ -0,0 +1,8 @@
#include <iostream>
#include <boost/date_time/posix_time/posix_time.hpp>
int main( ) {
boost::posix_time::ptime t ( boost::posix_time::second_clock::local_time( ) ) ;
std::cout << to_simple_string( t ) << std::endl ;
return 0 ;
}

8
Task/System-time/C++/system-time-2.cpp Normal file
View file

@ -0,0 +1,8 @@
#include <chrono>
#include <ctime> //for conversion std::ctime()
#include <iostream>
int main() {
auto timenow = std::chrono::system_clock::to_time_t(std::chrono::system_clock::now());
std::cout << std::ctime(&timenow) << std::endl;
}

1
Task/System-time/C-sharp/system-time.cs Normal file
View file

@ -0,0 +1 @@
Console.WriteLine(DateTime.Now);

8
Task/System-time/C/system-time.c Normal file
View file

@ -0,0 +1,8 @@
#include<time.h>
#include<stdio.h>
#include<stdlib.h>
int main(){
time_t my_time = time(NULL);
printf("%s", ctime(&my_time));
return 0;
}

3
Task/System-time/CLU/system-time.clu Normal file
View file

@ -0,0 +1,3 @@
start_up = proc ()
stream$putl(stream$primary_output(), date$unparse(now()))
end start_up

15
Task/System-time/COBOL/system-time.cobol Normal file
View file

@ -0,0 +1,15 @@
WORKING-STORAGE SECTION.
01 WS-CURRENT-DATE-FIELDS.
05 WS-CURRENT-DATE.
10 WS-CURRENT-YEAR PIC 9(4).
10 WS-CURRENT-MONTH PIC 9(2).
10 WS-CURRENT-DAY PIC 9(2).
05 WS-CURRENT-TIME.
10 WS-CURRENT-HOUR PIC 9(2).
10 WS-CURRENT-MINUTE PIC 9(2).
10 WS-CURRENT-SECOND PIC 9(2).
10 WS-CURRENT-MS PIC 9(2).
05 WS-DIFF-FROM-GMT PIC S9(4).
PROCEDURE DIVISION.
MOVE FUNCTION CURRENT-DATE TO WS-CURRENT-DATE-FIELDS.

7
Task/System-time/Clojure/system-time.clj Normal file
View file

@ -0,0 +1,7 @@
(import '[java.util Date])
; the current system date time string
(print (new Date))
; the system time as milliseconds since 1970
(print (. (new Date) getTime))
; or
(print (System/currentTimeMillis))

11
Task/System-time/ColdFusion/system-time.cfm Normal file
View file

@ -0,0 +1,11 @@
<cfscript>
// Date Time
currentTime = Now();
writeOutput( currentTime );
// Epoch
// Credit for Epoch time should go to Ben Nadel
// bennadel.com is his blog
utcDate = dateConvert( "local2utc", currentTime );
writeOutput( utcDate.getTime() );
</cfscript>

13
Task/System-time/Commodore-BASIC/system-time-1.basic Normal file
View file

@ -0,0 +1,13 @@
1 rem time since last reset
5 print chr$(147);chr$(14);
10 t$=ti$
20 h$=left$(t$,2)
30 m$=mid$(t$,3,2)
40 s$=right$(t$,2)
50 print chr$(19);"Roughly ";tab(9);h$;" hours "
51 print tab(9);m$;" minutes"
52 print tab(9);s$; " seconds":print
60 print "has elapsed since TI$ was last reset or"
65 print "the system was powered on.":print
70 print "Press any key to quit."
80 get k$:if k$="" then goto 10

14
Task/System-time/Commodore-BASIC/system-time-2.basic Normal file
View file

@ -0,0 +1,14 @@
5 rem set time to current time of day
10 print chr$(147);
20 input "Enter hour of day (0-23)";h$
25 if val(h$)<0 or val(h$)>23 then goto 20
30 input "Enter minutes (0-59)";m$
35 if val(m$)<0 or val(m$)>99 then goto 30
40 input "Enter seconds (0-59)";s$
45 if val(s$)<0 or val(s$)>99 then goto 40
60 ti$=h$+m$+s$
70 print chr$(147);
80 print chr$(19);"The time is now: ";ti$
85 print:print "Press any key to end."
90 get k$:if k$="" then 80
100 end

68
Task/System-time/Commodore-BASIC/system-time-3.basic Normal file
View file

@ -0,0 +1,68 @@
1 rem read and set cia time of day clock
2 rem rosetta code commodore 64/128 example
10 print chr$(147);chr$(14)
15 hr=56331:mr=56330:sr=56329:tr=56328:gosub 300
20 print spc(11);"CIA #1 Time of Day"
21 print:print "Press S to start or stop the clock."
22 print "Press T to change the time."
23 print:print "Press Q to quit.":print
25 h=peek(hr):m=peek(mr):s=peek(sr):th=peek(tr):t=h:gosub 200
35 print chr$(19);:for q=1 to 8:print chr$(17);:next q
36 print "Clock is:";tab(12);cl$(b):print
40 print "Hours:";tab(12);h;". "
45 print "Minutes:";tab(12);m;". "
50 print "Seconds:";tab(12);s;". "
55 print "1/10 Sec.:";tab(12);th;". "
60 print "AM or PM? ";tab(13);ap$
65 get k$:if k$="" then goto 25
70 if k$="s" and b=0 then poke tr,0:b=1:goto 25
75 if k$="s" and b=1 then poke hr,t:b=0:goto 25
80 if k$="t" then gosub 400:goto 20
90 if k$="q" then end
100 goto 25
200 rem decode bcd
210 ap$="AM":if (h and 128)=128 then ap$="PM"
220 s=int((s and 112)/16)*10+(s and 15)
230 m=int((m and 112)/16)*10+(m and 15)
240 h=int((h and 48)/16)*10+(h and 15)
250 return
300 rem decide if clock is running
305 cl$(0)="Stopped":cl$(1)="Running":b=0
301 rem latch, read/resume
310 z=peek(hr):t1=peek(tr)
315 for i=1 to 100:next i
320 z=peek(hr):t2=peek(tr)
325 if t1<>t2 then b=1
330 return
400 rem change clock value
405 print chr$(147)
410 input "Hour";nh$
415 if val(nh$)<1 or val(nh$)>12 then goto 410
416 if val(nh$)<10 then nh$="0"+nh$
420 input "Minutes";nm$
425 if val(nm$)<0 or val(nm$)>59 then goto 420
426 if val(nm$)<10 then nm$="0"+nm$
430 input "Seconds";ns$
435 if val(ns$)<0 or val(ns$)>59 then goto 430
436 if val(ns$)<10 then ns$="0"+ns$
440 print "AM or PM (a,p)? ";
445 get ap$:if ap$<>"a" and ap$<>"p" then 445
446 print ap$
450 ap=0:if ap$="p" then ap=128
455 rem convert input to bcd
457 ns=val(mid$(ns$,1,1))*16+val(mid$(ns$,2,1))
460 nm=val(mid$(nm$,1,1))*16+val(mid$(nm$,2,1))
465 nh=val(mid$(nh$,1,1))*16+val(mid$(nh$,2,1))
470 nh=nh+ap
475 rem now set values into clock
480 poke hr,nh:rem set hour stops clock
485 poke mr,nm:rem set minute
490 poke sr,ns:rem set second
495 poke tr,0 :rem set 1/10 starts clock
497 b=1
499 print chr$(147):return

2
Task/System-time/Common-Lisp/system-time.lisp Normal file
View file

@ -0,0 +1,2 @@
(multiple-value-bind (second minute hour day month year) (get-decoded-time)
(format t "~4,'0D-~2,'0D-~2,'0D ~2,'0D:~2,'0D:~2,'0D" year month day hour minute second))

8
Task/System-time/Crystal/system-time.crystal Normal file
View file

@ -0,0 +1,8 @@
# current time in system's time zone:
Time.local
# current time in UTC
Time.utc
# monotonic time (useful for measuring elapsed time)
Time.monotonic

1
Task/System-time/D/system-time.d Normal file
View file

@ -0,0 +1 @@
Stdout(Clock.now.span.days / 365).newline;

1
Task/System-time/DBL/system-time.dbl Normal file
View file

@ -0,0 +1 @@
XCALL TIME (D6) ;D6=hhmmss

6
Task/System-time/DCL/system-time.dcl Normal file
View file

@ -0,0 +1,6 @@
$ start_time = f$time()
$ wait 0::10
$ end_time = f$time()
$ write sys$output "start time was ", start_time
$ write sys$output "end time was ", end_time
$ write sys$output "delta time is ", f$delta_time( start_time, end_time )

1
Task/System-time/DWScript/system-time.dw Normal file
View file

@ -0,0 +1 @@
PrintLn(FormatDateTime('dd mmmm yyyy hh:mm:ss', Now));

1
Task/System-time/Delphi/system-time.delphi Normal file
View file

@ -0,0 +1 @@
lblDateTime.Caption := FormatDateTime('dd mmmm yyyy hh:mm:ss', Now);

1
Task/System-time/E/system-time.e Normal file
View file

@ -0,0 +1 @@
println(timer.now())

1
Task/System-time/EasyLang/system-time.easy Normal file
View file

@ -0,0 +1 @@
print timestr systime

7
Task/System-time/Elena/system-time.elena Normal file
View file

@ -0,0 +1,7 @@
import extensions;
import system'calendar;
public program()
{
console.printLine(Date.Now);
}

8
Task/System-time/Elixir/system-time-1.elixir Normal file
View file

@ -0,0 +1,8 @@
:os.timestamp # => {MegaSecs, Secs, MicroSecs}
:erlang.time # => {Hour, Minute, Second}
:erlang.date # => {Year, Month, Day}
:erlang.localtime # => {{Year, Month, Day}, {Hour, Minute, Second}}
:erlang.universaltime # => {{Year, Month, Day}, {Hour, Minute, Second}}
:calendar.local_time # => {{Year, Month, Day}, {Hour, Minute, Second}}
:calendar.universal_time # => {{Year, Month, Day}, {Hour, Minute, Second}}

1
Task/System-time/Elixir/system-time-2.elixir Normal file
View file

@ -0,0 +1 @@
:random.seed(:erlang.now)

2
Task/System-time/Emacs-Lisp/system-time.l Normal file
View file

@ -0,0 +1,2 @@
(message "%s" (current-time-string))
;; => "Wed Oct 14 22:21:05 1987"

2
Task/System-time/Erlang/system-time-1.erl Normal file
View file

@ -0,0 +1,2 @@
1> os:timestamp().
{1250,222584,635452}

6
Task/System-time/Erlang/system-time-2.erl Normal file
View file

@ -0,0 +1,6 @@
2> calendar:now_to_datetime(os:timestamp()).
{{2009,8,14},{4,3,24}}
3> calendar:now_to_universal_time(os:timestamp()).
{{2009,8,14},{4,3,40}}
4> calendar:now_to_local_time(os:timestamp()).
{{2009,8,14},{0,7,01}}

1
Task/System-time/Excel/system-time.excel Normal file
View file

@ -0,0 +1 @@
=NOW()

1
Task/System-time/F-Sharp/system-time.fs Normal file
View file

@ -0,0 +1 @@
printfn "%s" (System.DateTime.Now.ToString("u"))

3
Task/System-time/Factor/system-time.factor Normal file
View file

@ -0,0 +1,3 @@
USE: calendar
now .

4
Task/System-time/Falcon/system-time.falcon Normal file
View file

@ -0,0 +1,4 @@
/* Added by Aykayayciti Earl Lamont Montgomery
April 10th, 2018 */
> CurrentTime().toString()

6
Task/System-time/Fantom/system-time.fantom Normal file
View file

@ -0,0 +1,6 @@
fansh> DateTime.nowTicks
351823905158000000
fansh> DateTime.now
2011-02-24T00:51:47.066Z London
fansh> DateTime.now.toJava
1298508885979

18
Task/System-time/Forth/system-time.fth Normal file
View file

@ -0,0 +1,18 @@
[UNDEFINED] MS@ [IF] \ Win32Forth (rolls over daily)
[DEFINED] ?MS [IF] ( -- ms )
: ms@ ?MS ; \ iForth
[ELSE] [DEFINED] cputime [IF] ( -- Dusec )
: ms@ cputime d+ 1000 um/mod nip ; \ gforth: Anton Ertl
[ELSE] [DEFINED] timer@ [IF] ( -- Dusec )
: ms@ timer@ >us 1000 um/mod nip ; \ bigForth
[ELSE] [DEFINED] gettimeofday [IF] ( -- usec sec )
: ms@ gettimeofday 1000 MOD 1000 * SWAP 1000 / + ; \ PFE
[ELSE] [DEFINED] counter [IF]
: ms@ counter ; \ SwiftForth
[ELSE] [DEFINED] GetTickCount [IF]
: ms@ GetTickCount ; \ VFX Forth
[ELSE] [DEFINED] MICROSECS [IF]
: ms@ microsecs 1000 UM/MOD nip ; \ MacForth
[THEN] [THEN] [THEN] [THEN] [THEN] [THEN] [THEN]
MS@ . \ print millisecond counter

13
Task/System-time/Fortran/system-time-1.f Normal file
View file

@ -0,0 +1,13 @@
integer :: start, stop, rate
real :: result
! optional 1st integer argument (COUNT) is current raw system clock counter value (not UNIX epoch millis!!)
! optional 2nd integer argument (COUNT_RATE) is clock cycles per second
! optional 3rd integer argument (COUNT_MAX) is maximum clock counter value
call system_clock( start, rate )
result = do_timed_work()
call system_clock( stop )
print *, "elapsed time: ", real(stop - start) / real(rate)

11
Task/System-time/Fortran/system-time-2.f Normal file
View file

@ -0,0 +1,11 @@
real :: start, stop
real :: result
! System clock value interpreted as floating point seconds
call cpu_time( start )
result = do_timed_work()
call cpu_time( stop )
print *, "elapsed time: ", stop - start

4
Task/System-time/FreeBASIC/system-time.basic Normal file
View file

@ -0,0 +1,4 @@
' FB 1.05.0 Win64
Print Date + " " + Time '' returns system date/time in format : mm-dd-yyyy hh:mm:ss
Sleep

1
Task/System-time/Frink/system-time.frink Normal file
View file

@ -0,0 +1 @@
println[now[]]

6
Task/System-time/FutureBasic/system-time-1.basic Normal file
View file

@ -0,0 +1,6 @@
window 1
print time
print time(@"hh:mm:ss" )
print time(@"h:mm a" )
print time(@"h:mm a zzz")
HandleEvents

7
Task/System-time/FutureBasic/system-time-2.basic Normal file
View file

@ -0,0 +1,7 @@
window 1
print fn CFAbsoluteTimeGetCurrent
print fn CACurrentMediaTime
print fn ProcessInfoSystemUptime
HandleEvents

1
Task/System-time/GUISS/system-time.guiss Normal file
View file

@ -0,0 +1 @@
Taskbar

5
Task/System-time/Gambas/system-time.gambas Normal file
View file

@ -0,0 +1,5 @@
Public Sub Main()
Print Format(Now, "dddd dd mmmm yyyy hh:nn:ss")
End

5
Task/System-time/Genie/system-time.genie Normal file
View file

@ -0,0 +1,5 @@
[indent=4]
init
var now = new DateTime.now_local()
print now.to_string()

10
Task/System-time/Go/system-time.go Normal file
View file

@ -0,0 +1,10 @@
package main
import "time"
import "fmt"
func main() {
t := time.Now()
fmt.Println(t) // default format
fmt.Println(t.Format("Mon Jan 2 15:04:05 2006")) // some custom format
}

2
Task/System-time/Groovy/system-time.groovy Normal file
View file

@ -0,0 +1,2 @@
def nowMillis = new Date().time
println 'Milliseconds since the start of the UNIX Epoch (Jan 1, 1970) == ' + nowMillis

11
Task/System-time/Haskell/system-time-1.hs Normal file
View file

@ -0,0 +1,11 @@
import System.Time
(getClockTime, toCalendarTime, formatCalendarTime)
import System.Locale (defaultTimeLocale)
main :: IO ()
main = do
ct <- getClockTime
print ct -- print default format, or
cal <- toCalendarTime ct
putStrLn $ formatCalendarTime defaultTimeLocale "%a %b %e %H:%M:%S %Y" cal

7
Task/System-time/Haskell/system-time-2.hs Normal file
View file

@ -0,0 +1,7 @@
import Data.Time (getZonedTime, formatTime, defaultTimeLocale)
main :: IO ()
main = do
zt <- getZonedTime
print zt -- print default format, or
putStrLn $ formatTime defaultTimeLocale "%a %b %e %H:%M:%S %Y" zt

4
Task/System-time/HicEst/system-time.hicest Normal file
View file

@ -0,0 +1,4 @@
seconds_since_midnight = TIME() ! msec as fraction
seconds_since_midnight = TIME(Year=yr, Day=day, WeekDay=wday, Gregorian=gday)
! other options e.g. Excel, YYYYMMDD (num or text)

4
Task/System-time/HolyC/system-time.holyc Normal file
View file

@ -0,0 +1,4 @@
CDateStruct ds;
Date2Struct(&ds, Now + local_time_offset);
Print("%04d-%02d-%02d %02d:%02d:%02d\n", ds.year, ds.mon, ds.day_of_mon, ds.hour, ds.min, ds.sec);

1
Task/System-time/Hoon/system-time.hoon Normal file
View file

@ -0,0 +1 @@
now

1
Task/System-time/IS-BASIC/system-time.basic Normal file
View file

@ -0,0 +1 @@
100 PRINT TIME$

11
Task/System-time/Icon/system-time.icon Normal file
View file

@ -0,0 +1,11 @@
procedure main()
write("&time - milliseconds of CPU time = ",&time)
write("&clock - Time of day as hh:mm:ss (24-hour format) = ",&clock)
write("&date - current date in yyyy/mm/dd format = ",&date)
write("&dateline - timestamp with day of the week, date, and current time to the minute = ",&dateline)
if find("Unicon",&version) then
write("&now - time in seconds since the epoch = ", &now) # Unicon only
end

1
Task/System-time/Io/system-time.io Normal file
View file

@ -0,0 +1 @@
Date now println

2
Task/System-time/J/system-time-1.j Normal file
View file

@ -0,0 +1,2 @@
6!:0 ''
2008 1 23 12 52 10.341

2
Task/System-time/J/system-time-2.j Normal file
View file

@ -0,0 +1,2 @@
6!:0 'YYYY-MM-DD hh:mm:ss.sss'
2009-08-26 10:38:53.171

5
Task/System-time/Java/system-time-1.java Normal file
View file

@ -0,0 +1,5 @@
public class SystemTime{
public static void main(String[] args){
System.out.format("%tc%n", System.currentTimeMillis());
}
}

11
Task/System-time/Java/system-time-2.java Normal file
View file

@ -0,0 +1,11 @@
import java.util.Date;
public class SystemTime{
public static void main(String[] args){
Date now = new Date();
System.out.println(now); // string representation
System.out.println(now.getTime()); // Unix time (# of milliseconds since Jan 1 1970)
//System.currentTimeMillis() returns the same value
}
}

2
Task/System-time/JavaScript/system-time.js Normal file
View file

@ -0,0 +1,2 @@
console.log(new Date()) // => Sat, 28 May 2011 08:22:53 GMT
console.log(Date.now()) // => 1306571005417 // Unix epoch

1
Task/System-time/Joy/system-time.joy Normal file
View file

@ -0,0 +1 @@
time localtime "%T\n" strftime putchars.

5
Task/System-time/Jq/system-time.jq Normal file
View file

@ -0,0 +1,5 @@
$ jq -n 'now | [., todate]'
[
1437619000.970498,
"2015-07-23T02:36:40Z"
]

1
Task/System-time/Jsish/system-time.jsish Normal file
View file

@ -0,0 +1 @@
console.log(strftime());

4
Task/System-time/Julia/system-time.julia Normal file
View file

@ -0,0 +1,4 @@
ts = time()
println("The system time is (in ISO 8601 format):")
println(strftime(" %F %T %Z", ts))

5
Task/System-time/Kotlin/system-time.kotlin Normal file
View file

@ -0,0 +1,5 @@
// version 1.0.6
fun main(args: Array<String>) {
println("%tc".format(System.currentTimeMillis()))
}

2
Task/System-time/LFE/system-time-1.lfe Normal file
View file

@ -0,0 +1,2 @@
> (os:timestamp)
#(1423 786308 145798)

2
Task/System-time/LFE/system-time-2.lfe Normal file
View file

@ -0,0 +1,2 @@
> (calendar:now_to_datetime (os:timestamp))
#(#(2015 2 13) #(0 12 18))

4
Task/System-time/LFE/system-time-3.lfe Normal file
View file

@ -0,0 +1,4 @@
> (calendar:now_to_universal_time (os:timestamp))
#(#(2015 2 13) #(0 13 51))
> (calendar:now_to_local_time (os:timestamp))
#(#(2015 2 12) #(16 14 26))

1
Task/System-time/LIL/system-time.lil Normal file
View file

@ -0,0 +1 @@
print [system date]; print [system date +%s.%N]

2
Task/System-time/Lambdatalk/system-time.lambdatalk Normal file
View file

@ -0,0 +1,2 @@
{date}
-> 2021 02 22 07 23 12

2
Task/System-time/Lasso/system-time.lasso Normal file
View file

@ -0,0 +1,2 @@
date->format('%Q %T')
date->asInteger

4
Task/System-time/Liberty-BASIC/system-time.basic Normal file
View file

@ -0,0 +1,4 @@
print time$() 'time now as string "16:21:44"
print time$("seconds") 'seconds since midnight as number 32314
print time$("milliseconds") 'milliseconds since midnight as number 33221342
print time$("ms") 'milliseconds since midnight as number 33221342

15
Task/System-time/Lingo/system-time.lingo Normal file
View file

@ -0,0 +1,15 @@
put time()
-- "03:45"
put date()
-- "01.10.2016"
put the systemdate
-- date( 2016, 10, 1 )
put the systemdate.seconds
-- 13950
-- milliseconds since last boot, due to higher resolution better suited for random number seeding
put _system.milliseconds
-- 41746442

Some files were not shown because too many files have changed in this diff Show more