Newsgroups: comp.sys.apple2
Path: news.weeg.uiowa.edu!news.uiowa.edu!hobbes.physics.uiowa.edu!zaphod.mps.ohio-state.edu!cs.utexas.edu!uwm.edu!msuinfo!agate!doc.ic.ac.uk!warwick!uknet!mcsun!Germany.EU.net!news.netmbx.de!zelator!tooly
From: tooly@zelator.in-berlin.de (Theo Schneider)
Subject: Re: Problem with units in ORCA/Pascal
Organization: Public-Access-Unix-System
Date: Mon, 26 Apr 1993 18:41:34 GMT
Message-ID: <7FXCB1QD@zelator.in-berlin.de>
References: <1993Apr23.053731.19576@reed.edu>
Lines: 61

          {This it the unit}
{$MemoryModel 1}
{$Segment 'Test', keep 'Test'}
 
Unit Test;
 
INTERFACE
uses
  {some tools}
 
    { declare here your variable and types for this unit}
procedure DoAnything (this, that, andsomeother : integer);
 
IMPLEMENTATION
 
procedure DoAnything;
begin
end;
 
END.
===================================================================
           {And now the Program}
{$MemoryModel 1}
{$keep 'MainProg'}
Program MainProg;
uses
  {some Tools}, Test;
===================================================================
for this example you must compile the unit and copy the test.int file
to 13:orcapascaldefs:, then create an lib file with
      makelib testLib +test.a
the copy the file testLib to 13:
===================================================================
            {or you take this MainProg}
{$MemoryModel 1}
{$keep 'MainProg'}
Program MainProg;
uses
  {some Tools},
{$LibPrefix 'theDirectoryWhereAreMyUnits:'}
  Test;
===================================================================
after compile the MainProg you must also link your files with
link MainProg theDirectoryWhereAreMyUnits:test.a keep=MainProg
 
For me this example Work fine. I hope this help You
 
Best regards from Germany
 
  Theo
 
 

-- 
   
   +****************************************************************+
   *  Theo Schneider       |       Tom Tooly Software Berlin        * 
	*  Babelsberger Str. 40 | Internet : tooly@zelator.in-berlin.de  *
   *  1000 Berlin 31       | Zerberus : T.Schneider@TeleMail.Zer    *
   *  Germany              | Phone    : ++49 30 854 29 72           *
   +****************************************************************+