home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / adaptor / src / global.c < prev    next >
Encoding:
Text File  |  1993-11-30  |  2.5 KB  |  94 lines
  1. /*************************************************************************
  2. *                                                                        *
  3. *  Name : global.c                                                       *
  4. *                                                                        *
  5. *  Purpose : declaration of global data for ADAPTOR translation          *
  6. *                                                                        *
  7. *  Author : Dr. Thomas Brandes, GMD, I1.HR                               *
  8. *                                                                        *
  9. *  Last Update : April 1993                                              *
  10. *                                                                        *
  11. **************************************************************************
  12.  
  13. #include "global.h"
  14.  
  15. #define NOF(X) (sizeof((X))/sizeof((X)[0]))
  16.  
  17. /* possible target machines */
  18.  
  19. char *machine_items [] =
  20.     { "Intel iPSC/860 ",
  21.       "CM-5           ",
  22.       "Parsytec GCel  ",
  23.       "Meiko CS 1     ",
  24.       "Meiko CS 2     ",
  25.       "Suprenum  S1   ",
  26.       "Alliant FX/2800",
  27.       "Silicon Graphic",
  28.       "KSR 1          ",
  29.       "Sun Net (PVM)  ",
  30.       "IBM Net (PVM)  ",
  31.       "Alliant (PVM)  ",
  32.       "OS2     (PVM)  ",
  33.       "KSR 1 (PVM)    " };
  34.  
  35. int no_machine = 14;
  36.  
  37. int target_machine;
  38.  
  39. /* possible target languages */
  40.  
  41. char *language_items [] = { "Fortran 77", "Fortran 90" };
  42. int  no_language = 2;
  43.  
  44. int target_language;
  45.  
  46. /* possible target models */
  47.  
  48. char *model_items [] = { "Host-Node", "Only Node", "Uni Proc "};
  49. int  no_model    = 3;
  50.  
  51. int target_model;
  52.  
  53. /* possible arrays */
  54.  
  55. char *array_items [] = { "Dynamic    ", "Static     " };
  56. int  no_array    = 2;
  57.  
  58. int array_kind;
  59.  
  60. /* possible default distributions */
  61.  
  62. char *ddefault_items [] = {"replicated ", "distributed", "cm default " };
  63. int  no_ddefault  = 3;
  64. int  ddefault_kind;
  65.  
  66. /* possible switches for split flag */
  67.  
  68. char *split_items [] = { "No   ","Yes  " };
  69. int  no_split    = 2;
  70.  
  71. int split_flag;
  72.  
  73. /* possible values/entries for minproc */
  74.  
  75. char *minproc_items [] = { "p=1", "p=2", "p=4", "p=8",
  76.                             "p+1", "p-1", "p*2", "p/2",
  77.                             "typ" };
  78.  
  79. int no_minproc  = 9;
  80. int MinProc     ;
  81.  
  82. /* some other global data */
  83.  
  84. int  StaticArraySize;
  85.  
  86. char last_message [160];   /* last error/hints message */
  87.  
  88. char PHOME [160];
  89.  
  90. /* Flags that are used during the translation */
  91.  
  92. int IsHost;
  93. int IsPure;
  94.