>> ? save
USAGE:
    SAVE where value /header header-data /bmp /png /all

DESCRIPTION:
     Saves a value or a block to a file or url.
     SAVE is a native value.

ARGUMENTS:
     where -- Where to save it. (Type: file url binary)
     value -- Value to save. (Type: any)

REFINEMENTS:
     /header -- Save it with a header
         header-data -- Header block or object (Type: block object)
     /bmp -- Save in .BMP format
     /png -- Save in .PNG format
     /all -- Save in serialized format

task: make object! [
  save*: get in system/words 'save
  list: copy []
  add: funct [t [block!]] [
    append list t
  ]
  save: does [
    save*/all %task1.r self
  ]
  run: does [
    do list
  ]  
]

task1: make task []
task1/add [a: 0 a: a + 1]
task1/add [print a]
task1/save
task1/run

REBOL [
]

task: make object! [
  save*: get in system/words 'save
  task-file: copy ""
  list: copy []
  add: funct [t [block!]] [
    append list t
  ]
  save: does [
    save*/all task-file self
  ]
  run: does [
    do list
  ]
]

create-task: funct [_task _task-list [block!]] [
  t: make task [task-file: to-file join mold/only _task ".r"]
  if not none? _task-list [t/add _task-list]
  t/save
  set _task t
]

REBOL [
]
do %task.r
create-task [task1] [print "Task1" b: 1 b: b + 1 print b]
create-task [task2] [print "Task2" c: 2 print c]
task3: load read %task2.r
task3/run
halt

** Script Error: list has no value
** Where: run
** Near: do list
>>

>> ?? task1
task1: make object! [
    save*: native
    task-file: %task1.r
    list: [print "Task1" b: 1 b: b + 1 print b]
    add: func [t [block!]][
        append list t
    ]
    save: func [][
        save*/all task-file self
    ]
    run: func [][
        do list
    ]
]
>> ?? task2
task2: make object! [
    save*: native
    task-file: %task2.r
    list: [print "Task2" c: 2 print c]
    add: func [t [block!]][
        append list t
    ]
    save: func [][
        save*/all task-file self
    ]
    run: func [][
        do list
    ]
]
>> ?? task3
task3: make object! [
    save*: 'native
    task-file: %task2.r
    list: [print "Task2" c: 2 print c]
    add: func [t [block!]][
        append list t
    ]
    save: func [][
        save*/all task-file self
    ]
    run: func [][
        do list
    ]
]
>> task3/list
== [print "Task2" c: 2 print c]
>> do task3/list
Task2
2

load-task: funct [_task-file] [
...
]

Rebol []

make-obj: func [
	"Créé un objet en sauvant son nom dedans."
	'name "Nom de l'objet à créer."
	obj "Objet de base à instancier."
	spec "extension de l'objet de base."
] [
	set name make obj append reduce [to-set-word 'obj-name to-string name] spec
]


save-obj: func [
	"Sauvegarde un objet selon son propre nom."
	'obj "Objet à sauvegarder."
	/local name
] [
	name: any [all [word? obj  object? get obj  get in get obj 'obj-name] join "objet" random 10000]
	save to-file join name ".r" get obj
]

load-obj: func [
	"Recharge un objet et l'intanci selon son propre nom s'il en a un."
	file "Nom du fichier à charger."
	/bindto "Spécifier le contexte où binder la liste de l'objet chargé."
	ctx "Nom de l'objet (contexte) ou binder la liste de l'objet chargé."
	/local obj
] [
	if exists? file [
		obj: do load file
		if all [in obj 'obj-name  set to-word get in obj 'obj-name obj] [
			if all [bindto  object! ctx] [bind obj/list ctx]
		]
	]
	obj
]

task: make object! [
  list: copy []
  add: funct [
  	"Ajoute à la liste."
  	t [block!] "Elément ou code à ajouter la liste."
  	/bindto "Spécifier le contexte où binder la liste de l'objet créé."
	ctx "Nom de l'objet (contexte) ou binder la liste de l'objet créé."
  ] [
    append list t
	if all [bindto  object! ctx] [bind list ctx]
	list
  ]
  save: does [
    save-obj self
  ]
  run: does [
    do list
  ]  
]

; exemple de base
make-obj task1 task []
task1/add [a: 0 a: a + 1]
task1/add [print a]
task1/run

task1/save
task1: none

load-obj %task1.r
task1/run


; exemple avec binding au chargement
toto: context [
	b: 10
]

make-obj task2 task []
task2/add/bindto [b: b + 1 print b] toto
task2/run

task2/save
task2: none

load-obj/bindto %task2.r toto
task2/run
halt