Strange behaviour of userlib (TailBite 1.2 Beta 2.3)
Posted: Wed Mar 02, 2005 1:59 am
In test 8. & test 13. the userlib procedure ulfunction_2() returns the untouched input when i use MyUserlib.pb as userlib instead of IncludeFile.
Is this my fault? - is is TaliBite? - or a PB Bug?
Please help!
MyUserlib.pb as IncludeFile:

MyUserlib.pb as UserLib:

TestMyUserlib.pb:
MyUserlib.pb:
BTW: TBManager 1.2 Beta 2.3 Console still does not save "LastFile" in "TailBite.prefs".
WinNT4SP6 - PB3.92/3.93 - jaBPe 2.5.2.24
sverson
Please help!
MyUserlib.pb as IncludeFile:

MyUserlib.pb as UserLib:

TestMyUserlib.pb:
Code: Select all
;IncludeFile "MyUserlib.pb"
TestString1$ = ulfunction_1()
TestString2$ = "blabla..."
TestNum1 = 5
If OpenConsole()
ConsoleTitle("Test: "+Chr(34)+"MyUserlib"+Chr(34))
PrintN( " 1. " + TestString1$)
PrintN( " 2. " + TestString2$)
PrintN( " 3. " + ulfunction_1())
PrintN( " 4. " + ulfunction_2(TestString1$))
PrintN( " 5. " + ulfunction_2(TestString2$))
PrintN( " 6. " + ulfunction_2(ulfunction_1()))
PrintN( " 7. " + ulfunction_2("Test"))
PrintN( " 8. " + ulfunction_2("Test "+RSet(Str(TestNum1),2,"0")))
PrintN( " 9. " + ulfunction_1() + " / " + ulfunction_1())
PrintN( "10. " + ulfunction_1() + " / " + ulfunction_2("Test 1"))
PrintN( "11. " + ulfunction_2("Test 2") + " / " + ulfunction_1())
PrintN( "12. " + ulfunction_2("Test 3") + " / " + ulfunction_2("Test 4"))
PrintN( "13. " + ulfunction_2("Test "+RSet(Str(TestNum1),2,"0"))+ " / " + ulfunction_2("Test "+RSet(Str(TestNum1+1),2,"0")))
PrintN("")
PrintN("Return -> Quit")
Input()
CloseConsole()
EndIf
End Code: Select all
ProcedureDLL.s ulfunction_1()
Protected RetStr1$
RetStr$ = "result funktion_1"
ProcedureReturn RetStr$
EndProcedure
ProcedureDLL.s ulfunction_2(InStr$)
Protected RetStr2$
RetStr2$ = "something"
; do some more
RetStr2$ + " added to " + InStr$
ProcedureReturn RetStr2$
EndProcedureWinNT4SP6 - PB3.92/3.93 - jaBPe 2.5.2.24
