← Back to branch summary

~drgeo-developers/drgeo/trunk

« back to all changes in this revision

Viewing changes to VMs/iPad/source/iOS/vm/OSX/sqSqueakOSXApplication+attributes.m

  • Committer: Hilaire Fernandes
  • Date: 2012-01-27 21:15:40 UTC
  • Revision ID: hilaire.fernandes@gmail.com-20120127211540-912spf97bhpx6mve
Initial additions

Show diffs side-by-side

added added

removed removed

Lines of Context:
VMs/iPad/source/iOS/vm/OSX/sqSqueakOSXApplication+attributes.m
 
1
//
 
2
//  sqSqueakOSXApplication+attributes.m
 
3
//  SqueakPureObjc
 
4
//
 
5
//  Created by John M McIntosh on 09-11-11.
 
6
/*
 
7
 Some of this code was funded via a grant from the European Smalltalk User Group (ESUG)
 
8
 Copyright 2009 Corporate Smalltalk Consulting Ltd. All rights reserved.
 
9
 MIT License
 
10
 Permission is hereby granted, free of charge, to any person
 
11
 obtaining a copy of this software and associated documentation
 
12
 files (the "Software"), to deal in the Software without
 
13
 restriction, including without limitation the rights to use,
 
14
 copy, modify, merge, publish, distribute, sublicense, and/or sell
 
15
 copies of the Software, and to permit persons to whom the
 
16
 Software is furnished to do so, subject to the following
 
17
 conditions:
 
18
 
 
19
 The above copyright notice and this permission notice shall be
 
20
 included in all copies or substantial portions of the Software.
 
21
 
 
22
 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 
23
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
 
24
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
 
25
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
 
26
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
 
27
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 
28
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
 
29
 OTHER DEALINGS IN THE SOFTWARE.
 
30
 
 
31
 The end-user documentation included with the redistribution, if any, must include the following acknowledgment: 
 
32
 "This product includes software developed by Corporate Smalltalk Consulting Ltd (http://www.smalltalkconsulting.com) 
 
33
 and its contributors", in the same place and form as other third-party acknowledgments. 
 
34
 Alternately, this acknowledgment may appear in the software itself, in the same form and location as other 
 
35
 such third-party acknowledgments.
 
36
 */
 
37
//
 
38
 
 
39
#import "sqSqueakOSXApplication+attributes.h"
 
40
#import "sqSqueakMainApplication+attributes.h"
 
41
#import "sqSqueakMainApplication+vmAndImagePath.h"
 
42
 
 
43
extern struct VirtualMachine* interpreterProxy;
 
44
 
 
45
@implementation sqSqueakOSXApplication (attributes) 
 
