compile order problem

[ji3m]

order problem

EXPORT TX=0;

//EXPORT TOTTER; //doesnt work
//EXPORT TOTTER(); //doesnt work

EXPORT TEETER()
BEGIN
IF TX>4 THEN
RETURN TX;
ELSE
TOTTER(); // <- error here
END;
END;



EXPORT TOTTER()
BEGIN
IF TX>4 THEN
TX:=TX+1;
RETURN TX;
ELSE
TEETER();
END;


Does anyone know how to make this compile?
Its not about recursion but about order of compilation and lack of declarations.
I have seversl "files" whick cross call routines and csnt conrol the order. of compilation.

Using two different files also fails since neither succeeds.

[DrD]

One way:

Code:


TOTTER();
LOCAL TX;

EXPORT TEETER()
BEGIN
  IF TX>4 THEN
    RETURN TX;
  ELSE
    TX:=TOTTER(); // <- 
  END;
  TEETER();
END;

TOTTER()
BEGIN
  TX:=TX+1;
END;

-Dale-

[xset]

The solution:

EXPORT TX=0;

TOTTER(); // forward declaration, no need for EXPORT here


EXPORT TEETER()
BEGIN
IF TX>4 THEN
RETURN TX;
ELSE
TOTTER(); // no error
END;
END;



EXPORT TOTTER()
BEGIN
IF TX>4 THEN
TX:=TX+1;
RETURN TX;
ELSE
TEETER();
END; // u forgot second END here ???
END;

[ji3m]

Thanx to both.

Didnt try the bare decl.

If they are in different files will export work.?