domain-spec

domain-spec Pub

Domain Samples

Make sure your classes include a key attribute, unique. Otherwise, one random key is assigned for you and all sorts of funny and entertaining side effects may occur...

NOTE that these classes below won't work with persistence until you run this story - which will register and connect the postgress and other databases.

First class is annotated for persistance, although annotations are static and we prefer the registration, see below:

no inventory registered

class SampleDevice <stereo,stereo> (

key,

ip <@column>,

key,

ip <@column>

)

anno ( inventory="diesel.db.postgres"="diesel.db...)

listAll | new

class SampleCell <stereo,stereo>extends SampleDeviceSampleDevice (

key,

ip <@column>,

sectors:Array[SampleSector],

template:<>SampleTemplate,

cpes:<>Array[SampleCpe],

key,

ip <@column>,

sectors:Array[SampleSector],

template:<>SampleTemplate,

cpes:<>Array[SampleCpe]

) ANNO( inventory:String="diesel.db.postgres"="diesel.db.postgres", inventory:String="diesel.db.postgres"="diesel.db.postgres")

This classes are registered, see the register message below - this is the preferred approach, as it's more dynamic:

no inventory registered

class SampleTemplate (

key,

template,

key,

template

)

no inventory registered

class SampleSector (

key,

azimuth,

key,

azimuth

)

no inventory registered

class SampleCpeextends SampleDeviceSampleDevice (

key,

ip,

courseRef:<>TestCourse,

key,

ip,

courseRef:<>TestCourse

)

Samples for testing

no inventory registered

class TestClassInv1 (

key,

someValue,

ref2:<>TestClassInv2,

key,

someValue,

ref2:<>TestClassInv2

)

anno ( inventory="diesel.db.col"="diesel.db...)

listAll | new

class TestClassInv2 (

key,

someValue,

key,

someValue

) ANNO( inventory:String="diesel.db.col"="diesel.db.col", inventory:String="diesel.db.col"="diesel.db.col")

Defining classes

Note that inside a class definition, you can't have free text, just other constructs.

no inventory registered

class TestClass1{

   def: simple
   def: withParms (x, y)
   def: withEmptyBody (x, y)
   msg: simpleMsg
   msg: expandedMsg
   def: simple
   def: withParms (x, y)
   def: withEmptyBody (x, y)
   msg: simpleMsg
   msg: expandedMsg

}

$when:: TestClass1.simpleMsg
a.b

no inventory registered

class TestSimpleClass

no inventory registered

class TestSubtypeClassextends TestClass1

no inventory registered

class TestContainer [T]

no inventory registered

class TestEmptyBody

anno ( prop3="value"="value")

anno ( prop1="value"="value", prop2="value"="value")

no inventory registered

class TestAnnotated ANNO( prop1:String="value"="value", prop2:String="value"="value", prop3:String="value"="value")

no inventory registered

class TestWithParms (

parm1,

slainvokedid:<>SLA,

list3:Array[TestContainer],

parm1,

slainvokedid:<>SLA,

list3:Array[TestContainer]

)

Was this useful?

By: Razie | 2020-10-16 .. 2022-10-21 | Tags: spec , dsl , DslDomain , private

Viewed 529 times ( | History | Print ) this page.

You need to log in to post a comment!