home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / OTHERUTI / TCPP30-3.ZIP / EXAMPLES.ZIP / CPASDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1992-02-18  |  5KB  |  129 lines
  1.  
  2. {         Copyright (c) 1987,1991 by Borland International, Inc.          }
  3.  
  4. program CPASDEMO;
  5. (*
  6.   This program demonstrates how to interface Turbo Pascal and Turbo C++.
  7.   Turbo C++ is used to generate an .OBJ file (CPASDEMO.OBJ). Then
  8.   this .OBJ is linked into this Turbo Pascal program using the {$L}
  9.   compiler directive.
  10.  
  11.   NOTES:
  12.     1. Data declared in the Turbo C++ module cannot be accessed from
  13.        the Turbo Pascal program. Shared data must be declared in
  14.        Pascal.
  15.  
  16.     2. If the C functions are only used in the implementation section
  17.        of a unit, declare them NEAR.  If they are declared in the
  18.        interface section of a unit, declare them FAR.  Always compile
  19.        the Turbo C++ modules using the large memory model.
  20.  
  21.     3. Turbo C++ runtime library routines cannot be used because their
  22.        modules do not have the correct segment names.  However, if you
  23.        have the Turbo C++ runtime library source (available from
  24.        Borland), you can use individual library modules by recompiling
  25.        them using Pascal conventions.  If you do recompile them, make
  26.        sure that you include prototypes in your C module for all C
  27.        library functions that you use.
  28.  
  29.     4. Some of the code that Turbo C++ generates are calls to internal
  30.        routines. These cannot be used without recompiling the relevant
  31.        parts of the Turbo C++ runtime library source code.
  32.  
  33.   In order to run this demonstration program you will need the following
  34.   files:
  35.  
  36.     TCC.EXE and CTOPAS.CFG or
  37.     TC.EXE and CTOPAS.TC
  38.  
  39.   To run the demonstration program CPASDEMO.EXE do the following:
  40.   
  41.   1. First create a CPASDEMO.OBJ file compatible with Turbo Pascal 4.0
  42.      or later using Turbo C++.
  43.  
  44.     a) If you are using the Turbo C++ integrated environment (TC.EXE)
  45.        then at the DOS prompt execute:
  46.  
  47.        TC CTOPAS.PRJ
  48.        
  49.        then create the .OBJ file by pressing ALT-F9.
  50.  
  51.     b) If you are using the Turbo C++ command line version (TCC.EXE)
  52.        then at the DOS prompt execute:
  53.  
  54.        TCC +CTOPAS.CFG CPASDEMO.C
  55.  
  56.        Note: Use the same configuration file (CTOPAS.CFG or CTOPAS.PRJ)
  57.              when you create your own Turbo C++ modules for use with
  58.              Turbo Pascal 
  59.  
  60.   2. Compile and execute the Turbo Pascal program CPASDEMO.PAS
  61.  
  62.   This simple program calls each of the functions defined in the Turbo C++
  63.   module. Each of the Turbo C++ functions changes the current display color
  64.   by calling the Turbo Pascal procedure SetColor. }
  65. *)
  66.  
  67. uses Crt;
  68.  
  69. var
  70.   Factor : Word;
  71.  
  72. {$F+}  { Force Far Calls for calling to and from Turbo C }
  73.  
  74. {$L CPASDEMO.OBJ}  { link in the Turbo C++-generated .OBJ module }
  75.  
  76. function Sqr(I : Integer) : Word; external;
  77. { Change the text color and return the square of I }
  78.  
  79. function HiBits(W : Word) : Word; external;
  80. { Change the text color and return the high byte of W }
  81.  
  82. function Suc(B : Byte) : Byte; external;
  83. { Change the text color and return B + 1 }
  84.  
  85. function Upr(C : Char) : Char; external;
  86. { Change the text color and return the upper case of C }
  87.  
  88. function Prd(S : ShortInt) : ShortInt; external;
  89. { Change the text color and return S - 1 }
  90.  
  91. function LoBits(L : LongInt) : LongInt; external;
  92. { Change the text color and return the low word of L }
  93.  
  94. procedure StrUpr(var S : string); external;
  95. { Change the text color and return the upper case of S - Note that the Turbo }
  96. { C++ routine must skip the length byte of the string.                         }
  97.  
  98. function BoolNot(B : Boolean) : Boolean; external;
  99. { Change the text color and return NOT B }
  100.  
  101. function MultByFactor(W : Word) : Word; external;
  102. { Change the text color and return W * Factor - note Turbo C++'s access of }
  103. { Turbo Pascal's global variable.                                        }
  104.  
  105. procedure SetColor(NewColor : Byte); { A procedure that changes the current }
  106. begin                                { display color by changing the CRT    }
  107.   TextAttr := NewColor;              { variable TextAttr                    }
  108. end; { SetColor }
  109.  
  110. var
  111.   S : string;
  112.  
  113. begin
  114.   Writeln(Sqr(10));                  { Call each of the functions defined   }
  115.   Writeln(HiBits(30000));            { passing it the appropriate info.     }
  116.   Writeln(Suc(200));
  117.   Writeln(Upr('x'));
  118.   Writeln(Prd(-100));
  119.   Writeln(LoBits(100000));
  120.   S := 'abcdefg';
  121.   StrUpr(S);
  122.   Writeln(S);
  123.   Writeln(BoolNot(False));
  124.   Factor := 100;
  125.   Writeln(MultbyFactor(10));
  126.   SetColor(LightGray);
  127. end.
  128. 
  129.