1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
// $Id: mmdb_machine.cpp $
// =================================================================
//
// CCP4 Coordinate Library: support of coordinate-related
// functionality in protein crystallography applications.
//
// Copyright (C) Eugene Krissinel 2000-2013.
//
// This library is free software: you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License version 3, modified in accordance with the provisions
// of the license to address the requirements of UK law.
//
// You should have received a copy of the modified GNU Lesser
// General Public License along with this library. If not, copies
// may be downloaded from http://www.ccp4.ac.uk/ccp4license.php
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// =================================================================
//
// 12.09.13 <-- Date of Last Modification.
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// -----------------------------------------------------------------
//
// **** Module : Machine <interface>
// ~~~~~~~~~
// **** Functions : mmdb::machine::GetMachineID - returns ID code
// ~~~~~~~~~~~ for the machine
// mmdb::machine::GetMachineName - returns name of
// the machine
//
// (C) E. Krissinel 2000-2013
//
// =================================================================
//
#include "mmdb_machine_.h"
namespace mmdb {
namespace machine {
#ifdef CALL_LIKE_SUN
int GetMachineID() {
int k = CALL_LIKE_SUN;
switch (k) {
case 1 : return MACHINE_ALLIANT;
case 2 : return MACHINE_CONVEX;
case 3 : return MACHINE_ESV;
case 4 : return MACHINE_SGI;
case 5 : return MACHINE_SOLBOURNE;
case 6 : return MACHINE_SOLARIS;
case 7 : return MACHINE_ALPHA;
case 8 : return MACHINE_F2C_G77;
case 9 : return MACHINE_LINUX;
default : return MACHINE_UNKNOWN;
}
}
#elif defined(CALL_LIKE_HPUX)
int GetMachineID() {
int k = CALL_LIKE_HPUX;
switch (k) {
case 1 : return MACHINE_RS6000;
case 2 : return MACHINE_HP9000;
default : return MACHINE_UNKNOWN;
}
}
#elif defined(CALL_LIKE_STARDENT)
int GetMachineID() {
int k = CALL_LIKE_STARDENT;
switch (k) {
case 1 : return MACHINE_ARDENT;
case 2 : return MACHINE_TITAN;
case 3 : return MACHINE_STARDENT;
default : return MACHINE_UNKNOWN;
}
}
#elif defined(CALL_LIKE_VMS)
int GetMachineID() {
return MACHINE_VMS;
}
#elif defined(CALL_LIKE_MVS)
int GetMachineID() {
return MACHINE_MVS;
}
#else
int GetMachineID() {
return MACHINE_UNKNOWN;
}
#endif
static cpstr MCH_SGI = cpstr("Silicon Graphics");
static cpstr MCH_RS6000 = cpstr("IBM RS/6000");
static cpstr MCH_ALLIANT = cpstr("Alliant");
static cpstr MCH_ARDENT = cpstr("Ardent");
static cpstr MCH_TITAN = cpstr("Titan");
static cpstr MCH_STARDENT = cpstr("Stardent");
static cpstr MCH_CONVEX = cpstr("Convex");
static cpstr MCH_ESV = cpstr("Evans or Sutherland");
static cpstr MCH_HP9000 = cpstr("Hewlett Packard 9000");
static cpstr MCH_SOLBOURNE = cpstr("Solbourne");
static cpstr MCH_SOLARIS = cpstr("Solaris");
static cpstr MCH_ALPHA = cpstr("DEC Alpha");
static cpstr MCH_VMS = cpstr("A VMS machine");
static cpstr MCH_MVS = cpstr("MS Windows");
static cpstr MCH_F2C_G77 = cpstr("SUN compatible");
static cpstr MCH_LINUX = cpstr("Linux");
cpstr GetMachineName ( int MachineID ) {
switch (MachineID) {
case MACHINE_SGI : return MCH_SGI;
case MACHINE_RS6000 : return MCH_RS6000;
case MACHINE_ALLIANT : return MCH_ALLIANT;
case MACHINE_ARDENT : return MCH_ARDENT;
case MACHINE_TITAN : return MCH_TITAN;
case MACHINE_STARDENT : return MCH_STARDENT;
case MACHINE_CONVEX : return MCH_CONVEX;
case MACHINE_ESV : return MCH_ESV;
case MACHINE_HP9000 : return MCH_HP9000;
case MACHINE_SOLBOURNE : return MCH_SOLBOURNE;
case MACHINE_SOLARIS : return MCH_SOLARIS;
case MACHINE_ALPHA : return MCH_ALPHA;
case MACHINE_VMS : return MCH_VMS;
case MACHINE_MVS : return MCH_MVS;
case MACHINE_F2C_G77 : return MCH_F2C_G77;
case MACHINE_LINUX : return MCH_LINUX;
default :
case MACHINE_UNKNOWN : return pstr("Unidentified machine");
}
}
cpstr GetMachineName() {
return GetMachineName ( GetMachineID() );
}
}
}
|
