Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] rebol weak points (i think) Re:(3)

From: fsievert:uos at: 10-Sep-2000 9:16

On Sat, 9 Sep 2000 [rishi--picostar--com] wrote:
> make-circle: make func [ > radius > /local blah-blah-blah > /static num_circles ;let's say this is how you create static var. > ] [ > num_circles: num_circles + 1 ;this may not be correct but you get the > idea... > return make object! [ > ;object code goes here > ] > ] >
You can use this: make-circle: func [radius /local num_circles] [ num_circles: [0] num_circles/1: num_circles/1 + 1 return make object! [ num: num_circles rad: radius ] ]
>> probe make-circle 99
make object! [ num: [1] rad: 99 ]
>> probe make-circle 88
make object! [ num: [2] rad: 88 ] or this: circle-maker: make object! [ num-circles: 0 set 'make-circle func [radius] [ num-circles: num-circles + 1 return make object! [ num: num-circles rad: radius ] ] ]
>> circle-maker/num-circles
== 0
>> probe make-circle 5
make object! [ num: 1 rad: 5 ]
>> probe make-circle 3
make object! [ num: 2 rad: 3 ]
>> circle-maker/num-circles
== 2 CU, Frank