--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/cross-plat-dev-utils/check_os.pm Mon May 10 19:54:49 2010 +0100
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+# Copyright (c) 2010 Symbian Foundation Ltd
+# This component and the accompanying materials are made available
+# under the terms of the License "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:
+# Mike Kinghan, mikek@symbian.org, for Symbian Foundation Ltd - initial contribution.
+
+# Subroutines to check the host OS.
+
+use strict;
+
+sub check_os($)
+{
+ my $osname = shift;
+ return ($^O =~ /^$osname/) ? 1 : 0;
+}
+
+sub os_is_windows()
+{
+ return check_os("MSWin");
+}
+
+sub os_is_linux()
+{
+ return check_os("linux");
+}
+
+sub require_os_windows()
+{
+ unless(os_is_windows()) {
+ die ("*** Windows host required ***");
+ }
+}
+
+sub require_os_linux()
+{
+ unless(os_is_linux()) {
+ die ("*** Linux host required ***");
+ }
+}
+
+
+1;
+