Mercurial > repos > rhope
comparison backendutils.rhope @ 42:aabda74c7a88
Fields can now be defined to have naked primitive types
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 13 Oct 2009 00:07:34 -0400 |
parents | 7f05bbe82f24 |
children | a24eb366195c |
comparison
equal
deleted
inserted
replaced
41:1b86a1ee500a | 42:aabda74c7a88 |
---|---|
176 name <- raw name | 176 name <- raw name |
177 } | 177 } |
178 out <- [[[Build["Type Instance"]]Name <<[name]]Params <<[()]]Variant <<["Boxed"] | 178 out <- [[[Build["Type Instance"]]Name <<[name]]Params <<[()]]Variant <<["Boxed"] |
179 } | 179 } |
180 | 180 |
181 Set Variant[type,variant:out,invalid] | 181 Set Variant@Type Instance[type,variant:out,invalid] |
182 { | 182 { |
183 [("Boxed","Naked","Pointer","Raw Pointer")]Find[variant] | 183 [("Boxed","Naked","Pointer","Raw Pointer")]Find[variant] |
184 { | 184 { |
185 out <- [type]Variant <<[variant] | 185 out <- [type]Variant <<[variant] |
186 }{ | 186 }{ |
187 invalid <- type | 187 invalid <- type |
188 } | 188 } |
189 } | 189 } |
190 | |
191 =@Type Instance[type,compare:out] | |
192 { | |
193 If[[Type Of[compare]] = ["String"]] | |
194 { | |
195 out <- [[type]Name >>] = [compare] | |
196 }{ | |
197 //TODO: Compare parameters | |
198 ,out <- If[[[type]Name >>] = [[compare]Name >>]] | |
199 { out <- [[type]Variant >>] = [[compare]Variant >>] } | |
200 } | |
201 } |