[comp.lang.pascal] linking external fonts into TP5.5

ahaley@jarthur.Claremont.EDU (Alexander Haley) (11/12/89)

	I appologize for reposting this, but I found out after I had posted
it that we'ed been hoving problems with news.  I decided that since I
haven't recieved a reply, I would repost in case it did not get out.


	I am having a lot of trouble linking fonts from the bgifonts.arc
archive from simtel into the fonts.pas example provided in the distribution
diskettes.

	This is what I have in fonts.pas:

=======================================================================
{ Copyright (c) 1985, 1989 by Borland International, Inc. }

unit Fonts;
{ Sample unit to accompany BGILINK.PAS. This unit links all the BGI graphics
  fonts into a single TPU file. This makes it easy to incorporate the font
  files directly into an .EXE file. See BGILINK.PAS for more information.
}
interface

procedure ComplexFontProc;
procedure EuroStyleFontProc;  

implementation

procedure ComplexFontProc; external;
{$L TRIP.OBJ }

procedure EuroStyleFontProc; external;
{$L SANS.OBJ }

end.
========================================================================
When I try to compile this it gives me:
  Error 51: Invalid PUBLIC Definition (COMPLEXFONT)

When I create the .obj files for these two fonts, I use:

C:> binobj lcom.pas lcom ComplexFont
C:> binobj euro.pas euro EuroStyleFont

I tried switching the order of ComplexFontProc and EuroStyleFontProc and it
gives me the same error, but with EUROSTYLEFONT instead.

I've tried reading all of the information that is given with the files and
in the manuals and I cannot figure out what is going on.  Can someone help?

						-Alex

-----------------------------------------------------------------------------
ahaley@hmcvax.claremont.edu    |  Anyone know of a way to go to school  
ahaley@jarthur.claremont.edu   |  without having to do a lot of work or
or Alex Haley, Fido 1:205/106  |  pay a lot of money?   :-)
 during breaks ONLY --^^^^^    |  It would make it a bit more enjoyable!
-----------------------------------------------------------------------------

Slomcenski.WBST@xerox.com (11/14/89)

Alex,

  In your module, you have the {$L XXX} directive after the procedure
header. This prevents TURBO from 'seeing' the implementation for the first
procedure. You must place the {$L XXX} directive before the procedure
header to which it applies (in the implementation section):
  
  
=======================================================================
{ Copyright (c) 1985, 1989 by Borland International, Inc. }

unit Fonts;
{ Sample unit to accompany BGILINK.PAS. This unit links all the BGI
graphics
  fonts into a single TPU file. This makes it easy to incorporate the font
  files directly into an .EXE file. See BGILINK.PAS for more information.
}
interface

procedure ComplexFontProc;
procedure EuroStyleFontProc;  

implementation

{$L TRIP.OBJ }
procedure ComplexFontProc; external;

{$L SANS.OBJ }
procedure EuroStyleFontProc; external;

end.
========================================================================


  ~Bob