New post
Discussion (6)0
Log in or sign up to continue
Herman Slagman · Jul 11, 2017 
Do ##class(%Dictionary.ClassDefinition).%DeleteId("Test.Class")
Set ClassDef=##class(%Dictionary.ClassDefinition).%New()
Set ClassDef.Name="Test.Class"
Set ClassDef.Super="%Persistent"
Set ClassDef.ProcedureBlock=1
Set MethDef=##class(%Dictionary.MethodDefinition).%New()
Set MethDef.Name="Name"
Set MethDef.ReturnType="%String"
; Uncomment for ClassMethod
; Set MethDef.ClassMethod=1
Set MethDef.FormalSpec="First:%Boolean,Second:%String=""Default"""
Do MethDef.Implementation.WriteLine($Char(9)_"If First Return 1")
Do MethDef.Implementation.WriteLine($Char(9)_"Return Second")
Set MethDef.parent=ClassDef
Do ClassDef.Methods.Insert(MethDef)
Do ClassDef.%Save()
1 0
Vitaliy Serdtsev · Jul 11, 2017 
#include %systemInclude
#include %occErrors
#include %occCPTJSgen
CreateClass() public {
  
  #dim ex As %Exception.AbstractException
  try {
    $$$AddAllRoleTemporaryInTry
    new $namespace
    
    s className="demo.test"
    
    d:##class(%Dictionary.ClassDefinition).%ExistsId(className) ##class(%Dictionary.ClassDefinition).%DeleteId(className)
    
    s newClass=##class(%Dictionary.ClassDefinition).%New()
    s newClass.Name=className
    s newClass.ProcedureBlock=$$$YES
    s newClass.Super="%RegisteredObject"

    s newProp=##class(%Dictionary.PropertyDefinition).%New()
    s newProp.parent=newClass
    s newProp.Name="p1"
    s newProp.Type="%String"
    
    s newMethod=##class(%Dictionary.MethodDefinition).%New()
    s newMethod.parent=newClass
    s newMethod.Name="Main"
    s newMethod.ReturnType="%Status"
    s newMethod.FormalSpec=$$$FormatText("a:%String=%1",$$$quote("Hello, World!"))
    d newMethod.Implementation.WriteLine($$$TAB_"w a,!")
    d newMethod.Implementation.WriteLine($$$TAB_"q $$$OK")
    
    $$$ThrowOnError(newClass.%Save())

    d $system.OBJ.Compile(className,"cu/multicompile=1")
     
    
  }catch(ex) {
    w "Error ", ex.DisplayString(),!
  }
}

Result:

Class demo.test Extends %RegisteredObject [ ProcedureBlock ]
{

Property p1 As %String;

Method Main(a As %String = "Hello, World!") As %Status
{
 w a,!
 q $$$OK
}

}
2 0