home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gnat-2.06-src.tgz / tar.out / fsf / gnat / ada / syscon.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  16KB  |  426 lines
  1. /****************************************************************************
  2.  *                                                                          *
  3.  *                 GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS               *
  4.  *                                                                          *
  5.  *                               S Y S C O N                                *
  6.  *                                                                          *
  7.  *                          C   G e n e r a t e d                           *
  8.  *                                                                          *
  9.  *                             $Revision: 1.11 $                            *
  10.  *                                                                          *
  11.  *     Copyright (c) 1991,1992,1993,1994,1995 FSU, All Rights Reserved      *
  12.  *                                                                          *
  13.  * GNARL is free software;  you can redistribute it  and/or modify it under *
  14.  * terms of the  GNU General Public License as published  by the Free Soft- *
  15.  * ware  Foundation;  either version 2,  or (at your option) any later ver- *
  16.  * sion. GNARL is distributed in the hope that it will be useful, but WITH- *
  17.  * OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY *
  18.  * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License *
  19.  * for  more details.  You should have  received  a copy of the GNU General *
  20.  * Public License distributed with GNARL;  see file COPYING.  If not, write *
  21.  * to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. *
  22.  *                                                                          *
  23.  ****************************************************************************
  24.  */
  25.  
  26.  
  27. /* This program generates the Ada spec file Interfaces.C.System_Constants,
  28.    which contains system-specific constants and statistics about
  29.    system-specific types. Interfaces.C.System_Constants is then used by
  30.    other interface files to allow the definition of types that can
  31.    be passed to imported C-language system bindings.  These are for the
  32.    most part POSIX standard definitions.  This program also outputs
  33.    some constants related to specific systems if they are defined.
  34. */
  35.  
  36.  
  37. #define ADA_MIN_PRIO 0
  38. #define ADA_MAX_PRIO 99
  39. #define ADD_PRIO 2 
  40. /* additional prio levels for int. entries, mutex ceiling */
  41.  
  42. /* pthread.h should be able to stand on its own, but it currently needs
  43.    definitions from stddef.h and sys/time.h on the SGI Indy.  The Sun version
  44.    seems to tolerate this.
  45. */
  46. #include <stddef.h>
  47. #include <sys/time.h>
  48. #ifdef SOL_THR
  49. #include <thread.h>
  50. #else !SOL_THR
  51. #include <pthread.h>
  52. #endif
  53.  
  54. /* The Sun version of Pthreads defines its own jump buffers in pthread.h
  55.    (which is probably wrong) whereas SGI uses the system definition.
  56.    Bring in the system setjmp.h file only if needed.
  57. */
  58. #ifndef jmp_buf
  59. #include <setjmp.h>
  60. #endif
  61.  
  62. #include <sys/errno.h>
  63.  
  64. /* The Sun version of Pthreads defines its own signal handling types and
  65.    functions in pthreads.h (which is probably wrong),
  66.    whereas SGI uses the system definition.
  67.    Bring in the system signal.h file only if needed.
  68. */
  69. #ifndef sigset_t
  70. #include <signal.h>
  71. #endif
  72.  
  73.  
  74.  
  75. /* The Sun version of Pthreads defines some POSIX error codes that are not
  76.    provided by the SunOS include files.  This file only defines the
  77.    error codes if they are not already defined.
  78. */
  79.  
  80. #ifndef SOL_THR
  81. #include <pthread/errno.h>
  82. #endif
  83.  
  84. main(argc, argv)
  85.     int argc;
  86.     char *argv[];
  87. {
  88.  
  89.   int bits_per_byte;
  90.  
  91. #ifdef SOL_THR
  92.   thread_t p = NULL;
  93. #else !SOL_THR
  94.   pthread_t p = NULL;
  95. #endif
  96.   if(argc > 2) {
  97.     printf("Usage: syscon [-g]\n");
  98.     exit(0);
  99.   }
  100.   else {
  101.     printf("----------------------------------------");
  102.     printf("-------------------------------------\n");
  103.     printf("--                                      ");
  104.     printf("                                   --\n");
  105.     printf("--                GNU ADA RUNTIME LIBRAR");
  106.     printf("Y (GNARL) COMPONENTS               --\n");
  107.     printf("--                                     ");
  108.     printf("                                    --\n");
  109.     printf("--         I n t e r f a c e s . C . S Y");
  110.     printf(" S T E M _ C o n s t a n t s       --\n");
  111.     printf("--                                     ");
  112.     printf("                                    --\n");
  113.     printf("--                                 S p e");
  114.     printf(" c                                 --\n");
  115.     printf("--                                      ");
  116.     printf("                                   --\n");
  117.     printf("--                            $Revision:");
  118.     printf(" 1.1 $                            --\n");
  119.     printf("--                                      ");
  120.     printf("                                   --\n");
  121.     printf("--       Copyright (c) 1991,1992,1993,1994");
  122.     printf(", FSU, All Rights Reserved       --\n");
  123.     printf("--                                      ");
  124.     printf("                                   --\n");
  125.     printf("-- GNARL is free software; you can redis");
  126.     printf("tribute it and/or modify it  under --\n");
  127.     printf("-- terms  of  the  GNU  Library General ");
  128.     printf("Public License as published by the --\n");
  129.     printf("-- Free Software Foundation; either vers");
  130.     printf("ion 2, or  (at  your  option)  any --\n");
  131.     printf("-- later  version.   GNARL is distribute");
  132.     printf("d in the hope that it will be use- --\n");
  133.     printf("-- ful, but but WITHOUT ANY WARRANTY; wi");
  134.     printf("thout even the implied warranty of --\n");
  135.     printf("-- MERCHANTABILITY  or FITNESS FOR A PAR");
  136.     printf("TICULAR PURPOSE.  See the GNU Gen- --\n");
  137.     printf("-- eral Library Public License for more ");
  138.     printf("details.  You should have received --\n");
  139.     printf("-- a  copy of the GNU Library General Pu");
  140.     printf("blic License along with GNARL; see --\n");
  141.     printf("-- file COPYING.LIB.  If not,  write to");
  142.     printf(" the  Free Software Foundation, 675 --\n");
  143.     printf("-- Mass Ave, Cambridge, MA 02139, USA.  ");
  144.     printf("                                   --\n");
  145.     printf("--                                      ");
  146.     printf("                                   --\n");
  147.     printf("----------------------------------------");
  148.     printf("-------------------------------------\n");
  149.     printf("\n");
  150.     printf("package Interfaces.C.System_Constants is\n\n");
  151.  
  152.     /* Figure out the number of bits in a byte. */
  153.      {
  154.     unsigned char b;
  155.  
  156.     bits_per_byte = 0;
  157.     b = 1;
  158.     while (b)
  159.         {
  160.            bits_per_byte++;
  161.            b = b << 1;
  162.         }
  163.      }
  164.  
  165. #ifndef SOL_THR
  166.     printf("   pthread_t_size : constant Integer := %d;\n", 
  167.       sizeof(pthread_t));
  168.     printf("   pthread_attr_t_size : constant Integer := %d;\n", 
  169.       sizeof(pthread_attr_t));
  170.     printf("   pthread_mutexattr_t_size : constant Integer := %d;\n", 
  171.       sizeof(pthread_mutexattr_t));
  172.     printf("   pthread_mutex_t_size : constant Integer := %d;\n", 
  173.       sizeof(pthread_mutex_t));
  174.     printf("   pthread_condattr_t_size : constant Integer := %d;\n", 
  175.       sizeof(pthread_condattr_t));
  176.     printf("   pthread_cond_t_size : constant Integer := %d;\n", 
  177.       sizeof(pthread_cond_t));
  178.     printf("   pthread_key_t_size : constant Integer := %d;\n", 
  179.       sizeof(pthread_key_t));
  180. #else SOL_THR
  181.     printf("   thread_t_size : constant Integer := %d;\n", 
  182.       sizeof(thread_t));
  183.     printf("   mutex_t_size : constant Integer := %d;\n", 
  184.       sizeof(mutex_t));
  185.     printf("   cond_t_size : constant Integer := %d;\n", 
  186.       sizeof(cond_t));
  187.     printf("   thread_key_t_size : constant Integer := %d;\n", 
  188.       sizeof(thread_key_t));
  189.     printf("   THR_DETACHED : constant Integer := %d;\n",
  190.       THR_DETACHED);
  191.     printf("   USYNC_THREAD : constant Integer := %d;\n",
  192.       USYNC_THREAD);
  193. #endif
  194.     printf("   jmp_buf_size : constant Integer := %d;\n",
  195.       sizeof(jmp_buf));
  196.     printf("   sigjmp_buf_size : constant Integer := %d;\n",
  197.       sizeof(sigjmp_buf));
  198.     printf("   sigset_t_size : constant Integer := %d;\n",
  199.       sizeof(sigset_t));
  200.  
  201.     printf("\n");
  202.     printf("   --  The sizes of structures  (in ");
  203.     printf("bytes) and offsets of their components\n");
  204.     printf("   --  (in bits).  These are used to lay ");
  205.     printf("out the equivalent Ada records.\n");
  206.  
  207.     printf("   siginfo_size : constant Integer := %d;\n",
  208.       sizeof(struct siginfo));
  209.      {
  210.     struct siginfo s;
  211.         printf("   si_signo_offset : constant Integer := %d;\n",
  212.           ((char *)&s.si_signo - (char *)&s) * bits_per_byte);
  213.         printf("   si_code_offset : constant Integer := %d;\n",
  214.           ((char *)&s.si_code - (char *)&s) * bits_per_byte);
  215.  
  216.         /* Solaris does not have an si_value field, even though it
  217.            is defined in POSIX.  It is implementation defined, and not
  218.            used at the moment, so we should be able to do without it.
  219.         */
  220.  
  221. /*      printf("   si_value_offset : constant Integer := %d;\n",
  222.           ((char *)&s.si_value - (char *)&s) * bits_per_byte);
  223. */
  224.      }
  225.  
  226.     printf("   sigaction_size : constant Integer := %d;\n",
  227.       sizeof(struct sigaction));
  228.      {
  229.     struct sigaction s;
  230.     printf("   sa_handler_offset : constant Integer := %d;\n",
  231.       ((char *)&s.sa_handler - (char *)&s) * bits_per_byte);
  232.     printf("   sa_mask_offset : constant Integer := %d;\n",
  233.       ((char *)&s.sa_mask - (char *)&s) * bits_per_byte);
  234.     printf("   sa_flags_offset : constant Integer := %d;\n",
  235.           ((char *)&s.sa_flags - (char *)&s) * bits_per_byte);
  236.  
  237.      }
  238.  
  239.     printf("   timespec_size : constant Integer := %d;\n",
  240.       sizeof(struct timespec));
  241.      {
  242.     struct timespec t;
  243.     printf("   tv_sec_offset : constant Integer := %d;\n",
  244.       ((int)&t.tv_sec - (int)&t) * bits_per_byte);
  245.     printf("   tv_nsec_offset : constant Integer := %d;\n",
  246.       ((int)&t.tv_nsec - (int)&t) * bits_per_byte);
  247.      }
  248.  
  249.     printf("\n");
  250.  
  251.     printf("   SIG_BLOCK : constant := %d;\n", SIG_BLOCK);
  252.     printf("   SIG_UNBLOCK : constant := %d;\n", SIG_UNBLOCK);
  253.     printf("   SIG_SETMASK : constant := %d;\n", SIG_SETMASK);
  254.  
  255.     printf("   SA_NOCLDSTOP : constant := %d;\n", SA_NOCLDSTOP);
  256.     printf("   SA_SIGINFO : constant := %d;\n", SA_SIGINFO);
  257.  
  258.     printf("   SIG_ERR : constant := %d;\n", SIG_ERR);
  259.     printf("   SIG_DFL : constant := %d;\n", SIG_DFL);
  260.     printf("   SIG_IGN : constant := %d;\n", SIG_IGN);
  261.  
  262.     printf("   SIGNULL : constant := %d;\n", 0);
  263.     printf("   SIGHUP  : constant := %d;\n", SIGHUP);
  264.     printf("   SIGINT  : constant := %d;\n", SIGINT);
  265.     printf("   SIGQUIT : constant := %d;\n", SIGQUIT);
  266.     printf("   SIGILL  : constant := %d;\n", SIGILL);
  267.     printf("   SIGABRT : constant := %d;\n", SIGABRT);
  268.     printf("   SIGFPE  : constant := %d;\n", SIGFPE);
  269.     printf("   SIGKILL : constant := %d;\n", SIGKILL);
  270.     printf("   SIGSEGV : constant := %d;\n", SIGSEGV);
  271.     printf("   SIGPIPE : constant := %d;\n", SIGPIPE);
  272.     printf("   SIGALRM : constant := %d;\n", SIGALRM);
  273.     printf("   SIGTERM : constant := %d;\n", SIGTERM);
  274.     printf("   SIGSTOP : constant := %d;\n", SIGSTOP);
  275.     printf("   SIGTSTP : constant := %d;\n", SIGTSTP);
  276.     printf("   SIGCONT : constant := %d;\n", SIGCONT);
  277.     printf("   SIGCHLD : constant := %d;\n", SIGCHLD);
  278.     printf("   SIGTTIN : constant := %d;\n", SIGTTIN);
  279.     printf("   SIGTTOU : constant := %d;\n", SIGTTOU);
  280.     printf("   SIGUSR1 : constant := %d;\n", SIGUSR1);
  281.     printf("   SIGUSR2 : constant := %d;\n", SIGUSR2);
  282.  
  283.     /* Number of OS signals. This is not POSIX but we
  284.        need this for each OS on which we are porting RTS */
  285.     printf("   NSIG    : constant := %d;\n", NSIG);
  286.  
  287.     /* OS specific signals */
  288.  
  289.     /* Creating arrays for Synchronous and Asynchronous 
  290.        signals assuming there exists at least one such
  291.        for each array */
  292.  
  293.     printf("   --  OS specific signals represented as an array\n");
  294.  
  295.     printf("   type Sig_Array is array ");
  296.     printf("(positive range <>) of integer;\n");
  297.  
  298.     /* Creating an array for Synchronous Signals */
  299.  
  300.     printf("   OS_Specific_Sync_Sigs : Sig_Array :=\n");
  301.     printf("     (");
  302.  
  303.     printf("NSIG");
  304. #ifdef SIGTRAP
  305.     printf(", %u", SIGTRAP);
  306. #endif    
  307.  
  308. #ifdef SIGEMT
  309.     printf(", %u", SIGEMT);
  310. #endif
  311.  
  312. #ifdef SIGBUS
  313.     printf(", %u", SIGBUS);
  314. #endif    
  315.     printf(");\n");
  316.  
  317.  
  318.     /* Creating an array for Synchronous Signals */
  319.  
  320.     printf("   OS_Specific_Async_Sigs : Sig_Array :=\n");
  321.     printf("     (");
  322.  
  323.     printf("NSIG");
  324. #ifdef SIGSYS
  325.     printf(", %u", SIGSYS);
  326. #endif    
  327.  
  328. #ifdef SIGURG
  329.     printf(", %u", SIGURG);
  330. #endif    
  331.  
  332. #ifdef SIGIO
  333.     printf(", %u", SIGIO);
  334. #endif    
  335.  
  336. #ifdef SIGXCPU
  337.     printf(", %u", SIGXCPU);
  338. #endif    
  339.  
  340. #ifdef SIGXFSZ
  341.     printf(", %u", SIGXFSZ);
  342. #endif    
  343.  
  344. #ifdef SIGVTALRM
  345.     printf(", %u", SIGVTALRM);
  346. #endif    
  347.  
  348. #ifdef SIGPROF
  349.     printf(", %u", SIGPROF);
  350. #endif    
  351.  
  352. #ifdef SIGWINCH
  353.     printf(", %u", SIGWINCH);
  354. #endif    
  355.  
  356. #ifdef SIGLOST
  357.     printf(", %u", SIGLOST);
  358. #endif
  359.     printf(");\n");
  360.     printf("   --  End of OS specific signals representation\n");
  361.  
  362.     printf("   EPERM    : constant := %d;\n", EPERM    );
  363.     printf("   ENOENT   : constant := %d;\n", ENOENT   );
  364.     printf("   ESRCH    : constant := %d;\n", ESRCH    );
  365.     printf("   EINTR    : constant := %d;\n", EINTR    );
  366.     printf("   EIO      : constant := %d;\n", EIO      );
  367.     printf("   ENXIO    : constant := %d;\n", ENXIO    );
  368.     printf("   E2BIG    : constant := %d;\n", E2BIG    );
  369.     printf("   ENOEXEC  : constant := %d;\n", ENOEXEC  );
  370.     printf("   EBADF    : constant := %d;\n", EBADF    );
  371.     printf("   ECHILD   : constant := %d;\n", ECHILD   );
  372.     printf("   EAGAIN   : constant := %d;\n", EAGAIN   );
  373.     printf("   ENOMEM   : constant := %d;\n", ENOMEM   );
  374.     printf("   EACCES   : constant := %d;\n", EACCES   );
  375.     printf("   EFAULT   : constant := %d;\n", EFAULT   );
  376.     printf("   ENOTBLK  : constant := %d;\n", ENOTBLK  );
  377.     printf("   EBUSY    : constant := %d;\n", EBUSY    );
  378.     printf("   EEXIST   : constant := %d;\n", EEXIST   );
  379.     printf("   EXDEV    : constant := %d;\n", EXDEV    );
  380.     printf("   ENODEV   : constant := %d;\n", ENODEV   );
  381.     printf("   ENOTDIR  : constant := %d;\n", ENOTDIR  );
  382.     printf("   EISDIR   : constant := %d;\n", EISDIR   );
  383.     printf("   EINVAL   : constant := %d;\n", EINVAL   );
  384.     printf("   ENFILE   : constant := %d;\n", ENFILE   );
  385.     printf("   EMFILE   : constant := %d;\n", EMFILE   );
  386.     printf("   ENOTTY   : constant := %d;\n", ENOTTY   );
  387.     printf("   ETXTBSY  : constant := %d;\n", ETXTBSY  );
  388.     printf("   EFBIG    : constant := %d;\n", EFBIG    );
  389.     printf("   ENOSPC   : constant := %d;\n", ENOSPC   );
  390.     printf("   ESPIPE   : constant := %d;\n", ESPIPE   );
  391.     printf("   EROFS    : constant := %d;\n", EROFS    );
  392.     printf("   EMLINK   : constant := %d;\n", EMLINK   );
  393.     printf("   EPIPE    : constant := %d;\n", EPIPE    );
  394.     printf("   ENAMETOOLONG : constant := %d;\n", ENAMETOOLONG   );
  395.     printf("   ENOTEMPTY    : constant := %d;\n", ENOTEMPTY   );
  396.     printf("   EDEADLK  : constant := %d;\n", EDEADLK   );
  397.     printf("   ENOLCK   : constant := %d;\n", ENOLCK   );
  398.     printf("   ENOSYS   : constant := %d;\n", ENOSYS   );
  399.     printf("   ENOTSUP  : constant := %d;\n", ENOTSUP  );
  400.  
  401. /* SGI doesn't define these, so put in dummy values if they are undefined. */
  402. #ifdef NO_PRIO_INHERIT
  403.     printf("   NO_PRIO_INHERIT : constant := %d;\n", NO_PRIO_INHERIT);
  404.     printf("   PRIO_INHERIT : constant := %d;\n", PRIO_INHERIT);
  405.     printf("   PRIO_PROTECT : constant := %d;\n", PRIO_PROTECT);
  406. #else
  407.     printf("   NO_PRIO_INHERIT : constant := 0;\n");
  408.     printf("   PRIO_INHERIT : constant := 0;\n");
  409.     printf("   PRIO_PROTECT : constant := 0;\n");
  410. #endif
  411.  
  412. /* A kludge to get the SGI version working; it appears to implement
  413.    priorities, but does not have the usual POSIX definitions for it. */
  414. #ifdef SCHED_FIFO
  415.     if (sched_get_priority_min(SCHED_FIFO) > ADA_MIN_PRIO ||
  416.         sched_get_priority_max(SCHED_FIFO) < ADA_MAX_PRIO + ADD_PRIO)
  417.       fprintf(stderr, "ERROR: Pthreads priority range too small\n");
  418.     else
  419. #endif
  420.       printf("   Add_Prio : constant Integer := %d;\n", ADD_PRIO);
  421.     printf("\nend Interfaces.C.System_Constants;\n");
  422.  
  423.   }
  424.   return(0);
  425. }
  426.