The INTRINSIC_FILE
pragma specifies the path of a file in which the compiler can locate
information about intrinsic functions. This pragma has the following
format:
#pragma INTRINSIC_FILE "path"
where path is the fully qualified
path of a file. The compiler will look in this file for information
about intrinsics declared using the INTRINSIC
pragma. If you do not specify a full path name, the compiler searches
in your current directory.
If you do not use the INTRINSIC_FILE
pragma, the compiler looks in a file called /usr/lib/sysintr.
You need to use the INTRINSIC_FILE
pragma only if you are building your own intrinsic files using the
HP Pascal compiler and you must specify a file other than the default.
Refer to the HP Pascal Programmer's Guide
for information about building your own intrinsic files.
The compiler searches in the specified file until another
INTRINSIC_FILE
pragma is encountered. To return the search to /usr/lib/sysintr,
specify the INTRINSIC_FILE
pragma with a null string, as shown below:
#pragma INTRINSIC_FILE ""
Here are some examples of INTRINSIC_FILE
and INTRINSIC
pragmas:
#pragma INTRINSIC FOPEN, FCLOSE, FREAD /* /usr/lib/sysintr used*/ #pragma INTRINSIC_FILE "myintr" #pragma INTRINSIC mytest1, mytest2 /* myintr used */ #pragma INTRINSIC_FILE "" #pragma INTRINSIC FCHECK, FGETINFO /* /usr/lib/sysintr used */
|
In the first example above, the compiler searches the default
file for information about the FOPEN,
FCLOSE, and FREAD
intrinsics. The second pragma specifies a different file for the
compiler to search, myintr.
The compiler looks for this file in the current directory. The third
pragma declares two intrinsics, mytest1
and mytest2,
which must be described in myintr.
The fourth pragma returns the search to /usr/lib/sysintr,
where FCHECK
and FGETINFO
are sought when the fifth pragma is encountered.