ncurses 5.9 - patch 20140125
[ncurses.git] / Ada95 / gen / gen.c
1 /****************************************************************************
2  * Copyright (c) 1998-2013,2014 Free Software Foundation, Inc.              *
3  *                                                                          *
4  * Permission is hereby granted, free of charge, to any person obtaining a  *
5  * copy of this software and associated documentation files (the            *
6  * "Software"), to deal in the Software without restriction, including      *
7  * without limitation the rights to use, copy, modify, merge, publish,      *
8  * distribute, distribute with modifications, sublicense, and/or sell       *
9  * copies of the Software, and to permit persons to whom the Software is    *
10  * furnished to do so, subject to the following conditions:                 *
11  *                                                                          *
12  * The above copyright notice and this permission notice shall be included  *
13  * in all copies or substantial portions of the Software.                   *
14  *                                                                          *
15  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
16  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
17  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
18  * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
19  * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
20  * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
21  * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
22  *                                                                          *
23  * Except as contained in this notice, the name(s) of the above copyright   *
24  * holders shall not be used in advertising or otherwise to promote the     *
25  * sale, use or other dealings in this Software without prior written       *
26  * authorization.                                                           *
27  ****************************************************************************/
28
29 /****************************************************************************
30  *   Author:  Juergen Pfeifer, 1996                                         *
31  ****************************************************************************/
32
33 /*
34     Version Control
35     $Id: gen.c,v 1.62 2014/01/26 00:21:52 Nicolas.Boulenguez Exp $
36   --------------------------------------------------------------------------*/
37 /*
38   This program generates various record structures and constants from the
39   ncurses header file for the Ada95 packages. Essentially it produces
40   Ada95 source on stdout, which is then merged using m4 into a template
41   to produce the real source.
42   */
43
44 #ifdef HAVE_CONFIG_H
45 #include <ncurses_cfg.h>
46 #else
47 #include <ncurses.h>
48 #define HAVE_USE_DEFAULT_COLORS 1
49 #endif
50
51 #include <stdlib.h>
52 #include <stddef.h>
53 #include <string.h>
54 #include <assert.h>
55 #include <ctype.h>
56
57 #include <menu.h>
58 #include <form.h>
59
60 #define UChar(c)        ((unsigned char)(c))
61 #define RES_NAME "Reserved"
62
63 static const char *model = "";
64 static int little_endian = 0;
65
66 typedef struct
67   {
68     const char *name;
69     unsigned long attr;
70   }
71 name_attribute_pair;
72
73 static int
74 find_pos(char *s, unsigned len, int *low, int *high)
75 {
76   unsigned int i, j;
77   int l = 0;
78
79   *high = -1;
80   *low = (int)(8 * len);
81
82   for (i = 0; i < len; i++, s++)
83     {
84       if (*s)
85         {
86           for (j = 0; j < 8 * sizeof(char); j++)
87
88             {
89               if (((little_endian && ((*s) & 0x01)) ||
90                    (!little_endian && ((*s) & 0x80))))
91                 {
92                   if (l > *high)
93                     *high = l;
94                   if (l < *low)
95                     *low = l;
96                 }
97               l++;
98               if (little_endian)
99                 {
100                   *s >>= 1;
101                 }
102               else
103                 {
104                   *s = (char)(*s << 1);
105                 }
106             }
107         }
108       else
109         l += 8;
110     }
111   return (*high >= 0 && (*low <= *high)) ? *low : -1;
112 }
113
114 /*
115  * This helper routine generates a representation clause for a
116  * record type defined in the binding.
117  * We are only dealing with record types which are of 32 or 16
118  * bit size, i.e. they fit into an (u)int or a (u)short.
119  * Any pair with a 0 attr field will be ignored.
120  */
121 static void
122 gen_reps(
123           const name_attribute_pair * nap,      /* array of name_attribute_pair records */
124           const char *name,     /* name of the represented record type  */
125           int len,              /* size of the record in bytes          */
126           int bias)
127 {
128   const int len_bits = (8 * len);
129   int i, l, low, high;
130   int width = strlen(RES_NAME) + 3;
131   unsigned long a;
132
133   assert(nap != NULL);
134
135   for (i = 0; nap[i].name != (char *)0; i++)
136     if (nap[i].attr)
137       {
138         l = (int)strlen(nap[i].name);
139         if (l > width)
140           width = l;
141       }
142   assert(width > 0);
143
144   printf("   type %s is\n", name);
145   printf("      record\n");
146   for (i = 0; nap[i].name != (char *)0; i++)
147     if (nap[i].attr)
148       {
149         printf("         %-*s : Boolean;\n", width, nap[i].name);
150       }
151   printf("      end record;\n");
152   printf("   pragma Convention (C, %s);\n\n", name);
153
154   printf("   for %s use\n", name);
155   printf("      record\n");
156
157   for (i = 0; nap[i].name != (char *)0; i++)
158     if (nap[i].attr)
159       {
160         a = nap[i].attr;
161         l = find_pos((char *)&a, sizeof(a), &low, &high);
162         if (l >= 0)
163           printf("         %-*s at 0 range %2d .. %2d;\n", width, nap[i].name,
164                  low - bias, high - bias);
165       }
166   printf("      end record;\n");
167   printf("   pragma Warnings (Off);");
168   printf("   for %s'Size use %d;\n", name, len_bits);
169   printf("   pragma Warnings (On);\n");
170   printf("   --  Please note: this rep. clause is generated and may be\n");
171   printf("   --               different on your system.");
172 }
173
174 static void
175 chtype_rep(const char *name, attr_t mask)
176 {
177   attr_t x = (attr_t)-1;
178   attr_t t = x & mask;
179   int low, high;
180   int l = find_pos((char *)&t, sizeof(t), &low, &high);
181
182   if (l >= 0)
183     printf("         %-5s at 0 range %2d .. %2d;\n", name, low, high);
184 }
185
186 static void
187 gen_chtype_rep(const char *name)
188 {
189   printf("   for %s use\n      record\n", name);
190   chtype_rep("Ch", A_CHARTEXT);
191   chtype_rep("Color", A_COLOR);
192   chtype_rep("Attr", (A_ATTRIBUTES & ~A_COLOR));
193   printf("      end record;\n   for %s'Size use %ld;\n",
194          name, (long)(8 * sizeof(chtype)));
195
196   printf("      --  Please note: this rep. clause is generated and may be\n");
197   printf("      --               different on your system.\n");
198 }
199
200 static void
201 mrep_rep(const char *name, void *rec)
202 {
203   int low, high;
204   int l = find_pos((char *)rec, sizeof(MEVENT), &low, &high);
205
206   if (l >= 0)
207     printf("         %-7s at 0 range %3d .. %3d;\n", name, low, high);
208 }
209
210 static void
211 gen_mrep_rep(const char *name)
212 {
213   MEVENT x;
214
215   printf("   for %s use\n      record\n", name);
216
217   memset(&x, 0, sizeof(x));
218   x.id = -1;
219   mrep_rep("Id", &x);
220
221   memset(&x, 0, sizeof(x));
222   x.x = -1;
223   mrep_rep("X", &x);
224
225   memset(&x, 0, sizeof(x));
226   x.y = -1;
227   mrep_rep("Y", &x);
228
229   memset(&x, 0, sizeof(x));
230   x.z = -1;
231   mrep_rep("Z", &x);
232
233   memset(&x, 0, sizeof(x));
234   x.bstate = (mmask_t) - 1;
235   mrep_rep("Bstate", &x);
236
237   printf("      end record;\n");
238   printf("      --  Please note: this rep. clause is generated and may be\n");
239   printf("      --               different on your system.\n");
240 }
241
242 static void
243 gen_attr_set(const char *name)
244 {
245   /* All of the A_xxx symbols are defined in ncurses, but not all are nonzero
246    * if "configure --enable-widec" is not specified.  Originally (in
247    * 1999-2000), the ifdef's also were needed since the proposed bit-layout
248    * for wide characters allocated 16-bits for A_CHARTEXT, leaving too few
249    * bits for a few of the A_xxx symbols.
250    * Some preprocessors are not able to test the values because they
251    * now (2014) contain an explicit cast to chtype, so we avoid ifdef.
252    */
253   static const name_attribute_pair nap[] =
254   {
255     {"Stand_Out", A_STANDOUT},
256     {"Under_Line", A_UNDERLINE},
257     {"Reverse_Video", A_REVERSE},
258     {"Blink", A_BLINK},
259     {"Dim_Character", A_DIM},
260     {"Bold_Character", A_BOLD},
261     {"Alternate_Character_Set", A_ALTCHARSET},
262     {"Invisible_Character", A_INVIS},
263     {"Protected_Character", A_PROTECT},
264     {"Horizontal", A_HORIZONTAL},
265     {"Left", A_LEFT},
266     {"Low", A_LOW},
267     {"Right", A_RIGHT},
268     {"Top", A_TOP},
269     {"Vertical", A_VERTICAL},
270     {(char *)0, 0}
271   };
272   chtype attr = A_ATTRIBUTES & ~A_COLOR;
273   int start = -1;
274   int len = 0;
275   int i;
276   chtype set;
277   for (i = 0; i < (int)(8 * sizeof(chtype)); i++)
278
279     {
280       set = (attr & 1);
281       if (set)
282         {
283           if (start < 0)
284             start = i;
285           if (start >= 0)
286             {
287               len++;
288             }
289         }
290       attr = attr >> 1;
291     }
292   gen_reps(nap, name, (len + 7) / 8, little_endian ? start : 0);
293 }
294
295 static void
296 gen_trace(const char *name)
297 {
298   static const name_attribute_pair nap[] =
299   {
300     {"Times", TRACE_TIMES},
301     {"Tputs", TRACE_TPUTS},
302     {"Update", TRACE_UPDATE},
303     {"Cursor_Move", TRACE_MOVE},
304     {"Character_Output", TRACE_CHARPUT},
305     {"Calls", TRACE_CALLS},
306     {"Virtual_Puts", TRACE_VIRTPUT},
307     {"Input_Events", TRACE_IEVENT},
308     {"TTY_State", TRACE_BITS},
309     {"Internal_Calls", TRACE_ICALLS},
310     {"Character_Calls", TRACE_CCALLS},
311     {"Termcap_TermInfo", TRACE_DATABASE},
312     {"Attributes_And_Colors", TRACE_ATTRS},
313     {(char *)0, 0}
314   };
315   gen_reps(nap, name, sizeof(int), 0);
316 }
317
318 static void
319 gen_menu_opt_rep(const char *name)
320 {
321   static const name_attribute_pair nap[] =
322   {
323 #ifdef O_ONEVALUE
324     {"One_Valued", O_ONEVALUE},
325 #endif
326 #ifdef O_SHOWDESC
327     {"Show_Descriptions", O_SHOWDESC},
328 #endif
329 #ifdef O_ROWMAJOR
330     {"Row_Major_Order", O_ROWMAJOR},
331 #endif
332 #ifdef O_IGNORECASE
333     {"Ignore_Case", O_IGNORECASE},
334 #endif
335 #ifdef O_SHOWMATCH
336     {"Show_Matches", O_SHOWMATCH},
337 #endif
338 #ifdef O_NONCYCLIC
339     {"Non_Cyclic", O_NONCYCLIC},
340 #endif
341     {(char *)0, 0}
342   };
343   gen_reps(nap, name, sizeof(int), 0);
344 }
345
346 static void
347 gen_item_opt_rep(const char *name)
348 {
349   static const name_attribute_pair nap[] =
350   {
351 #ifdef O_SELECTABLE
352     {"Selectable", O_SELECTABLE},
353 #endif
354     {(char *)0, 0}
355   };
356   gen_reps(nap, name, sizeof(int), 0);
357 }
358
359 static void
360 gen_form_opt_rep(const char *name)
361 {
362   static const name_attribute_pair nap[] =
363   {
364 #ifdef O_NL_OVERLOAD
365     {"NL_Overload", O_NL_OVERLOAD},
366 #endif
367 #ifdef O_BS_OVERLOAD
368     {"BS_Overload", O_BS_OVERLOAD},
369 #endif
370     {(char *)0, 0}
371   };
372   gen_reps(nap, name, sizeof(int), 0);
373 }
374
375 /*
376  * Generate the representation clause for the Field_Option_Set record
377  */
378 static void
379 gen_field_opt_rep(const char *name)
380 {
381   static const name_attribute_pair nap[] =
382   {
383 #ifdef O_VISIBLE
384     {"Visible", O_VISIBLE},
385 #endif
386 #ifdef O_ACTIVE
387     {"Active", O_ACTIVE},
388 #endif
389 #ifdef O_PUBLIC
390     {"Public", O_PUBLIC},
391 #endif
392 #ifdef O_EDIT
393     {"Edit", O_EDIT},
394 #endif
395 #ifdef O_WRAP
396     {"Wrap", O_WRAP},
397 #endif
398 #ifdef O_BLANK
399     {"Blank", O_BLANK},
400 #endif
401 #ifdef O_AUTOSKIP
402     {"Auto_Skip", O_AUTOSKIP},
403 #endif
404 #ifdef O_NULLOK
405     {"Null_Ok", O_NULLOK},
406 #endif
407 #ifdef O_PASSOK
408     {"Pass_Ok", O_PASSOK},
409 #endif
410 #ifdef O_STATIC
411     {"Static", O_STATIC},
412 #endif
413     {(char *)0, 0}
414   };
415   gen_reps(nap, name, sizeof(int), 0);
416 }
417
418 /*
419  * Generate a single key code constant definition.
420  */
421 static void
422 keydef(const char *name, const char *old_name, int value, int mode)
423 {
424   if (mode == 0)                /* Generate the new name */
425     printf("   %-30s : constant Special_Key_Code := 8#%3o#;\n", name, value);
426   else
427     {
428       const char *s = old_name;
429       const char *t = name;
430
431       /* generate the old name, but only if it doesn't conflict with the old
432        * name (Ada95 isn't case sensitive!)
433        */
434       while (*s && *t && (toupper(UChar(*s++)) == toupper(UChar(*t++))));
435       if (*s || *t)
436         printf("   %-16s : Special_Key_Code renames %s;\n", old_name, name);
437     }
438 }
439
440 /*
441  * Generate constants for the key codes. When called with mode==0, a
442  * complete list with nice constant names in proper casing style will
443  * be generated. Otherwise a list of old (i.e. C-style) names will be
444  * generated, given that the name wasn't already defined in the "nice"
445  * list.
446  */
447 static void
448 gen_keydefs(int mode)
449 {
450   char buf[16];
451   char obuf[16];
452   int i;
453
454 #ifdef KEY_CODE_YES
455   keydef("Key_Code_Yes", "KEY_CODE_YES", KEY_CODE_YES, mode);
456 #endif
457 #ifdef KEY_MIN
458   keydef("Key_Min", "KEY_MIN", KEY_MIN, mode);
459 #endif
460 #ifdef KEY_BREAK
461   keydef("Key_Break", "KEY_BREAK", KEY_BREAK, mode);
462 #endif
463 #ifdef KEY_DOWN
464   keydef("Key_Cursor_Down", "KEY_DOWN", KEY_DOWN, mode);
465 #endif
466 #ifdef KEY_UP
467   keydef("Key_Cursor_Up", "KEY_UP", KEY_UP, mode);
468 #endif
469 #ifdef KEY_LEFT
470   keydef("Key_Cursor_Left", "KEY_LEFT", KEY_LEFT, mode);
471 #endif
472 #ifdef KEY_RIGHT
473   keydef("Key_Cursor_Right", "KEY_RIGHT", KEY_RIGHT, mode);
474 #endif
475 #ifdef KEY_HOME
476   keydef("Key_Home", "KEY_HOME", KEY_HOME, mode);
477 #endif
478 #ifdef KEY_BACKSPACE
479   keydef("Key_Backspace", "KEY_BACKSPACE", KEY_BACKSPACE, mode);
480 #endif
481 #ifdef KEY_F0
482   keydef("Key_F0", "KEY_F0", KEY_F0, mode);
483 #endif
484 #ifdef KEY_F
485   for (i = 1; i <= 24; i++)
486     {
487       sprintf(buf, "Key_F%d", i);
488       sprintf(obuf, "KEY_F%d", i);
489       keydef(buf, obuf, KEY_F(i), mode);
490     }
491 #endif
492 #ifdef KEY_DL
493   keydef("Key_Delete_Line", "KEY_DL", KEY_DL, mode);
494 #endif
495 #ifdef KEY_IL
496   keydef("Key_Insert_Line", "KEY_IL", KEY_IL, mode);
497 #endif
498 #ifdef KEY_DC
499   keydef("Key_Delete_Char", "KEY_DC", KEY_DC, mode);
500 #endif
501 #ifdef KEY_IC
502   keydef("Key_Insert_Char", "KEY_IC", KEY_IC, mode);
503 #endif
504 #ifdef KEY_EIC
505   keydef("Key_Exit_Insert_Mode", "KEY_EIC", KEY_EIC, mode);
506 #endif
507 #ifdef KEY_CLEAR
508   keydef("Key_Clear_Screen", "KEY_CLEAR", KEY_CLEAR, mode);
509 #endif
510 #ifdef KEY_EOS
511   keydef("Key_Clear_End_Of_Screen", "KEY_EOS", KEY_EOS, mode);
512 #endif
513 #ifdef KEY_EOL
514   keydef("Key_Clear_End_Of_Line", "KEY_EOL", KEY_EOL, mode);
515 #endif
516 #ifdef KEY_SF
517   keydef("Key_Scroll_1_Forward", "KEY_SF", KEY_SF, mode);
518 #endif
519 #ifdef KEY_SR
520   keydef("Key_Scroll_1_Backward", "KEY_SR", KEY_SR, mode);
521 #endif
522 #ifdef KEY_NPAGE
523   keydef("Key_Next_Page", "KEY_NPAGE", KEY_NPAGE, mode);
524 #endif
525 #ifdef KEY_PPAGE
526   keydef("Key_Previous_Page", "KEY_PPAGE", KEY_PPAGE, mode);
527 #endif
528 #ifdef KEY_STAB
529   keydef("Key_Set_Tab", "KEY_STAB", KEY_STAB, mode);
530 #endif
531 #ifdef KEY_CTAB
532   keydef("Key_Clear_Tab", "KEY_CTAB", KEY_CTAB, mode);
533 #endif
534 #ifdef KEY_CATAB
535   keydef("Key_Clear_All_Tabs", "KEY_CATAB", KEY_CATAB, mode);
536 #endif
537 #ifdef KEY_ENTER
538   keydef("Key_Enter_Or_Send", "KEY_ENTER", KEY_ENTER, mode);
539 #endif
540 #ifdef KEY_SRESET
541   keydef("Key_Soft_Reset", "KEY_SRESET", KEY_SRESET, mode);
542 #endif
543 #ifdef KEY_RESET
544   keydef("Key_Reset", "KEY_RESET", KEY_RESET, mode);
545 #endif
546 #ifdef KEY_PRINT
547   keydef("Key_Print", "KEY_PRINT", KEY_PRINT, mode);
548 #endif
549 #ifdef KEY_LL
550   keydef("Key_Bottom", "KEY_LL", KEY_LL, mode);
551 #endif
552 #ifdef KEY_A1
553   keydef("Key_Upper_Left_Of_Keypad", "KEY_A1", KEY_A1, mode);
554 #endif
555 #ifdef KEY_A3
556   keydef("Key_Upper_Right_Of_Keypad", "KEY_A3", KEY_A3, mode);
557 #endif
558 #ifdef KEY_B2
559   keydef("Key_Center_Of_Keypad", "KEY_B2", KEY_B2, mode);
560 #endif
561 #ifdef KEY_C1
562   keydef("Key_Lower_Left_Of_Keypad", "KEY_C1", KEY_C1, mode);
563 #endif
564 #ifdef KEY_C3
565   keydef("Key_Lower_Right_Of_Keypad", "KEY_C3", KEY_C3, mode);
566 #endif
567 #ifdef KEY_BTAB
568   keydef("Key_Back_Tab", "KEY_BTAB", KEY_BTAB, mode);
569 #endif
570 #ifdef KEY_BEG
571   keydef("Key_Beginning", "KEY_BEG", KEY_BEG, mode);
572 #endif
573 #ifdef KEY_CANCEL
574   keydef("Key_Cancel", "KEY_CANCEL", KEY_CANCEL, mode);
575 #endif
576 #ifdef KEY_CLOSE
577   keydef("Key_Close", "KEY_CLOSE", KEY_CLOSE, mode);
578 #endif
579 #ifdef KEY_COMMAND
580   keydef("Key_Command", "KEY_COMMAND", KEY_COMMAND, mode);
581 #endif
582 #ifdef KEY_COPY
583   keydef("Key_Copy", "KEY_COPY", KEY_COPY, mode);
584 #endif
585 #ifdef KEY_CREATE
586   keydef("Key_Create", "KEY_CREATE", KEY_CREATE, mode);
587 #endif
588 #ifdef KEY_END
589   keydef("Key_End", "KEY_END", KEY_END, mode);
590 #endif
591 #ifdef KEY_EXIT
592   keydef("Key_Exit", "KEY_EXIT", KEY_EXIT, mode);
593 #endif
594 #ifdef KEY_FIND
595   keydef("Key_Find", "KEY_FIND", KEY_FIND, mode);
596 #endif
597 #ifdef KEY_HELP
598   keydef("Key_Help", "KEY_HELP", KEY_HELP, mode);
599 #endif
600 #ifdef KEY_MARK
601   keydef("Key_Mark", "KEY_MARK", KEY_MARK, mode);
602 #endif
603 #ifdef KEY_MESSAGE
604   keydef("Key_Message", "KEY_MESSAGE", KEY_MESSAGE, mode);
605 #endif
606 #ifdef KEY_MOVE
607   keydef("Key_Move", "KEY_MOVE", KEY_MOVE, mode);
608 #endif
609 #ifdef KEY_NEXT
610   keydef("Key_Next", "KEY_NEXT", KEY_NEXT, mode);
611 #endif
612 #ifdef KEY_OPEN
613   keydef("Key_Open", "KEY_OPEN", KEY_OPEN, mode);
614 #endif
615 #ifdef KEY_OPTIONS
616   keydef("Key_Options", "KEY_OPTIONS", KEY_OPTIONS, mode);
617 #endif
618 #ifdef KEY_PREVIOUS
619   keydef("Key_Previous", "KEY_PREVIOUS", KEY_PREVIOUS, mode);
620 #endif
621 #ifdef KEY_REDO
622   keydef("Key_Redo", "KEY_REDO", KEY_REDO, mode);
623 #endif
624 #ifdef KEY_REFERENCE
625   keydef("Key_Reference", "KEY_REFERENCE", KEY_REFERENCE, mode);
626 #endif
627 #ifdef KEY_REFRESH
628   keydef("Key_Refresh", "KEY_REFRESH", KEY_REFRESH, mode);
629 #endif
630 #ifdef KEY_REPLACE
631   keydef("Key_Replace", "KEY_REPLACE", KEY_REPLACE, mode);
632 #endif
633 #ifdef KEY_RESTART
634   keydef("Key_Restart", "KEY_RESTART", KEY_RESTART, mode);
635 #endif
636 #ifdef KEY_RESUME
637   keydef("Key_Resume", "KEY_RESUME", KEY_RESUME, mode);
638 #endif
639 #ifdef KEY_SAVE
640   keydef("Key_Save", "KEY_SAVE", KEY_SAVE, mode);
641 #endif
642 #ifdef KEY_SBEG
643   keydef("Key_Shift_Begin", "KEY_SBEG", KEY_SBEG, mode);
644 #endif
645 #ifdef KEY_SCANCEL
646   keydef("Key_Shift_Cancel", "KEY_SCANCEL", KEY_SCANCEL, mode);
647 #endif
648 #ifdef KEY_SCOMMAND
649   keydef("Key_Shift_Command", "KEY_SCOMMAND", KEY_SCOMMAND, mode);
650 #endif
651 #ifdef KEY_SCOPY
652   keydef("Key_Shift_Copy", "KEY_SCOPY", KEY_SCOPY, mode);
653 #endif
654 #ifdef KEY_SCREATE
655   keydef("Key_Shift_Create", "KEY_SCREATE", KEY_SCREATE, mode);
656 #endif
657 #ifdef KEY_SDC
658   keydef("Key_Shift_Delete_Char", "KEY_SDC", KEY_SDC, mode);
659 #endif
660 #ifdef KEY_SDL
661   keydef("Key_Shift_Delete_Line", "KEY_SDL", KEY_SDL, mode);
662 #endif
663 #ifdef KEY_SELECT
664   keydef("Key_Select", "KEY_SELECT", KEY_SELECT, mode);
665 #endif
666 #ifdef KEY_SEND
667   keydef("Key_Shift_End", "KEY_SEND", KEY_SEND, mode);
668 #endif
669 #ifdef KEY_SEOL
670   keydef("Key_Shift_Clear_End_Of_Line", "KEY_SEOL", KEY_SEOL, mode);
671 #endif
672 #ifdef KEY_SEXIT
673   keydef("Key_Shift_Exit", "KEY_SEXIT", KEY_SEXIT, mode);
674 #endif
675 #ifdef KEY_SFIND
676   keydef("Key_Shift_Find", "KEY_SFIND", KEY_SFIND, mode);
677 #endif
678 #ifdef KEY_SHELP
679   keydef("Key_Shift_Help", "KEY_SHELP", KEY_SHELP, mode);
680 #endif
681 #ifdef KEY_SHOME
682   keydef("Key_Shift_Home", "KEY_SHOME", KEY_SHOME, mode);
683 #endif
684 #ifdef KEY_SIC
685   keydef("Key_Shift_Insert_Char", "KEY_SIC", KEY_SIC, mode);
686 #endif
687 #ifdef KEY_SLEFT
688   keydef("Key_Shift_Cursor_Left", "KEY_SLEFT", KEY_SLEFT, mode);
689 #endif
690 #ifdef KEY_SMESSAGE
691   keydef("Key_Shift_Message", "KEY_SMESSAGE", KEY_SMESSAGE, mode);
692 #endif
693 #ifdef KEY_SMOVE
694   keydef("Key_Shift_Move", "KEY_SMOVE", KEY_SMOVE, mode);
695 #endif
696 #ifdef KEY_SNEXT
697   keydef("Key_Shift_Next_Page", "KEY_SNEXT", KEY_SNEXT, mode);
698 #endif
699 #ifdef KEY_SOPTIONS
700   keydef("Key_Shift_Options", "KEY_SOPTIONS", KEY_SOPTIONS, mode);
701 #endif
702 #ifdef KEY_SPREVIOUS
703   keydef("Key_Shift_Previous_Page", "KEY_SPREVIOUS", KEY_SPREVIOUS, mode);
704 #endif
705 #ifdef KEY_SPRINT
706   keydef("Key_Shift_Print", "KEY_SPRINT", KEY_SPRINT, mode);
707 #endif
708 #ifdef KEY_SREDO
709   keydef("Key_Shift_Redo", "KEY_SREDO", KEY_SREDO, mode);
710 #endif
711 #ifdef KEY_SREPLACE
712   keydef("Key_Shift_Replace", "KEY_SREPLACE", KEY_SREPLACE, mode);
713 #endif
714 #ifdef KEY_SRIGHT
715   keydef("Key_Shift_Cursor_Right", "KEY_SRIGHT", KEY_SRIGHT, mode);
716 #endif
717 #ifdef KEY_SRSUME
718   keydef("Key_Shift_Resume", "KEY_SRSUME", KEY_SRSUME, mode);
719 #endif
720 #ifdef KEY_SSAVE
721   keydef("Key_Shift_Save", "KEY_SSAVE", KEY_SSAVE, mode);
722 #endif
723 #ifdef KEY_SSUSPEND
724   keydef("Key_Shift_Suspend", "KEY_SSUSPEND", KEY_SSUSPEND, mode);
725 #endif
726 #ifdef KEY_SUNDO
727   keydef("Key_Shift_Undo", "KEY_SUNDO", KEY_SUNDO, mode);
728 #endif
729 #ifdef KEY_SUSPEND
730   keydef("Key_Suspend", "KEY_SUSPEND", KEY_SUSPEND, mode);
731 #endif
732 #ifdef KEY_UNDO
733   keydef("Key_Undo", "KEY_UNDO", KEY_UNDO, mode);
734 #endif
735 #ifdef KEY_MOUSE
736   keydef("Key_Mouse", "KEY_MOUSE", KEY_MOUSE, mode);
737 #endif
738 #ifdef KEY_RESIZE
739   keydef("Key_Resize", "KEY_RESIZE", KEY_RESIZE, mode);
740 #endif
741 }
742
743 /*
744  * Generate a constant with the given name. The second parameter
745  * is a reference to the ACS character in the acs_map[] array and
746  * will be translated into an index.
747  */
748 static void
749 acs_def(const char *name, chtype *a)
750 {
751   int c = (int)(a - &acs_map[0]);
752
753   printf("   %-24s : constant Character := ", name);
754   if (isprint(UChar(c)) && (c != '`'))
755     printf("'%c';\n", c);
756   else
757     printf("Character'Val (%d);\n", c);
758 }
759
760 /*
761  * Generate the constants for the ACS characters
762  */
763 static void
764 gen_acs(void)
765 {
766   printf("   type C_ACS_Map is array (Character'Val (0) .. Character'Val (127))\n");
767   printf("        of Attributed_Character;\n");
768 #if USE_REENTRANT || BROKEN_LINKER
769   printf("   type C_ACS_Ptr is access C_ACS_Map;\n");
770   printf("   function ACS_Map return C_ACS_Ptr;\n");
771   printf("   pragma Import (C, ACS_Map, \""
772          NCURSES_WRAP_PREFIX
773          "acs_map\");\n");
774 #else
775   printf("   ACS_Map : C_ACS_Map;\n");
776   printf("   pragma Import (C, ACS_Map, \"acs_map\");\n");
777 #endif
778   printf("   --\n");
779   printf("   --\n");
780   printf("   --  Constants for several characters from the Alternate Character Set\n");
781   printf("   --  You must use these constants as indices into the ACS_Map array\n");
782   printf("   --  to get the corresponding attributed character at runtime.\n");
783   printf("   --\n");
784
785 #ifdef ACS_ULCORNER
786   acs_def("ACS_Upper_Left_Corner", &ACS_ULCORNER);
787 #endif
788 #ifdef ACS_LLCORNER
789   acs_def("ACS_Lower_Left_Corner", &ACS_LLCORNER);
790 #endif
791 #ifdef ACS_URCORNER
792   acs_def("ACS_Upper_Right_Corner", &ACS_URCORNER);
793 #endif
794 #ifdef ACS_LRCORNER
795   acs_def("ACS_Lower_Right_Corner", &ACS_LRCORNER);
796 #endif
797 #ifdef ACS_LTEE
798   acs_def("ACS_Left_Tee", &ACS_LTEE);
799 #endif
800 #ifdef ACS_RTEE
801   acs_def("ACS_Right_Tee", &ACS_RTEE);
802 #endif
803 #ifdef ACS_BTEE
804   acs_def("ACS_Bottom_Tee", &ACS_BTEE);
805 #endif
806 #ifdef ACS_TTEE
807   acs_def("ACS_Top_Tee", &ACS_TTEE);
808 #endif
809 #ifdef ACS_HLINE
810   acs_def("ACS_Horizontal_Line", &ACS_HLINE);
811 #endif
812 #ifdef ACS_VLINE
813   acs_def("ACS_Vertical_Line", &ACS_VLINE);
814 #endif
815 #ifdef ACS_PLUS
816   acs_def("ACS_Plus_Symbol", &ACS_PLUS);
817 #endif
818 #ifdef ACS_S1
819   acs_def("ACS_Scan_Line_1", &ACS_S1);
820 #endif
821 #ifdef ACS_S9
822   acs_def("ACS_Scan_Line_9", &ACS_S9);
823 #endif
824 #ifdef ACS_DIAMOND
825   acs_def("ACS_Diamond", &ACS_DIAMOND);
826 #endif
827 #ifdef ACS_CKBOARD
828   acs_def("ACS_Checker_Board", &ACS_CKBOARD);
829 #endif
830 #ifdef ACS_DEGREE
831   acs_def("ACS_Degree", &ACS_DEGREE);
832 #endif
833 #ifdef ACS_PLMINUS
834   acs_def("ACS_Plus_Minus", &ACS_PLMINUS);
835 #endif
836 #ifdef ACS_BULLET
837   acs_def("ACS_Bullet", &ACS_BULLET);
838 #endif
839 #ifdef ACS_LARROW
840   acs_def("ACS_Left_Arrow", &ACS_LARROW);
841 #endif
842 #ifdef ACS_RARROW
843   acs_def("ACS_Right_Arrow", &ACS_RARROW);
844 #endif
845 #ifdef ACS_DARROW
846   acs_def("ACS_Down_Arrow", &ACS_DARROW);
847 #endif
848 #ifdef ACS_UARROW
849   acs_def("ACS_Up_Arrow", &ACS_UARROW);
850 #endif
851 #ifdef ACS_BOARD
852   acs_def("ACS_Board_Of_Squares", &ACS_BOARD);
853 #endif
854 #ifdef ACS_LANTERN
855   acs_def("ACS_Lantern", &ACS_LANTERN);
856 #endif
857 #ifdef ACS_BLOCK
858   acs_def("ACS_Solid_Block", &ACS_BLOCK);
859 #endif
860 #ifdef ACS_S3
861   acs_def("ACS_Scan_Line_3", &ACS_S3);
862 #endif
863 #ifdef ACS_S7
864   acs_def("ACS_Scan_Line_7", &ACS_S7);
865 #endif
866 #ifdef ACS_LEQUAL
867   acs_def("ACS_Less_Or_Equal", &ACS_LEQUAL);
868 #endif
869 #ifdef ACS_GEQUAL
870   acs_def("ACS_Greater_Or_Equal", &ACS_GEQUAL);
871 #endif
872 #ifdef ACS_PI
873   acs_def("ACS_PI", &ACS_PI);
874 #endif
875 #ifdef ACS_NEQUAL
876   acs_def("ACS_Not_Equal", &ACS_NEQUAL);
877 #endif
878 #ifdef ACS_STERLING
879   acs_def("ACS_Sterling", &ACS_STERLING);
880 #endif
881 }
882
883 #define GEN_EVENT(name,value) \
884    printf("   %-25s : constant Event_Mask := 8#%011lo#;\n", \
885           #name, value)
886
887 #define GEN_MEVENT(name) \
888    printf("   %-25s : constant Event_Mask := 8#%011lo#;\n", \
889           #name, name)
890
891 static void
892 gen_mouse_events(void)
893 {
894   mmask_t all1 = 0;
895   mmask_t all2 = 0;
896   mmask_t all3 = 0;
897   mmask_t all4 = 0;
898
899 #ifdef BUTTON1_RELEASED
900   GEN_MEVENT(BUTTON1_RELEASED);
901   all1 |= BUTTON1_RELEASED;
902 #endif
903 #ifdef BUTTON1_PRESSED
904   GEN_MEVENT(BUTTON1_PRESSED);
905   all1 |= BUTTON1_PRESSED;
906 #endif
907 #ifdef BUTTON1_CLICKED
908   GEN_MEVENT(BUTTON1_CLICKED);
909   all1 |= BUTTON1_CLICKED;
910 #endif
911 #ifdef BUTTON1_DOUBLE_CLICKED
912   GEN_MEVENT(BUTTON1_DOUBLE_CLICKED);
913   all1 |= BUTTON1_DOUBLE_CLICKED;
914 #endif
915 #ifdef BUTTON1_TRIPLE_CLICKED
916   GEN_MEVENT(BUTTON1_TRIPLE_CLICKED);
917   all1 |= BUTTON1_TRIPLE_CLICKED;
918 #endif
919 #ifdef BUTTON1_RESERVED_EVENT
920   GEN_MEVENT(BUTTON1_RESERVED_EVENT);
921   all1 |= BUTTON1_RESERVED_EVENT;
922 #endif
923 #ifdef BUTTON2_RELEASED
924   GEN_MEVENT(BUTTON2_RELEASED);
925   all2 |= BUTTON2_RELEASED;
926 #endif
927 #ifdef BUTTON2_PRESSED
928   GEN_MEVENT(BUTTON2_PRESSED);
929   all2 |= BUTTON2_PRESSED;
930 #endif
931 #ifdef BUTTON2_CLICKED
932   GEN_MEVENT(BUTTON2_CLICKED);
933   all2 |= BUTTON2_CLICKED;
934 #endif
935 #ifdef BUTTON2_DOUBLE_CLICKED
936   GEN_MEVENT(BUTTON2_DOUBLE_CLICKED);
937   all2 |= BUTTON2_DOUBLE_CLICKED;
938 #endif
939 #ifdef BUTTON2_TRIPLE_CLICKED
940   GEN_MEVENT(BUTTON2_TRIPLE_CLICKED);
941   all2 |= BUTTON2_TRIPLE_CLICKED;
942 #endif
943 #ifdef BUTTON2_RESERVED_EVENT
944   GEN_MEVENT(BUTTON2_RESERVED_EVENT);
945   all2 |= BUTTON2_RESERVED_EVENT;
946 #endif
947 #ifdef BUTTON3_RELEASED
948   GEN_MEVENT(BUTTON3_RELEASED);
949   all3 |= BUTTON3_RELEASED;
950 #endif
951 #ifdef BUTTON3_PRESSED
952   GEN_MEVENT(BUTTON3_PRESSED);
953   all3 |= BUTTON3_PRESSED;
954 #endif
955 #ifdef BUTTON3_CLICKED
956   GEN_MEVENT(BUTTON3_CLICKED);
957   all3 |= BUTTON3_CLICKED;
958 #endif
959 #ifdef BUTTON3_DOUBLE_CLICKED
960   GEN_MEVENT(BUTTON3_DOUBLE_CLICKED);
961   all3 |= BUTTON3_DOUBLE_CLICKED;
962 #endif
963 #ifdef BUTTON3_TRIPLE_CLICKED
964   GEN_MEVENT(BUTTON3_TRIPLE_CLICKED);
965   all3 |= BUTTON3_TRIPLE_CLICKED;
966 #endif
967 #ifdef BUTTON3_RESERVED_EVENT
968   GEN_MEVENT(BUTTON3_RESERVED_EVENT);
969   all3 |= BUTTON3_RESERVED_EVENT;
970 #endif
971 #ifdef BUTTON4_RELEASED
972   GEN_MEVENT(BUTTON4_RELEASED);
973   all4 |= BUTTON4_RELEASED;
974 #endif
975 #ifdef BUTTON4_PRESSED
976   GEN_MEVENT(BUTTON4_PRESSED);
977   all4 |= BUTTON4_PRESSED;
978 #endif
979 #ifdef BUTTON4_CLICKED
980   GEN_MEVENT(BUTTON4_CLICKED);
981   all4 |= BUTTON4_CLICKED;
982 #endif
983 #ifdef BUTTON4_DOUBLE_CLICKED
984   GEN_MEVENT(BUTTON4_DOUBLE_CLICKED);
985   all4 |= BUTTON4_DOUBLE_CLICKED;
986 #endif
987 #ifdef BUTTON4_TRIPLE_CLICKED
988   GEN_MEVENT(BUTTON4_TRIPLE_CLICKED);
989   all4 |= BUTTON4_TRIPLE_CLICKED;
990 #endif
991 #ifdef BUTTON4_RESERVED_EVENT
992   GEN_MEVENT(BUTTON4_RESERVED_EVENT);
993   all4 |= BUTTON4_RESERVED_EVENT;
994 #endif
995 #ifdef BUTTON_CTRL
996   GEN_MEVENT(BUTTON_CTRL);
997 #endif
998 #ifdef BUTTON_SHIFT
999   GEN_MEVENT(BUTTON_SHIFT);
1000 #endif
1001 #ifdef BUTTON_ALT
1002   GEN_MEVENT(BUTTON_ALT);
1003 #endif
1004 #ifdef REPORT_MOUSE_POSITION
1005   GEN_MEVENT(REPORT_MOUSE_POSITION);
1006 #endif
1007 #ifdef ALL_MOUSE_EVENTS
1008   GEN_MEVENT(ALL_MOUSE_EVENTS);
1009 #endif
1010
1011   GEN_EVENT(BUTTON1_EVENTS, all1);
1012   GEN_EVENT(BUTTON2_EVENTS, all2);
1013   GEN_EVENT(BUTTON3_EVENTS, all3);
1014   GEN_EVENT(BUTTON4_EVENTS, all4);
1015 }
1016
1017 static void
1018 wrap_one_var(const char *c_var,
1019              const char *c_type,
1020              const char *ada_func,
1021              const char *ada_type)
1022 {
1023 #if USE_REENTRANT
1024   /* must wrap variables */
1025   printf("\n");
1026   printf("   function %s return %s\n", ada_func, ada_type);
1027   printf("   is\n");
1028   printf("      function Result return %s;\n", c_type);
1029   printf("      pragma Import (C, Result, \"" NCURSES_WRAP_PREFIX "%s\");\n", c_var);
1030   printf("   begin\n");
1031   if (strcmp(c_type, ada_type))
1032     printf("      return %s (Result);\n", ada_type);
1033   else
1034     printf("      return Result;\n");
1035   printf("   end %s;\n", ada_func);
1036 #else
1037   /* global variables are really global */
1038   printf("\n");
1039   printf("   function %s return %s\n", ada_func, ada_type);
1040   printf("   is\n");
1041   printf("      Result : %s;\n", c_type);
1042   printf("      pragma Import (C, Result, \"%s\");\n", c_var);
1043   printf("   begin\n");
1044   if (strcmp(c_type, ada_type))
1045     printf("      return %s (Result);\n", ada_type);
1046   else
1047     printf("      return Result;\n");
1048   printf("   end %s;\n", ada_func);
1049 #endif
1050 }
1051
1052 #define GEN_PUBLIC_VAR(c_var, c_type, ada_func, ada_type) \
1053         wrap_one_var(#c_var, #c_type, #ada_func, #ada_type)
1054
1055 static void
1056 gen_public_vars(void)
1057 {
1058   GEN_PUBLIC_VAR(stdscr, Window, Standard_Window, Window);
1059   GEN_PUBLIC_VAR(curscr, Window, Current_Window, Window);
1060   GEN_PUBLIC_VAR(LINES, C_Int, Lines, Line_Count);
1061   GEN_PUBLIC_VAR(COLS, C_Int, Columns, Column_Count);
1062   GEN_PUBLIC_VAR(TABSIZE, C_Int, Tab_Size, Natural);
1063   GEN_PUBLIC_VAR(COLORS, C_Int, Number_Of_Colors, Natural);
1064   GEN_PUBLIC_VAR(COLOR_PAIRS, C_Int, Number_Of_Color_Pairs, Natural);
1065 }
1066
1067 /*
1068  * Output some comment lines indicating that the file is generated.
1069  * The name parameter is the name of the facility to be used in
1070  * the comment.
1071  */
1072 static void
1073 prologue(const char *name)
1074 {
1075   printf("--  %s binding.\n", name);
1076   printf("--  This module is generated. Please don't change it manually!\n");
1077   printf("--  Run the generator instead.\n--  |");
1078
1079   printf("define(`M4_BIT_ORDER',`%s_Order_First')",
1080          little_endian ? "Low" : "High");
1081 }
1082
1083 /*
1084  * Write the prologue for the curses facility and make sure that
1085  * KEY_MIN and KEY_MAX are defined for the rest of this source.
1086  */
1087 static void
1088 basedefs(void)
1089 {
1090   prologue("curses");
1091 #ifndef KEY_MAX
1092 #  define KEY_MAX 0777
1093 #endif
1094   printf("define(`M4_KEY_MAX',`8#%o#')", KEY_MAX);
1095 #ifndef KEY_MIN
1096 #  define KEY_MIN 0401
1097 #endif
1098   if (KEY_MIN == 256)
1099     {
1100       fprintf(stderr, "Unexpected value for KEY_MIN: %d\n", KEY_MIN);
1101       exit(1);
1102     }
1103   printf("define(`M4_SPECIAL_FIRST',`8#%o#')", KEY_MIN - 1);
1104 }
1105
1106 /*
1107  * Write out the comment lines for the menu facility
1108  */
1109 static void
1110 menu_basedefs(void)
1111 {
1112   prologue("menu");
1113 }
1114
1115 /*
1116  * Write out the comment lines for the form facility
1117  */
1118 static void
1119 form_basedefs(void)
1120 {
1121   prologue("form");
1122 }
1123
1124 /*
1125  * Write out the comment lines for the mouse facility
1126  */
1127 static void
1128 mouse_basedefs(void)
1129 {
1130   prologue("mouse");
1131 }
1132
1133 /*
1134  * Write the definition of a single color
1135  */
1136 static void
1137 color_def(const char *name, int value)
1138 {
1139   printf("   %-16s : constant Color_Number := %d;\n", name, value);
1140 }
1141
1142 /*
1143  * Generate all color definitions
1144  */
1145 static void
1146 gen_color(void)
1147 {
1148 #if HAVE_USE_DEFAULT_COLORS
1149   color_def("Default_Color", -1);
1150 #endif
1151 #ifdef COLOR_BLACK
1152   color_def("Black", COLOR_BLACK);
1153 #endif
1154 #ifdef COLOR_RED
1155   color_def("Red", COLOR_RED);
1156 #endif
1157 #ifdef COLOR_GREEN
1158   color_def("Green", COLOR_GREEN);
1159 #endif
1160 #ifdef COLOR_YELLOW
1161   color_def("Yellow", COLOR_YELLOW);
1162 #endif
1163 #ifdef COLOR_BLUE
1164   color_def("Blue", COLOR_BLUE);
1165 #endif
1166 #ifdef COLOR_MAGENTA
1167   color_def("Magenta", COLOR_MAGENTA);
1168 #endif
1169 #ifdef COLOR_CYAN
1170   color_def("Cyan", COLOR_CYAN);
1171 #endif
1172 #ifdef COLOR_WHITE
1173   color_def("White", COLOR_WHITE);
1174 #endif
1175 }
1176
1177 /*
1178  * Generate the linker options for the base facility
1179  */
1180 static void
1181 gen_linkopts(void)
1182 {
1183   printf("   pragma Linker_Options (\"-lncurses%s\");\n", model);
1184 }
1185
1186 /*
1187  * Generate the linker options for the menu facility
1188  */
1189 static void
1190 gen_menu_linkopts(void)
1191 {
1192   printf("   pragma Linker_Options (\"-lmenu%s\");\n", model);
1193 }
1194
1195 /*
1196  * Generate the linker options for the form facility
1197  */
1198 static void
1199 gen_form_linkopts(void)
1200 {
1201   printf("   pragma Linker_Options (\"-lform%s\");\n", model);
1202 }
1203
1204 /*
1205  * Generate the linker options for the panel facility
1206  */
1207 static void
1208 gen_panel_linkopts(void)
1209 {
1210   printf("   pragma Linker_Options (\"-lpanel%s\");\n", model);
1211 }
1212
1213 static void
1214 gen_version_info(void)
1215 {
1216   static const char *v1 =
1217   "   NC_Major_Version : constant := %d; --  Major version of the library\n";
1218   static const char *v2 =
1219   "   NC_Minor_Version : constant := %d; --  Minor version of the library\n";
1220   static const char *v3 =
1221   "   NC_Version : constant String := %c%d.%d%c;  --  Version of library\n";
1222
1223   printf(v1, NCURSES_VERSION_MAJOR);
1224   printf(v2, NCURSES_VERSION_MINOR);
1225   printf(v3, '"', NCURSES_VERSION_MAJOR, NCURSES_VERSION_MINOR, '"');
1226 }
1227
1228 static int
1229 eti_gen(char *buf, int code, const char *name, int *etimin, int *etimax)
1230 {
1231   sprintf(buf, "   E_%-16s : constant Eti_Error := %d;\n", name, code);
1232   if (code < *etimin)
1233     *etimin = code;
1234   if (code > *etimax)
1235     *etimax = code;
1236   return (int)strlen(buf);
1237 }
1238
1239 static void
1240 gen_offsets(void)
1241 {
1242   const char *s_bool = "";
1243
1244   if (sizeof(bool) == sizeof(char))
1245     {
1246       s_bool = "char";
1247     }
1248   else if (sizeof(bool) == sizeof(short))
1249     {
1250       s_bool = "short";
1251     }
1252   else if (sizeof(bool) == sizeof(int))
1253     {
1254       s_bool = "int";
1255     }
1256   printf("   Sizeof%-*s : constant Natural := %2ld; --  %s\n",
1257          12, "_bool", (long)sizeof(bool), "bool");
1258
1259   printf("   type Curses_Bool is mod 2 ** Interfaces.C.%s'Size;\n", s_bool);
1260 }
1261
1262 /*
1263  * main() expects two arguments on the commandline, both single characters.
1264  * The first character denotes the facility for which we generate output.
1265  * Possible values are
1266  *   B - Base
1267  *   M - Menus
1268  *   F - Forms
1269  *   P - Pointer Device (Mouse)
1270  *   E - ETI base definitions
1271  *
1272  * The second character then denotes the specific output that should be
1273  * generated for the selected facility.
1274  */
1275 int
1276 main(int argc, char *argv[])
1277 {
1278   int x = 0x12345678;
1279   char *s = (char *)&x;
1280
1281   if (*s == 0x78)
1282     little_endian = 1;
1283
1284   if (argc != 4)
1285     exit(1);
1286   model = *++argv;
1287
1288   switch (argv[1][0])
1289     {
1290       /* --------------------------------------------------------------- */
1291     case 'B':                   /* The Base facility */
1292       switch (argv[2][0])
1293         {
1294         case 'A':               /* chtype translation into Ada95 record type */
1295           gen_attr_set("Character_Attribute_Set");
1296           break;
1297         case 'B':               /* write some initial comment lines */
1298           basedefs();
1299           break;
1300         case 'C':               /* generate color constants */
1301           gen_color();
1302           break;
1303         case 'D':               /* generate displacements of fields in WINDOW struct. */
1304           gen_offsets();
1305           break;
1306         case 'E':               /* generate Mouse Event codes */
1307           gen_mouse_events();
1308           break;
1309         case 'K':               /* translation of keycodes */
1310           gen_keydefs(0);
1311           break;
1312         case 'L':               /* generate the Linker_Options pragma */
1313           gen_linkopts();
1314           break;
1315         case 'M':               /* generate constants for the ACS characters */
1316           gen_acs();
1317           break;
1318         case 'O':               /* generate definitions of the old key code names */
1319           gen_keydefs(1);
1320           break;
1321         case 'P':               /* generate definitions of the public variables */
1322           gen_public_vars();
1323           break;
1324         case 'R':               /* generate representation clause for Attributed character */
1325           gen_chtype_rep("Attributed_Character");
1326           break;
1327         case 'T':               /* generate the Trace info */
1328           gen_trace("Trace_Attribute_Set");
1329           break;
1330         case 'V':               /* generate version info */
1331           gen_version_info();
1332           break;
1333         default:
1334           break;
1335         }
1336       break;
1337       /* --------------------------------------------------------------- */
1338     case 'M':                   /* The Menu facility */
1339       switch (argv[2][0])
1340         {
1341         case 'R':               /* generate representation clause for Menu_Option_Set */
1342           gen_menu_opt_rep("Menu_Option_Set");
1343           break;
1344         case 'B':               /* write some initial comment lines */
1345           menu_basedefs();
1346           break;
1347         case 'L':               /* generate the Linker_Options pragma */
1348           gen_menu_linkopts();
1349           break;
1350         case 'I':               /* generate representation clause for Item_Option_Set */
1351           gen_item_opt_rep("Item_Option_Set");
1352           break;
1353         default:
1354           break;
1355         }
1356       break;
1357       /* --------------------------------------------------------------- */
1358     case 'F':                   /* The Form facility */
1359       switch (argv[2][0])
1360         {
1361         case 'R':               /* generate representation clause for Form_Option_Set */
1362           gen_form_opt_rep("Form_Option_Set");
1363           break;
1364         case 'B':               /* write some initial comment lines */
1365           form_basedefs();
1366           break;
1367         case 'L':               /* generate the Linker_Options pragma */
1368           gen_form_linkopts();
1369           break;
1370         case 'I':               /* generate representation clause for Field_Option_Set */
1371           gen_field_opt_rep("Field_Option_Set");
1372           break;
1373         default:
1374           break;
1375         }
1376       break;
1377       /* --------------------------------------------------------------- */
1378     case 'P':                   /* The Pointer(=Mouse) facility */
1379       switch (argv[2][0])
1380         {
1381         case 'B':               /* write some initial comment lines */
1382           mouse_basedefs();
1383           break;
1384         case 'M':               /* generate representation clause for Mouse_Event */
1385           gen_mrep_rep("Mouse_Event");
1386           break;
1387         case 'L':               /* generate the Linker_Options pragma */
1388           gen_panel_linkopts();
1389           break;
1390         default:
1391           break;
1392         }
1393       break;
1394       /* --------------------------------------------------------------- */
1395     case 'E':                   /* chtype size detection */
1396       switch (argv[2][0])
1397         {
1398         case 'C':
1399           {
1400             const char *fmt = "   type    C_Chtype   is new %s;\n";
1401             const char *afmt = "   type    C_AttrType is new %s;\n";
1402
1403             if (sizeof(chtype) == sizeof(int))
1404               {
1405                 if (sizeof(int) == sizeof(long))
1406                     printf(fmt, "C_ULong");
1407
1408                 else
1409                   printf(fmt, "C_UInt");
1410               }
1411             else if (sizeof(chtype) == sizeof(long))
1412               {
1413                 printf(fmt, "C_ULong");
1414               }
1415             else
1416               printf("Error\n");
1417
1418             if (sizeof(attr_t) == sizeof(int))
1419               {
1420                 if (sizeof(int) == sizeof(long))
1421                     printf(afmt, "C_ULong");
1422
1423                 else
1424                   printf(afmt, "C_UInt");
1425               }
1426             else if (sizeof(attr_t) == sizeof(long))
1427               {
1428                 printf(afmt, "C_ULong");
1429               }
1430             else
1431               printf("Error\n");
1432
1433             printf("define(`CF_CURSES_OK',`%d')", OK);
1434             printf("define(`CF_CURSES_ERR',`%d')", ERR);
1435             printf("define(`CF_CURSES_TRUE',`%d')", TRUE);
1436             printf("define(`CF_CURSES_FALSE',`%d')", FALSE);
1437           }
1438           break;
1439         case 'E':
1440           {
1441             char *buf = (char *)malloc(2048);
1442             char *p = buf;
1443             int etimin = E_OK;
1444             int etimax = E_OK;
1445
1446             if (p)
1447               {
1448                 p += eti_gen(p, E_OK, "Ok", &etimin, &etimax);
1449                 p += eti_gen(p, E_SYSTEM_ERROR, "System_Error", &etimin, &etimax);
1450                 p += eti_gen(p, E_BAD_ARGUMENT, "Bad_Argument", &etimin, &etimax);
1451                 p += eti_gen(p, E_POSTED, "Posted", &etimin, &etimax);
1452                 p += eti_gen(p, E_CONNECTED, "Connected", &etimin, &etimax);
1453                 p += eti_gen(p, E_BAD_STATE, "Bad_State", &etimin, &etimax);
1454                 p += eti_gen(p, E_NO_ROOM, "No_Room", &etimin, &etimax);
1455                 p += eti_gen(p, E_NOT_POSTED, "Not_Posted", &etimin, &etimax);
1456                 p += eti_gen(p, E_UNKNOWN_COMMAND,
1457                              "Unknown_Command", &etimin, &etimax);
1458                 p += eti_gen(p, E_NO_MATCH, "No_Match", &etimin, &etimax);
1459                 p += eti_gen(p, E_NOT_SELECTABLE,
1460                              "Not_Selectable", &etimin, &etimax);
1461                 p += eti_gen(p, E_NOT_CONNECTED,
1462                              "Not_Connected", &etimin, &etimax);
1463                 p += eti_gen(p, E_REQUEST_DENIED,
1464                              "Request_Denied", &etimin, &etimax);
1465                 p += eti_gen(p, E_INVALID_FIELD,
1466                              "Invalid_Field", &etimin, &etimax);
1467                 p += eti_gen(p, E_CURRENT,
1468                              "Current", &etimin, &etimax);
1469               }
1470             printf("   subtype Eti_Error is C_Int range %d .. %d;\n\n",
1471                    etimin, etimax);
1472             printf("%s", buf);
1473           }
1474           break;
1475         default:
1476           break;
1477         }
1478       break;
1479       /* --------------------------------------------------------------- */
1480     case 'V':                   /* plain version dump */
1481       {
1482         switch (argv[2][0])
1483           {
1484           case '1':             /* major version */
1485 #ifdef NCURSES_VERSION_MAJOR
1486             printf("%d", NCURSES_VERSION_MAJOR);
1487 #endif
1488             break;
1489           case '2':             /* minor version */
1490 #ifdef NCURSES_VERSION_MINOR
1491             printf("%d", NCURSES_VERSION_MINOR);
1492 #endif
1493             break;
1494           case '3':             /* patch level */
1495 #ifdef NCURSES_VERSION_PATCH
1496             printf("%d", NCURSES_VERSION_PATCH);
1497 #endif
1498             break;
1499           default:
1500             break;
1501           }
1502       }
1503       break;
1504       /* --------------------------------------------------------------- */
1505     default:
1506       break;
1507     }
1508   return 0;
1509 }