src/DrawResources/WOKcomplement.tcl

   1 # Copyright (c) 1999-2012 OPEN CASCADE SAS
   2 #
   3 # The content of this file is subject to the Open CASCADE Technology Public
   4 # License Version 6.5 (the "License"). You may not use the content of this file
   5 # except in compliance with the License. Please obtain a copy of the License
   6 # at http://www.opencascade.org and read it completely before using this file.
   7 #
   8 # The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
   9 # main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
  10 #
  11 # The Original Code and all software distributed under the License is
  12 # distributed on an "AS IS" basis, without warranty of any kind, and the
  13 # Initial Developer hereby disclaims all such warranties, including without
  14 # limitation, any warranties of merchantability, fitness for a particular
  15 # purpose or non-infringement. Please see the License for the specific terms
  16 # and conditions governing the rights and limitations under the License.
  17
  18 ##########################################################
  19 #
  20 #  find the name of the station
  21 #
  22 proc wokstation {} {
  23     set LINE_FROM_UNAME [ exec uname -a ] ;
  24     if { [ regexp SunOS $LINE_FROM_UNAME ] } {
  25         return "sun"
  26     }
  27     elseif { [ regexp IRIX $LINE_FROM_UNAME ] } {
  28         return "sil"
  29     }
  30     elseif { [ regexp OSF $LINE_FROM_UNAME ] } {
  31         return "ao1"
  32     }
  33     elseif { [ regexp HP-UX $LINE_FROM_UNAME ] } {
  34         return "hp"
  35     }
  36     elseif { [ regexp FreeBSD $LINE_FROM_UNAME ] } {
  37         return "bsd"
  38     }
  39     elseif { [ regexp Darwin $LINE_FROM_UNAME ] } {
  40         return "mac"
  41     }
  42     else {
  43         return "unknown"
  44     }
  45
  46 }