From: Martin Ambuhl <mambuhl AT earthlink DOT net>
Newsgroups: comp.os.msdos.djgpp
Subject: Re: calling a pointer to a function
Date: Thu, 11 Nov 1999 02:45:57 -0500
Content-Transfer-Encoding: 7bit
References: <382917AA DOT 256A0891 AT home DOT com>
X-Posted-Path-Was: not-for-mail
X-Accept-Language: en
Content-Type: text/plain; charset=us-ascii
X-ELN-Date: 11 Nov 1999 07:45:43 GMT
X-ELN-Insert-Date: Wed Nov 10 23:55:03 1999
Organization: Nocturnal Aviation
Lines: 63
Mime-Version: 1.0
NNTP-Posting-Host: dialup-209.244.183.203.newyork2.level3.net
Message-ID: <382A7435.C419239B@earthlink.net>
X-Mailer: Mozilla 4.7 [en] (Win95; U)
To: djgpp AT delorie DOT com
DJ-Gateway: from newsgroup comp.os.msdos.djgpp
Reply-To: djgpp AT delorie DOT com



Robin Johnson wrote:
> 
> Hi,
> 
> I used to do something in Pascal, and i was wondering what the C++
> conversion of it was:
> {begin pascal code}
> Type tProc = Procedure(Num : integer);
> 
> Procedure Do1(Num : integer);
> begin
> end;
> 
> Procedure Do2(Num : integer);
> begin
> end;
> 
> Procedure CallOne(aProc : tProc)
> var x : integer;
> begin
>  x := 1;
>  aProc(1);
> end;
> {end pascal code}
> how to do this in C++? namely DJGPP, with DPMI.
> Can anybody help?

typedef void (*tproc)(int);
void Do1(int Num)
{
}

void Do2(int Num)
{
}


void CallOne(tproc aProc)
{
  int x;
  x = 1;
  aProc(1);
}


int main(int argc, char *argv[])
{
    CallOne(Do1);
    CallOne(Do2);
    return 0;
}




-- 
Martin Ambuhl	mambuhl AT earthlink DOT net

__________________________________________________________
Fight spam now!
Get your free anti-spam service: http://www.brightmail.com