Difference between revisions of "CLASS"

From Recital Documentation Wiki
Jump to: navigation, search
 
Line 1: Line 1:
{{YLM to do}}
 
 
 
==Purpose==
 
==Purpose==
 
Create a user-defined class
 
Create a user-defined class
Line 33: Line 31:
 
==Example==
 
==Example==
 
<code lang="recital">
 
<code lang="recital">
class NullData dynamic
+
class product
     property mCHARACTER
+
     public name
     property mNUMERIC
+
     public price
 +
    procedure init(cName, nPrice)    // constructor
 +
        name = cName
 +
        price = nPrice
 +
    endproc
 +
    procedure display()
 +
        echo "Product name is " + name + ", price is " + price + "\n"
 +
    endproc
 
endclass
 
endclass
  
oNULLDATA = new NullData()
+
class car of product
oNULLDATA.mCHARACTER = ""
+
    private color
oNULLDATA.mNUMERIC = 0
+
endclass
//Note: {} cannot be used to delimit a date here
+
oNULLDATA.mDATE = ctod("")
+
oNULLDATA.mLOGICAL = .f.
+
  
// Example of Constructor & Destructor
+
class motorbike as product
class OpenTable
+
     private size
     property cALIAS
+
endclass
    property nRECNUM
+
  
    method Constructor
+
class vehicle extends car, motorbike
        parameters cTABLENAME, cTAGNAME
+
    public manufacturer = "Ford"
        local cTMPALIAS
+
    public yearDesigned
        cTMPALIAS = basename(cTABLENAME)
+
    procedure init(cName, nPrice)   // constructor
        cTMPALIAS = iif(at('.',cTMPALIAS) = 0, cTMPALIAS, left(cTMPALIAS,at('.',cTMPALIAS) - 1))
+
         manufacturer = cName
        if select(cTMPALIAS) = 0
+
         name = cName
            use &(cTABLENAME + iif(empty(cTAGNAME), '', " order " + cTAGNAME)) in workarea()
+
         price = nPrice
        else
+
     endproc
            select select(cTABLENAME)
+
     procedure display()
            set order tag &cTAGNAME
+
        dodefault()
         endif
+
        echo "Manufacturer is " + manufacturer + ", price is " + price + "\n"
         this.cALIAS = alias()
+
     endproc
         this.nRECNUM = recno()
+
     return  && Constructor
+
 
+
     method Destructor
+
      close &(this.cALIAS)
+
     return  && Destructor
+
 
endclass
 
endclass
  
set exclusive off
+
// create new objects
oCOMPANY = new OpenTable("/usr/recital/unixdeveloper/demo/state.rdb", "state")
+
myobject = new vehicle("Ford", 20000)
? oCOMPANY.cALIAS
+
myobject.display()
? oCOMPANY.nRECNUM
+
 
+
// Example of dynamically adding properties using the ADDPROPERTY method
+
class Box
+
endclass
+
  
oDIALOG = new Box()
+
myobject = new motorbike("Honda", 1500)
oDIALOG.AddProperty("myprop", "hello world")  
+
myobject.display()
dialog box oDIALOG.myprop
+
release oDIALOG
+
 
</code>
 
</code>
  

Latest revision as of 11:33, 13 January 2010

Purpose

Create a user-defined class


Syntax

CLASS <class name> [OF | AS | EXTENDS <base class> [, ...]]

ENDCLASS


See Also

ACLASS(), ADDPROPERTY(), AMEMBERS(), CLASS - Methods, CLASS - Parameters, CLASS - Properties, CLASS - Scoping, COMPOBJ(), CREATEOBJECT(), DEFINE CLASS, DISPLAY CLASSES, DODEFAULT(), FOREACH, LIST CLASSES, LOADOBJECT(), METHOD, NEWOBJECT(), OBJECT(), PRINT_HTML(), PRINT_JSON(), PRINT_R(), PRINT_XML(), REMOVEPROPERTY(), REQUIRE_ONCE(), SAVEOBJECT(), SQL SELECT, WITH


Description

Fundamental to object-oriented programming is the concept of Objects and classes. An object is a self-contained unit of data and functions that manipulate that data. A class is a specification of an object. A class contains memory variable specifications known as properties and functions that perform actions on the object known as methods. An object is an instance of a class.

The NEW operator is used to define a new object based on a class. The class name must be postfixed with parentheses when the new operator is used. The syntax is therefore as follows:

<object> = NEW <class>()

e.g. myobject = new myclass()

The CLASS...ENDCLASS construct is used to create a user-defined class. The beginning of a class is specified with CLASS <class name>, where <class name> can be any valid name up to 32 characters. The ENDCLASS command is used to complete the class construct. The CLASS...ENDCLASS construct is built using the commands describe in this section. Any Recital command can be used in building methods in the class, however these commands cannot be used outside the method definition inside a CLASS...ENDCLASS construct.

OF | AS | EXTENDS <base-name> [, ...]

A key feature of the object-oriented code is reusability through a mechanism called inheritance, that is, one class can inherit the members and their implementation from another class. Building new classes out of existing classes allows for the reusing of proven classes and the incorporation of system classes into user defined classes. Inheritance enables developers to build a hierarchy of descending objects. The inheriting class is called a derived class, and the class from which the derived class inherits is called a base class. The OF | AS | EXTENDS clause is used to inherit the <base name>. You can inherit multiple classes by specifying a class name comma-separated list.


Example

class product
    public name
    public price
    procedure init(cName, nPrice)    // constructor
        name = cName
        price = nPrice
    endproc
    procedure display()
        echo "Product name is " + name + ", price is " + price + "\n"
    endproc
endclass
 
class car of product
    private color
endclass
 
class motorbike as product
    private size
endclass
 
class vehicle extends car, motorbike
    public manufacturer = "Ford"
    public yearDesigned
    procedure init(cName, nPrice)    // constructor
        manufacturer = cName
        name = cName
        price = nPrice
    endproc
    procedure display()
        dodefault()
        echo "Manufacturer is " + manufacturer + ", price is " + price + "\n"
    endproc
endclass
 
// create new objects
myobject = new vehicle("Ford", 20000)
myobject.display()
 
myobject = new motorbike("Honda", 1500)
myobject.display()

Products

Recital Server, Recital