void GRGENV(name, value, length, name_dim, value_dim, length_dim) char *name,
    *value;
int *length;
int name_dim, value_dim, length_dim;
{
  static char *prefix = "PGPLOT_";
  char test[33];
  int name_len;
  int prefix_len;
  char *env = 0;
  int i;
  name_len = name_dim;
  while (name_len > 0 && name[name_len - 1] == ' ')
    name_len--;
  prefix_len = strlen(prefix);
  if (prefix_len + name_len + 1 <= sizeof(test) / sizeof(char)) {
    strcpy(test, prefix);
    strncpy(&test[prefix_len], name, name_len);
    test[prefix_len + name_len] = '\0';
    env = getenv(test);
  };
  if (env == 0 || strlen(env) > value_dim)
    env = "";
  strncpy(value, env, value_dim);
  {
    int env_len = strlen(env);
    *length = (env_len <= value_dim) ? env_len : value_dim;
  };
  for (i = *length; i < value_dim; i++)
    value[i] = ' ';
  return;
}


x86 assembly (clang, -O0):
<GRGENV>:
push   %rbp
mov    %rsp,%rbp
sub    $0x70,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    %r8d,-0x20(%rbp)
mov    %r9d,-0x24(%rbp)
movq   $0x0,-0x60(%rbp)
mov    -0x1c(%rbp),%eax
mov    %eax,-0x54(%rbp)
xor    %eax,%eax
cmpl   $0x0,-0x54(%rbp)
mov    %al,-0x69(%rbp)
jle    1196 <GRGENV+0x56>
mov    -0x8(%rbp),%rax
mov    -0x54(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x20,%eax
sete   %al
mov    %al,-0x69(%rbp)
mov    -0x69(%rbp),%al
test   $0x1,%al
jne    11a6 <GRGENV+0x66>
jmp    11b4 <GRGENV+0x74>
mov    -0x54(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x54(%rbp)
jmp    116d <GRGENV+0x2d>
mov    0x2e85(%rip),%rdi
call   1060 <strlen@plt>
mov    %eax,-0x58(%rbp)
mov    -0x58(%rbp),%eax
add    -0x54(%rbp),%eax
add    $0x1,%eax
cltq
cmp    $0x21,%rax
ja     121e <GRGENV+0xde>
lea    -0x50(%rbp),%rdi
mov    0x2e5d(%rip),%rsi
call   1050 <strcpy@plt>
movslq -0x58(%rbp),%rax
lea    -0x50(%rbp),%rdi
add    %rax,%rdi
mov    -0x8(%rbp),%rsi
movslq -0x54(%rbp),%rdx
call   1040 <strncpy@plt>
mov    -0x58(%rbp),%eax
add    -0x54(%rbp),%eax
cltq
movb   $0x0,-0x50(%rbp,%rax,1)
lea    -0x50(%rbp),%rdi
mov    $0x0,%al
call   1030 <getenv@plt>
cltq
mov    %rax,-0x60(%rbp)
cmpq   $0x0,-0x60(%rbp)
je     123f <GRGENV+0xff>
mov    -0x60(%rbp),%rdi
call   1060 <strlen@plt>
movslq -0x20(%rbp),%rcx
cmp    %rcx,%rax
jbe    124a <GRGENV+0x10a>
lea    0xdc1(%rip),%rax
mov    %rax,-0x60(%rbp)
mov    -0x10(%rbp),%rdi
mov    -0x60(%rbp),%rsi
movslq -0x20(%rbp),%rdx
call   1040 <strncpy@plt>
mov    -0x60(%rbp),%rdi
call   1060 <strlen@plt>
mov    %eax,-0x68(%rbp)
mov    -0x68(%rbp),%eax
cmp    -0x20(%rbp),%eax
jg     127e <GRGENV+0x13e>
mov    -0x68(%rbp),%eax
mov    %eax,-0x70(%rbp)
jmp    1284 <GRGENV+0x144>
mov    -0x20(%rbp),%eax
mov    %eax,-0x70(%rbp)
mov    -0x70(%rbp),%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x18(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x64(%rbp)
mov    -0x64(%rbp),%eax
cmp    -0x20(%rbp),%eax
jge    12bc <GRGENV+0x17c>
mov    -0x10(%rbp),%rax
movslq -0x64(%rbp),%rcx
movb   $0x20,(%rax,%rcx,1)
mov    -0x64(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x64(%rbp)
jmp    1296 <GRGENV+0x156>
add    $0x70,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<GRGENV>:
push   %rbp
push   %r15
push   %r14
push   %rbx
sub    $0x28,%rsp
mov    %r8d,%ebp
mov    %rdx,%r14
mov    %rsi,%r15
mov    %rdi,%rsi
mov    %ecx,%edx
xor    %eax,%eax
test   %ecx,%ecx
cmovs  %ecx,%eax
nop
test   %edx,%edx
jle    1177 <GRGENV+0x37>
lea    -0x1(%rdx),%rcx
cmpb   $0x20,-0x1(%rsi,%rdx,1)
mov    %rcx,%rdx
je     1160 <GRGENV+0x20>
add    $0x1,%ecx
mov    %ecx,%eax
lea    0x8(%rax),%ecx
cmp    $0x21,%ecx
ja     11c3 <GRGENV+0x83>
movslq %eax,%rbx
movabs $0x5f544f4c504750,%rax
mov    %rax,(%rsp)
lea    0x7(%rsp),%rdi
mov    %rbx,%rdx
call   1040 <strncpy@plt>
mov    %rsp,%rdi
movb   $0x0,0x7(%rbx,%rdi,1)
xor    %eax,%eax
call   1030 <getenv@plt>
test   %eax,%eax
je     11c3 <GRGENV+0x83>
movslq %eax,%rbx
mov    %rbx,%rdi
call   1050 <strlen@plt>
movslq %ebp,%rdx
cmp    %rdx,%rax
jbe    11cd <GRGENV+0x8d>
movslq %ebp,%rdx
lea    0xe33(%rip),%rbx
mov    %r15,%rdi
mov    %rbx,%rsi
call   1040 <strncpy@plt>
mov    %rbx,%rdi
call   1050 <strlen@plt>
cmp    %ebp,%eax
cmovg  %ebp,%eax
mov    %eax,(%r14)
jge    1208 <GRGENV+0xc8>
movslq %eax,%rcx
add    %rcx,%r15
not    %eax
add    %ebp,%eax
add    $0x1,%rax
mov    %r15,%rdi
mov    $0x20,%esi
mov    %rax,%rdx
call   1060 <memset@plt>
add    $0x28,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@GRGENV.prefix = internal global i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i32 0, i32 0)
@.str = [8 x i8] c"PGPLOT_\00"
@.str.1 = [1 x i8] zeroinitializer
define void @GRGENV(i8* %0, i8* %1, i32* %2, i32 %3, i32 %4, i32 %5) {
%7 = alloca i8*
%8 = alloca i8*
%9 = alloca i32*
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca [33 x i8]
%14 = alloca i32
%15 = alloca i32
%16 = alloca i8*
%17 = alloca i32
%18 = alloca i32
store i8* %0, i8** %7
store i8* %1, i8** %8
store i32* %2, i32** %9
store i32 %3, i32* %10
store i32 %4, i32* %11
store i32 %5, i32* %12
store i8* null, i8** %16
%19 = load i32, i32* %10
store i32 %19, i32* %14
br label %20
20: ; preds = %34, %6
%21 = load i32, i32* %14
%22 = icmp sgt i32 %21, 0
br i1 %22, label %23, label %32
23: ; preds = %20
%24 = load i8*, i8** %7
%25 = load i32, i32* %14
%26 = sub nsw i32 %25, 1
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds i8, i8* %24, i64 %27
%29 = load i8, i8* %28
%30 = sext i8 %29 to i32
%31 = icmp eq i32 %30, 32
br label %32
32: ; preds = %23, %20
%33 = phi i1 [ false, %20 ], [ %31, %23 ]
br i1 %33, label %34, label %37
34: ; preds = %32
%35 = load i32, i32* %14
%36 = add nsw i32 %35, -1
store i32 %36, i32* %14
br label %20
37: ; preds = %32
%38 = load i8*, i8** @GRGENV.prefix
%39 = call i64 @strlen(i8* %38)
%40 = trunc i64 %39 to i32
store i32 %40, i32* %15
%41 = load i32, i32* %15
%42 = load i32, i32* %14
%43 = add nsw i32 %41, %42
%44 = add nsw i32 %43, 1
%45 = sext i32 %44 to i64
%46 = icmp ule i64 %45, 33
br i1 %46, label %47, label %67
47: ; preds = %37
%48 = getelementptr inbounds [33 x i8], [33 x i8]* %13, i64 0, i64 0
%49 = load i8*, i8** @GRGENV.prefix
%50 = call i8* @strcpy(i8* %48, i8* %49)
%51 = load i32, i32* %15
%52 = sext i32 %51 to i64
%53 = getelementptr inbounds [33 x i8], [33 x i8]* %13, i64 0, i64 %52
%54 = load i8*, i8** %7
%55 = load i32, i32* %14
%56 = sext i32 %55 to i64
%57 = call i8* @strncpy(i8* %53, i8* %54, i64 %56)
%58 = load i32, i32* %15
%59 = load i32, i32* %14
%60 = add nsw i32 %58, %59
%61 = sext i32 %60 to i64
%62 = getelementptr inbounds [33 x i8], [33 x i8]* %13, i64 0, i64 %61
store i8 0, i8* %62
%63 = getelementptr inbounds [33 x i8], [33 x i8]* %13, i64 0, i64 0
%64 = call i32 (i8*, ...) bitcast (i32 (...)* @getenv to i32 (i8*, ...)*)(i8* %63)
%65 = sext i32 %64 to i64
%66 = inttoptr i64 %65 to i8*
store i8* %66, i8** %16
br label %67
67: ; preds = %47, %37
%68 = load i8*, i8** %16
%69 = icmp eq i8* %68, null
br i1 %69, label %76, label %70
70: ; preds = %67
%71 = load i8*, i8** %16
%72 = call i64 @strlen(i8* %71)
%73 = load i32, i32* %11
%74 = sext i32 %73 to i64
%75 = icmp ugt i64 %72, %74
br i1 %75, label %76, label %77
76: ; preds = %70, %67
store i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.1, i64 0, i64 0), i8** %16
br label %77
77: ; preds = %76, %70
%78 = load i8*, i8** %8
%79 = load i8*, i8** %16
%80 = load i32, i32* %11
%81 = sext i32 %80 to i64
%82 = call i8* @strncpy(i8* %78, i8* %79, i64 %81)
%83 = load i8*, i8** %16
%84 = call i64 @strlen(i8* %83)
%85 = trunc i64 %84 to i32
store i32 %85, i32* %18
%86 = load i32, i32* %18
%87 = load i32, i32* %11
%88 = icmp sle i32 %86, %87
br i1 %88, label %89, label %91
89: ; preds = %77
%90 = load i32, i32* %18
br label %93
91: ; preds = %77
%92 = load i32, i32* %11
br label %93
93: ; preds = %91, %89
%94 = phi i32 [ %90, %89 ], [ %92, %91 ]
%95 = load i32*, i32** %9
store i32 %94, i32* %95
%96 = load i32*, i32** %9
%97 = load i32, i32* %96
store i32 %97, i32* %17
br label %98
98: ; preds = %107, %93
%99 = load i32, i32* %17
%100 = load i32, i32* %11
%101 = icmp slt i32 %99, %100
br i1 %101, label %102, label %110
102: ; preds = %98
%103 = load i8*, i8** %8
%104 = load i32, i32* %17
%105 = sext i32 %104 to i64
%106 = getelementptr inbounds i8, i8* %103, i64 %105
store i8 32, i8* %106
br label %107
107: ; preds = %102
%108 = load i32, i32* %17
%109 = add nsw i32 %108, 1
store i32 %109, i32* %17
br label %98
110: ; preds = %98
ret void
}

LLVM IR (-O2):
@.str.1 = [1 x i8] zeroinitializer
define void @GRGENV(i8* nocapture %0, i8* %1, i32* nocapture writeonly %2, i32 %3, i32 %4, i32 %5) {
%7 = alloca [33 x i8]
%8 = getelementptr inbounds [33 x i8], [33 x i8]* %7, i64 0, i64 0
%9 = zext i32 %3 to i64
%10 = call i32 @llvm.smin.i32(i32 %3, i32 0)
br label %11
11: ; preds = %15, %6
%12 = phi i64 [ %16, %15 ], [ %9, %6 ]
%13 = trunc i64 %12 to i32
%14 = icmp sgt i32 %13, 0
br i1 %14, label %15, label %22
15: ; preds = %11
%16 = add nsw i64 %12, -1
%17 = getelementptr inbounds i8, i8* %0, i64 %16
%18 = load i8, i8* %17
%19 = icmp eq i8 %18, 32
br i1 %19, label %11, label %20
20: ; preds = %15
%21 = trunc i64 %12 to i32
br label %22
22: ; preds = %11, %20
%23 = phi i32 [ %21, %20 ], [ %10, %11 ]
%24 = add nsw i32 %23, 8
%25 = icmp ult i32 %24, 34
br i1 %25, label %26, label %42
26: ; preds = %22
%27 = add nsw i32 %23, 7
%28 = bitcast [33 x i8]* %7 to i64*
store i64 26832822346991440, i64* %28
%29 = getelementptr inbounds [33 x i8], [33 x i8]* %7, i64 0, i64 7
%30 = sext i32 %23 to i64
%31 = call i8* @strncpy(i8* %29, i8* %0, i64 %30)
%32 = sext i32 %27 to i64
%33 = getelementptr inbounds [33 x i8], [33 x i8]* %7, i64 0, i64 %32
store i8 0, i8* %33
%34 = call i32 (i8*, ...) bitcast (i32 (...)* @getenv to i32 (i8*, ...)*)(i8* %8)
%35 = sext i32 %34 to i64
%36 = inttoptr i64 %35 to i8*
%37 = icmp eq i32 %34, 0
br i1 %37, label %42, label %38
38: ; preds = %26
%39 = call i64 @strlen(i8* %36)
%40 = sext i32 %4 to i64
%41 = icmp ugt i64 %39, %40
br i1 %41, label %42, label %44
42: ; preds = %22, %38, %26
%43 = sext i32 %4 to i64
br label %44
44: ; preds = %42, %38
%45 = phi i64 [ %43, %42 ], [ %40, %38 ]
%46 = phi i8* [ getelementptr inbounds ([1 x i8], [1 x i8]* @.str.1, i64 0, i64 0), %42 ], [ %36, %38 ]
%47 = call i8* @strncpy(i8* dereferenceable(1) %1, i8* %46, i64 %45)
%48 = call i64 @strlen(i8* dereferenceable(1) %46)
%49 = trunc i64 %48 to i32
%50 = icmp sgt i32 %49, %4
%51 = select i1 %50, i32 %4, i32 %49
store i32 %51, i32* %2
%52 = icmp slt i32 %49, %4
br i1 %52, label %53, label %60
53: ; preds = %44
%54 = sext i32 %51 to i64
%55 = getelementptr i8, i8* %1, i64 %54
%56 = xor i32 %51, -1
%57 = add i32 %56, %4
%58 = zext i32 %57 to i64
%59 = add nuw nsw i64 %58, 1
br label %60
60: ; preds = %53, %44
ret void
}