diff options
Diffstat (limited to 'Scripting/Perl/HostControl.pm')
| -rw-r--r-- | Scripting/Perl/HostControl.pm | 897 |
1 files changed, 897 insertions, 0 deletions
diff --git a/Scripting/Perl/HostControl.pm b/Scripting/Perl/HostControl.pm new file mode 100644 index 0000000..4d481c8 --- /dev/null +++ b/Scripting/Perl/HostControl.pm @@ -0,0 +1,897 @@ +######################################################################## +# +# File: HostControl.pm +# +# Purpose: Perl wrappers for Palm OS Emulator HostControl +# functions. +# +# Description: This file contains Perl equivalents of Palm OS +# Emulator Host Control functions, like HostGetHostID, +# HostGetHostVersion, HostProfileStart etc... +# +# In general, functions follow the calling +# conventions in the SDK headers. However, there +# are exceptions. See the comments before each +# subroutine for details. +# +######################################################################## + +package HostControl; + +use EmRPC qw(DoRPC); +use EmSysTraps; + +use strict; +use vars qw(@ISA @EXPORT); + +use Exporter; +@ISA = qw(Exporter); + +@EXPORT = qw( + + HostGetHostVersion HostGetHostID HostGetHostPlatform + HostIsSelectorImplemented HostGestalt HostIsCallingTrap + + HostProfileInit HostProfileStart HostProfileStop HostProfileDump + HostProfileCleanup HostProfileDetailFn + + HostErrNo HostFClose HostFEOF HostFError HostFFlush HostFGetC + HostFGetPos HostFGetS HostFOpen HostFPrintF HostFPutC HostFPutS + HostFRead HostRemove HostRename HostFReopen HostFScanF HostFSeek + HostFSetPos HostFTell HostFWrite HostTmpFile HostTmpNam HostGetEnv + + HostMalloc HostRealloc HostFree + + HostGremlinIsRunning HostGremlinNumber HostGremlinCounter + HostGremlinLimit HostGremlinNew + + HostImportFile HostExportFile + + HostGetPreference HostSetPreference + + HostLogFile HostSetLogFileSize + + HostSessionCreate HostSessionOpen HostSessionClose HostSessionQuit + HostSignalSend HostSignalWait HostSignalResume + + HostTraceInit HostTraceClose HostTraceOutputT HostTraceOutputTL + HostTraceOutputVT HostTraceOutputVTL HostTraceOutputB + +); + +#// HostControl.h functions. + +# Host information selectors +use constant hostSelectorGetHostVersion => 0x0100; +use constant hostSelectorGetHostID => 0x0101; +use constant hostSelectorGetHostPlatform => 0x0102; +use constant hostSelectorIsSelectorImplemented => 0x0103; +use constant hostSelectorGestalt => 0x0104; +use constant hostSelectorIsCallingTrap => 0x0105; + +# Profiler Selectors +use constant hostSelectorProfileInit => 0x0200; +use constant hostSelectorProfileStart => 0x0201; +use constant hostSelectorProfileStop => 0x0202; +use constant hostSelectorProfileDump => 0x0203; +use constant hostSelectorProfileCleanup => 0x0204; +use constant hostSelectorProfileDetailFn => 0x0205; + +# Std C Library wrapper selectors + +use constant hostSelectorErrNo => 0x0300; + +use constant hostSelectorFClose => 0x0301; +use constant hostSelectorFEOF => 0x0302; +use constant hostSelectorFError => 0x0303; +use constant hostSelectorFFlush => 0x0304; +use constant hostSelectorFGetC => 0x0305; +use constant hostSelectorFGetPos => 0x0306; +use constant hostSelectorFGetS => 0x0307; +use constant hostSelectorFOpen => 0x0308; +use constant hostSelectorFPrintF => 0x0309; # Floating point not yet supported in Poser +use constant hostSelectorFPutC => 0x030A; +use constant hostSelectorFPutS => 0x030B; +use constant hostSelectorFRead => 0x030C; +use constant hostSelectorRemove => 0x030D; # Not yet implemented in Poser +use constant hostSelectorRename => 0x030E; # Not yet implemented in Poser +use constant hostSelectorFReopen => 0x030F; # Not yet implemented in Poser +use constant hostSelectorFScanF => 0x0310; # Not yet implemented in Poser +use constant hostSelectorFSeek => 0x0311; +use constant hostSelectorFSetPos => 0x0312; +use constant hostSelectorFTell => 0x0313; +use constant hostSelectorFWrite => 0x0314; +use constant hostSelectorTmpFile => 0x0315; +use constant hostSelectorTmpNam => 0x0316; # Not yet implemented in Poser +use constant hostSelectorGetEnv => 0x0317; + +use constant hostSelectorMalloc => 0x0318; # Not yet implemented in Poser +use constant hostSelectorRealloc => 0x0319; # Not yet implemented in Poser +use constant hostSelectorFree => 0x031A; # Not yet implemented in Poser + +# Gremlin Selectors +use constant hostSelectorGremlinIsRunning => 0x0400; +use constant hostSelectorGremlinNumber => 0x0401; +use constant hostSelectorGremlinCounter => 0x0402; +use constant hostSelectorGremlinLimit => 0x0403; +use constant hostSelectorGremlinNew => 0x0404; + +# Database Selectors +use constant hostSelectorImportFile => 0x0500; +use constant hostSelectorExportFile => 0x0501; + +# Preference Selectors +use constant hostSelectorGetPreference => 0x0600; +use constant hostSelectorSetPreference => 0x0601; + +# Logging Selectors +use constant hostSelectorLogFile => 0x0700; +use constant hostSelectorSetLogFileSize => 0x0701; + +# RPC Selectors +use constant hostSelectorSessionCreate => 0x0800; # Not yet implemented in Poser +use constant hostSelectorSessionOpen => 0x0801; # Not yet implemented in Poser +use constant hostSelectorSessionClose => 0x0802; +use constant hostSelectorSessionQuit => 0x0803; +use constant hostSelectorSignalSend => 0x0804; +use constant hostSelectorSignalWait => 0x0805; +use constant hostSelectorSignalResume => 0x0806; + +# External tracing tool support +use constant hostSelectorTraceInit => 0x0900; +use constant hostSelectorTraceClose => 0x0901; +use constant hostSelectorTraceOutputT => 0x0902; +use constant hostSelectorTraceOutputTL => 0x0903; +use constant hostSelectorTraceOutputVT => 0x0904; +use constant hostSelectorTraceOutputVTL => 0x0905; +use constant hostSelectorTraceOutputB => 0x0906; + +use constant hostSelectorLastTrapNumber => 0x0907; + + +#/* ==================================================================== */ +#/* Host environment-related calls */ +#/* ==================================================================== */ + +######################################################################## +# +# FUNCTION: HostGetHostVersion +# +# DESCRIPTION: Get the version number of the host (Palm OS Emulator). +# +# PARAMETERS: None +# +# RETURNS: Version number of Poser in Palm OS version format. +# +######################################################################## + +sub HostGetHostVersion +{ + # long HostGetHostVersion(void) + + my ($return, $format) = ("int32", "int16"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorGetHostVersion, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostGetHostID +# +# DESCRIPTION: Get the ID of the debugging host. +# +# PARAMETERS: None +# +# RETURNS: hostIDPalmOS, hostIDPalmOSEmulator, hostIDPalmOSSimulator +# etc... +# +######################################################################## + +sub HostGetHostID +{ + # HostID HostGetHostID(void) + + my ($return, $format) = ("int32", "int16"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorGetHostID, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostGetHostPlatform +# +# DESCRIPTION: Get the host platform ID. +# hostPlatformPalmOS, hostPlatformWindows, +# hostPlatformMacintosh, hostPlatformUnix etc... +# +# PARAMETERS: None +# +# RETURNS: hostPlatformPalmOS, hostPlatformWindows, +# hostPlatformMacintosh, hostPlatformUnix etc... +# +######################################################################## + +sub HostGetHostPlatform +{ + # HostPlatform HostGetHostPlatform(void) + + my ($return, $format) = ("int32", "int16"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorGetHostPlatform, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostIsSelectorImplemented +# +# DESCRIPTION: Determines if the particular selector is implemented. +# +# PARAMETERS: None +# +# RETURNS: True or False. +# +######################################################################## + +sub HostIsSelectorImplemented +{ + # HostBool HostIsSelectorImplemented(long selector) + + my ($return, $format) = ("int32", "int16 int32"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorIsSelectorImplemented, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostGestalt +# +# DESCRIPTION: Return queries about the Runtime environment. +# +# PARAMETERS: None +# +# RETURNS: Runtime environment info. +# +######################################################################## + +sub HostGestalt +{ + # HostErr HostGestalt(long gestSel, long* response) + + my ($return, $format) = ("HostErr", "int16 int32 rptr"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorGestalt, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostIsCallingTrap +# +# DESCRIPTION: Determines if the Palm OS Emulator is currently +# calling a trap. True if so, false if not. +# +# PARAMETERS: None +# +# RETURNS: True if trap is being called, false if not. +# +######################################################################## + +sub HostIsCallingTrap +{ + # HostBool HostIsCallingTrap(void) + + my ($return, $format) = ("int32", "int16"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorIsCallingTrap, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +#/* ==================================================================== */ +#/* Profiling-related calls */ +#/* ==================================================================== */ + + +######################################################################## +# +# FUNCTION: HostProfileInit +# +# DESCRIPTION: Initializes and enables profiling in debugging host. +# +# PARAMETERS: None +# +# RETURNS: Returns zero if successful, non-zero otherwise. +# +######################################################################## + +sub HostProfileInit +{ + # HostErr HostProfileInit(long maxCalls, long maxDepth) + + my ($return, $format) = ("HostErr", "int16 int32 int32"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorProfileInit, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostProfileDetailFn +# +# DESCRIPTION: Profiles the function that contains the specified +# address. +# +# PARAMETERS: None +# +# RETURNS: Returns zero if successful, non-zero otherwise. +# +######################################################################## + +sub HostProfileDetailFn +{ + # HostErr HostProfileDetailFn(void* addr, HostBool logDetails) + + my ($return, $format) = ("HostErr", "int16 rptr int32"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorProfileDetailFn, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostProfileStart +# +# DESCRIPTION: Turns Profiling on. +# +# PARAMETERS: None +# +# RETURNS: Returns zero if successful, non-zero otherwise. +# +######################################################################## + +sub HostProfileStart +{ + # HostErr HostProfileStart(void) + + my ($return, $format) = ("HostErr", "int16"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorProfileStart, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostProfileStop +# +# DESCRIPTION: Initializes and enables profiling in debugging host. +# +# PARAMETERS: None +# +# RETURNS: Returns zero if successful, non-zero otherwise. +# +######################################################################## + +sub HostProfileStop +{ + # HostErr HostProfileStop(void) + + my ($return, $format) = ("HostErr", "int16"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorProfileStop, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostProfileDump +# +# DESCRIPTION: Writes the current profiling information to the +# named file. +# +# PARAMETERS: None +# +# RETURNS: Returns zero if successful, non-zero otherwise. +# +######################################################################## + +sub HostProfileDump +{ + # HostErr HostProfileDump(const char* filename) + + my ($return, $format) = ("HostErr", "int16 string"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorProfileDump, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostProfileCleanup +# +# DESCRIPTION: Initializes and enables profiling in debugging host. +# +# PARAMETERS: None +# +# RETURNS: Returns zero if successful, non-zero otherwise. +# +######################################################################## + +sub HostProfileCleanup +{ + # HostErr HostProfileCleanup(void) + + my ($return, $format) = ("HostErr", "int16"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorProfileCleanup, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +#/* ==================================================================== */ +#/* Std C Library-related calls */ +#/* ADD LATER!!! */ +#/* ==================================================================== */ + + +#/* ==================================================================== */ +#/* Gremlin-related calls */ +#/* ==================================================================== */ + + +######################################################################## +# +# FUNCTION: HostGremlinIsRunning +# +# DESCRIPTION: Determines if Gremlin is currently running. +# +# PARAMETERS: None +# +# RETURNS: True if a gremlin is currently running, False otherwise. +# +######################################################################## + +sub HostGremlinIsRunning +{ + # HostBool HostGremlinIsRunning(void) + + my ($return, $format) = ("int32", "int16"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorGremlinIsRunning, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostGremlinNumber +# +# DESCRIPTION: Retrieves the number of the currently running gremlin. +# +# PARAMETERS: None +# +# RETURNS: The number of the current gremlin. +# Only valid if a gremlin is currently executing. +# +######################################################################## + +sub HostGremlinNumber +{ + # long HostGremlinNumber(void) + + my ($return, $format) = ("int32", "int16"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorGremlinNumber, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostGremlinCounter +# +# DESCRIPTION: Returns the current event counter of the currently +# running gremlin. +# +# PARAMETERS: None +# +# RETURNS: Current event counter. +# Only valid if a gremlin is currently executing. +# +######################################################################## + +sub HostGremlinCounter +{ + # long HostGremlinCounter(void) + + my ($return, $format) = ("int32", "int16"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorGremlinCounter, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostGremlinLimit +# +# DESCRIPTION: Retrieves the limit value of the currently running gremlin. +# +# PARAMETERS: None +# +# RETURNS: Limit value of the currently running gremlin. +# Only valid if a gremlin is currently executing. +# +######################################################################## + +sub HostGremlinLimit +{ + # long HostGremlinLimit(void) + + my ($return, $format) = ("int32", "int16"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorGremlinLimit, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostGremlinNew +# +# DESCRIPTION: Start a new Gremlin Horde. +# +# PARAMETERS: Starting Gremlin number. +# Ending Gremlin number. +# Frequency (in terms of Gremlin events) at which +# states are automatically saved. +# Switching depth (number of events generated before +# switching to a different Gremlin). +# Max depth (maximum number of events generated +# for each Gremlin). +# List of application names on which to run Gremlins. +# +# RETURNS: Error code. +# +######################################################################## + +sub HostGremlinNew +{ + # HostErr HostGremlinNew(const HostGremlinInfo*) + + my($start, $stop, $save_freq, $switch_depth, $max_depth, @apps) = @_; + + my ($app_string) = join (",", @apps); + + my ($struct) = pack("NNNNN", $start, $stop, $save_freq, $switch_depth, $max_depth) . $app_string; + + my ($return, $format) = ("HostErr", "int16 block"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorGremlinNew, $struct); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +#/* ==================================================================== */ +#/* Import/export-related calls */ +#/* ==================================================================== */ + + +######################################################################## +# +# FUNCTION: HostImportFile +# +# DESCRIPTION: Path to file on desktop +# Card to import file to. +# +# PARAMETERS: None +# +# RETURNS: Error code. +# +######################################################################## + +sub HostImportFile +{ + # HostErr HostImportFile(const char* fileName, long cardNum) + + my ($return, $format) = ("HostErr", "int16 string int32"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorImportFile, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostExportFile +# +# DESCRIPTION: Export a db from Emulator to the host. +# +# PARAMETERS: None +# +# RETURNS: Error code. +# +######################################################################## + +sub HostExportFile +{ + # HostErr HostExportFile(const char* fileName, long cardNum, const char* dbName) + + my ($return, $format) = ("HostErr", "int16 string int32 string"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorExportFile, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +#/* ==================================================================== */ +#/* Logging-related calls */ +#/* ==================================================================== */ + + +######################################################################## +# +# FUNCTION: HostSetPreference +# +# DESCRIPTION: Set a preference. +# +# PARAMETERS: prefName, The name of the preference whose value you +# are setting. +# prefValue, The new value of the preference. +# +# RETURNS: Nothing. +# +######################################################################## + +sub HostSetPreference +{ + # void HostSetPreference(const char*, const char*) + + my ($return, $format) = ("void", "int16 string string"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorSetPreference, @_); + #//EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostGetPreference +# +# DESCRIPTION: Export a db from Emulator to the host. +# +# PARAMETERS: prefName, The name of the preference whose value you +# want to retrieve. +# +# RETURNS: Error code. +# +######################################################################## + +sub HostGetPreference +{ + # HostBool HostGetPreference(const char*, char*) + + my ($return, $format) = ("int32", "int16 string string"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorGetPreference, $_[0], ""); + ($D0, prefName => $params[1], + prefValue => $params[2]); +} + + + + +######################################################################## +# +# FUNCTION: HostSetLogFileSize +# +# DESCRIPTION: Determines the size of the log file the Palm OS +# Emulator is using. By default the Palm OS Emulator +# Uses a 1 MB log file to record the last 1 MB of +# Log Data information. +# +# PARAMETERS: Size, The new size for the logging file in bytes. +# +# RETURNS: None. +# +# +######################################################################## + +sub HostSetLogFileSize +{ + # void HostSetLogFileSize(long) + + my ($return, $format) = ("int16", "int16 int32"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorSetLogFileSize, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +#/* ==================================================================== */ +#/* RPC-related calls */ +#/* ==================================================================== */ + + +######################################################################## +# +# FUNCTION: HostSessionCreate +# +# DESCRIPTION: Create a new session. +# +# PARAMETERS: Name of device to emulate. Choices are: "Pilot", +# "PalmPilot", "Palm III", "Palm IIIx", +# "Palm V", "Palm VII". +# RAM size (in K) to emulate. +# Path to ROM to use. +# +# RETURNS: Error code. +# +######################################################################## + +sub HostSessionCreate +{ + # HostErr HostSessionCreate(const char* device, long ramSize, const char* romPath) + + my ($return, $format) = ("HostErr", "int16 string int32 string"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorSessionCreate, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostSessionOpen +# +# DESCRIPTION: Open a previously create session file. +# +# PARAMETERS: Path to session file to open. +# +# RETURNS: Error code. +# +######################################################################## + +sub HostSessionOpen +{ + # HostErr HostSessionOpen(const char* psfFileName) + + my ($return, $format) = ("HostErr", "int16 string"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorSessionOpen, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostSessionClose +# +# DESCRIPTION: Close the current session, optionally saving it. +# +# PARAMETERS: Name of session file to create. Can be null. +# +# RETURNS: Error code. +# +######################################################################## + +sub HostSessionClose +{ + # HostErr HostSessionClose(const char* saveFileName) + + my ($return, $format) = ("HostErr", "int16 string"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorSessionClose, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostSessionQuit +# +# DESCRIPTION: Ask Palm OS Emulator to quit. +# +# PARAMETERS: None +# +# RETURNS: Error code. +# +######################################################################## + +sub HostSessionQuit +{ + # HostErr HostSessionQuit(void) + + my ($return, $format) = ("HostErr", "int16"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorSessionQuit, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostSignalSend +# +# DESCRIPTION: Sends a signal to any script that has host signal +# wait calls pending. +# +# PARAMETERS: signalNumber, The signal you want to wait for. +# +# RETURNS: List containing the error code and the numeric +# signal value returned from the Emulator. +# +######################################################################## + +sub HostSignalSend +{ + # HostErr HostSignalSend(HostSignal signalNumber) + + my ($return, $format) = ("HostErr", "int16 int32*"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorSignalSend, $_[0], 0); + + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} + + +######################################################################## +# +# FUNCTION: HostSignalWait +# +# DESCRIPTION: Wait for a signal from the Palm OS Emulator. +# +# PARAMETERS: timeout (in milliseconds) +# +# RETURNS: List containing the error code and the numeric +# signal value returned from the Emulator. +# +######################################################################## + +sub HostSignalWait +{ + # HostErr HostSignalWait(long timeout, HostSignal* signalNumber) + + my ($return, $format) = ("HostErr", "int16 int32 rptr"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorSignalWait, $_[0], 0); + + ($D0, $params[2]); # 0 = selector, 1 = timeout, 2 = signal number +} + + +######################################################################## +# +# FUNCTION: HostSignalResume +# +# DESCRIPTION: Tell the Emulator to resume after it has sent us +# a signal. +# +# PARAMETERS: None +# +# RETURNS: Error code. +# +######################################################################## + +sub HostSignalResume +{ + # HostErr HostSignalResume(void) + + my ($return, $format) = ("HostErr", "int16"); + my ($D0, $A0, @params) = EmRPC::DoRPC (EmSysTraps::sysTrapHostControl, $format, + hostSelectorSignalResume, @_); + EmRPC::ReturnValue ($return, $D0, $A0, @params); +} |