diff --git a/rtl/palmos/api/common.inc b/rtl/palmos/api/common.inc new file mode 100644 index 0000000000..7e5f0aa187 --- /dev/null +++ b/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; diff --git a/rtl/palmos/api/common.pp b/rtl/palmos/api/common.pp new file mode 100644 index 0000000000..ec5f5c6050 --- /dev/null +++ b/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 + +} \ No newline at end of file diff --git a/rtl/palmos/api/readme b/rtl/palmos/api/readme new file mode 100644 index 0000000000..86f1ef45ee --- /dev/null +++ b/rtl/palmos/api/readme @@ -0,0 +1,3 @@ +This directory contains the interface units for the PalmOS. + + diff --git a/rtl/palmos/api/sysall.pp b/rtl/palmos/api/sysall.pp new file mode 100644 index 0000000000..c0e0035479 --- /dev/null +++ b/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 + +} diff --git a/rtl/palmos/api/systraps.inc b/rtl/palmos/api/systraps.inc new file mode 100644 index 0000000000..f095e4b939 --- /dev/null +++ b/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; + diff --git a/rtl/palmos/api/systraps.pp b/rtl/palmos/api/systraps.pp new file mode 100644 index 0000000000..1c47fa9ff7 --- /dev/null +++ b/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 + +} \ No newline at end of file diff --git a/rtl/palmos/os.inc b/rtl/palmos/os.inc new file mode 100644 index 0000000000..38354384c5 --- /dev/null +++ b/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 + +} diff --git a/rtl/palmos/readme b/rtl/palmos/readme new file mode 100644 index 0000000000..196c6b645c --- /dev/null +++ b/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. diff --git a/rtl/palmos/syspalm.pp b/rtl/palmos/syspalm.pp new file mode 100644 index 0000000000..9d80978637 --- /dev/null +++ b/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 + +}