'Procedure Probs' Thread RSS Feed

Procedure Probs

Thu, 16 Nov 2006 13:05:54 -0700

Well, I have a game I'm making (as I have said when I asked questions before) and I'm in a bit of a jiffy. To have a procedure work, it must have all other procedures it uses BEFORE it, however, I have a command line in my game, and it uses several procedures- but several procedures use it, aswell! So I'm stuck. How can I make a procedure use a procedure that is beneath it in the coding?
IE,

Procedure Show;
begin
Writeln('Test');
ShowE;
end;

Procedure ShowE;
begin
Writeln('Test2!');
Show;
end;

begin
Show;
ShowE;
end.

That gives me errors. How would I get rid of those errors, in the least complex way? Free Pascal gives me an Identifier not Found error.
Thanks for all help!

Re: Procedure Probs

Thu, 16 Nov 2006 13:41:33 -0700

: Well, I have a game I'm making (as I have said when I asked questions before) and I'm in a bit of a jiffy. To have a procedure work, it must have all other procedures it uses BEFORE it, however, I have a command line in my game, and it uses several procedures- but several procedures use it, aswell! So I'm stuck. How can I make a procedure use a procedure that is beneath it in the coding?
: IE,
:

: Procedure Show;
: begin
: Writeln('Test');
: ShowE;
: end;
: 
: Procedure ShowE;
: begin
: Writeln('Test2!');
: Show;
: end;
: 
: begin
: Show;
: ShowE;
: end.
:

: That gives me errors. How would I get rid of those errors, in the least complex way? Free Pascal gives me an Identifier not Found error.
: Thanks for all help!
:
Hi !

You can use the forward directive.
There is an example in chapter 10.5 of the Free Pascal (2.04) language reference :
http://www.freepascal.org/docs.html

Re: Procedure Probs

Thu, 16 Nov 2006 15:58:23 -0700

: : Well, I have a game I'm making (as I have said when I asked questions before) and I'm in a bit of a jiffy. To have a procedure work, it must have all other procedures it uses BEFORE it, however, I have a command line in my game, and it uses several procedures- but several procedures use it, aswell! So I'm stuck. How can I make a procedure use a procedure that is beneath it in the coding?
: : IE,
: :

: : Procedure Show;
: : begin
: : Writeln('Test');
: : ShowE;
: : end;
: : 
: : Procedure ShowE;
: : begin
: : Writeln('Test2!');
: : Show;
: : end;
: : 
: : begin
: : Show;
: : ShowE;
: : end.
: :

: : That gives me errors. How would I get rid of those errors, in the least complex way? Free Pascal gives me an Identifier not Found error.
: : Thanks for all help!
: :
: Hi !
:
: You can use the forward directive.
: There is an example in chapter 10.5 of the Free Pascal (2.04) language reference :
: http://www.freepascal.org/docs.html
:
Well... I tried it, and i did it exactly like this:

Procedure OFiveFiveSt; forward; {Main Store}
begin {1}
Writeln('Welcome to the Imps Extravaganza!');
Writeln('What can I do for you today?');
Writeln('The current stock is:');
itema := 'Black Sword of Demise';
costa := 5000;
itemb := 'Black Mana Armor of Demise';
costb := 5000;
itemc := 'Black Helm of Demise';
costc := 2500;
DispStock;
Writeln('Do you wish to buy something?');
Readln(entry);
CommandLine; {line 254}
end; {1} {line 255}

Procedure c_town; forward;
begin {1}
if entry = 'ADDRESS' then
 begin {2}
  Writeln('Where would you like to go?');
  Readln(entry);
  if entry = '055 St.' then
   begin
    OFiveFiveSt;
    Readln;
   end;
 end; {2}
end; {1}

Procedure CommandLine; forward;
begin
 {Movement}
  UpperCase;
  if entry = 'ADDRESS' then
   begin
    c_town;
   end;
{...}{I cut alot of this procedure off, as it is very long...}
end;

The errors from this:

BETA_v0.08.pas(254,1) Error: Identifier not found "CommandLine"
BETA_v0.08.pas(254,12) Error: Illegal Expression
BETA_v0.08.pas(255,4) Error: Syntax Error, "." expected but ; found
BETA_v0.08.pas(255,4) Fatal: Compilation Aborted

