home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / ipl / cfuncs / osf.c < prev    next >
C/C++ Source or Header  |  2000-07-29  |  2KB  |  81 lines
  1. /*
  2. ############################################################################
  3. #
  4. #    File:     osf.c
  5. #
  6. #    Subject:  Function to return OSF system table value
  7. #
  8. #    Author:   Gregg M. Townsend
  9. #
  10. #    Date:     November 17, 1997
  11. #
  12. ############################################################################
  13. #
  14. #   This file is in the public domain.
  15. #
  16. ############################################################################
  17. #
  18. #  osftable(id, index, len) returns one element from an OSF table() call.
  19. #  This function is for the OSF operating system, and fails on other systems.
  20. # 
  21. #  See "man table" for a detailed description of the "table" system call
  22. #  and the formats of the structures returned; see /usr/include/table.h
  23. #  for a list of allowed ID values.
  24. # 
  25. #  Defaults: index    0
  26. #            len    100
  27. #
  28. ############################################################################
  29. #
  30. #  Requires:  OSF or Digital UNIX, dynamic loading
  31. #
  32. ############################################################################
  33. */
  34.  
  35. #include "icall.h"
  36. #include <stdlib.h>
  37.  
  38. #define DEFLENGTH 100
  39.  
  40. #ifndef __osf__
  41. int osftable (int argc, descriptor argv[])  { Fail; }
  42. #else
  43.  
  44. int osftable (int argc, descriptor argv[])    /*: query OSF system table */
  45.    {
  46.    int id, index, len;
  47.    static void *buf;
  48.    static int bufsize;
  49.  
  50.    if (argc == 0)
  51.       Error(101);
  52.    ArgInteger(1);
  53.    id = IntegerVal(argv[1]);
  54.  
  55.    if (argc > 1)  {
  56.       ArgInteger(2);
  57.       index = IntegerVal(argv[2]);
  58.       }
  59.    else
  60.       index = 0;
  61.  
  62.    if (argc > 2)  {
  63.       ArgInteger(3);
  64.       len = IntegerVal(argv[3]);
  65.       }
  66.    else
  67.       len = DEFLENGTH;
  68.  
  69.    if (len > bufsize) {
  70.       buf = realloc(buf, bufsize = len);
  71.       if (len > 0 && !buf)
  72.          Error(305);
  73.       }
  74.  
  75.    if ((id = table(id, index, buf, 1, len)) != 1)
  76.       Fail;
  77.    RetStringN(buf, len);
  78.    }
  79.  
  80. #endif
  81.