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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
{$MACRO ON}
{$define Rsc := }
(******************************************************************************
*
* Copyright (c) 1995-2000 Palm, Inc. or its subsidiaries.
* All rights reserved.
*
* File: SysUtils.h
*
* Release: Palm OS SDK 4.0 (63220)
*
* Description:
* These are miscellaneous routines.
*
* History:
* April 27, 1995 Created by Roger Flores
*
*****************************************************************************)
unit sysutil;
interface
uses palmos, coretraps;
//typedef Int16 _comparF (const void *, const void *, Int16 other);
type
_comparF = function(p1, p2: Pointer; other: Int32): Int16;
CmpFuncPtr = _comparF;
_searchF = function(const searchData, arrayData: Pointer; other: Int32): Int16;
SearchFuncPtr = _searchF;
// For backwards compatibility
//const
// GremlinIsOn = hostSelectorGremlinIsRunning;
(************************************************************
* Constants
*************************************************************)
const
sysRandomMax = $7FFF; // Max value returned from SysRandom()
(************************************************************
* Macros
*************************************************************)
// Abs(a) (((a) >= 0) ? (a) : -(a))
(************************************************************
* procedures
*************************************************************)
function SysBinarySearch(const baseP: Pointer; numOfElements, width: Int16;
searchF: SearchFuncPtr; const searchData: Pointer;
other: Int32; var position: Int32; findFirst: Boolean): Boolean; syscall sysTrapSysBinarySearch;
procedure SysInsertionSort(baseP: Pointer; numOfElements, width: Int16;
comparF: CmpFuncPtr; other: Int32); syscall sysTrapSysInsertionSort;
procedure SysQSort(baseP: Pointer; numOfElements, width: Int16;
comparF: CmpFuncPtr; other: Int32); syscall sysTrapSysQSort;
procedure SysCopyStringResource(string_: PChar; theID: Int16); syscall sysTrapSysCopyStringResource;
function SysFormPointerArrayToStrings(c: PChar; stringCount: Int16): MemHandle; syscall sysTrapSysFormPointerArrayToStrings;
// Return a random number ranging from 0 to sysRandomMax.
// Normally, 0 is passed unless you want to start with a new seed.
function SysRandom(newSeed: Int32): Int16; syscall sysTrapSysRandom;
function SysStringByIndex(resID, index: UInt16; strP: PChar; maxLen: UInt16): PChar; syscall sysTrapSysStringByIndex;
function SysErrString(err: Err; strP: PChar; maxLen: UInt16): PChar; syscall sysTrapSysErrString;
// This function is not to be called directly. Instead, use the various Emu* calls
// in EmuTraps.h because they work for Poser, the device, and the simulator, and
// they are safer because of the type checking.
//!!!function HostControl(selector: HostControlTrapNumber, ...): UInt32; syscall sysTrapHostControl;
// For backwards compatibility
//const
// SysGremlins = HostControl;
implementation
end.
|
