home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 Mobile / Chip_Mobile_2001.iso / palm / system / _palmemu / palmemu.exe / Scripting / Perl / HostControlTest.pl < prev    next >
Encoding:
Text File  |  2000-03-03  |  2.7 KB  |  88 lines
  1. #@INC = push (@INC, "D:/Emulator");
  2. #@INC = push (@INC, "D:/Emulator/Scripting/Perl");
  3. #print $INC;
  4.  
  5. use EmRPC;            # EmRPC::OpenConnection, CloseConnection
  6. use HostControl;
  7. use EmFunctions;
  8. use EmUtils;        # TapPenSync, TapButtonSync
  9.  
  10. print "Start HostControlTest.pl\n";
  11.  
  12.  
  13.  
  14. EmRPC::OpenConnection(6415, "localhost");
  15.  
  16.  
  17. my ($hostVers) = HostGetHostVersion();
  18. print "HostGetHostVersion = $hostVers\n";
  19.  
  20. my ($hostID) = HostGetHostID();
  21. print "HostGetHostID = $hostID\n";
  22.  
  23. my ($hostPlatform) = HostGetHostPlatform();
  24. print "HostGetHostPlatform = $hostPlatform\n";
  25.  
  26. my ($hostSelector1) = HostIsSelectorImplemented(hostSelectorGetHostVersion);
  27. print "HostIsSelectorImplemented (hostSelectorGetHostVersion) = $hostSelector1\n";
  28.  
  29. my ($hostSelector2) = HostIsSelectorImplemented(hostSelectorGetHostID);
  30. print "HostIsSelectorImplemented (hostSelectorGetHostID) = $hostSelector2\n";
  31.  
  32. my ($hostSelector3) = HostIsSelectorImplemented(hostSelectorProfileInit);
  33. print "HostIsSelectorImplemented (hostSelectorProfileInit) = $hostSelector3\n";
  34.  
  35. my ($hostGestalt) = HostGestalt(1000);
  36. print ("HostGestalt 1000 = $hostGestalt\n");
  37.  
  38. my ($hostIsCallingTrap) = HostIsCallingTrap();
  39. print ("HostIsCallingTrap = $hostIsCallingTrap\n");
  40.  
  41.  
  42. #// Profiling Calls
  43. my ($profileInit) = HostProfileInit(1000, 1000);
  44. print ("HostProfileInit = $profileInit\n");
  45.  
  46. #my ($profileDetailFn) = HostProfileDetailFn();
  47. #print ("HostProfileDetailFn = $profileDetailFn\n");
  48.  
  49. #// profileStart crashed the Emulator Profiler 3.0a5e3.
  50. my ($profileStart) = HostProfileStart();
  51. print ("HostProfileStart = $profileStart\n");
  52.  
  53.     my ($gremlinResponse) = HostGremlinNew(0, 0, 10000, 1000, 10000, "Address");
  54.     print ("HostGremlinNew = $gremlinResponse\n");
  55.  
  56.     my ($gremlinResponse) = HostGremlinLimit();
  57.     print ("HostGremlinLimit = $gremlinResponse\n");
  58.     
  59.     my ($gremlinResponse) = HostGremlinNumber();
  60.     print ("HostGremlinNumber = $gremlinResponse\n");
  61.     
  62.     my ($gremlinResponse) = HostGremlinLimit();
  63.     print ("HostGremlinLimit = $gremlinResponse\n");
  64.     
  65.     my ($gremlinResponse) = HostGremlinIsRunning();
  66.     print ("HostGremlinIsRunning = $gremlinResponse\n");
  67.     
  68.     my ($gremlinResponse) = HostGremlinCounter();
  69.     print ("HostGremlinCounter = $gremlinResponse\n");
  70.  
  71.  
  72. #// profileStart crashed the Emulator Profiler 3.0a5e3.
  73. #// x outside of string at d:\Emulator\Scripting\Perl/EmRPC.pm line 594
  74. my ($profileResponse) = HostProfileStop();
  75. print ("HostProfileStop = $profileResponse\n");
  76.  
  77. my ($profileResponse) = HostProfileDump("D:\Emulator\Dump.txt");
  78. print ("HostProfileDump = $profileResponse\n");
  79.  
  80. my ($profileResponse) = HostProfileCleanup();
  81. print ("HostProfileCleanup = $profileResponse\n");
  82.  
  83.  
  84.     
  85.  
  86.  
  87. EmRPC::CloseConnection();
  88.