Searching Schemas
Mike Matthews - Omnis
omnis at lineal.co.uk
Wed Jan 27 09:42:57 UTC 2021
Beautiful work!
Now what does it mean? It's like being back at school, it’s not the answer that is important, it’s the working out that gets you 90% of the marks. :)
Mike Matthews
Lineal Software Solutions
Commercial House, The Strand<x-apple-data-detectors://1/1> Barnstaple, Devon, EX31 1EU<x-apple-data-detectors://1/1>
omnis at lineal.co.uk<mailto:mike.matthews at lineal.co.uk>
www.lineal.co.uk<http://www.lineal.co.uk/>
www.sqlworks.co.uk<http://www.sqlworks.co/>
On 27 Jan 2021, at 09:09, Kelly Burgess <kellyb at montana.com<mailto:kellyb at montana.com>> wrote:
A one-liner version just for exercise.
Do schemaList.$define(schemaName)
+$clib.$schemas.$sendall(schemaName.$assign($sendallref.$name)
+$ref.$objs.$sendall(schemaList.$add(schemaName),$ref.$name=pColumnName))
Quit method schemaList
Kelly
On Jan 26, 2021, at 2:37 PM, Kelly Burgess <kellyb at montana.com<mailto:kellyb at montana.com>> wrote:
Hi Dawid,
Here's another approach - pass in pColumnName, get a list back. I'm still wondering if you could flatten all that into a one-liner with a $sendall...
Kelly
Do schemaList.$define(schemaName)
Do $clib.$schemas.$first() Returns schemaRef
While schemaRef
Do schemaRef.$objs.$findname(pColumnName) Returns colRef
If colRef
Do schemaList.$add(schemaRef.$name)
End If
Do $clib.$schemas.$next(schemaRef) Returns schemaRef
End While
Quit method schemaList
_____________________________________________________________
Manage your list subscriptions at https://linkprotect.cudasvc.com/url?a=http%3a%2f%2flists.omnis-dev.com&c=E,1,5VeIlOo5XrXdmY4CvidZp_To3ljG3u8Q6HrksTV6Ol5TUyITgXfB4Ww23ap0Hcnsh0RlRA9bDFZ9jIuGYtiWg662OIplFED03NGDGZQJrKZ6-0s0DhPgSZcEXg,,&typo=1
Start a new message -> mailto:omnisdev-en at lists.omnis-dev.com
More information about the omnisdev-en
mailing list