home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fnb101.zip / fnmkior.cmd < prev    next >
OS/2 REXX Batch file  |  1999-06-28  |  3KB  |  88 lines
  1. extproc python -x %PYTHONHOME%\fnmkior.cmd
  2. #############################################################################
  3. # Copyright (C) DSTC Pty Ltd (ACN 052 372 577) 1997, 1998, 1999
  4. # All Rights Reserved.
  5. #
  6. # The software contained on this media is the property of the DSTC Pty
  7. # Ltd.  Use of this software is strictly in accordance with the
  8. # license agreement in the accompanying LICENSE.HTML file.  If your
  9. # distribution of this software does not contain a LICENSE.HTML file
  10. # then you have no rights to use this software in any manner and
  11. # should contact DSTC at the address below to determine an appropriate
  12. # licensing arrangement.
  13. # 
  14. #      DSTC Pty Ltd
  15. #      Level 7, GP South
  16. #      Staff House Road
  17. #      University of Queensland
  18. #      St Lucia, 4072
  19. #      Australia
  20. #      Tel: +61 7 3365 4310
  21. #      Fax: +61 7 3365 4311
  22. #      Email: enquiries@dstc.edu.au
  23. # 
  24. # This software is being provided "AS IS" without warranty of any
  25. # kind.  In no event shall DSTC Pty Ltd be liable for damage of any
  26. # kind arising out of or in connection with the use or performance of
  27. # this software.
  28. #
  29. # Project:      Distributed Environment
  30. # File:         $Source: /units/arch/src/Fnorb/script/RCS/fnmkior,v $
  31. # Version:      @(#)$RCSfile: fnmkior,v $ $Revision: 1.4 $
  32. #
  33. #############################################################################
  34. """ Make a CORBA IOR with a single IIOP profile. """
  35.  
  36.  
  37. # Standard/built-in modules.
  38. import sys
  39.  
  40. # Fnorb modules.
  41. from Fnorb.orb import CORBA, IIOP, IOP
  42.  
  43.  
  44. def usage():
  45.     """ Print the usage! """
  46.  
  47.     print 'Usage: fnmkior Hostname Port TypeId ObjectKey'
  48.     print
  49.     print 'e.g.'
  50.     print
  51.     print '% fnmkior sundial.dstc.edu.au 1234 IDL:dstc.edu.au/Foo:1.0 fred' 
  52.  
  53.     sys.exit(1)
  54.  
  55.  
  56. def main(argv):
  57.     """ Do it! """
  58.  
  59.     if len(argv) < 5:
  60.     usage()
  61.  
  62.     # fixme: This should do some error checking!
  63.     host = argv[1]
  64.     port = eval(argv[2])
  65.     type = argv[3]
  66.     key  = argv[4]
  67.  
  68.     # Create an IOR.
  69.     version = IIOP.Version(chr(1), chr(0))
  70.     profile_body = IIOP.ProfileBody(version, host, port, key)
  71.     profile = IOP.TaggedProfile(IOP.TAG_INTERNET_IOP, profile_body)
  72.     ior = IOP.IOR(type, [profile])
  73.  
  74.     # Stringify it.
  75.     sys.stdout.write(ior._fnorb_to_string())
  76.     sys.stdout.write('\n')
  77.     sys.stdout.flush()
  78.  
  79.     return 0
  80.  
  81. #############################################################################
  82.  
  83. if __name__ == '__main__':
  84.     # Do it!
  85.     sys.exit(main(sys.argv[1:]))
  86.  
  87. #############################################################################
  88.