ngeninst.ebs

信息管理软件,描述信息的采集,分析等,信息管理软件,描述信息的采集,分析等

'==============================================================================
'Install NGen properties
'==============================================================================
' History
' 2001/07/18 | Vladislav Dutov | Properties were added:
'            |                 | - Class
'            |                 |   - "ngen.imports"
' 2001/06/29 | Vladislav Dutov | Properties were added:
'            |                 | - Attribute
'            |                 |   - "ngen.transient"
'            |                 |   - "ngen.abstract"
'            |                 |   - "ngen.synchronized"
'            |                 | - Operation
'            |                 |   - "ngen.abstract"
'            |                 |   - "ngen.synchronized"
'            |                 |   - "ngen.native"
'            |                 |   - "ngen.strictfp"
'==============================================================================

Function addCategory(p_category As Category, p_categoryName as String) As Category
  i% = p_category.Categories.FindFirst(p_categoryName)
  if i%>0 then
    Set addCategory = p_category.Categories.GetAt(i%)
  else
    Set addCategory = p_category.AddCategory(p_categoryName)
  end if
End Function

Function addClass(p_category As Category, p_className as String) As Class
  i% = p_category.Classes.FindFirst(p_className)
  if i%>0 then
    Set addClass = p_category.Classes.GetAt(i%)
  else
    Set addClass = p_category.AddClass(p_className)
  end if
End Function

Function addClassPrimitive(p_category As Category, p_className as String) As Class
  Dim clsCur As Class
  Dim bRet As Boolean

  Set clsCur = addClass(p_category, p_className)
  clsCur.Stereotype = "primitive"

  bRet = clsCur.OverrideProperty ("ngen", "ngen.generate", "FALSE")

  Set addClassPrimitive = clsCur
End Function

Function addClassSimple(p_category As Category, p_className as String) As Class
  Dim clsCur As Class
  Dim bRet As Boolean

  Set clsCur = addClass(p_category, p_className)
  clsCur.Stereotype = ""

  bRet = clsCur.OverrideProperty("ngen", "ngen.generate", "FALSE")

  Set addClassSimple = clsCur
End Function

Sub Main

  Dim theModel As Model
  Dim b As Boolean
  Dim DefaultProps As DefaultModelProperties
  
  Dim catCur As Category
  Dim clsCur As Class

  Dim bRet As Boolean
  
  Viewport.Open "NGen Instalation Log"
  Viewport.Clear
  
  Print "[Started property installation]"
  
  Set DefaultProps = RoseApp.currentModel.DefaultProperties
  
  b = DefaultProps.AddDefaultProperty ("Category",  "ngen", "default", "ngen.generate", "Boolean", "True")
  b = DefaultProps.AddDefaultProperty ("Category",  "ngen", "default", "ngen.defaultPackage", "Boolean", "False")
  b = DefaultProps.AddDefaultProperty ("Category",  "ngen", "default", "ngen.package", "String", "")

  b = DefaultProps.AddDefaultProperty ("Class",     "ngen", "default", "ngen.generate", "Boolean", "True")
  b = DefaultProps.AddDefaultProperty ("Class",     "ngen", "default", "ngen.final", "Boolean", "False")
  b = DefaultProps.AddDefaultProperty ("Class",     "ngen", "default", "ngen.imports", "String", "")


  b = DefaultProps.AddDefaultProperty ("Attribute", "ngen", "default", "ngen.wrappers", "Boolean", "True")
  b = DefaultProps.AddDefaultProperty ("Attribute", "ngen", "default", "ngen.final", "Boolean", "False")
  b = DefaultProps.AddDefaultProperty ("Attribute", "ngen", "default", "ngen.transient", "Boolean", "False")
  b = DefaultProps.AddDefaultProperty ("Attribute", "ngen", "default", "ngen.abstract", "Boolean", "False")
  b = DefaultProps.AddDefaultProperty ("Attribute", "ngen", "default", "ngen.synchronized", "Boolean", "False")

  b = DefaultProps.AddDefaultProperty ("Operation", "ngen", "default", "ngen.static", "Boolean", "False")
  b = DefaultProps.AddDefaultProperty ("Operation", "ngen", "default", "ngen.final", "Boolean", "False")
  b = DefaultProps.AddDefaultProperty ("Operation", "ngen", "default", "ngen.abstract", "Boolean", "False")
  b = DefaultProps.AddDefaultProperty ("Operation", "ngen", "default", "ngen.synchronized", "Boolean", "False")
  b = DefaultProps.AddDefaultProperty ("Operation", "ngen", "default", "ngen.native", "Boolean", "False")
  b = DefaultProps.AddDefaultProperty ("Operation", "ngen", "default", "ngen.strictfp", "Boolean", "False")

  
  Print "[Finished property installation]"
  
  Print "[Started packages/classes installation]"
  
  Set catCur = addCategory(RoseApp.currentModel.RootCategory, "java")
  bRet = catCur.OverrideProperty("ngen", "ngen.generate", "False")
  Set catCur = addCategory(catCur, "lang")
  bRet = catCur.OverrideProperty("ngen", "ngen.generate", "False")
  bRet = catCur.OverrideProperty("ngen", "ngen.defaultPackage", "True")

  Set clsCur = addClassPrimitive (catCur, "int")
  Set clsCur = addClassPrimitive (catCur, "boolean")
  Set clsCur = addClassPrimitive (catCur, "float")
  Set clsCur = addClassPrimitive (catCur, "double")
  Set clsCur = addClassPrimitive (catCur, "char")
  Set clsCur = addClassPrimitive (catCur, "byte")
  Set clsCur = addClassPrimitive (catCur, "short")
  Set clsCur = addClassPrimitive (catCur, "long")

  Set clsCur = addClassSimple (catCur, "String")

  Set clsCur = addClassPrimitive (catCur, "array")
  clsCur.ClassKind.Value = 1

  Print "[Finished packages/classes installation]"
	
End Sub