langs a-z

Task/Compound-data-type/NetRexx/compound-data-type.netrexx

@@ -0,0 +1,22 @@
+/* NetRexx */
+options replace format comments java crossref symbols nobinary
+
+class RCompoundDataType
+  method main(args = String[]) public static
+    pp = Point(2, 4)
+    say pp
+    return
+
+class RCompoundDataType.Point -- inner class "Point"
+  properties indirect -- have NetRexx create getters & setters
+    x = Integer
+    y = Integer
+
+  method Point(x_ = 0, y_ = 0) public -- providing default values for x_ & y_ lets NetRexx generate intermediate constructors Point() & Point(x_)
+    this.x = Integer(x_)
+    this.y = Integer(y_)
+    return
+
+  method toString() public returns String
+    res = 'X='getX()',Y='getY()
+    return res