Differences

This shows you the differences between two versions of the page.

--- sharing_20private_20variables [2018/03/31 13:19] – external edit 127.0.0.1
+++ sharing_20private_20variables [2024/01/05 00:21] (current) – external edit 127.0.0.1
@@ Line 4: / Line 4: @@
 ===== Method one =====
 \\  This method relies on providing a common //entry point// for the procedures and functions, so that the **PRIVATE** statement may be placed there, as follows:\\ \\
+<code bb4w>
         DEF PROCone(parameters) : LOCAL type% : type% = 1
         DEF PROCtwo(parameters) : LOCAL type% : type% = 2
@@ Line 14: / Line 15: @@
         ENDCASE
         ENDPROC
+</code>
 This method can be expanded to as many procedures and functions as are required to share the PRIVATE data. It is even possible to share the data between a procedure and a function, so long as the **ENDPROC** or **=** statement is placed within the appropriate **WHEN** clause:\\ \\
+<code bb4w>
         DEF PROCone(parameters) : LOCAL type% : type% = 1
         DEF FNtwo(parameters) : LOCAL type% : type% = 2
@@ Line 27: / Line 30: @@
         ENDCASE
         REM. Execution should never reach here.
+</code>
 \\
 ===== Method two =====
 \\  This method relies on creating a **structure** to hold the private data, as follows:\\ \\
-        DEF PROCone(parameters)
+<code bb4w>
-        PRIVATE ps{}
+      DEF PROCone(parameters)
-        PROCprivate(ps{})
+      PRIVATE ps{}
-        REM. Code for PROCone goes here.
+      PROCprivate(ps{})
-        REM. Private variables are ps.alpha, ps.beta%, ps.gamma$
+      REM. Code for PROCone goes here.
-        ENDPROC
+      REM. Private variables are ps.alpha, ps.beta%, ps.gamma$
+      ENDPROC
-        DEF FNtwo(parameters)
+      DEF FNtwo(parameters)
-        PRIVATE ps{}
+      PRIVATE ps{}
-        PROCprivate(ps{})
+      PROCprivate(ps{})
-        REM. Code for FNtwo goes here.
+      REM. Code for FNtwo goes here.
-        REM. Private variables are ps.alpha, ps.beta%, ps.gamma$
+      REM. Private variables are ps.alpha, ps.beta%, ps.gamma$
-        = returnvalue
+      = returnvalue
-        DEF PROCprivate(RETURN t{})
+      DEF PROCprivate(RETURN t{})
-        PRIVATE p{}
+      PRIVATE p{}
-        DIM p{alpha, beta%, gamma$}
+      DIM p{alpha, beta%, gamma$}
-        !(^t{}+0) = !(^p{}+0)
+      DIM t{} = p{}
-        !(^t{}+4) = !(^p{}+4)
+      PTR (t{}) = PTR(p{})
-        ENDPROC
+      ENDPROC
+</code>
 The **PROCprivate** procedure sets the supplied structure parameter to point to the private structure declared therein, allowing any routine which calls this procedure to access the private data.\\ \\  You can use the same technique to share PRIVATE arrays:\\ \\
+<code bb4w>
         DEF PROCone(parameters)
         PRIVATE array()
@@ Line 66: / Line 73: @@
         PRIVATE array()
         DIM array(100)
-        !^a() = !^array()
+        PROCsetarrayptr(a(), FNgetarrayptr(array()))
         ENDPROC
+        DEF FNgetarrayptr(RETURN a%%) = a%%
+        DEF PROCsetarrayptr(RETURN a%%, p%%) : a%% = p%% : ENDPROC
+</code>