#!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__