xxxxxxxxxx
Class ClassName
Func operator cOperator,Para
xxxxxxxxxx
o1 = new point { x = 10 y = 10 print("P1 : ") }
o2 = new point { x = 20 y = 40 print("P2 : ") }
o3 = o1 + o2
o3.print("P1+P2 : ")
class point x y
func operator cOperator,Para
result = new point
switch cOperator
on "+"
result.x = x + Para.x
result.y = y + Para.y
on "-"
result.x = x - Para.x
result.y = y - Para.y
off
return result
func print cPoint
see cPoint + "X : " + x + " Y : " + y + nl
xxxxxxxxxx
Func operator cOperator,Para
result = new list
switch cOperator
on "+"
if isobject(para)
for t in Para.vValue
vValue + t
next
but islist(para)
for t in Para
vValue + t
next
ok
on "len"
return len( vValue )
on "[]"
return &vValue[para]
off
return result
xxxxxxxxxx
func main
See "----1"+nl
a1 = new BigNumber( "123" )
a2 = new BigNumber( "456" )
a3 = new BigNumber( "789" )
See nl+"----2"+nl
a1.print()
a2.print()
a3.print()
See nl+"----3"+nl
a2 = a1 + "45"
See nl+"----4"+nl
a2.print()
See nl+"----5"+nl
a3 = a1 + a2
See nl+"----6"+nl
a3.print()
See nl+"----7"+nl
###==================================
Func FuncAdd( num1, num2)
Sum = 0 + num1 + num2 ### Para.aData isNumber
Sum = "" +Sum ### Para.adata isString
return Sum ### return to Class
###===================================
class BigNumber
### Variables
aData = "468"
### Functions INIT default values
func init aPara
? "INIT aPara: " ? aPara
if isString(aPara)
aData = aPara
else
aData = "" + aPara
ok
### Other Functions
func operator cOperator, Para
whatType = Type(Para)
? nl+"WhatType-PARA: "+ whatType ? Para
? nl+"Operator: " ? cOperator ? nl+"PARA: " ? Para ? " ______" ? nl
if whatType = "STRING"
dataInfo = Para
? "dataInfo String: " ? dataInfo
but whatType = "NUMBER"
datinfo = "" + Para
? "dataInfo Number: " ? dataInfo
else whatType = "OBJECT"
dataInfo = "" + para.aData
? "dataInfo OBJECT: " ? dataInfo
ok
? "dataInfo USING: " ? dataInfo
### Para.aData does NOT exist on first pass ( Object with member)
### Result isObject when assigned "self"
result = self
switch cOperator
on "+"
answer = FuncAdd( aData, dataInfo )
? nl+"AnswerString - FunAdd aData, dataInfo: " ? answer
### result = self, is Object, populate Object with aData member
result.aData = answer
off
### Result = Self is Object
return result
func print
? nl+"ClassPrint aData: " ? aData