HP 3000 Manuals HP 3000 Manuals
INTRINSIC Declarations
Table 8-24. INTRINSIC Declarations
-------------------------------------------------------------------------------------------------
| | |
| SPL | HP C/XL Equivalent |
| | |
-------------------------------------------------------------------------------------------------
| | |
| intrinsic-declaration: | pragma-directive: |
| | |
| INTRINSIC [( file )] intrinsic-id [,...] ; | 1. #pragma intrinsic |
| | |
| | {intrinsic-id [user-id]} [,...] |
| | |
| | 2. #pragma intrinsic_file "file" |
| | |
| | 3. #pragma intrinsic_file "" |
| | |
-------------------------------------------------------------------------------------------------
| | |
| Without file, the intrinsic-id is sought in | Similar to SPL. |
| the system intrinsic file. | |
| | The intrinsic_file pragma establishes the |
| If file is given, the intrinsic-id is | intrinsic file where all subsequent |
| sought in the user-defined file file. | intrinsic pragmas will search. |
| | |
| | If intrinsic_file is not given, or if form |
| | 3 is used, intrinsic definitions are sought |
| | in the file SYSINTR.PUB.SYS. |
| | |
| | The user-id option allows you to rename the |
| | intrinsic-id for references in your |
| | compilation unit. |
| | |
-------------------------------------------------------------------------------------------------
Table 8-25. INTRINSIC Declaration Examples
---------------------------------------------------------------------------------------------
| | |
| SPL | HP C/XL Equivalent |
| | |
---------------------------------------------------------------------------------------------
| | |
| | |
| INTRINSIC FREADDIR; | #pragma intrinsic FREADDIR |
| | #pragma intrinsic_file "MYINTRS" |
| INTRINSIC (MYINTRS) MYFREAD; | #pragma intrinsic MYFREAD |
| | #pragma intrinsic_file "" |
| | |
---------------------------------------------------------------------------------------------
| | |
| The first declaration seeks the intrinsic | The first pragma directive seeks the |
| FREADDIR in the system intrinsic library. | intrinsic FREADDIR in the system intrinsic |
| The second seeks MYFREAD in the user | library SYSINTR.PUB.SYS. The second |
| library named MYINTRS. | redirects subsequent searches to the user |
| | intrinsic file named MYINTRS. The third |
| | seeks the intrinsic MYFREAD in MYINTRS. The |
| | fourth resets the search to the system file |
| | SYSINTR.PUB.SYS. |
| | |
---------------------------------------------------------------------------------------------
The HP C/XL pragmas are described further in the HP C/XL Reference Manual
Supplement. The construction of user intrinsic files is discussed in the
HP Pascal Programmer's Guide.