libgo/runtime/go-getgoroot.c

   1 /* go-getgoroot.c -- getgoroot function for runtime package.
   2
   3    Copyright 2010 The Go Authors. All rights reserved.
   4    Use of this source code is governed by a BSD-style
   5    license that can be found in the LICENSE file.  */
   6
   7 #include <stdlib.h>
   8
   9 #include "go-string.h"
  10
  11 struct __go_string getgoroot (void) asm ("runtime.getgoroot");
  12
  13 struct __go_string
  14 getgoroot ()
  15 {
  16   const char *p;
  17   struct __go_string ret;
  18
  19   p = getenv ("GOROOT");
  20   ret.__data = (const unsigned char *) p;
  21   if (ret.__data == NULL)
  22     ret.__length = 0;
  23   else
  24     ret.__length = __builtin_strlen (p);
  25   return ret;
  26 }