もし共有オブジェクトにアクセスできない場合、または、エントリポイントにアクセスできない場合は、GT.Mはエラーを報告します。

gtm_env_xlate() ルーチンは、次のCプロトタイプを持ちます。

int gtm_env_xlate(gtm_string_t *in1, gtm_st
   ring_t *in2, gtm_string *in3, gtm_string_t *out)

where gtm_string_t is a structure defined in gtmxc_types.h as follows:

typedef struct
{
  int length;
  char *address;
}gtm_string_t;

機能の目的は、GT.M.によって環境仕様として使用可能な出力引数を派生し返すために、その3つの入力引数を使用することです。渡される入力値（IN1、IN2、IN3）は、Mの評価の結果であり、そして、けっして変更しないことに、注意してください。最初の2つの引数はアップバー(up-bars) "| |" または角括弧 "[ ]" で渡された式で、そして、3番目の引数は、$ZDIRECTORYで説明したように、現在の作業ディレクトリです。

ゼロ(0)以外の戻り値は、変換の誤りを示しGT.Mエラーで報告されます。

もし出力引数の長さがゼロで無い場合は、GT.Mは出力構造体のアドレスで検索されたテキストを含む、GTM-I-TEXTの2番目のメッセージを追加します。

GT.Mは出力引数に関連したメモリ管理を行っていません - 出力のためのメモリスペースは外部ルーチンによって割り当てる必要があります。ルーチンはそれが割り当てられたアドレスで返される環境の仕様を置くべきです、そして、それに応じて長さを調整する必要があります。正常に返された場合は、戻り値はゼロでなければなりません。もし変換ルーチンがGT.Mにエラーを伝達する必要がある場合、それは、ゼロ以外の値を返さなければなりません、そして、もしそれが追加のエラー情報を伝達する場合、環境が正常に行い、そして、エラーテキストの長さにマッチする長さに調整されるアドレスでエラーテキストを配置します。

戻り値の長さは、0から32767の範囲であり、そうでなければ、GT.Mはエラーを報告します。

長さがゼロ（空）の文字列は、$ZGBLDIRの現在の値を指定します。ゼロ以外の長さは、任意の <NUL> ターミネータを含まない、アドレスが指すファイル仕様の実際の長さを表している必要があります。もし出力引数のアドレスフィールドがNULLならば、GT.Mはエラーを発行します。

ファイル指定は、絶対パスでも相対パスでもかまいませんし、環境変数を含めることができます。もし指定されたファイルにアクセスできない場合、または、有効なグローバルディレクトリでない場合、GT.Mは、それが無効なグローバルディレクトリと同様にエラーを報告します。

それは、Mでこのルーチンを（call-in のように）書くことは可能ですが、しかし、そのようなルーチンでのグローバル変数は、環境参照が正常でないネイキッドインジケータを変更します。アプリケーションの規則に応じて、Mルーチンによって使用されるローカル変数を保護するような、名前空間の管理の問題が困難である可能性があります。

アプリケーション設計者が特定のインターフェイス定義の内で適当と認める任意のフォームを取るためにこのルーチンは可能ですが、次の段落では、ひとにぎりのグローバルリファレンスより多く呼び出されるルーチンが効率的であることの期待に基づいて、いくつかの勧告をします。

コンパイル時またはそれが最初に呼び出される時のどちらかの時に、ルーチンが1つ以上のテーブルをロードすることを期待します。ルーチンのロジックは、テーブルのセットのエントリ上でルックアップを実行します。ルックアップは、適切な衝突の規定で、文字列の長さと名前またはハッシュの中にある文字のいくつかのユニークなセットに基づく場合があります。

ルーチンは、入力の1つまたは両方がゼロの長さを持っているケースに対処する必要があります。これらのケースのサブセットは、2つの入力文字列（入力文字列がけっして変更されることがないことに注意）に相当するものとして再解釈する必要があるコンマ限られた文字列を保持している最初の文字列を持っている場合があります。ルーチンはまた、値（おそらく最初の）が、誤ってまたは故意に、すでにグローバルディレクトリ仕様であるケースを処理する必要があります。

例：

