Rexx-移植性

移植性は、プログラミング言語の重要な側面です。ご存じのとおり、RexxはWindowsやLinuxなどのさまざまなオペレーティングシステムで使用できます。そのため、Windowsプラットフォームでプログラムを開発する場合、同じプログラムがLinuxプラットフォームで実行される場合に必要な予防措置を講じることを確認する必要があります。

Rexxには、システムレベルのコマンドを実行する機能があります。実行されているオペレーティングシステムを理解するために使用できるコマンドがあります。出力に基づいて、適切なアクションを実行して、このオペレーティングシステムで実行できるコマンドを確認できます。

例

次の例は、解析関数を使用して、プログラムが実行されているオペレーティングシステムの詳細を取得する方法を示しています。

/*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

Rexx-portability

Rexx-移植性

例