Nested function: Difference between revisions
Content added Content deleted
Line 1,075: | Line 1,075: | ||
Make_List1 ". " |
Make_List1 ". " |
||
Module Make_List (Separator$) { |
|||
Def Counter as Integer |
|||
// Need New before Item_Name$, because the scope is the module scope |
|||
// the scope defined from the calling method. |
|||
// by default a function has a new namespace. |
|||
Function Make_Item(New Item_Name$){ |
|||
Counter++ |
|||
Print Str$(Counter,"")+Separator$+Item_Name$ |
|||
} |
|||
// Call Local place the module scope to function |
|||
// function called like a module |
|||
Call Local Make_Item("First") |
|||
Call Local Make_Item("Second") |
|||
Call Local Make_Item("Third") |
|||
Print "Counter=";Counter // 3 |
|||
} |
|||
Make_List ". " |
|||
Module Make_List (Separator$) { |
|||
Def Counter |
|||
// using Module not Function. |
|||
Module Make_Item(New Item_Name$){ |
|||
Counter++ |
|||
Print Str$(Counter,"")+Separator$+Item_Name$ |
|||
} |
|||
Call Local Make_Item,"First" |
|||
Call Local Make_Item,"Second" |
|||
Call Local Make_Item,"Third" |
|||
Print "Counter=";Counter // 3 |
|||
} |
|||
Make_List ". " |
|||
</syntaxhighlight> |
</syntaxhighlight> |
||