Now, without the forward; reference, the errors on line 255 do not occur, and it doesn't require the . instead of ; for my procedure... Which I find odd... If I comment out the forward on 1 procedure and put it on another, it requires a period at the end of that particular procedure instead... Without the forward; reference, the errors are:

BETA_v0.08.pas(254,1) Error: Identifier not found "CommandLine"
BETA_v0.08.pas(254,12) Error: Illegal expression
BETA_v0.08.pas(3069) Fatal: There were 2 errors compiling module, stopping
BETA_v0.08.pas(3069) Fatal: Compilation aborted

Any ideas?

Re: Procedure Probs

Thu, 16 Nov 2006 16:02:20 -0700

: : : Well, I have a game I'm making (as I have said when I asked questions before) and I'm in a bit of a jiffy. To have a procedure work, it must have all other procedures it uses BEFORE it, however, I have a command line in my game, and it uses several procedures- but several procedures use it, aswell! So I'm stuck. How can I make a procedure use a procedure that is beneath it in the coding?
: : : IE,
: : :

: : : Procedure Show;
: : : begin
: : : Writeln('Test');
: : : ShowE;
: : : end;
: : : 
: : : Procedure ShowE;
: : : begin
: : : Writeln('Test2!');
: : : Show;
: : : end;
: : : 
: : : begin
: : : Show;
: : : ShowE;
: : : end.
: : :

: : : That gives me errors. How would I get rid of those errors, in the least complex way? Free Pascal gives me an Identifier not Found error.
: : : Thanks for all help!
: : :
: : Hi !
: :
: : You can use the forward directive.
: : There is an example in chapter 10.5 of the Free Pascal (2.04) language reference :
: : http://www.freepascal.org/docs.html
: :
: Well... I tried it, and i did it exactly like this:
:

: Procedure OFiveFiveSt; forward; {Main Store}
: begin {1}
: Writeln('Welcome to the Imps Extravaganza!');
: Writeln('What can I do for you today?');
: Writeln('The current stock is:');
: itema := 'Black Sword of Demise';
: costa := 5000;
: itemb := 'Black Mana Armor of Demise';
: costb := 5000;
: itemc := 'Black Helm of Demise';
: costc := 2500;
: DispStock;
: Writeln('Do you wish to buy something?');
: Readln(entry);
: CommandLine; {line 254}
: end; {1} {line 255}
: 
: Procedure c_town; forward;
: begin {1}
: if entry = 'ADDRESS' then
:  begin {2}
:   Writeln('Where would you like to go?');
:   Readln(entry);
:   if entry = '055 St.' then
:    begin
:     OFiveFiveSt;
:     Readln;
:    end;
:  end; {2}
: end; {1}
: 
: Procedure CommandLine; forward;
: begin
:  {Movement}
:   UpperCase;
:   if entry = 'ADDRESS' then
:    begin
:     c_town;
:    end;
: {...}{I cut alot of this procedure off, as it is very long...}
: end;
: 
:

:
: The errors from this:
:

: BETA_v0.08.pas(254,1) Error: Identifier not found "CommandLine"
: BETA_v0.08.pas(254,12) Error: Illegal Expression
: BETA_v0.08.pas(255,4) Error: Syntax Error, "." expected but ; found
: BETA_v0.08.pas(255,4) Fatal: Compilation Aborted
:

:
: Now, without the forward; reference, the errors on line 255 do not occur, and it doesn't require the . instead of ; for my procedure... Which I find odd... If I comment out the forward on 1 procedure and put it on another, it requires a period at the end of that particular procedure instead... Without the forward; reference, the errors are:
:

: BETA_v0.08.pas(254,1) Error: Identifier not found "CommandLine"
: BETA_v0.08.pas(254,12) Error: Illegal expression
: BETA_v0.08.pas(3069) Fatal: There were 2 errors compiling module, stopping
: BETA_v0.08.pas(3069) Fatal: Compilation aborted
:

:
: Any ideas?
:
The forward directive needs to be used like this:

procedure Second; forward;

procedure First;
begin
  ..
  Second;
  ..
end;

procedure Second;
begin
  ..
  First;
  ..
end;

The forward directive takes the place of the body of the procedure. This way you can define the header of the procedure before defining the body.