$ cat gtm_env_translate.c
#include <stdio.h>
#include <string.h>
#include "gtmxc_types.h"
static int init = 0;
typedef struct
{
  gtm_string_t field1, field2, ret;
} line_entry ;
static line_entry table[5], *line, linetmp;
/* Since these errors may occur before setup is complete, they are statics */
static char *errorstring1 ="Error in function initialization, environment variable GTM_CALLIN_START not defined. Environment translation failed.";
static char *errorstring2 ="Error in function initialization, function pointers could not be determined. Envrironment translation failed.";
#define ENV_VAR"GTM_CALLIN_START"
typedef int(*int_fptr)();
int_fptr GTM_MALLOC;
int init_functable(gtm_string_t *ptr)
{
/* This function demonstrates the initialization of other function pointers as well (if the user-code needs them for any reason, they should be defined as globals) */
char *pcAddress;
long lAddress;
void **functable;
void (*setup_timer) ();
void (*cancel_timer) ();
pcAddress = getenv(ENV_VAR);
if (pcAddress == NULL)
{
ptr->length = strlen(errorstring1);
ptr->address = errorstring1;
return 1;
}
lAddress = -1;
lAddress = atol(pcAddress);
if (lAddress == -1)
{
ptr->length = strlen(errorstring2);
ptr->address = errorstring2;
return 1;
}
functable = (void *)lAddress;
setup_timer = (void(*)()) functable[2];
cancel_timer = (void(*)()) functable[3];
GTM_MALLOC = (int_fptr) functable[4];
return 0;
}
void copy_string(char **loc1, char *loc2, int length)
{
char *ptr;
ptr = (char *) gtm_malloc(length);
strncpy( ptr, loc2, length);
*loc1 = ptr;
}
int init_table(gtm_string_t *ptr)
{
int i = 0;
char buf[100];
char *buf1, *buf2;
FILE *tablefile;
char *space = " ";
char *errorstr1 = "Error opening table file table.dat";
char *errorstr2 = "UNDETERMINED ERROR FROM GTM_ENV_XLATE";
if ((tablefile = fopen("table.dat","r")) == (FILE *)NULL)
{
ptr->length = strlen(errorstr1);
copy_string(&(ptr->address), errorstr1, strlen(errorstr1));
return 1;
}
while (fgets(buf, (int)sizeof(buf), tablefile) != (char *)NULL) 
{
line= &table[i++];
buf1 = buf;
buf2 =strstr(buf1, space);
line->field1.length = buf2 - buf1;
copy_string( &(line->field1.address), buf1, line->field1.length);
buf1 = buf2+1;
buf2 = strstr(buf1, space);
line->field2.length = buf2-buf1;
copy_string( &(line->field2.address), buf1, line->field2.length);
buf1 = buf2+1;
line->ret.length = strlen(buf1) - 1;
copy_string( &(line->ret.address), buf1, line->ret.length);
}
fclose(tablefile);
/* In this example, the last entry in the table is the error string */
line = &table[4];
copy_string( &(line->ret.address), errorstr2, strlen(errorstr2));
line->ret.length = strlen(errorstr2);
return 0;
}
int cmp_string(gtm_string_t str1, gtm_string_t str2)
{
if (str1.length == str2.length)
return strncmp(str1.address, str2.address, (int) str1.length);
else
return str1.length - str2.length;
}
int cmp_line(line_entry *line1, line_entry *line2)
{
return (((cmp_string(line1->field1, line2->field1))||(cmp_string(line1->field2, line2->field2))));
}
int look_up_table(line_entry *aline, gtm_string_t *ret_ptr)
{
int i;
int ret_v;
for(i=0;i<4;i++)
{
line = &table[i];
ret_v = cmp_line( aline, line);
if (!ret_v)
{
ret_ptr->length = line->ret.length;
ret_ptr->address = line->ret.address;
return 0;
}
}
/*ERROR OUT*/
line = &table[4];   
ret_ptr->length= line->ret.length;
ret_ptr->address = line->ret.address;
return 1;
}
int gtm_env_xlate(gtm_string_t *ptr1, gtm_string_t *ptr2, gtm_string_t *ptr_zdir, gtm_string_t *ret_ptr)
{
int return_val, return_val_init;
if (!init)
{
return_val_init = init_functable(ret_ptr);
if (return_val_init) return return_val_init;
return_val_init = init_table(ret_ptr); 
if (return_val_init) return return_val_init;
init = 1;
}
linetmp.field1.length= ptr1->length;
linetmp.field1.address= ptr1->address;
linetmp.field2.length= ptr2->length;
linetmp.field2.address= ptr2->address;
return_val = look_up_table(&linetmp, ret_ptr);
return return_val;
}
> cat table.dat
day1 week1 mumps
day2 week1 a
day3 week2 b
day4 week2 c.gld

この例では、メカニズムを示しています。テーブルは適切なメモリ管理のための最初の時間をセットアップされており、それぞれの参照ごとに、テーブルルックアップが実行されます。単純化の目的のために、エラーチェックは行われないので、table.dat が、正しいフォーマットになっていると見なされ、そして、正確に4つのエントリを持っていることに注意してください。このルーチンは共有ライブラリとして構築する必要があります。 第11章: “外部 ルーチンの統合”を参照して、共有 ライブラリとして構築する方法を参照してください。 関数 init_functableは、GT.Mメモリ管理関数を設定するために必要です。