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