Recursion level in Date.au3 (1607)

[kmeleon]

Hello

I my script is problem with recursion in Date.au3

C:\Program Files (x86)\AutoIt3\Include\Date.au3 (1607) : ==> Recursion level has been exceeded - AutoIt will quit to prevent stack overflow.:

If _DateIsLeapYear($iYear) Then $aiDays[2] = 29

->13:01:28 AutoIT3.exe ended.rc:1

How fix this problem ?

thx

[guinness]

What does your Script look like because I have never had this happen before. I would also suggest having a looking at Recursion in the wiki by Melba23.

[Tvern]

As far as I can see Date.au3 is not using any recursion that could cause problems, however if your script is reaching the maximum recursion level any function called at that point will exceed the maximum recursion level.

As a test you could replace _DateIsLeapYear($iYear) in your script with something else. I suspect the error will occur regardless of what function is used.

I cannot reproduce the error with the information you have given.

_DateIsLeapYear() is not giving me any error for years 0000 to 9999, or even extrememly large, or negative values.

If you could post your entire script, or a script that demonstrates the problem it'd be easier to help.

Edit:

This reproduces the error you describe, but the problem is not with Date.au3, but with the recursion in my (and I guess your) script. _DateIsLeapYear() is just one call too many, after my script already reached the maximum recursion level.

#include <date.au3>
_Recurse()
Func _Recurse()
    _DaysInMonth(2011)
    _Recurse()
EndFunc

Edited May 11, 2011 by Tvern

[kmeleon]

#include <date.au3>
_Recurse()
Func _Recurse()
    _DaysInMonth(2011)
    _Recurse()
EndFunc

Thanks for this code.

I understand now this problem.

I add sleep(1) in my code and is OK

Thanks again

Edited May 11, 2011 by kmeleon

[Melba23]

kmeleon,

I understand now this problem

No you do not - because adding Sleep(1) to that code will not prevent the recursion.

You cannot call a function from within itself unless you have an escape condition. You do not and so the function will continue to recurse until you hit the limit.

Did you actually read the tutorial?

M23

[guinness]

I too am confused to how you mis-read Tverns post?! Like Melba23 said Sleep() is just prolonging the inevitable

[kmeleon]

OK. Knowing english by me is not very well.

Sometime I not understand everything.

But I have question?

Why this code work ?

#include <date.au3> 
_Recurse() 
Func _Recurse()     
_DaysInMonth(2011) 
sleep(1)   
 _Recurse() 
EndFunc

Edited May 11, 2011 by kmeleon

[ProgAndy]

This code does not work. It just requires more time until the maximum level is reached ( + ~10ms per call of _recures)

[Melba23]

kmeleon,

Why this code work ?

It does not.

- 1. Any Sleep value less that 10 is the same as Sleep(10) so you are pausing for 10ms each time.

- 2. You are still calling the function from within the same function with no escape condition. AutoIt will continue to recurse until it reaches the limit. For me that takes 3898 calls and the script fails at 42 secs (approx 3900 * 10 = 39000ms = 39secs).

Try running this to see what I mean - just let it run until it fails:

#include <date.au3>
$iCount = 0
_Recurse()
Func _Recurse()
    $iCount += 1
    ConsoleWrite($iCount & @CRLF)
    _DaysInMonth(2011)
    sleep(1)
    _Recurse()
EndFunc

Now do you understand? Please ask again if not

M23

[kmeleon]

OK. I have bad code. I admite.

You have right sleep(1) is wrong path.

Thank you and sorry for the fact that I was stubborn

[Melba23]

kmeleon,

No problem.

Do you now understand why you had a recursion problem and how to solve it?

M23

[kmeleon]

I have some ideas why my script had a recursion.

Tomorrow I will be search where is problem.

If I fix my script I can say "I understand" now I can say I know more

and I know what I must looking in my code.

thanks a lot

[Melba23]

kmeleon,

Tomorrow I will be search where is problem.

You know where we are if you need any help.

M23

[kmeleon]

I don't know how fix my problem with recursion.

My code is it something like that >>

local $i = 1

one()

Func one()
        two()
EndFunc

Func two()
        three()
EndFunc

Func three()
    while 1
        ;main loop
        ConsoleWrite("test" &$i &@CRLF)
        $i = $i + 1
        four()
    WEnd

EndFunc

func four()
    five()
EndFunc

Func five()
    one()
EndFunc

[Tvern]

You need to allow functions to return (a function will return when it reaches EndFunc, or a line with Return)

If function one calls function two, function one cannot return before function two does. If function two then calls function one (either directly, or through other functions) you create an stack of functions waiting to return. If the stack gets too big you get a the recursion error you posted.

Instead you can call function one and then call function two once function one returns. place the functions in a loop if you want to repeat.

Your example could be changed into something like this:

local $i = 1

While 1
    one()
    two()
    three()
WEnd

Func one()
        
EndFunc

Func two()
        EndFunc

Func three()
    while 1 
        ;main loop
        ConsoleWrite("test" & $i & @CRLF)
        $i += 1
        four()
        five()
        one()
    WEnd
EndFunc

func four()
    
EndFunc

Func five()
    
EndFunc

[kmeleon]

Thanks a lot

It was so easy.

Now is OK.

[Melba23]

kmeleon,

Now is OK.

Doskonałe.

Tvern,

Dankzij.

M23