46
 
 
47
- (char *) getAttribute:(sqInt)indexNumber {
 
48
        //indexNumber is a postive/negative number
 
49
#warning to test
 
50
        switch (indexNumber) {
 
51
                case 1001: /* OS type: "unix", "win32", "mac", ... */
 
52
                        return "Mac OS";
 
53
                         
 
54
                case 1002:  { /* OS name: "solaris2.5" on unix, "win95" on win32, ... */
 
55
                        SInt32 myattr;
 
56
                        static char data[32];
 
57
                        
 
58
                        Gestalt(gestaltSystemVersion, &myattr);
 
59
                        sprintf(data,"%X",(unsigned int) myattr);
 
60
                        return data;
 
61
                }
 
62
                case 1003: { /* processor architecture: "68k", "x86", "PowerPC", ...  */
 
63
                        SInt32 myattr;
 
64
                        
 
65
                        Gestalt(gestaltSysArchitecture, &myattr);
 
66
                        if (myattr == gestalt68k) 
 
67
                                return "68K";
 
68
                        if (myattr == gestaltPowerPC) 
 
69
                                return "powerpc";
 
70
                        if (myattr == gestaltIntel) 
 
71
                                return "intel";
 
72
                        
 
73
                        return "unknown";
 
74
                }
 
75
                        
 
76
                case 1005: {
 
77
                        return "Aqua";
 
78
                }
 
79
                        
 
80
                        
 
81
                case 1006:  {/* vm build string also info.plist */
 
82
#if (SQ_VI_BYTES_PER_WORD == 4)
 
83
                        
 
84
#if STACKVM
 
85
                        
 
86
                        return "Mac Cocoa Cog 5.8b12 21-Sep-10 >1B0534FA-246C-47C5-AB29-7A76C81CCDCB<";
 
87
//                      return "Mac Cocoa Cog 5.8b11 12-Sep-10 >9BFC792A-F173-4C65-AD2A-FFFB1D52DAC2<";
 
88
//                      return "Mac Cocoa Cog 5.8b10 07-Sep-10 >8AD3A516-DBAC-4CD4-BC89-8F21317DF7E1<";
 
89
//                      return "Mac Cocoa Cog 5.8b9 06-Sep-10 >01641B99-1842-4422-A99D-43153BEDEFFA<";
 
90
//                      return "Mac Cocoa Cog 5.8b8 04-Sep-10 >8A66B7E0-B578-4E5F-97B4-6195547A35F5<";
 
91
//                      return "Mac Cocoa Cog 5.8b7 02-Sep-10 >4EBF00E3-453E-4010-9AC8-6B64C292984B<";
 
92
//                      return "Mac Cocoa Cog 5.8b6 31-Aug-10 >DFB49E57-40FB-44B9-97D3-B7CA51608429<";
 
93
//                      return "Mac Cocoa Cog 5.8b5 30-Aug-10 >0A92B82A-9AC1-4B0E-9DEE-440C3FFAE568<";
 
94
//                      return "Mac Cocoa Cog 5.8b4 27-Aug-10 >5954D562-FB39-4195-9D19-EBB49FAECCF7<";
 
95
//                      return "Mac Cocoa Cog 5.8b3 21-Aug-10 >5954D562-FB39-4195-9D19-EBB49FAECCF7<";
 
96
//                      return "Mac Cocoa Cog 5.8b2 08-Jul-10 >7BCAB029-A835-4D12-946D-4AB7083D2955<";
 
97
//                      return "Mac Cocoa Cog 5.8b1 07-Jul-10 >529F6B5A-DC81-4C1F-81B6-3D99741B954A<";
 
98
#else
 
99
                        return "Mac Cocoa 5.7b3 27-Aug-10 >7BCAB029-A835-4D12-946D-4AB7083D2955<";
 
100
//                      return "Mac Cocoa 5.7b2 08-Jul-10 >7BCAB029-A835-4D12-946D-4AB7083D2955<";
 
101
//                      return "Mac Cocoa 5.7b1 15-Jun-10 >34286DE5-3BD3-40D8-9700-4C41C772B16B<";
 
102
#endif
 
103
//                      return "Mac Cocoa 5.7b1 15-Jun-10 >34286DE5-3BD3-40D8-9700-4C41C772B16B<";
 
104
//                      return "Mac Cocoa 5.6b1 02-Mar-10 >9E99B1C2-0B6B-4944-8B6F-74030D14F3C6<";
 
105
//                      return "Mac Cocoa 5.5b1 16-Feb-10 >2EE2964B-462A-4F66-92AF-C810216EF798<";
 
106
//                      return "Mac Cocoa 5.4b2 24-Jan-10 >2EE2964B-462A-4F66-92AF-C810216EF798<";
 
107
//                      return "Mac Cocoa 5.4b1 20-Jan-10 >F0EB07E3-7805-4C09-8419-D8316F7ADC21<";
 
108
//                      return "Mac Cocoa 5.3b1 06-Jan-10 >0DADC752-8E86-48FC-8D6B-CC97482C6851<";
 
109
//                      return "Mac Cocoa 5.2b3 05-Jan-10 >1618879A-3D07-427F-A8CB-5B3DF73ED840<";
 
110
//                      return "Mac Cocoa 5.2b2 04-Jan-10 >94E27C49-8575-4604-A2C4-0A5C659CC734<";
 
111
//                      return "Mac Cocoa 5.2b1 02-Jan-10 >D94A0034-7415-4AA1-AA7C-B35BBCDBA0D4<";
 
112
//                      return "Mac Cocoa 5.1b1 25-Dec-09 >C0908D0B-4D97-47CA-9FAB-479AFC6BA978<";
 
113
//                      return "Mac Cocoa 5.0b9 02-Dec-09 >C8598ABA-DA73-4A71-836C-62C4369D5A0F<";
 
114
#else
 
115
                        return "Mac Cocoa 5.7b2 64/64 bits 08-Jul-10 >7BCAB029-A835-4D12-946D-4AB7083D2955<";
 
116
//                      return "Mac Cocoa 5.7b1 64/64 bits 15-Jun-10 >34286DE5-3BD3-40D8-9700-4C41C772B16B<";
 
117
//                      return "Mac Cocoa 5.6b1 64/64 bits 02-Mar-10 >9E99B1C2-0B6B-4944-8B6F-74030D14F3C6<";
 
118
//                      return "Mac Cocoa 5.5b1 64/64 bits 16-Feb-10 >70984CDA-9482-4E7F-BCF0-08C635E0A7BF<";
 
119
//                      return "Mac Cocoa 5.4b2 64/64 bits 24-Jan-10 >70984CDA-9482-4E7F-BCF0-08C635E0A7BF<";
 
120
//                      return "Mac Cocoa 5.4b1 64/64 bits 20-Jan-10 >E27846BC-15A7-4BE8-B467-B645E9D37163<";
 
121
//                      return "Mac Cocoa 5.3b1 64/64 bits 06-Jan-10 >0DADC752-8E86-48FC-8D6B-CC97482C6851<";
 
122
//                      return "Mac Cocoa 5.2b3 64/64 bits 05-Jan-10 >1618879A-3D07-427F-A8CB-5B3DF73ED840<";
 
123
//                      return "Mac Cocoa 5.2b2 64/64 bits 04-Jan-10 >94E27C49-8575-4604-A2C4-0A5C659CC734<";
 
124
//                      return "Mac Cocoa 5.2b1 64/64 bits 02-Jan-10 >D94A0034-7415-4AA1-AA7C-B35BBCDBA0D4<";
 
125
//                      return "Mac Cocoa 5.1b1 64/64 bits 25-Dec-09 >C0908D0B-4D97-47CA-9FAB-479AFC6BA978<";
 
126
//                      return "Mac Cocoa 5.0b9 64/64 bits 02-Dec-09 >C8598ABA-DA73-4A71-836C-62C4369D5A0F<";
 
127
//                      return "Mac Cocoa 5.0b8 01-Dec-09 >2329A610-327B-403D-960E-EEF3C369D032<";
 
128
//                      return "Mac Cocoa 5.0b7 29-Nov-09 >1215B15B-9463-4D53-BA13-AA989DAB5C01<";
 
129
//                      return "Mac Cocoa 5.0b6 27-Nov-09 >CF087523-A432-4427-9AD3-4ACF26336A08<";
 
130
//                      return "Mac Cocoa 5.0b5 26-Nov-09 >9C6EF973-CECF-4E38-B5E0-BB9986A03D5D<";
 
131
//                      return "Mac Cocoa 5.0b4 26-Nov-09 >DA33132E-D7E6-48C4-8363-EB7408E3124B<";
 
132
//                      return "Mac Cocoa 5.0.0b1 11-Nov-09 >40BF8061-CC65-4E5E-9841-6BB5E809A688<";
 
133
#endif
 
134
                }
 
135
                case 1007: { /* vm build string also info.plist */
 
136
#if STACKVM
 
137
                        extern char *__interpBuildInfo;
 
138
                        return __interpBuildInfo;
 
139
#endif
 
140
                        break;
 
141
                }
 
142
                case 1008: { /* vm build string also info.plist */
 
143
# if COGVM
 
144
                        extern char *__cogitBuildInfo;
 
145
                        return __cogitBuildInfo;
 
146
#endif
 
147
                        break;
 
148
                }
 
149
                default: 
 
150
                        break;
 
151
        }
 
152
        return (char *) [super getAttribute: indexNumber];
 
153
}
 
154
@end