void grgenv_(name, value, length, name_dim, value_dim) char *name, *value;
int *length;
int name_dim, value_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)
movq   $0x0,-0x60(%rbp)
mov    -0x1c(%rbp),%eax
mov    %eax,-0x54(%rbp)
xor    %eax,%eax
cmpl   $0x0,-0x54(%rbp)
mov    %al,-0x69(%rbp)
jle    1192 <grgenv_+0x52>
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    11a2 <grgenv_+0x62>
jmp    11b0 <grgenv_+0x70>
mov    -0x54(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x54(%rbp)
jmp    1169 <grgenv_+0x29>
mov    0x2e89(%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     121a <grgenv_+0xda>
lea    -0x50(%rbp),%rdi
mov    0x2e61(%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     123b <grgenv_+0xfb>
mov    -0x60(%rbp),%rdi
call   1060 <strlen@plt>
movslq -0x20(%rbp),%rcx
cmp    %rcx,%rax
jbe    1246 <grgenv_+0x106>
lea    0xdc5(%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     127a <grgenv_+0x13a>
mov    -0x68(%rbp),%eax
mov    %eax,-0x70(%rbp)
jmp    1280 <grgenv_+0x140>
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    12b8 <grgenv_+0x178>
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    1292 <grgenv_+0x152>
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) {
%6 = alloca i8*
%7 = alloca i8*
%8 = alloca i32*
%9 = alloca i32
%10 = alloca i32
%11 = alloca [33 x i8]
%12 = alloca i32
%13 = alloca i32
%14 = alloca i8*
%15 = alloca i32
%16 = alloca i32
store i8* %0, i8** %6
store i8* %1, i8** %7
store i32* %2, i32** %8
store i32 %3, i32* %9
store i32 %4, i32* %10
store i8* null, i8** %14
%17 = load i32, i32* %9
store i32 %17, i32* %12
br label %18
18: ; preds = %32, %5
%19 = load i32, i32* %12
%20 = icmp sgt i32 %19, 0
br i1 %20, label %21, label %30
21: ; preds = %18
%22 = load i8*, i8** %6
%23 = load i32, i32* %12
%24 = sub nsw i32 %23, 1
%25 = sext i32 %24 to i64
%26 = getelementptr inbounds i8, i8* %22, i64 %25
%27 = load i8, i8* %26
%28 = sext i8 %27 to i32
%29 = icmp eq i32 %28, 32
br label %30
30: ; preds = %21, %18
%31 = phi i1 [ false, %18 ], [ %29, %21 ]
br i1 %31, label %32, label %35
32: ; preds = %30
%33 = load i32, i32* %12
%34 = add nsw i32 %33, -1
store i32 %34, i32* %12
br label %18
35: ; preds = %30
%36 = load i8*, i8** @grgenv_.prefix
%37 = call i64 @strlen(i8* %36)
%38 = trunc i64 %37 to i32
store i32 %38, i32* %13
%39 = load i32, i32* %13
%40 = load i32, i32* %12
%41 = add nsw i32 %39, %40
%42 = add nsw i32 %41, 1
%43 = sext i32 %42 to i64
%44 = icmp ule i64 %43, 33
br i1 %44, label %45, label %65
45: ; preds = %35
%46 = getelementptr inbounds [33 x i8], [33 x i8]* %11, i64 0, i64 0
%47 = load i8*, i8** @grgenv_.prefix
%48 = call i8* @strcpy(i8* %46, i8* %47)
%49 = load i32, i32* %13
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds [33 x i8], [33 x i8]* %11, i64 0, i64 %50
%52 = load i8*, i8** %6
%53 = load i32, i32* %12
%54 = sext i32 %53 to i64
%55 = call i8* @strncpy(i8* %51, i8* %52, i64 %54)
%56 = load i32, i32* %13
%57 = load i32, i32* %12
%58 = add nsw i32 %56, %57
%59 = sext i32 %58 to i64
%60 = getelementptr inbounds [33 x i8], [33 x i8]* %11, i64 0, i64 %59
store i8 0, i8* %60
%61 = getelementptr inbounds [33 x i8], [33 x i8]* %11, i64 0, i64 0
%62 = call i32 (i8*, ...) bitcast (i32 (...)* @getenv to i32 (i8*, ...)*)(i8* %61)
%63 = sext i32 %62 to i64
%64 = inttoptr i64 %63 to i8*
store i8* %64, i8** %14
br label %65
65: ; preds = %45, %35
%66 = load i8*, i8** %14
%67 = icmp eq i8* %66, null
br i1 %67, label %74, label %68
68: ; preds = %65
%69 = load i8*, i8** %14
%70 = call i64 @strlen(i8* %69)
%71 = load i32, i32* %10
%72 = sext i32 %71 to i64
%73 = icmp ugt i64 %70, %72
br i1 %73, label %74, label %75
74: ; preds = %68, %65
store i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.1, i64 0, i64 0), i8** %14
br label %75
75: ; preds = %74, %68
%76 = load i8*, i8** %7
%77 = load i8*, i8** %14
%78 = load i32, i32* %10
%79 = sext i32 %78 to i64
%80 = call i8* @strncpy(i8* %76, i8* %77, i64 %79)
%81 = load i8*, i8** %14
%82 = call i64 @strlen(i8* %81)
%83 = trunc i64 %82 to i32
store i32 %83, i32* %16
%84 = load i32, i32* %16
%85 = load i32, i32* %10
%86 = icmp sle i32 %84, %85
br i1 %86, label %87, label %89
87: ; preds = %75
%88 = load i32, i32* %16
br label %91
89: ; preds = %75
%90 = load i32, i32* %10
br label %91
91: ; preds = %89, %87
%92 = phi i32 [ %88, %87 ], [ %90, %89 ]
%93 = load i32*, i32** %8
store i32 %92, i32* %93
%94 = load i32*, i32** %8
%95 = load i32, i32* %94
store i32 %95, i32* %15
br label %96
96: ; preds = %105, %91
%97 = load i32, i32* %15
%98 = load i32, i32* %10
%99 = icmp slt i32 %97, %98
br i1 %99, label %100, label %108
100: ; preds = %96
%101 = load i8*, i8** %7
%102 = load i32, i32* %15
%103 = sext i32 %102 to i64
%104 = getelementptr inbounds i8, i8* %101, i64 %103
store i8 32, i8* %104
br label %105
105: ; preds = %100
%106 = load i32, i32* %15
%107 = add nsw i32 %106, 1
store i32 %107, i32* %15
br label %96
108: ; preds = %96
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) {
%6 = alloca [33 x i8]
%7 = getelementptr inbounds [33 x i8], [33 x i8]* %6, i64 0, i64 0
%8 = zext i32 %3 to i64
%9 = call i32 @llvm.smin.i32(i32 %3, i32 0)
br label %10
10: ; preds = %14, %5
%11 = phi i64 [ %15, %14 ], [ %8, %5 ]
%12 = trunc i64 %11 to i32
%13 = icmp sgt i32 %12, 0
br i1 %13, label %14, label %21
14: ; preds = %10
%15 = add nsw i64 %11, -1
%16 = getelementptr inbounds i8, i8* %0, i64 %15
%17 = load i8, i8* %16
%18 = icmp eq i8 %17, 32
br i1 %18, label %10, label %19
19: ; preds = %14
%20 = trunc i64 %11 to i32
br label %21
21: ; preds = %10, %19
%22 = phi i32 [ %20, %19 ], [ %9, %10 ]
%23 = add nsw i32 %22, 8
%24 = icmp ult i32 %23, 34
br i1 %24, label %25, label %41
25: ; preds = %21
%26 = add nsw i32 %22, 7
%27 = bitcast [33 x i8]* %6 to i64*
store i64 26832822346991440, i64* %27
%28 = getelementptr inbounds [33 x i8], [33 x i8]* %6, i64 0, i64 7
%29 = sext i32 %22 to i64
%30 = call i8* @strncpy(i8* %28, i8* %0, i64 %29)
%31 = sext i32 %26 to i64
%32 = getelementptr inbounds [33 x i8], [33 x i8]* %6, i64 0, i64 %31
store i8 0, i8* %32
%33 = call i32 (i8*, ...) bitcast (i32 (...)* @getenv to i32 (i8*, ...)*)(i8* %7)
%34 = sext i32 %33 to i64
%35 = inttoptr i64 %34 to i8*
%36 = icmp eq i32 %33, 0
br i1 %36, label %41, label %37
37: ; preds = %25
%38 = call i64 @strlen(i8* %35)
%39 = sext i32 %4 to i64
%40 = icmp ugt i64 %38, %39
br i1 %40, label %41, label %43
41: ; preds = %21, %37, %25
%42 = sext i32 %4 to i64
br label %43
43: ; preds = %41, %37
%44 = phi i64 [ %42, %41 ], [ %39, %37 ]
%45 = phi i8* [ getelementptr inbounds ([1 x i8], [1 x i8]* @.str.1, i64 0, i64 0), %41 ], [ %35, %37 ]
%46 = call i8* @strncpy(i8* dereferenceable(1) %1, i8* %45, i64 %44)
%47 = call i64 @strlen(i8* dereferenceable(1) %45)
%48 = trunc i64 %47 to i32
%49 = icmp sgt i32 %48, %4
%50 = select i1 %49, i32 %4, i32 %48
store i32 %50, i32* %2
%51 = icmp slt i32 %48, %4
br i1 %51, label %52, label %59
52: ; preds = %43
%53 = sext i32 %50 to i64
%54 = getelementptr i8, i8* %1, i64 %53
%55 = xor i32 %50, -1
%56 = add i32 %55, %4
%57 = zext i32 %56 to i64
%58 = add nuw nsw i64 %57, 1
br label %59
59: ; preds = %52, %43
ret void
}