Data update

Task/Constrained-genericity/FreeBASIC/constrained-genericity.basic

@@ -0,0 +1,63 @@
+Type physical As Double
+
+Enum food
+    oyster = 1
+    trout
+    bloater
+    chocolate
+    truffles
+    cheesecake
+    cream
+    pudding
+    pie
+End Enum
+
+Type ActualFood
+    nombre As Integer
+    size As physical
+    quantity As physical
+End Type
+
+Type foodbox
+    Item(100) As ActualFood
+    max As Integer
+End Type
+
+Sub put_(Byref fb As foodbox, Byval f As Integer, Byval s As physical, Byval q As physical)
+    fb.max += 1
+    fb.Item(fb.max).nombre = f
+    fb.Item(fb.max).size = s
+    fb.Item(fb.max).quantity = q
+End Sub
+
+Sub GetNext(Byref fb As foodbox, Byref Stuff As ActualFood)
+    If fb.max > 0 Then
+        Stuff = fb.Item(fb.max)
+        fb.max -= 1
+    End If
+End Sub
+
+Type Gourmand
+    WeightGain As physical
+    SleepTime As physical
+End Type
+
+Sub eats(Byref g As Gourmand, Byref stuff As ActualFood)
+    g.WeightGain += stuff.size * stuff.quantity * 0.75
+    stuff.size = 0
+    stuff.quantity = 0
+End Sub
+
+' Test
+Dim As foodbox Hamper
+Dim As Gourmand MrG
+Dim As ActualFood Course
+
+put_(Hamper, food.pudding, 3, 7)
+put_(Hamper, food.pie, 7, 3)
+GetNext(Hamper, Course)
+eats(MrG, Course)
+
+Print MrG.WeightGain ' result 15.75
+
+Sleep