+ first few things for PalmOS support

rtl/palmos/api/common.inc

@@ -0,0 +1,104 @@
+{
+Copyright © 1995 - 1998, 3Com Corporation or its subsidiaries ("3Com").
+All rights reserved.
+
+This software may be copied and used solely for developing products for
+the Palm Computing platform and for archival and backup purposes.  Except
+for the foregoing, no part of this software may be reproduced or transmitted
+in any form or by any means or used to make any derivative work (such as
+translation, transformation or adaptation) without express written consent
+from 3Com.
+
+3Com reserves the right to revise this software and to make changes in content
+from time to time without obligation on the part of 3Com to provide notification
+of such revision or changes.
+3COM MAKES NO REPRESENTATIONS OR WARRANTIES THAT THE SOFTWARE IS FREE OF ERRORS
+OR THAT THE SOFTWARE IS SUITABLE FOR YOUR USE.  THE SOFTWARE IS PROVIDED ON AN
+"AS IS" BASIS.  3COM MAKES NO WARRANTIES, TERMS OR CONDITIONS, EXPRESS OR IMPLIED,
+EITHER IN FACT OR BY OPERATION OF LAW, STATUTORY OR OTHERWISE, INCLUDING WARRANTIES,
+TERMS, OR CONDITIONS OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, AND
+SATISFACTORY QUALITY.
+
+TO THE FULL EXTENT ALLOWED BY LAW, 3COM ALSO EXCLUDES FOR ITSELF AND ITS SUPPLIERS
+ANY LIABILITY, WHETHER BASED IN CONTRACT OR TORT (INCLUDING NEGLIGENCE), FOR
+DIRECT, INCIDENTAL, CONSEQUENTIAL, INDIRECT, SPECIAL, OR PUNITIVE DAMAGES OF
+ANY KIND, OR FOR LOSS OF REVENUE OR PROFITS, LOSS OF BUSINESS, LOSS OF INFORMATION
+OR DATA, OR OTHER FINANCIAL LOSS ARISING OUT OF OR IN CONNECTION WITH THIS SOFTWARE,
+EVEN IF 3COM HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
+
+3Com, HotSync, Palm Computing, and Graffiti are registered trademarks, and
+Palm III and Palm OS are trademarks of 3Com Corporation or its subsidiaries.
+
+IF THIS SOFTWARE IS PROVIDED ON A COMPACT DISK, THE OTHER SOFTWARE AND
+DOCUMENTATION ON THE COMPACT DISK ARE SUBJECT TO THE LICENSE AGREEMENT
+ACCOMPANYING THE COMPACT DISK.
+
+ -------------------------------------------------------------------
+  FileName:
+    	     Common.inc
+
+  Description:
+    	     Common include file for all Pilot routines.
+    	     Contains elementary data types
+
+  History:
+     10/19/94  RM - Created by Ron Marianetti
+      4/24/97  SL - Changes for PalmOS 2.0 SDK
+      8/05/98  Converted to pascal by Florian Klaempfl
+
+}
+    { Elementary data types }
+
+    { Fixed size data types }
+    type
+       SByte = char;      // I'am not sure about that (FK)
+       UInt16 = word;
+       UInt32 = cardinal;
+       SWord = integer;
+       Int16 = integer;
+       SDWord = longint;
+       Int32 = longint;
+       DWord = cardinal;
+       UChar = char;      // I'am not sure about that (FK)
+       Short = integer;
+       UShort = word;
+       Int = integer;
+       UInt = word;
+       Long = longint;
+       ULong = cardinal;
+       Err = integer;
+       LocalID = DWord;
+
+       { Pointer Types }
+       VoidPtr = pointer;
+       VoidHand = ^VoidPtr;
+       SBytePtr = ^SByte;
+       BytePtr = ^Byte;
+       SWordPtr = ^SWord;
+       WordPtr = ^Word;
+       UInt16Ptr = ^word;
+       SDWordPtr = ^SDWord;
+       DWordPtr = ^DWord;
+
+       { Logical data types }
+       BooleanPtr = ^Boolean;
+
+       CharPtr = ^Char;
+       UCharPtr = ^UChar;
+       ShortPtr = ^Short;
+       UShortPtr = ^UShort;
+       IntPtr = ^Int;
+       UIntPtr = ^UInt;
+       LongPtr = ^Long;
+       ULongPtr = ^ULong;
+
+       { Generic Pointer types used by Memory Manager }
+       { We have to define Ptr as char* because that's what the Mac includes do. }
+       { global pointer }
+       Ptr = ^char;
+
+       { global handle }
+       Handle = ^Ptr;
+
+       { Function types }
+       ProcPtr = function : Long;cdecl;

rtl/palmos/api/common.pp

@@ -0,0 +1,31 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+
+    Copyright (c) 1998 Florian Klaempfl
+    member of the Free Pascal development team
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+unit common;
+
+  interface
+
+  {$I common.inc}
+
+  implementation
+
+end.
+{
+  $Log$
+  Revision 1.1  1998-08-05 17:19:07  florian
+    + first few things for PalmOS support
+
+}

rtl/palmos/api/readme

@@ -0,0 +1,3 @@
+This directory contains the interface units for the PalmOS.
+
+

rtl/palmos/api/sysall.pp

@@ -0,0 +1,35 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+
+    Copyright (c) 1998 Florian Klaempfl
+    member of the Free Pascal development team
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+unit sysall;
+
+  interface
+
+  { include common definitions } 
+  {$I common.inc}
+
+  { include trap number definitions }
+  {$I systraps.inc}
+
+  implementation
+
+end.
+{
+  $Log$
+  Revision 1.1  1998-08-05 17:19:07  florian
+    + first few things for PalmOS support
+
+}

rtl/palmos/api/systraps.inc

@@ -0,0 +1,477 @@
+{
+Copyright © 1995 - 1998, 3Com Corporation or its subsidiaries ("3Com").
+All rights reserved.
+
+This software may be copied and used solely for developing products for
+the Palm Computing platform and for archival and backup purposes.  Except
+for the foregoing, no part of this software may be reproduced or transmitted
+in any form or by any means or used to make any derivative work (such as
+translation, transformation or adaptation) without express written consent
+from 3Com.
+
+3Com reserves the right to revise this software and to make changes in content
+from time to time without obligation on the part of 3Com to provide notification
+of such revision or changes.
+3COM MAKES NO REPRESENTATIONS OR WARRANTIES THAT THE SOFTWARE IS FREE OF ERRORS
+OR THAT THE SOFTWARE IS SUITABLE FOR YOUR USE.  THE SOFTWARE IS PROVIDED ON AN
+"AS IS" BASIS.  3COM MAKES NO WARRANTIES, TERMS OR CONDITIONS, EXPRESS OR IMPLIED,
+EITHER IN FACT OR BY OPERATION OF LAW, STATUTORY OR OTHERWISE, INCLUDING WARRANTIES,
+TERMS, OR CONDITIONS OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, AND
+SATISFACTORY QUALITY.
+
+TO THE FULL EXTENT ALLOWED BY LAW, 3COM ALSO EXCLUDES FOR ITSELF AND ITS SUPPLIERS
+ANY LIABILITY, WHETHER BASED IN CONTRACT OR TORT (INCLUDING NEGLIGENCE), FOR
+DIRECT, INCIDENTAL, CONSEQUENTIAL, INDIRECT, SPECIAL, OR PUNITIVE DAMAGES OF
+ANY KIND, OR FOR LOSS OF REVENUE OR PROFITS, LOSS OF BUSINESS, LOSS OF INFORMATION
+OR DATA, OR OTHER FINANCIAL LOSS ARISING OUT OF OR IN CONNECTION WITH THIS SOFTWARE,
+EVEN IF 3COM HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
+
+3Com, HotSync, Palm Computing, and Graffiti are registered trademarks, and
+Palm III and Palm OS are trademarks of 3Com Corporation or its subsidiaries.
+
+IF THIS SOFTWARE IS PROVIDED ON A COMPACT DISK, THE OTHER SOFTWARE AND
+DOCUMENTATION ON THE COMPACT DISK ARE SUBJECT TO THE LICENSE AGREEMENT
+ACCOMPANYING THE COMPACT DISK.
+
+ -------------------------------------------------------------------
+  FileName:
+    	     SysTraps.inc
+
+  Description:
+    	     Pilot Traps
+
+  History:
+    	     6/13/95	RM	- Created by Ron Marianetti
+             8/05/98    converted to pascal by Florian Klaempfl
+}
+  const
+     sysTrapBase = $A000;
+
+  type
+     SysTrapNumber = (sysTrapMemInit := sysTrapBase,sysTrapMemInitHeapTable,
+       sysTrapMemStoreInit,sysTrapMemCardFormat,
+       sysTrapMemCardInfo,sysTrapMemStoreInfo,
+       sysTrapMemStoreSetInfo,sysTrapMemNumHeaps,
+       sysTrapMemNumRAMHeaps,sysTrapMemHeapID,
+       sysTrapMemHeapPtr,sysTrapMemHeapFreeBytes,
+       sysTrapMemHeapSize,sysTrapMemHeapFlags,
+       sysTrapMemHeapCompact,sysTrapMemHeapInit,
+       sysTrapMemHeapFreeByOwnerID,sysTrapMemChunkNew,
+       sysTrapMemChunkFree,sysTrapMemPtrNew,
+       sysTrapMemPtrRecoverHandle,sysTrapMemPtrFlags,
+       sysTrapMemPtrSize,sysTrapMemPtrOwner,
+       sysTrapMemPtrHeapID,sysTrapMemPtrCardNo,
+       sysTrapMemPtrToLocalID,sysTrapMemPtrSetOwner,
+       sysTrapMemPtrResize,sysTrapMemPtrResetLock,
+       sysTrapMemHandleNew,sysTrapMemHandleLockCount,
+       sysTrapMemHandleToLocalID,sysTrapMemHandleLock,
+       sysTrapMemHandleUnlock,sysTrapMemLocalIDToGlobal,
+       sysTrapMemLocalIDKind,sysTrapMemLocalIDToPtr,
+       sysTrapMemMove,sysTrapMemSet,sysTrapMemStoreSearch,
+       sysTrapMemPtrDataStorage,sysTrapMemKernelInit,
+       sysTrapMemHandleFree,sysTrapMemHandleFlags,
+       sysTrapMemHandleSize,sysTrapMemHandleOwner,
+       sysTrapMemHandleHeapID,sysTrapMemHandleDataStorage,
+       sysTrapMemHandleCardNo,sysTrapMemHandleSetOwner,
+       sysTrapMemHandleResize,sysTrapMemHandleResetLock,
+       sysTrapMemPtrUnlock,sysTrapMemLocalIDToLockedPtr,
+       sysTrapMemSetDebugMode,sysTrapMemHeapScramble,
+       sysTrapMemHeapCheck,sysTrapMemNumCards,
+       sysTrapMemDebugMode,sysTrapMemSemaphoreReserve,
+       sysTrapMemSemaphoreRelease,sysTrapMemHeapDynamic,
+       sysTrapMemNVParams,sysTrapDmInit,sysTrapDmCreateDatabase,
+       sysTrapDmDeleteDatabase,sysTrapDmNumDatabases,
+       sysTrapDmGetDatabase,sysTrapDmFindDatabase,
+       sysTrapDmDatabaseInfo,sysTrapDmSetDatabaseInfo,
+       sysTrapDmDatabaseSize,sysTrapDmOpenDatabase,
+       sysTrapDmCloseDatabase,sysTrapDmNextOpenDatabase,
+       sysTrapDmOpenDatabaseInfo,sysTrapDmResetRecordStates,
+       sysTrapDmGetLastErr,sysTrapDmNumRecords,
+       sysTrapDmRecordInfo,sysTrapDmSetRecordInfo,
+       sysTrapDmAttachRecord,sysTrapDmDetachRecord,
+       sysTrapDmMoveRecord,sysTrapDmNewRecord,
+       sysTrapDmRemoveRecord,sysTrapDmDeleteRecord,
+       sysTrapDmArchiveRecord,sysTrapDmNewHandle,
+       sysTrapDmRemoveSecretRecords,sysTrapDmQueryRecord,
+       sysTrapDmGetRecord,sysTrapDmResizeRecord,
+       sysTrapDmReleaseRecord,sysTrapDmGetResource,
+       sysTrapDmGet1Resource,sysTrapDmReleaseResource,
+       sysTrapDmResizeResource,sysTrapDmNextOpenResDatabase,
+       sysTrapDmFindResourceType,sysTrapDmFindResource,
+       sysTrapDmSearchResource,sysTrapDmNumResources,
+       sysTrapDmResourceInfo,sysTrapDmSetResourceInfo,
+       sysTrapDmAttachResource,sysTrapDmDetachResource,
+       sysTrapDmNewResource,sysTrapDmRemoveResource,
+       sysTrapDmGetResourceIndex,sysTrapDmQuickSort,
+       sysTrapDmQueryNextInCategory,sysTrapDmNumRecordsInCategory,
+       sysTrapDmPositionInCategory,sysTrapDmSeekRecordInCategory,
+       sysTrapDmMoveCategory,sysTrapDmOpenDatabaseByTypeCreator,
+       sysTrapDmWrite,sysTrapDmStrCopy,sysTrapDmGetNextDatabaseByTypeCreator,
+       sysTrapDmWriteCheck,sysTrapDmMoveOpenDBContext,
+       sysTrapDmFindRecordByID,sysTrapDmGetAppInfoID,
+       sysTrapDmFindSortPositionV10,sysTrapDmSet,
+       sysTrapDmCreateDatabaseFromImage,sysTrapDbgSrcMessage,
+       sysTrapDbgMessage,sysTrapDbgGetMessage,
+       sysTrapDbgCommSettings,sysTrapErrDisplayFileLineMsg,
+       sysTrapErrSetJump,sysTrapErrLongJump,
+       sysTrapErrThrow,sysTrapErrExceptionList,
+       sysTrapSysBroadcastActionCode,sysTrapSysUnimplemented,
+       sysTrapSysColdBoot,sysTrapSysReset,sysTrapSysDoze,
+       sysTrapSysAppLaunch,sysTrapSysAppStartup,
+       sysTrapSysAppExit,sysTrapSysSetA5,sysTrapSysSetTrapAddress,
+       sysTrapSysGetTrapAddress,sysTrapSysTranslateKernelErr,
+       sysTrapSysSemaphoreCreate,sysTrapSysSemaphoreDelete,
+       sysTrapSysSemaphoreWait,sysTrapSysSemaphoreSignal,
+       sysTrapSysTimerCreate,sysTrapSysTimerWrite,
+       sysTrapSysTaskCreate,sysTrapSysTaskDelete,
+       sysTrapSysTaskTrigger,sysTrapSysTaskID,
+       sysTrapSysTaskUserInfoPtr,sysTrapSysTaskDelay,
+       sysTrapSysTaskSetTermProc,sysTrapSysUILaunch,
+       sysTrapSysNewOwnerID,sysTrapSysSemaphoreSet,
+       sysTrapSysDisableInts,sysTrapSysRestoreStatus,
+       sysTrapSysUIAppSwitch,sysTrapSysCurAppInfoPV20,
+       sysTrapSysHandleEvent,sysTrapSysInit,
+       sysTrapSysQSort,sysTrapSysCurAppDatabase,
+       sysTrapSysFatalAlert,sysTrapSysResSemaphoreCreate,
+       sysTrapSysResSemaphoreDelete,sysTrapSysResSemaphoreReserve,
+       sysTrapSysResSemaphoreRelease,sysTrapSysSleep,
+       sysTrapSysKeyboardDialogV10,sysTrapSysAppLauncherDialog,
+       sysTrapSysSetPerformance,sysTrapSysBatteryInfoV20,
+       sysTrapSysLibInstall,sysTrapSysLibRemove,
+       sysTrapSysLibTblEntry,sysTrapSysLibFind,
+       sysTrapSysBatteryDialog,sysTrapSysCopyStringResource,
+       sysTrapSysKernelInfo,sysTrapSysLaunchConsole,
+       sysTrapSysTimerDelete,sysTrapSysSetAutoOffTime,
+       sysTrapSysFormPointerArrayToStrings,
+       sysTrapSysRandom,sysTrapSysTaskSwitching,
+       sysTrapSysTimerRead,sysTrapStrCopy,sysTrapStrCat,
+       sysTrapStrLen,sysTrapStrCompare,sysTrapStrIToA,
+       sysTrapStrCaselessCompare,sysTrapStrIToH,
+       sysTrapStrChr,sysTrapStrStr,sysTrapStrAToI,
+       sysTrapStrToLower,sysTrapSerReceiveISP,
+       sysTrapSlkOpen,sysTrapSlkClose,sysTrapSlkOpenSocket,
+       sysTrapSlkCloseSocket,sysTrapSlkSocketRefNum,
+       sysTrapSlkSocketSetTimeout,sysTrapSlkFlushSocket,
+       sysTrapSlkSetSocketListener,sysTrapSlkSendPacket,
+       sysTrapSlkReceivePacket,sysTrapSlkSysPktDefaultResponse,
+       sysTrapSlkProcessRPC,sysTrapConPutS,
+       sysTrapConGetS,sysTrapFplInit,sysTrapFplFree,
+       sysTrapFplFToA,sysTrapFplAToF,sysTrapFplBase10Info,
+       sysTrapFplLongToFloat,sysTrapFplFloatToLong,
+       sysTrapFplFloatToULong,sysTrapFplMul,
+       sysTrapFplAdd,sysTrapFplSub,sysTrapFplDiv,
+       sysTrapScrInit,sysTrapScrCopyRectangle,
+       sysTrapScrDrawChars,sysTrapScrLineRoutine,
+       sysTrapScrRectangleRoutine,sysTrapScrScreenInfo,
+       sysTrapScrDrawNotify,sysTrapScrSendUpdateArea,
+       sysTrapScrCompressScanLine,sysTrapScrDeCompressScanLine,
+       sysTrapTimGetSeconds,sysTrapTimSetSeconds,
+       sysTrapTimGetTicks,sysTrapTimInit,sysTrapTimSetAlarm,
+       sysTrapTimGetAlarm,sysTrapTimHandleInterrupt,
+       sysTrapTimSecondsToDateTime,sysTrapTimDateTimeToSeconds,
+       sysTrapTimAdjust,sysTrapTimSleep,sysTrapTimWake,
+       sysTrapCategoryCreateListV10,sysTrapCategoryFreeListV10,
+       sysTrapCategoryFind,sysTrapCategoryGetName,
+       sysTrapCategoryEditV10,sysTrapCategorySelectV10,
+       sysTrapCategoryGetNext,sysTrapCategorySetTriggerLabel,
+       sysTrapCategoryTruncateName,sysTrapClipboardAddItem,
+       sysTrapClipboardCheckIfItemExist,sysTrapClipboardGetItem,
+       sysTrapCtlDrawControl,sysTrapCtlEraseControl,
+       sysTrapCtlHideControl,sysTrapCtlShowControl,
+       sysTrapCtlGetValue,sysTrapCtlSetValue,
+       sysTrapCtlGetLabel,sysTrapCtlSetLabel,
+       sysTrapCtlHandleEvent,sysTrapCtlHitControl,
+       sysTrapCtlSetEnabled,sysTrapCtlSetUsable,
+       sysTrapCtlEnabled,sysTrapEvtInitialize,
+       sysTrapEvtAddEventToQueue,sysTrapEvtCopyEvent,
+       sysTrapEvtGetEvent,sysTrapEvtGetPen,
+       sysTrapEvtSysInit,sysTrapEvtGetSysEvent,
+       sysTrapEvtProcessSoftKeyStroke,sysTrapEvtGetPenBtnList,
+       sysTrapEvtSetPenQueuePtr,sysTrapEvtPenQueueSize,
+       sysTrapEvtFlushPenQueue,sysTrapEvtEnqueuePenPoint,
+       sysTrapEvtDequeuePenStrokeInfo,sysTrapEvtDequeuePenPoint,
+       sysTrapEvtFlushNextPenStroke,sysTrapEvtSetKeyQueuePtr,
+       sysTrapEvtKeyQueueSize,sysTrapEvtFlushKeyQueue,
+       sysTrapEvtEnqueueKey,sysTrapEvtDequeueKeyEvent,
+       sysTrapEvtWakeup,sysTrapEvtResetAutoOffTimer,
+       sysTrapEvtKeyQueueEmpty,sysTrapEvtEnableGraffiti,
+       sysTrapFldCopy,sysTrapFldCut,sysTrapFldDrawField,
+       sysTrapFldEraseField,sysTrapFldFreeMemory,
+       sysTrapFldGetBounds,sysTrapFldGetTextPtr,
+       sysTrapFldGetSelection,sysTrapFldHandleEvent,
+       sysTrapFldPaste,sysTrapFldRecalculateField,
+       sysTrapFldSetBounds,sysTrapFldSetText,
+       sysTrapFldGetFont,sysTrapFldSetFont,
+       sysTrapFldSetSelection,sysTrapFldGrabFocus,
+       sysTrapFldReleaseFocus,sysTrapFldGetInsPtPosition,
+       sysTrapFldSetInsPtPosition,sysTrapFldSetScrollPosition,
+       sysTrapFldGetScrollPosition,sysTrapFldGetTextHeight,
+       sysTrapFldGetTextAllocatedSize,sysTrapFldGetTextLength,
+       sysTrapFldScrollField,sysTrapFldScrollable,
+       sysTrapFldGetVisibleLines,sysTrapFldGetAttributes,
+       sysTrapFldSetAttributes,sysTrapFldSendChangeNotification,
+       sysTrapFldCalcFieldHeight,sysTrapFldGetTextHandle,
+       sysTrapFldCompactText,sysTrapFldDirty,
+       sysTrapFldWordWrap,sysTrapFldSetTextAllocatedSize,
+       sysTrapFldSetTextHandle,sysTrapFldSetTextPtr,
+       sysTrapFldGetMaxChars,sysTrapFldSetMaxChars,
+       sysTrapFldSetUsable,sysTrapFldInsert,
+       sysTrapFldDelete,sysTrapFldUndo,sysTrapFldSetDirty,
+       sysTrapFldSendHeightChangeNotification,
+       sysTrapFldMakeFullyVisible,sysTrapFntGetFont,
+       sysTrapFntSetFont,sysTrapFntGetFontPtr,
+       sysTrapFntBaseLine,sysTrapFntCharHeight,
+       sysTrapFntLineHeight,sysTrapFntAverageCharWidth,
+       sysTrapFntCharWidth,sysTrapFntCharsWidth,
+       sysTrapFntDescenderHeight,sysTrapFntCharsInWidth,
+       sysTrapFntLineWidth,sysTrapFrmInitForm,
+       sysTrapFrmDeleteForm,sysTrapFrmDrawForm,
+       sysTrapFrmEraseForm,sysTrapFrmGetActiveForm,
+       sysTrapFrmSetActiveForm,sysTrapFrmGetActiveFormID,
+       sysTrapFrmGetUserModifiedState,sysTrapFrmSetNotUserModified,
+       sysTrapFrmGetFocus,sysTrapFrmSetFocus,
+       sysTrapFrmHandleEvent,sysTrapFrmGetFormBounds,
+       sysTrapFrmGetWindowHandle,sysTrapFrmGetFormId,
+       sysTrapFrmGetFormPtr,sysTrapFrmGetNumberOfObjects,
+       sysTrapFrmGetObjectIndex,sysTrapFrmGetObjectId,
+       sysTrapFrmGetObjectType,sysTrapFrmGetObjectPtr,
+       sysTrapFrmHideObject,sysTrapFrmShowObject,
+       sysTrapFrmGetObjectPosition,sysTrapFrmSetObjectPosition,
+       sysTrapFrmGetControlValue,sysTrapFrmSetControlValue,
+       sysTrapFrmGetControlGroupSelection,
+       sysTrapFrmSetControlGroupSelection,
+       sysTrapFrmCopyLabel,sysTrapFrmSetLabel,
+       sysTrapFrmGetLabel,sysTrapFrmSetCategoryLabel,
+       sysTrapFrmGetTitle,sysTrapFrmSetTitle,
+       sysTrapFrmAlert,sysTrapFrmDoDialog,sysTrapFrmCustomAlert,
+       sysTrapFrmHelp,sysTrapFrmUpdateScrollers,
+       sysTrapFrmGetFirstForm,sysTrapFrmVisible,
+       sysTrapFrmGetObjectBounds,sysTrapFrmCopyTitle,
+       sysTrapFrmGotoForm,sysTrapFrmPopupForm,
+       sysTrapFrmUpdateForm,sysTrapFrmReturnToForm,
+       sysTrapFrmSetEventHandler,sysTrapFrmDispatchEvent,
+       sysTrapFrmCloseAllForms,sysTrapFrmSaveAllForms,
+       sysTrapFrmGetGadgetData,sysTrapFrmSetGadgetData,
+       sysTrapFrmSetCategoryTrigger,sysTrapUIInitialize,
+       sysTrapUIReset,sysTrapInsPtInitialize,
+       sysTrapInsPtSetLocation,sysTrapInsPtGetLocation,
+       sysTrapInsPtEnable,sysTrapInsPtEnabled,
+       sysTrapInsPtSetHeight,sysTrapInsPtGetHeight,
+       sysTrapInsPtCheckBlink,sysTrapLstSetDrawFunction,
+       sysTrapLstDrawList,sysTrapLstEraseList,
+       sysTrapLstGetSelection,sysTrapLstGetSelectionText,
+       sysTrapLstHandleEvent,sysTrapLstSetHeight,
+       sysTrapLstSetSelection,sysTrapLstSetListChoices,
+       sysTrapLstMakeItemVisible,sysTrapLstGetNumberOfItems,
+       sysTrapLstPopupList,sysTrapLstSetPosition,
+       sysTrapMenuInit,sysTrapMenuDispose,sysTrapMenuHandleEvent,
+       sysTrapMenuDrawMenu,sysTrapMenuEraseStatus,
+       sysTrapMenuGetActiveMenu,sysTrapMenuSetActiveMenu,
+       sysTrapRctSetRectangle,sysTrapRctCopyRectangle,
+       sysTrapRctInsetRectangle,sysTrapRctOffsetRectangle,
+       sysTrapRctPtInRectangle,sysTrapRctGetIntersection,
+       sysTrapTblDrawTable,sysTrapTblEraseTable,
+       sysTrapTblHandleEvent,sysTrapTblGetItemBounds,
+       sysTrapTblSelectItem,sysTrapTblGetItemInt,
+       sysTrapTblSetItemInt,sysTrapTblSetItemStyle,
+       sysTrapTblUnhighlightSelection,sysTrapTblSetRowUsable,
+       sysTrapTblGetNumberOfRows,sysTrapTblSetCustomDrawProcedure,
+       sysTrapTblSetRowSelectable,sysTrapTblRowSelectable,
+       sysTrapTblSetLoadDataProcedure,sysTrapTblSetSaveDataProcedure,
+       sysTrapTblGetBounds,sysTrapTblSetRowHeight,
+       sysTrapTblGetColumnWidth,sysTrapTblGetRowID,
+       sysTrapTblSetRowID,sysTrapTblMarkRowInvalid,
+       sysTrapTblMarkTableInvalid,sysTrapTblGetSelection,
+       sysTrapTblInsertRow,sysTrapTblRemoveRow,
+       sysTrapTblRowInvalid,sysTrapTblRedrawTable,
+       sysTrapTblRowUsable,sysTrapTblReleaseFocus,
+       sysTrapTblEditing,sysTrapTblGetCurrentField,
+       sysTrapTblSetColumnUsable,sysTrapTblGetRowHeight,
+       sysTrapTblSetColumnWidth,sysTrapTblGrabFocus,
+       sysTrapTblSetItemPtr,sysTrapTblFindRowID,
+       sysTrapTblGetLastUsableRow,sysTrapTblGetColumnSpacing,
+       sysTrapTblFindRowData,sysTrapTblGetRowData,
+       sysTrapTblSetRowData,sysTrapTblSetColumnSpacing,
+       sysTrapWinCreateWindow,sysTrapWinCreateOffscreenWindow,
+       sysTrapWinDeleteWindow,sysTrapWinInitializeWindow,
+       sysTrapWinAddWindow,sysTrapWinRemoveWindow,
+       sysTrapWinSetActiveWindow,sysTrapWinSetDrawWindow,
+       sysTrapWinGetDrawWindow,sysTrapWinGetActiveWindow,
+       sysTrapWinGetDisplayWindow,sysTrapWinGetFirstWindow,
+       sysTrapWinEnableWindow,sysTrapWinDisableWindow,
+       sysTrapWinGetWindowFrameRect,sysTrapWinDrawWindowFrame,
+       sysTrapWinEraseWindow,sysTrapWinSaveBits,
+       sysTrapWinRestoreBits,sysTrapWinCopyRectangle,
+       sysTrapWinScrollRectangle,sysTrapWinGetDisplayExtent,
+       sysTrapWinGetWindowExtent,sysTrapWinDisplayToWindowPt,
+       sysTrapWinWindowToDisplayPt,sysTrapWinGetClip,
+       sysTrapWinSetClip,sysTrapWinResetClip,
+       sysTrapWinClipRectangle,sysTrapWinDrawLine,
+       sysTrapWinDrawGrayLine,sysTrapWinEraseLine,
+       sysTrapWinInvertLine,sysTrapWinFillLine,
+       sysTrapWinDrawRectangle,sysTrapWinEraseRectangle,
+       sysTrapWinInvertRectangle,sysTrapWinDrawRectangleFrame,
+       sysTrapWinDrawGrayRectangleFrame,sysTrapWinEraseRectangleFrame,
+       sysTrapWinInvertRectangleFrame,sysTrapWinGetFramesRectangle,
+       sysTrapWinDrawChars,sysTrapWinEraseChars,
+       sysTrapWinInvertChars,sysTrapWinGetPattern,
+       sysTrapWinSetPattern,sysTrapWinSetUnderlineMode,
+       sysTrapWinDrawBitmap,sysTrapWinModal,
+       sysTrapWinGetWindowBounds,sysTrapWinFillRectangle,
+       sysTrapWinDrawInvertedChars,sysTrapPrefOpenPreferenceDBV10,
+       sysTrapPrefGetPreferences,sysTrapPrefSetPreferences,
+       sysTrapPrefGetAppPreferencesV10,sysTrapPrefSetAppPreferencesV10,
+       sysTrapSndInit,sysTrapSndSetDefaultVolume,
+       sysTrapSndGetDefaultVolume,sysTrapSndDoCmd,
+       sysTrapSndPlaySystemSound,sysTrapAlmInit,
+       sysTrapAlmCancelAll,sysTrapAlmAlarmCallback,
+       sysTrapAlmSetAlarm,sysTrapAlmGetAlarm,
+       sysTrapAlmDisplayAlarm,sysTrapAlmEnableNotification,
+       sysTrapHwrGetRAMMapping,sysTrapHwrMemWritable,
+       sysTrapHwrMemReadable,sysTrapHwrDoze,
+       sysTrapHwrSleep,sysTrapHwrWake,sysTrapHwrSetSystemClock,
+       sysTrapHwrSetCPUDutyCycle,sysTrapHwrLCDInit,
+       sysTrapHwrLCDSleep,sysTrapHwrTimerInit,
+       sysTrapHwrCursor,sysTrapHwrBatteryLevel,
+       sysTrapHwrDelay,sysTrapHwrEnableDataWrites,
+       sysTrapHwrDisableDataWrites,sysTrapHwrLCDBaseAddr,
+       sysTrapHwrLCDDrawBitmap,sysTrapHwrTimerSleep,
+       sysTrapHwrTimerWake,sysTrapHwrLCDWake,
+       sysTrapHwrIRQ1Handler,sysTrapHwrIRQ2Handler,
+       sysTrapHwrIRQ3Handler,sysTrapHwrIRQ4Handler,
+       sysTrapHwrIRQ5Handler,sysTrapHwrIRQ6Handler,
+       sysTrapHwrDockSignals,sysTrapHwrPluggedIn,
+       sysTrapCrc16CalcBlock,sysTrapSelectDayV10,
+       sysTrapSelectTime,sysTrapDayDrawDaySelector,
+       sysTrapDayHandleEvent,sysTrapDayDrawDays,
+       sysTrapDayOfWeek,sysTrapDaysInMonth,
+       sysTrapDayOfMonth,sysTrapDateDaysToDate,
+       sysTrapDateToDays,sysTrapDateAdjust,
+       sysTrapDateSecondsToDate,sysTrapDateToAscii,
+       sysTrapDateToDOWDMFormat,sysTrapTimeToAscii,
+       sysTrapFind,sysTrapFindStrInStr,sysTrapFindSaveMatch,
+       sysTrapFindGetLineBounds,sysTrapFindDrawHeader,
+       sysTrapPenOpen,sysTrapPenClose,sysTrapPenGetRawPen,
+       sysTrapPenCalibrate,sysTrapPenRawToScreen,
+       sysTrapPenScreenToRaw,sysTrapPenResetCalibration,
+       sysTrapPenSleep,sysTrapPenWake,sysTrapResLoadForm,
+       sysTrapResLoadMenu,sysTrapFtrInit,sysTrapFtrUnregister,
+       sysTrapFtrGet,sysTrapFtrSet,sysTrapFtrGetByIndex,
+       sysTrapGrfInit,sysTrapGrfFree,sysTrapGrfGetState,
+       sysTrapGrfSetState,sysTrapGrfFlushPoints,
+       sysTrapGrfAddPoint,sysTrapGrfInitState,
+       sysTrapGrfCleanState,sysTrapGrfMatch,
+       sysTrapGrfGetMacro,sysTrapGrfFilterPoints,
+       sysTrapGrfGetNumPoints,sysTrapGrfGetPoint,
+       sysTrapGrfFindBranch,sysTrapGrfMatchGlyph,
+       sysTrapGrfGetGlyphMapping,sysTrapGrfGetMacroName,
+       sysTrapGrfDeleteMacro,sysTrapGrfAddMacro,
+       sysTrapGrfGetAndExpandMacro,sysTrapGrfProcessStroke,
+       sysTrapGrfFieldChange,sysTrapGetCharSortValue,
+       sysTrapGetCharAttr,sysTrapGetCharCaselessValue,
+       sysTrapPwdExists,sysTrapPwdVerify,sysTrapPwdSet,
+       sysTrapPwdRemove,sysTrapGsiInitialize,
+       sysTrapGsiSetLocation,sysTrapGsiEnable,
+       sysTrapGsiEnabled,sysTrapGsiSetShiftState,
+       sysTrapKeyInit,sysTrapKeyHandleInterrupt,
+       sysTrapKeyCurrentState,sysTrapKeyResetDoubleTap,
+       sysTrapKeyRates,sysTrapKeySleep,sysTrapKeyWake,
+       sysTrapDlkControl,sysTrapDlkStartServer,
+       sysTrapDlkGetSyncInfo,sysTrapDlkSetLogEntry,
+       sysTrapUnused2,sysTrapSysLibLoad,sysTrapSndPlaySmf,
+       sysTrapSndCreateMidiList,sysTrapAbtShowAbout,
+       sysTrapMdmDial,sysTrapMdmHangUp,sysTrapDmSearchRecord,
+       sysTrapSysInsertionSort,sysTrapDmInsertionSort,
+       sysTrapLstSetTopItem,sysTrapSclSetScrollBar,
+       sysTrapSclDrawScrollBar,sysTrapSclHandleEvent,
+       sysTrapSysMailboxCreate,sysTrapSysMailboxDelete,
+       sysTrapSysMailboxFlush,sysTrapSysMailboxSend,
+       sysTrapSysMailboxWait,sysTrapSysTaskWait,
+       sysTrapSysTaskWake,sysTrapSysTaskWaitClr,
+       sysTrapSysTaskSuspend,sysTrapSysTaskResume,
+       sysTrapCategoryCreateList,sysTrapCategoryFreeList,
+       sysTrapCategoryEditV20,sysTrapCategorySelect,
+       sysTrapDmDeleteCategory,sysTrapSysEvGroupCreate,
+       sysTrapSysEvGroupSignal,sysTrapSysEvGroupRead,
+       sysTrapSysEvGroupWait,sysTrapEvtEventAvail,
+       sysTrapEvtSysEventAvail,sysTrapStrNCopy,
+       sysTrapKeySetMask,sysTrapSelectDay,sysTrapPrefGetPreference,
+       sysTrapPrefSetPreference,sysTrapPrefGetAppPreferences,
+       sysTrapPrefSetAppPreferences,sysTrapFrmPointInTitle,
+       sysTrapStrNCat,sysTrapMemCmp,sysTrapTblSetColumnEditIndicator,
+       sysTrapFntWordWrap,sysTrapFldGetScrollValues,
+       sysTrapSysCreateDataBaseList,sysTrapSysCreatePanelList,
+       sysTrapDlkDispatchRequest,sysTrapStrPrintF,
+       sysTrapStrVPrintF,sysTrapPrefOpenPreferenceDB,
+       sysTrapSysGraffitiReferenceDialog,sysTrapSysKeyboardDialog,
+       sysTrapFntWordWrapReverseNLines,sysTrapFntGetScrollValues,
+       sysTrapTblSetRowStaticHeight,sysTrapTblHasScrollBar,
+       sysTrapSclGetScrollBar,sysTrapFldGetNumberOfBlankLines,
+       sysTrapSysTicksPerSecond,sysTrapHwrBacklight,
+       sysTrapDmDatabaseProtect,sysTrapTblSetBounds,
+       sysTrapStrNCompare,sysTrapStrNCaselessCompare,
+       sysTrapPhoneNumberLookup,sysTrapFrmSetMenu,
+       sysTrapEncDigestMD5,sysTrapDmFindSortPosition,
+       sysTrapSysBinarySearch,sysTrapSysErrString,
+       sysTrapSysStringByIndex,sysTrapEvtAddUniqueEventToQueue,
+       sysTrapStrLocalizeNumber,sysTrapStrDelocalizeNumber,
+       sysTrapLocGetNumberSeparators,sysTrapMenuSetActiveMenuRscID,
+       sysTrapLstScrollList,sysTrapCategoryInitialize,
+       sysTrapEncDigestMD4,sysTrapEncDES,sysTrapLstGetVisibleItems,
+       sysTrapWinSetWindowBounds,sysTrapCategorySetName,
+       sysTrapFldSetInsertionPoint,sysTrapFrmSetObjectBounds,
+       sysTrapWinSetColors,sysTrapFlpDispatch,
+       sysTrapFlpEmDispatch,sysTrapExgInit,
+       sysTrapExgConnect,sysTrapExgPut,sysTrapExgGet,
+       sysTrapExgAccept,sysTrapExgDisconnect,
+       sysTrapExgSend,sysTrapExgReceive,sysTrapExgRegisterData,
+       sysTrapExgNotifyReceive,sysTrapExgControl,
+       sysTrapPrgStartDialog,sysTrapPrgStopDialog,
+       sysTrapPrgUpdateDialog,sysTrapPrgHandleEvent,
+       sysTrapImcReadFieldNoSemicolon,sysTrapImcReadFieldQuotablePrintable,
+       sysTrapImcReadPropertyParameter,sysTrapImcSkipAllPropertyParameters,
+       sysTrapImcReadWhiteSpace,sysTrapImcWriteQuotedPrintable,
+       sysTrapImcWriteNoSemicolon,sysTrapImcStringIsAscii,
+       sysTrapTblGetItemFont,sysTrapTblSetItemFont,
+       sysTrapFontSelect,sysTrapFntDefineFont,
+       sysTrapCategoryEdit,sysTrapSysGetOSVersionString,
+       sysTrapSysBatteryInfo,sysTrapSysUIBusy,
+       sysTrapWinValidateHandle,sysTrapFrmValidatePtr,
+       sysTrapCtlValidatePointer,sysTrapWinMoveWindowAddr,
+       sysTrapFrmAddSpaceForObject,sysTrapFrmNewForm,
+       sysTrapCtlNewControl,sysTrapFldNewField,
+       sysTrapLstNewList,sysTrapFrmNewLabel,
+       sysTrapFrmNewBitmap,sysTrapFrmNewGadget,
+       sysTrapFileOpen,sysTrapFileClose,sysTrapFileDelete,
+       sysTrapFileReadLow,sysTrapFileWrite,
+       sysTrapFileSeek,sysTrapFileTell,sysTrapFileTruncate,
+       sysTrapFileControl,sysTrapFrmActiveState,
+       sysTrapSysGetAppInfo,sysTrapSysGetStackInfo,
+       sysTrapScrDisplayMode,sysTrapHwrLCDGetDepth,
+       sysTrapHwrGetROMToken,sysTrapDbgControl,
+       sysTrapExgDBRead,sysTrapExgDBWrite,sysTrapSysGremlins,
+       sysTrapFrmRemoveObject,sysTrapSysReserved1,
+       sysTrapSysReserved2,sysTrapSysReserved3,
+       sysTrapSysReserved4,sysTrapLastTrapNumber
+       );
+
+  const
+     sysNumTraps = longint(sysTrapLastTrapNumber)-sysTrapBase;
+     sysLibTrapBase = $A800;
+
+  type
+     SysLibTrapNumber = (sysLibTrapName := sysLibTrapBase,sysLibTrapOpen,
+       sysLibTrapClose,sysLibTrapSleep,sysLibTrapWake,
+       sysLibTrapCustom);
+
+  const
+     { Pilot specific TRAP instruction numbers }
+     { For soft breakpoints		 }
+     sysDbgBreakpointTrapNum = 0;
+
+     { For compiled breakpoints			 }
+     sysDbgTrapNum = 8;
+
+     { Trap dispatcher }
+     sysDispatchTrapNum = 15;
+

rtl/palmos/api/systraps.pp

@@ -0,0 +1,31 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+
+    Copyright (c) 1998 Florian Klaempfl
+    member of the Free Pascal development team
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+unit systraps;
+
+  interface
+
+  {$I systraps.inc}
+
+  implementation
+
+end.
+{
+  $Log$
+  Revision 1.1  1998-08-05 17:19:07  florian
+    + first few things for PalmOS support
+
+}

rtl/palmos/os.inc

@@ -0,0 +1,28 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1998 by the Free Pascal development team.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+{$define palmos}
+{$undef atari}
+{$undef go32v2}
+{$undef os2}
+{$undef linux}
+{$undef win32}
+{$undef amiga}
+{$undef macos}
+
+{
+  $Log$
+  Revision 1.1  1998-08-05 17:19:07  florian
+    + first few things for PalmOS support
+
+}

rtl/palmos/readme

@@ -0,0 +1,7 @@
+This unit contains the run time library for the PalmOS.
+
+Currently, no makefile is available, so you have to create
+the system unit by hand.
+
+The system unit contains only the really necessary declarations
+and the startup code.

rtl/palmos/syspalm.pp

@@ -0,0 +1,61 @@
+{
+    $Id$
+
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1998 by Florian Klaempfl
+    member of the Free Pascal development team
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+{$define PALMOS}
+Unit SysPalm;
+
+{$I os.inc}
+
+  Interface
+
+    Type
+       { type and constant declartions doesn't hurt }
+       LongInt  = $80000000..$7fffffff;
+       Integer  = -32768..32767;
+       ShortInt = -128..127;
+       Byte     = 0..255;
+       Word     = 0..65535;
+
+       DWord    = Cardinal;
+       LongWord = Cardinal;
+
+       { Zero - terminated strings }
+       PChar  = ^Char;
+       PPChar = ^PChar;
+
+       { procedure type }
+       TProcedure = Procedure;
+
+       const
+          { max. values for longint and int }
+          MaxLongint = High(LongInt);
+          MaxInt = High(Integer);
+
+          { Must be determined at startup for both }
+          Test68000 : byte = 0; 
+          Test68881 : byte = 0;
+
+  implementation
+
+begin
+   // here should be some startup code inserted
+end.
+
+{
+  $Log$
+  Revision 1.1  1998-08-05 17:19:07  florian
+    + first few things for PalmOS support
+
+}