Re: Procedure Probs

Thu, 16 Nov 2006 16:45:10 -0700

This message was edited by DarknessX at 2006-11-16 17:30:23

: : : : Well, I have a game I'm making (as I have said when I asked questions before) and I'm in a bit of a jiffy. To have a procedure work, it must have all other procedures it uses BEFORE it, however, I have a command line in my game, and it uses several procedures- but several procedures use it, aswell! So I'm stuck. How can I make a procedure use a procedure that is beneath it in the coding?
: : : : IE,
: : : :

: : : : Procedure Show;
: : : : begin
: : : : Writeln('Test');
: : : : ShowE;
: : : : end;
: : : : 
: : : : Procedure ShowE;
: : : : begin
: : : : Writeln('Test2!');
: : : : Show;
: : : : end;
: : : : 
: : : : begin
: : : : Show;
: : : : ShowE;
: : : : end.
: : : :

: : : : That gives me errors. How would I get rid of those errors, in the least complex way? Free Pascal gives me an Identifier not Found error.
: : : : Thanks for all help!
: : : :
: : : Hi !
: : :
: : : You can use the forward directive.
: : : There is an example in chapter 10.5 of the Free Pascal (2.04) language reference :
: : : http://www.freepascal.org/docs.html
: : :
: : Well... I tried it, and i did it exactly like this:
: :

: : Procedure OFiveFiveSt; forward; {Main Store}
: : begin {1}
: : Writeln('Welcome to the Imps Extravaganza!');
: : Writeln('What can I do for you today?');
: : Writeln('The current stock is:');
: : itema := 'Black Sword of Demise';
: : costa := 5000;
: : itemb := 'Black Mana Armor of Demise';
: : costb := 5000;
: : itemc := 'Black Helm of Demise';
: : costc := 2500;
: : DispStock;
: : Writeln('Do you wish to buy something?');
: : Readln(entry);
: : CommandLine; {line 254}
: : end; {1} {line 255}
: : 
: : Procedure c_town; forward;
: : begin {1}
: : if entry = 'ADDRESS' then
: :  begin {2}
: :   Writeln('Where would you like to go?');
: :   Readln(entry);
: :   if entry = '055 St.' then
: :    begin
: :     OFiveFiveSt;
: :     Readln;
: :    end;
: :  end; {2}
: : end; {1}
: : 
: : Procedure CommandLine; forward;
: : begin
: :  {Movement}
: :   UpperCase;
: :   if entry = 'ADDRESS' then
: :    begin
: :     c_town;
: :    end;
: : {...}{I cut alot of this procedure off, as it is very long...}
: : end;
: : 
: :

: :
: : The errors from this:
: :

: : BETA_v0.08.pas(254,1) Error: Identifier not found "CommandLine"
: : BETA_v0.08.pas(254,12) Error: Illegal Expression
: : BETA_v0.08.pas(255,4) Error: Syntax Error, "." expected but ; found
: : BETA_v0.08.pas(255,4) Fatal: Compilation Aborted
: :

: :
: : Now, without the forward; reference, the errors on line 255 do not occur, and it doesn't require the . instead of ; for my procedure... Which I find odd... If I comment out the forward on 1 procedure and put it on another, it requires a period at the end of that particular procedure instead... Without the forward; reference, the errors are:
: :

: : BETA_v0.08.pas(254,1) Error: Identifier not found "CommandLine"
: : BETA_v0.08.pas(254,12) Error: Illegal expression
: : BETA_v0.08.pas(3069) Fatal: There were 2 errors compiling module, stopping
: : BETA_v0.08.pas(3069) Fatal: Compilation aborted
: :

: :
: : Any ideas?
: :
: The forward directive needs to be used like this:
:

: procedure Second; forward;
: 
: procedure First;
: begin
:   ..
:   Second;
:   ..
: end;
: 
: procedure Second;
: begin
:   ..
:   First;
:   ..
: end; 
:

: The forward directive takes the place of the body of the procedure. This way you can define the header of the procedure before defining the body.
:

So basically, for all of my procedures, right underneath my variables, i put a long list of:
procedure first; forward;
procedure second; forward;
procedure third; forward;
and it will work?

EDIT:
Got it! Thanks, both of ya :)