' StructParamTest.bas - Test passing structure array elements to subroutines
' Tests fix for: "Array dimensions" error when passing struct array element to sub
'
' Bug scenario:
'   Dim people(2) As TPerson
'   TPerson.Print people(1)  ' <- This caused "Array dimensions" error inside sub
'
' The fix ensures that when passing a single array element (like people(1)),
' the parameter is treated as a single struct, not as an array.

Option Base 1
Option Explicit

Type TPerson
 phone As integer
 surname As string Length 8
 name As string Length 7
 padding As string Length 2
End Type

Dim people(2) As TPerson = (1234,"Mather","Peter","", 5678,"Graham","Geoff","")
Dim pt As TPerson
Dim test_pass As INTEGER = 0
Dim test_fail As INTEGER = 0

Print "================================================"
Print "Structure Array Element Parameter Test Suite"
Print "================================================"
Print

' TEST 1: Pass single struct variable to sub
Print "TEST 1: Pass single struct to sub"
pt = people(1)
TPerson.Print pt
Print "  (If no error, PASS)"
test_pass = test_pass + 1
Print

' TEST 2: Pass array element to sub (THE BUG FIX TEST)
Print "TEST 2: Pass array element people(1) to sub"
TPerson.Print people(1)
Print "  (If no 'Array dimensions' error, PASS)"
test_pass = test_pass + 1
Print

' TEST 3: Pass second array element
Print "TEST 3: Pass array element people(2) to sub"
TPerson.Print people(2)
Print "  PASS"
test_pass = test_pass + 1
Print

' TEST 4: Modify through sub parameter
Print "TEST 4: Modify struct through sub parameter"
Dim before_phone%
before_phone% = people(1).phone
TPerson.Modify people(1), 9999
If people(1).phone = 9999 Then
 Print "  PASS: phone changed from "; before_phone%; " to "; people(1).phone
 test_pass = test_pass + 1
Else
 Print "  FAIL: phone still "; people(1).phone
 test_fail = test_fail + 1
EndIf
people(1).phone = before_phone%  ' Restore
Print

' TEST 5: Pass whole array to sub expecting array
Print "TEST 5: Pass whole array people() to sub"
TPerson.PrintAll people()
Print "  PASS"
test_pass = test_pass + 1
Print

' TEST 6: Copy inside sub (was working but verify)
Print "TEST 6: Copy struct inside sub"
TPerson.CopyTest people(1)
Print "  PASS"
test_pass = test_pass + 1
Print

' TEST 7: Local struct assigned from parameter
Print "TEST 7: Local struct assigned from parameter"
TPerson.LocalCopy people(2)
Print "  PASS"
test_pass = test_pass + 1
Print

Print "================================================"
Print "TEST SUMMARY"
Print "================================================"
Print "Passed: "; test_pass
Print "Failed: "; test_fail
Print
If test_fail = 0 Then
 Print "*** ALL TESTS PASSED ***"
Else
 Print "*** SOME TESTS FAILED ***"
EndIf
End

' Sub that expects a single struct (not an array)
Sub TPerson.Print(me As TPerson)
 Print "  In TPerson.Print - me.name: "; me.name
 Struct Print me
 Local p As TPerson
 p = me
 Struct Print p
End Sub

' Sub that modifies a struct parameter
Sub TPerson.Modify(me As TPerson, newPhone%)
 me.phone = newPhone%
End Sub

' Sub that expects an array of structs
Sub TPerson.PrintAll(arr() As TPerson)
 Local i%
 Print "  Printing all "; Bound(arr()); " elements:"
 For i% = 1 To Bound(arr())
   Print "    ["; i%; "] "; arr(i%).name; " "; arr(i%).surname
 Next i%
End Sub

' Sub that does STRUCT PRINT on parameter
Sub TPerson.CopyTest(me As TPerson)
 Print "  Testing STRUCT PRINT me inside sub:"
 Struct Print me
End Sub

' Sub that assigns parameter to local
Sub TPerson.LocalCopy(me As TPerson)
 Local localCopy As TPerson
 localCopy = me
 Print "  Copied to local: "; localCopy.name; " "; localCopy.surname
 Struct Print localCopy
End Sub

 
FUNCTION thisreading(p AS INTEGER) AS room
 ' p = pin number for DHT22
 LOCAL FLOAT tmpr, hmid
 STATIC n
 IF demo_mode THEN
   IF n = 0 THEN RESTORE dummydata
   n = (n+1) MOD 144
   READ  tmpr ,hmid
 ELSE
   DEVICE HUMID p, tmpr ,hmid
 ENDIF
 thisreading.t = tmpr
 thisreading.h = hmid
END FUNCTION

typeName$ = Struct(TYPEOF typeVarInstance$)

typeName$ = Struct(TYPEOF typeVarInstance)

'
OPTION EXPLICIT
OPTION DEFAULT INTEGER
OPTION BASE 0

DIM flist$(100) LENGTH 63

getflist "b:","aaa",flist$(),1
END
'============================
SUB GetFList(Disk$,Folder$,FList$(),SIDE)
LOCAL INTEGER RQt,DQt,FQt,i,FS
'Drive Disk$: Chdir Folder$
FList$(RQt)=".."
'TMP$=Dir$("*",DIR)
END SUB

 OPTION EXPLICIT
 OPTION DEFAULT INTEGER
 OPTION BASE 0
 
TYPE room
 t AS FLOAT
 h AS FLOAT
END TYPE
 
 DIM readings(144) AS room
 'dim n
 readings(144)=thisreading()
 struct PRINT readings(144)
 
FUNCTION thisreading() AS room
 LOCAL FLOAT tmpr, hmid
 STATIC n
 
 thisreading.t = 20 'tmpr
 thisreading.h = 40 'hmid
END FUNCTION

Option Base 0
Option explicit
Option Default Integer

Type TTest
 a As Integer
 b As Integer
End Type

Sub MyTest p
 Print p
End Sub

Dim test As TTest
test.a = 123

MyTest test.a
End