Little Class Preprocessor Released

[Leonhard]

- gives it to also modifier later?

Suppose english is not your native language.
Sorry, don't know what you mean with this one.

With ' modifier' my I application of Public, Private, Protected, Internal,.... and so on.

I found this is a good syntax:

Code: Select all

;{ CBasic
Class Abstract CBasic ; the class cannot using with 'NewObject'
  Public
    Method CBasic()
      *this\String = ?CBasic::MySection
    EndMethod
    Method ~CBasic()
      ; call by free the class
    EndMethod
    
    *String.s{255} ;/ public-variablen
  Private
    Method.l Method1()
      MethodReturn *this\InternMethod()
    EndMethod
  Protected ; only using in this class
    Method.l InternMethod()
      ProcedureReturn @CBasic::InternMethod()
    EndMethod
  Global ; this modifier is for all objects
    DataSection MySection
      Data.s "MyString"
    EndDataSection
EndClass

Procedure CBasic::CBasic()
  *this\String = ?CBasic::MySection
EndProcedure
;}

;{ CBasic2
Class CBasic2
  Public
    Fixed Public lValue.l ; can´t change this variable at the 'Public'-even
EndClass
;}

;{ CClass
Class Sealed CClass Extends Public CBasic, Private CBasic2
  Public
    Method CClass(lParameter.l)
      Debug "create class with parameter"
    EndMethod
  Public
    Method GetValue.l()
      MethodReturn *this\lValue ; return an extends variable
    EndMethod
EndClass
;}

Define NewObject *obj.CClass(104)

*obj\String = "Hallo"

Debug *obj\Method1()

FreeObject *obj

And the benefit is?

Ther Code is an example for th Syntax and Parser-functions by my precompiler (is not public).