mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-05 03:10:31 +01:00
59 lines
1.5 KiB
ObjectPascal
59 lines
1.5 KiB
ObjectPascal
{$MACRO ON}
|
|
(******************************************************************************
|
|
*
|
|
* Copyright (c) 1995-2000 Palm, Inc. or its subsidiaries.
|
|
* All rights reserved.
|
|
*
|
|
* File: TimeMgr.h
|
|
*
|
|
* Release: Palm OS SDK 4.0 (63220)
|
|
*
|
|
* Description:
|
|
* Time manager functions
|
|
*
|
|
* History:
|
|
* 1/19/95 roger - Created by Roger Flores
|
|
*
|
|
*****************************************************************************)
|
|
|
|
unit timemgr;
|
|
|
|
interface
|
|
|
|
uses palmos, coretraps, errorbase;
|
|
|
|
(************************************************************
|
|
* Time Manager result codes
|
|
* (timErrorClass is defined in SystemMgr.h)
|
|
*************************************************************)
|
|
|
|
const
|
|
timErrMemory = timErrorClass or 1;
|
|
|
|
(************************************************************
|
|
* Function Prototypes
|
|
*************************************************************)
|
|
|
|
//-------------------------------------------------------------------
|
|
// Initialization
|
|
//-------------------------------------------------------------------
|
|
|
|
function TimInit: Err; syscall sysTrapTimInit;
|
|
|
|
//-------------------------------------------------------------------
|
|
// API
|
|
//-------------------------------------------------------------------
|
|
|
|
// seconds since 1/1/1904
|
|
function TimGetSeconds: UInt32; syscall sysTrapTimGetSeconds;
|
|
|
|
// seconds since 1/1/1904
|
|
procedure TimSetSeconds(seconds: UInt32); syscall sysTrapTimSetSeconds;
|
|
|
|
// ticks since power on
|
|
function TimGetTicks: UInt32; syscall sysTrapTimGetTicks;
|
|
|
|
implementation
|
|
|
|
end.
|