examples/getenv.lisp

   1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          getenv.cl
   6 ;;;; Purpose:       UFFI Example file to get environment variable
   7 ;;;; Programmer:    Kevin M. Rosenberg
   8 ;;;; Date Started:  Feb 2002
   9 ;;;;
  10 ;;;; $Id$
  11 ;;;;
  12 ;;;; This file, part of UFFI, is Copyright (c) 2002-2005 by Kevin M. Rosenberg
  13 ;;;;
  14 ;;;; *************************************************************************
  15
  16 (in-package :cl-user)
  17
  18
  19 (uffi:def-function ("getenv" c-getenv)
  20     ((name :cstring))
  21   :returning :cstring)
  22
  23 (defun my-getenv (key)
  24   "Returns an environment variable, or NIL if it does not exist"
  25   (check-type key string)
  26   (uffi:with-cstring (key-native key)
  27     (uffi:convert-from-cstring (c-getenv key-native))))
  28
  29 #+examples-uffi
  30 (progn
  31   (flet ((print-results (str)
  32            (format t "~&(getenv ~S) => ~S" str (my-getenv str))))
  33     (print-results "USER")
  34     (print-results "_FOO_")))
  35
  36
  37 #+test-uffi
  38 (progn
  39   (util.test:test (my-getenv "_FOO_") nil :fail-info "Error retrieving non-existent getenv")
  40   (util.test:test (and (stringp (my-getenv "USER"))
  41                        (< 0 (length (my-getenv "USER"))))
  42                   t :fail-info "Error retrieving getenv")
  43 )
  44