xtimer.icl 1.06 KB
Newer Older
Ronny Wichers Schreur's avatar
Ronny Wichers Schreur committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
implementation module xtimer;

InstallXTimer :: !Int -> Int;
InstallXTimer _
	= code {
		.inline InstallXTimer
			ccall install_timer "I-I"
		.end
	};

ChangeXTimerInterval :: !Int -> Int;
ChangeXTimerInterval _
	= code {
		.inline ChangeXTimerInterval
			ccall change_timer_interval "I-I"
		.end
	};

GetTimerInfo :: !Int -> Int;
GetTimerInfo _
	= code {
		.inline GetTimerInfo
			ccall get_timer_count "I-I"
		.end
	};

EnableTheTimer :: !Int -> Int;
EnableTheTimer _
	= code {
		.inline EnableTheTimer
			ccall enable_timer "I-I"
		.end
	};

DisableTheTimer :: !Int -> Int;
DisableTheTimer _
	= code {
		.inline DisableTheTimer
			ccall disable_timer "I-I"
		.end
	};

43
XGetCurrentTime :: !Int -> (!Int,!Int,!Int);
Ronny Wichers Schreur's avatar
Ronny Wichers Schreur committed
44 45 46 47 48 49 50
XGetCurrentTime _
	= code {
		.inline XGetCurrentTime
			ccall get_current_time "I-III"
		.end
	};

51
XGetCurrentDate :: !Int -> (!Int,!Int,!Int,!Int);
Ronny Wichers Schreur's avatar
Ronny Wichers Schreur committed
52 53 54 55 56 57 58 59 60 61 62 63 64 65 66
XGetCurrentDate _
	= code {
		.inline XGetCurrentDate
			ccall get_current_date "I-IIII"
		.end
	};

WaitmSeconds :: !Int -> Int;
WaitmSeconds _
	= code {
		.inline WaitmSeconds
			ccall wait_mseconds "I-I"
		.end
	};