Changeset 4496 for trunk/examples

Timestamp:

10/10/08 10:01:30 (3 months ago)

Author:

pmoura

Message:

Improved performance of the object initialization and release predicates defined in the category "initialization" of the "roots" example.

Files:

• trunk/examples/roots/initialization.lgt (modified) (6 diffs)

trunk/examples/roots/initialization.lgt

@@ -3 +3 @@
 
     :- info([
-        version is 1.1,
+        version is 1.11,
         author is 'Paulo Moura',
-        date is 2008/10/9,
+        date is 2008/10/10,
         comment is 'Object initialization protocol.']).
-
-    :- uses(list, [select/3]).
 
     :- public(init/1).
@@ -100 +98 @@
          argnames is ['Options', 'Defaults', 'Result']]).
 
+    :- uses(list, [select/3]).
+
     init(Options) :-
         valid_init_options(Options),
@@ -111 +111 @@
     valid_init_options([]).
     valid_init_options([Option| Options]) :-
-        ::valid_init_option(Option),
+        ::valid_init_option(Option) ->
         valid_init_options(Options).
 
@@ -118 +118 @@
     process_init_options([]).
     process_init_options([Option| Options]) :-
-        once(::process_init_option(Option)),
+        ::process_init_option(Option) ->
         process_init_options(Options).
 
@@ -137 +137 @@
     valid_free_options([]).
     valid_free_options([Option| Options]) :-
-        ::valid_free_option(Option),
+        ::valid_free_option(Option) ->
         valid_free_options(Options).
 
@@ -144 +144 @@
     process_free_options([]).
     process_free_options([Option| Options]) :-
-        once(::process_free_option(Option)),
+        ::process_free_option(Option) ->
         process_free_options(Options).