Mercurial > repos > rhope

comparison backendutils.rhope @ 42:aabda74c7a88

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 }