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