home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
fnb101.zip
/
Lib
/
site-packages
/
Fnorb
/
script
/
fnendian.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-06-28
|
2KB
|
60 lines
extproc python -x %PYTHONHOME%\fnendian.cmd
#############################################################################
# Copyright (C) DSTC Pty Ltd (ACN 052 372 577) 1997, 1998, 1999
# All Rights Reserved.
#
# The software contained on this media is the property of the DSTC Pty
# Ltd. Use of this software is strictly in accordance with the
# license agreement in the accompanying LICENSE.HTML file. If your
# distribution of this software does not contain a LICENSE.HTML file
# then you have no rights to use this software in any manner and
# should contact DSTC at the address below to determine an appropriate
# licensing arrangement.
#
# DSTC Pty Ltd
# Level 7, GP South
# Staff House Road
# University of Queensland
# St Lucia, 4072
# Australia
# Tel: +61 7 3365 4310
# Fax: +61 7 3365 4311
# Email: enquiries@dstc.edu.au
#
# This software is being provided "AS IS" without warranty of any
# kind. In no event shall DSTC Pty Ltd be liable for damage of any
# kind arising out of or in connection with the use or performance of
# this software.
#
# Project: Fnorb
# File: $Source: /units/arch/src/Fnorb/script/RCS/fnendian,v $
# Version: @(#)$RCSfile: fnendian,v $ $Revision: 1.3 $
#
#############################################################################
""" Determine the endian-ness ;^) of the target architecture. """
# Standard/built-in modules.
import socket, sys
def main(argv):
""" Do it! """
if socket.htonl(1) == 1:
sys.stdout.write('__FNORB_BIG_ENDIAN\n')
else:
sys.stdout.write('__FNORB_LITTLE_ENDIAN\n')
sys.stdout.flush()
return 0
#############################################################################
if __name__ == '__main__':
# Do it!
sys.exit(main(sys.argv[1:]))
#############################################################################