home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fnb101.zip / fnior.cmd < prev    next >
OS/2 REXX Batch file  |  1999-06-28  |  4KB  |  128 lines
  1. extproc python -x %PYTHONHOME%\fnior.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:      Fnorb
  30. # File:         $Source: /units/arch/src/Fnorb/script/RCS/fnior,v $
  31. # Version:      @(#)$RCSfile: fnior,v $ $Revision: 1.6 $
  32. #
  33. #############################################################################
  34. """ Read a stringified IOR from stdin and print its details on stdout. """
  35.  
  36.  
  37. # Standard/built-in modules.
  38. import new, sys
  39.  
  40. # Fnorb modules.
  41. from Fnorb.orb import IOP
  42.  
  43.  
  44. def main(argv):
  45.     """ Do it! """
  46.  
  47.     # fixme: This a hack to remove the spurious last argument ('\n') on
  48.     # Windows 95.
  49.     if argv[-1] == '\n':
  50.     del argv[-1]
  51.  
  52.     if len(argv) == 1:
  53.     # Read a stringified IOR from stdin.
  54.     stringified_ior = sys.stdin.read()
  55.  
  56.     elif len(argv) == 2 and argv[1][:4] == 'IOR:':
  57.     # Read a stringified IOR from the command line.
  58.     stringified_ior = argv[1]
  59.  
  60.     elif len(argv) == 3 and argv[1] == '-f':
  61.     # Read a stringified IOR from a file.
  62.     stringified_ior = open(argv[2]).read()
  63.  
  64.     else:
  65.     print 'Usage: fnior [-f file | IOR:...]'
  66.     return 1
  67.  
  68.     # Create a new IOR instance and initialise it from the stringified IOR.
  69.     ior = new.instance(IOP.IOR, {})
  70.     ior._fnorb_from_string(stringified_ior)
  71.  
  72.     # Print out the details.
  73.     print
  74.     print 'Type Id              :', ior.type_id
  75.     for p in ior.profiles:
  76.     # IIOP profile
  77.     if p.tag == IOP.TAG_INTERNET_IOP:
  78.         print 'Profile              : IIOP'
  79.         major = ord(p.profile_data.iiop_version.major)
  80.         minor = ord(p.profile_data.iiop_version.minor)
  81.         print 'IIOP Version         : %d.%d' % (major, minor)
  82.         print 'Host                 :', p.profile_data.host
  83.         print 'Port                 :', p.profile_data.port
  84.         print 'Object Key           :', p.profile_data.object_key
  85.         print 'Key length           :', len(p.profile_data.object_key)
  86.         print 'Octal key dump       :',
  87.         # Dump of object key.
  88.         i = 0
  89.         for c in p.profile_data.object_key:
  90.         print '%03o' % ord(c),
  91.         i = i + 1
  92.         if i % 10 == 0:
  93.             print '\n' + ' ' * 22,
  94.  
  95.         print '\n'
  96.  
  97.     # Multiple component profile.    
  98.     elif p.tag == IOP.TAG_MULTIPLE_COMPONENTS:
  99.         print 'Profile              : Multiple Components'
  100.         for co in p.profile_data:
  101.         print 'Component id         :', co.tag
  102.         print 'Component            :', co.component_data
  103.         print 'Component length     :', len(co.component_data)
  104.         print 'Octal component dump :',
  105.         # Dump of component data.
  106.         i = 0
  107.         for c in co.component_data:
  108.             print '%03o' % ord(c),
  109.             i = i + 1
  110.             if i % 10 == 0:
  111.             print '\n' + ' ' * 22,
  112.  
  113.         print '\n'
  114.  
  115.     else:
  116.         print 'Unknown profile tag  :', p.tag
  117.         print '\n'
  118.         
  119.     return 0
  120.  
  121. #############################################################################
  122.  
  123. if __name__ == '__main__':
  124.     # Do it!
  125.     sys.exit(main(sys.argv[1:]))
  126.  
  127. #############################################################################
  128.