plugins/consoles/win32cons/group/os_version_h.PL
author Joe Branton <joe.branton@accenture.com>
Thu, 29 Jul 2010 12:02:58 +1000
changeset 14 4ab8c027df23
parent 0 7f656887cf89
permissions -rw-r--r--
Fixed a defect in iosrv.exe that caused a panic if a foreground read object was attached to a different end point. This was due to the read object being notified of a change in foreground before its iEndPoint member was updated. This member is now updated before attempting the attach, and is set to NULL in the event of a leave (resulting in the read object being left in an unattached state). Also tweaked ymodem.cif to make it more readable.

#!perl
# os_version_h.PL
# 
# Copyright (c) 2010 Accenture. All rights reserved.
# This component and the accompanying materials are made available
# under the terms of the "Eclipse Public License v1.0"
# which accompanies this distribution, and is available
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
# 
# Initial Contributors:
# Accenture - Initial contribution
#

use strict;
die "Error: not running on Win32; Win32Conole must be updated/replaced for this OS: $^O\n" unless $^O =~ m|Win32|;
require Win32;

my @ver = Win32::GetOSVersion();
my ($string, $major, $minor, $build, $id) = @ver;

my $ver = sprintf("%02x%02s", $major, $minor);

print <<__EOS__;
// os_version.h
// This header is automatically generated by os_version_h.PL; do not edit it directly, edit
// win_version_h.PL instead.

#ifndef __OS_VERSION_H__
#define __OS_VERSION_H__

#define _WIN32_WINNT 0x$ver

#endif // __OS_VERSION_H__
__EOS__