is it possible in pascal 7.0 to call directly external routines from an
object?

ie, like:

type
  testobj = object
                   procedure testme;
                 end;

{$L testfile.obj}
procedure testme; far; external;

I cannot make the above work. If the external file's routine is called TESTME then
an error is reported because routine TESTOBJ.TESTME is not found. But I cannot
call the public routine TESTOBJ.TESTME either because the TASM won't accept
it!

Please help!

Cheers,

In article <4171mh$...@henry.interlink.no>, pe...@interlink.no (Per I. Mathisen) writes:
|
| is it possible in pascal 7.0 to call directly external routines from an
| object?

  Should be no problem at all.

| ie, like:
| type
|   testobj = object
|                    procedure testme;
|                  end;
|
| {$L testfile.obj}
| procedure testme; far; external;
|
| I cannot make the above work. If the external file's routine is called TESTME then
| an error is reported because routine TESTOBJ.TESTME is not found. But I cannot
| call the public routine TESTOBJ.TESTME either because the TASM won't accept
| it!

  I'm having some trouble understanding what you mean here. Did you write any
  more code than what's given above? (If not then that's the error.) You get a
  compiler error? Where?
  --Lars M.
_______________________________________________________________________________

  -- Lars M. Garshol, Institute of Informatics, Oslo University

First example:

--- test.pas

   type
   testobj = object
              function callme:byte;
             end;

   {$L here.obj}
   Function testobj.callme:byte; external;

   Begin
   End.

--- excerpt from here.asm

   ...
   PUBLIC callme
   ...

---

This gives compiler "Error 46: Undefined external (testobj.callme)".
Now, the fault is obvious: the PUBLIC statement in HERE.ASM does not
match the reference in TEST.PAS file.

But trying to write:

--- here.asm

   ...
   PUBLIC testobj.callme
   ...

---

Gives TASM error "Undefined symbol: TESTOBJ".

Writing,

--- test.pas

   ...
   {$L here.obj}
   Function callme:byte; external;

---

Will naturally result in "Error 59: Undefined forward (testobj.callme)"!

Writing,

--- test.pas

   type
   testobj = object
              function callme:byte; external;
             end;
   ...

---

Also gives a compiler error ( 'END expected' ).

Please help anyone.

Cheers,

     function TestObj.CallMe : byte;
     BEGIN
       { Define callme here }
     END;

   ii) The external function is called TestObj.CallMe, it should be called
       just CallMe. The prefix "TestObj." means that CallMe is a method
       (TP/C++ lingo for procedure in a class/object type) in the object type
       TestObj, which it isn't (the external one, I mean.) Also, it's not a
       sjakktrekk :) to call the external procedure the same as a local object
       method.