domain type DSL (peg grammar) version 2

DomainTypeDSL.grammar

// do not use result cache, nor line and column tracking
/* sample:

Project
  Id :key
  Name
   Write project name:label
   You need to state the project name:err
  Address
  SomeValue :num


The idea is to create a json that is easy to use for code generation later.


*/

{ var indentStack = [], indent = ""; }

start
  = (INDENT? l:NAMESPACE { return  l; })+    

NAMESPACEHEAD = c:[a-zA-Z.]+ " "* {return c.join("");}

NAMESPACE
  = SAMEDENT type:(!EOL typeHead:NAMESPACEHEAD {return {"nameSpace":typeHead}}) EOL* 
    children:( INDENT c:TYPE* DEDENT { return c; })?
    { 
    
      if (children) type["types"]=children;
    
      return type; }

TYPEHEAD = c:[a-zA-Z]+ " "* {return c.join("");}

TYPE
  = SAMEDENT type:(!EOL typeHead:TYPEHEAD {return {"typeName":typeHead}}) EOL* 
    children:( INDENT c:MEMBER* DEDENT { return c; })?
    { 
    
      if (children) type["members"]=children;
    
      return type; }
      

MEMBERHEAD = c:[a-zA-Z]+ " "* t:(":" t:MEMBERTYPE{return t})? {return {name:c.join(""),type:t==""?"string":t}}
 
MEMBERTYPE = type:('key'/'number'/'string') {return type;}

MEMBER
  = SAMEDENT memberHead:(!EOL memberhead:MEMBERHEAD {return memberhead}) EOL* 
    children:( INDENT c:DETAIL* DEDENT { return c; })?
    { 
    
    if (children) memberHead["details"] = children; 
    
    return memberHead }

DETAILHEAD = c:[a-zA-Z ]* t:(":" t:DETAILTYPE{return t})? {return {name:c.join(""),type:t}}
 
DETAILTYPE = type:('label'/'err') {return type;}

DETAIL
  = SAMEDENT detailHead:(!EOL detailHead:DETAILHEAD {return detailHead}) EOL?     
  {return detailHead}

EOL
  = "\r\n" / "\n" / "\r" 

SAMEDENT
  = i:[ \t|" "]* &{ return i.join("") === indent; }

INDENT
  = i:[ \t|" "]+ &{ return i.length > indent.length; }
    { 
    
      indentStack.push(indent); 
      indent = i.join(""); 
      pos = offset; 
    
    }

DEDENT
  = { indent = indentStack.pop(); }

Types.txt

Some.NameSpace
  Project
    Id:key
    Name    
     Write project name :label
     You need to state the project name:err
    Address       
  Person
    Id:key
    Name
Other.Namespace
  Vehicle
    Id:key
    Name

http://peg.arcanis.fr/1PvOax/17/