Rexx - 可移植性

可移植性是任何编程语言中的一个重要方面。众所周知，Rexx 可在各种操作系统（如 Windows 和 Linux）上使用。因此，需要确保当在 Windows 平台上开发程序时，如果相同的程序在 Linux 平台上运行，则已采取必要的预防措施。

Rexx 能够运行系统级命令。有一些命令可用于了解其正在运行的操作系统。根据输出，它可以采取适当的操作以查看可以在此操作系统上运行的命令。

示例

以下示例显示了如何使用 parse 函数获取程序正在运行的操作系统的详细信息。

/* Main program */ 
parse version language level date month year. 
parse source system invocation filename. 
language = translate(language) 

if pos('REGINA',language) = 0 then 
   say 'Error , the default interpreter is not Regina' language 
   say 'The Interpreter version/release date is:' date month year 
   say 'The Language level is: ' level say 'The Operating System is'  

   select 
when system = 'WIN32' then 
   'ver'
when system = 'UNIX' | system = 'LINUX' then 
   'uname -a' 
   otherwise 
   say 'Unknown System:' system 
end 
if rc <> 0 then 
   say 'Error :' rc 

输出将根据操作系统而有所不同。下面给出了一个示例输出。

The Interpreter version/release date: 5 Apr 2015 
The Language level is:  5.00 
The Operating System is 
Unknown System: WIN64 
Bad return code: RC