48532947aa50461035138ed2433067fb400f78ab
[ncurses.git] / Ada95 / gen / gen.c
1 /****************************************************************************
2  * Copyright (c) 1998 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 <Juergen.Pfeifer@T-Online.de> 1996             *
31  ****************************************************************************/
32
33 /*
34     Version Control
35     $Revision: 1.14 $
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 #include <string.h>
45 #include <assert.h>
46 #include <ctype.h>
47
48 #include <menu.h>
49 #include <form.h>
50
51 #define RES_NAME "Reserved"
52
53 static int little_endian = 0;
54
55 typedef struct {
56   const char *name;
57   unsigned int attr;
58 } name_attribute_pair;
59
60 static int find_pos (char *s, unsigned len, int *low, int *high)
61 {
62   unsigned int i,j; 
63   int l = 0;
64
65   *high = -1;
66   *low  = 8*len;
67
68   for(i=0; i < len; i++,s++)
69     {
70       if (*s)
71         {
72           for(j=0;j<8*sizeof(char);j++)
73             {
74               if ((( little_endian && ((*s)&0x01)) ||
75                    (!little_endian && ((*s)&0x80))) )
76                 {
77                   if (l > *high)
78                     *high = l;
79                   if (l < *low)
80                     *low = l;
81                 }
82               l++;
83               if (little_endian)
84                 *s >>= 1;
85               else
86                 *s <<= 1;
87             }
88         }
89       else
90         l += 8;
91     }
92   return (*high >= 0 && (*low <= *high)) ? *low : -1;
93 }
94
95 /*
96  * This helper routine generates a representation clause for a
97  * record type defined in the binding.
98  * We are only dealing with record types which are of 32 or 16
99  * bit size, i.e. they fit into an (u)int or a (u)short.
100  */
101 static void gen_reps
102 (const name_attribute_pair *nap, /* array of name_attribute_pair records */
103  const char *name,               /* name of the represented record type  */
104  int len)                        /* size of the record in bytes          */
105 {
106   int i,l,cnt = 0,low,high;
107   int width = strlen(RES_NAME);
108   int bias = 0;
109   unsigned int a;
110   unsigned int mask = 0;
111   char *suffix;
112
113   assert (nap);
114
115   if (len == sizeof(int)/2)
116     {
117       bias = little_endian ? 8 * len : 0;
118       suffix = " / 2";
119     }
120   else
121     {
122       assert(len==sizeof(int));
123       suffix = "";
124     }
125
126   for (i=0; nap[i].name != (char *)0; i++)
127     {
128       cnt++;
129       l = strlen(nap[i].name);
130       if (l>width)
131         width = l;
132     }
133   assert (width > 0);
134
135   printf("   type %s is\n",name);
136   printf("      record\n");
137   for (i=0; nap[i].name != (char *)0; i++)
138     {
139       printf("         %-*s : Boolean;\n",width,nap[i].name);
140     }  
141   if (cnt != 8*len)
142     {
143       printf("         %-*s : Boolean;\n",width,RES_NAME);
144     }
145   printf("      end record;\n");
146   printf("   pragma Pack (%s);\n",name);
147   printf("   pragma Convention (C, %s);\n\n",name);
148
149   printf("   for %s use\n",name);
150   printf("      record\n");
151
152   for (i=0; nap[i].name != (char *)0; i++)
153     {
154       a = nap[i].attr;
155       mask |= a;
156       l = find_pos( (char *)&a,sizeof(a),&low,&high );
157       if (l>=0)
158         printf("         %-*s at 0 range %2d .. %2d;\n",width,nap[i].name,low-bias,high-bias);
159     }  
160   if (cnt != 8*len)
161     {
162       mask = ~mask;
163       assert(mask);
164       if (little_endian)
165         l = 8*len - 1;
166       else
167         l = 0;
168       printf("         %-*s at 0 range %2d .. %2d;\n",width,RES_NAME,l,l);
169     }
170   printf("      end record;\n");
171   printf("   for %s'Size use Interfaces.C.int'Size%s;\n", name, suffix);
172   printf("   --  Please note: this rep. clause is generated and may be\n");
173   printf("   --               different on your system.");
174 }
175
176
177 static void chtype_rep (const char *name, int mask)
178 {
179   int x = -1;
180   int t = x & mask;
181   int low, high;
182   int l = find_pos ((char *)&t, sizeof(t), &low, &high);
183   if (l>=0)
184     printf("         %-5s at 0 range %2d .. %2d;\n",name,low,high); 
185 }
186
187 static void 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 Interfaces.C.int'Size;\n",name);
194   printf("      --  Please note: this rep. clause is generated and may be\n");
195   printf("      --               different on your system.\n");
196 }
197
198
199 static void mrep_rep (const char *name, void *rec)
200 {
201   int low, high;
202   int l = find_pos((char *)rec, sizeof(MEVENT), &low, &high);
203   if (l>=0)
204     printf("         %-7s at 0 range %3d .. %3d;\n",name,low,high); 
205 }
206
207
208 static void gen_mrep_rep(const char *name)
209 {
210   MEVENT x;
211
212   printf("   for %s use\n      record\n",name);
213
214   memset(&x,0,sizeof(x));
215   x.id = -1;
216   mrep_rep("Id",&x);
217
218   memset(&x,0,sizeof(x));
219   x.x = -1;
220   mrep_rep("X",&x);
221
222   memset(&x,0,sizeof(x));
223   x.y = -1;
224   mrep_rep("Y",&x);
225
226   memset(&x,0,sizeof(x));
227   x.z = -1;
228   mrep_rep("Z",&x);
229
230   memset(&x,0,sizeof(x));
231   x.bstate = -1;
232   mrep_rep("Bstate",&x);
233
234   printf("      end record;\n");
235   printf("      --  Please note: this rep. clause is generated and may be\n");
236   printf("      --               different on your system.\n");
237 }
238
239 static void gen_attr_set( const char *name )
240 {
241   static const name_attribute_pair nap[] = {
242 #ifdef A_STANDOUT
243     {"Stand_Out",               A_STANDOUT},
244 #endif
245 #ifdef A_UNDERLINE
246     {"Under_Line",              A_UNDERLINE},
247 #endif
248 #ifdef A_REVERSE
249     {"Reverse_Video",           A_REVERSE},
250 #endif
251 #ifdef A_BLINK
252     {"Blink",                   A_BLINK},
253 #endif
254 #ifdef A_DIM
255     {"Dim_Character",           A_DIM},
256 #endif
257 #ifdef A_BOLD
258     {"Bold_Character",          A_BOLD},
259 #endif
260 #ifdef A_ALTCHARSET
261     {"Alternate_Character_Set", A_ALTCHARSET},
262 #endif
263 #ifdef A_INVIS
264     {"Invisible_Character",     A_INVIS},
265 #endif
266 #ifdef A_PROTECT
267     {"Protected_Character",     A_PROTECT},
268 #endif
269 #ifdef A_HORIZONTAL
270     {"Horizontal",              A_HORIZONTAL},
271 #endif
272 #ifdef A_LEFT
273     {"Left",                    A_LEFT},
274 #endif
275 #ifdef A_LOW
276     {"Low",                     A_LOW},
277 #endif
278 #ifdef A_RIGHT
279     {"Right",                   A_RIGHT},
280 #endif
281 #ifdef A_TOP
282     {"Top",                     A_TOP},
283 #endif
284 #ifdef A_VERTICAL
285     {"Vertical",                A_VERTICAL},
286 #endif
287     {(char *)0,                 0}
288   };
289   gen_reps (nap, name, sizeof(int)/2);
290 }
291
292 static void gen_menu_opt_rep(const char *name)
293 {
294   static const name_attribute_pair nap[] = {
295 #ifdef O_ONEVALUE
296     {"One_Valued", O_ONEVALUE},
297 #endif
298 #ifdef O_SHOWDESC
299     {"Show_Descriptions", O_SHOWDESC},
300 #endif
301 #ifdef O_ROWMAJOR
302     {"Row_Major_Order", O_ROWMAJOR},
303 #endif
304 #ifdef O_IGNORECASE
305     {"Ignore_Case", O_IGNORECASE},
306 #endif
307 #ifdef O_SHOWMATCH
308     {"Show_Matches", O_SHOWMATCH},
309 #endif
310 #ifdef O_NONCYCLIC
311     {"Non_Cyclic", O_NONCYCLIC},
312 #endif
313     {(char *)0, 0}
314   };
315   gen_reps (nap, name, sizeof(int));
316 }
317
318 static void gen_item_opt_rep(const char *name)
319 {
320   static const name_attribute_pair nap[] = {
321 #ifdef O_SELECTABLE
322     {"Selectable", O_SELECTABLE},
323 #endif
324     {(char *)0   , 0}
325   };  
326   gen_reps (nap, name, sizeof(int));
327 }
328
329 static void gen_form_opt_rep(const char *name)
330 {
331   static const name_attribute_pair nap[] = {
332 #ifdef O_NL_OVERLOAD
333     {"NL_Overload", O_NL_OVERLOAD},
334 #endif
335 #ifdef O_BS_OVERLOAD
336     {"BS_Overload", O_BS_OVERLOAD},
337 #endif
338     {(char *)0    , 0}
339   };
340   gen_reps (nap, name, sizeof(int));
341 }
342
343 /*
344  * Generate the representation clause for the Field_Option_Set record
345  */
346 static void gen_field_opt_rep(const char *name)
347 {
348   static const name_attribute_pair nap[] = {
349 #ifdef O_VISIBLE
350     {"Visible",O_VISIBLE},
351 #endif
352 #ifdef O_ACTIVE
353     {"Active",O_ACTIVE},
354 #endif
355 #ifdef O_PUBLIC
356     {"Public",O_PUBLIC},
357 #endif
358 #ifdef O_EDIT
359     {"Edit",O_EDIT},
360 #endif
361 #ifdef O_WRAP
362     {"Wrap",O_WRAP},
363 #endif
364 #ifdef O_BLANK
365     {"Blank",O_BLANK},
366 #endif
367 #ifdef O_AUTOSKIP
368     {"Auto_Skip",O_AUTOSKIP},
369 #endif
370 #ifdef O_NULLOK
371     {"Null_Ok",O_NULLOK},
372 #endif
373 #ifdef O_PASSOK
374     {"Pass_Ok",O_PASSOK},
375 #endif
376 #ifdef O_STATIC
377     {"Static",O_STATIC},
378 #endif
379     {(char *)0, 0}
380   };
381   gen_reps (nap, name, sizeof(int));
382 }
383
384 /*
385  * Generate a single key code constant definition.
386  */
387 static void keydef(const char *name, const char *old_name, int value, int mode)
388 {
389   if (mode==0) /* Generate the new name */
390     printf("   %-30s : constant Special_Key_Code := 8#%3o#;\n",name,value);
391   else
392     { /* generate the old name, but only if it doesn't conflict with the old
393        * name (Ada95 isn't case sensitive!)
394        */
395       const char *s = old_name; const char *t = name;
396       while ( *s && *t && (toupper(*s++) == toupper(*t++)));
397       if (*s || *t)
398         printf("   %-16s : Special_Key_Code renames %s;\n",old_name,name);
399     }
400 }
401   
402 /*
403  * Generate constants for the key codes. When called with mode==0, a
404  * complete list with nice constant names in proper casing style will
405  * be generated. Otherwise a list of old (i.e. C-style) names will be
406  * generated, given that the name wasn't already defined in the "nice"
407  * list.
408  */
409 static void gen_keydefs (int mode)
410 {
411   char buf[16];
412   char obuf[16];
413   int i;
414
415 #ifdef KEY_CODE_YES
416   keydef("Key_Code_Yes","KEY_CODE_YES",KEY_CODE_YES,mode);
417 #endif
418 #ifdef KEY_MIN
419   keydef("Key_Min","KEY_MIN",KEY_MIN,mode);
420 #endif
421 #ifdef KEY_BREAK
422   keydef("Key_Break","KEY_BREAK",KEY_BREAK,mode);
423 #endif
424 #ifdef KEY_DOWN
425   keydef("Key_Cursor_Down","KEY_DOWN",KEY_DOWN,mode);
426 #endif
427 #ifdef KEY_UP
428   keydef("Key_Cursor_Up","KEY_UP",KEY_UP,mode);
429 #endif
430 #ifdef KEY_LEFT
431   keydef("Key_Cursor_Left","KEY_LEFT",KEY_LEFT,mode);
432 #endif
433 #ifdef KEY_RIGHT
434   keydef("Key_Cursor_Right","KEY_RIGHT",KEY_RIGHT,mode);
435 #endif
436 #ifdef KEY_HOME
437   keydef("Key_Home","KEY_HOME",KEY_HOME,mode);
438 #endif
439 #ifdef KEY_BACKSPACE
440   keydef("Key_Backspace","KEY_BACKSPACE",KEY_BACKSPACE,mode);
441 #endif
442 #ifdef KEY_F0
443   keydef("Key_F0","KEY_F0",KEY_F0,mode);
444 #endif
445 #ifdef KEY_F
446   for(i=1;i<=24;i++)
447     {
448       sprintf(buf ,"Key_F%d",i);
449       sprintf(obuf,"KEY_F%d",i);
450       keydef(buf,obuf,KEY_F(i),mode);
451     }
452 #endif
453 #ifdef KEY_DL
454   keydef("Key_Delete_Line","KEY_DL",KEY_DL,mode);
455 #endif
456 #ifdef KEY_IL
457   keydef("Key_Insert_Line","KEY_IL",KEY_IL,mode);
458 #endif
459 #ifdef KEY_DC
460   keydef("Key_Delete_Char","KEY_DC",KEY_DC,mode);
461 #endif
462 #ifdef KEY_IC
463   keydef("Key_Insert_Char","KEY_IC",KEY_IC,mode);
464 #endif
465 #ifdef KEY_EIC
466   keydef("Key_Exit_Insert_Mode","KEY_EIC",KEY_EIC,mode);
467 #endif
468 #ifdef KEY_CLEAR
469   keydef("Key_Clear_Screen","KEY_CLEAR",KEY_CLEAR,mode);
470 #endif
471 #ifdef KEY_EOS
472   keydef("Key_Clear_End_Of_Screen","KEY_EOS",KEY_EOS,mode);
473 #endif
474 #ifdef KEY_EOL
475   keydef("Key_Clear_End_Of_Line","KEY_EOL",KEY_EOL,mode);
476 #endif
477 #ifdef KEY_SF
478   keydef("Key_Scroll_1_Forward","KEY_SF",KEY_SF,mode);
479 #endif
480 #ifdef KEY_SR
481   keydef("Key_Scroll_1_Backward","KEY_SR",KEY_SR,mode);
482 #endif
483 #ifdef KEY_NPAGE
484   keydef("Key_Next_Page","KEY_NPAGE",KEY_NPAGE,mode);
485 #endif
486 #ifdef KEY_PPAGE
487   keydef("Key_Previous_Page","KEY_PPAGE",KEY_PPAGE,mode);
488 #endif
489 #ifdef KEY_STAB
490   keydef("Key_Set_Tab","KEY_STAB",KEY_STAB,mode);
491 #endif
492 #ifdef KEY_CTAB
493   keydef("Key_Clear_Tab","KEY_CTAB",KEY_CTAB,mode);
494 #endif
495 #ifdef KEY_CATAB
496   keydef("Key_Clear_All_Tabs","KEY_CATAB",KEY_CATAB,mode);
497 #endif
498 #ifdef KEY_ENTER
499   keydef("Key_Enter_Or_Send","KEY_ENTER",KEY_ENTER,mode);
500 #endif
501 #ifdef KEY_SRESET
502   keydef("Key_Soft_Reset","KEY_SRESET",KEY_SRESET,mode);
503 #endif
504 #ifdef KEY_RESET
505   keydef("Key_Reset","KEY_RESET",KEY_RESET,mode);
506 #endif
507 #ifdef KEY_PRINT
508   keydef("Key_Print","KEY_PRINT",KEY_PRINT,mode);
509 #endif
510 #ifdef KEY_LL
511   keydef("Key_Bottom","KEY_LL",KEY_LL,mode);
512 #endif
513 #ifdef KEY_A1
514   keydef("Key_Upper_Left_Of_Keypad","KEY_A1",KEY_A1,mode);
515 #endif
516 #ifdef KEY_A3
517   keydef("Key_Upper_Right_Of_Keypad","KEY_A3",KEY_A3,mode);
518 #endif
519 #ifdef KEY_B2
520   keydef("Key_Center_Of_Keypad","KEY_B2",KEY_B2,mode);
521 #endif
522 #ifdef KEY_C1
523   keydef("Key_Lower_Left_Of_Keypad","KEY_C1",KEY_C1,mode);
524 #endif
525 #ifdef KEY_C3
526   keydef("Key_Lower_Right_Of_Keypad","KEY_C3",KEY_C3,mode);
527 #endif
528 #ifdef KEY_BTAB
529   keydef("Key_Back_Tab","KEY_BTAB",KEY_BTAB,mode);
530 #endif
531 #ifdef KEY_BEG
532   keydef("Key_Beginning","KEY_BEG",KEY_BEG,mode);
533 #endif
534 #ifdef KEY_CANCEL
535   keydef("Key_Cancel","KEY_CANCEL",KEY_CANCEL,mode);
536 #endif
537 #ifdef KEY_CLOSE
538   keydef("Key_Close","KEY_CLOSE",KEY_CLOSE,mode);
539 #endif
540 #ifdef KEY_COMMAND
541   keydef("Key_Command","KEY_COMMAND",KEY_COMMAND,mode);
542 #endif
543 #ifdef KEY_COPY
544   keydef("Key_Copy","KEY_COPY",KEY_COPY,mode);
545 #endif
546 #ifdef KEY_CREATE
547   keydef("Key_Create","KEY_CREATE",KEY_CREATE,mode);
548 #endif
549 #ifdef KEY_END
550   keydef("Key_End","KEY_END",KEY_END,mode);
551 #endif
552 #ifdef KEY_EXIT
553   keydef("Key_Exit","KEY_EXIT",KEY_EXIT,mode);
554 #endif
555 #ifdef KEY_FIND
556   keydef("Key_Find","KEY_FIND",KEY_FIND,mode);
557 #endif
558 #ifdef KEY_HELP
559   keydef("Key_Help","KEY_HELP",KEY_HELP,mode);
560 #endif
561 #ifdef KEY_MARK
562   keydef("Key_Mark","KEY_MARK",KEY_MARK,mode);
563 #endif
564 #ifdef KEY_MESSAGE
565   keydef("Key_Message","KEY_MESSAGE",KEY_MESSAGE,mode);
566 #endif
567 #ifdef KEY_MOVE
568   keydef("Key_Move","KEY_MOVE",KEY_MOVE,mode);
569 #endif
570 #ifdef KEY_NEXT
571   keydef("Key_Next","KEY_NEXT",KEY_NEXT,mode);
572 #endif
573 #ifdef KEY_OPEN
574   keydef("Key_Open","KEY_OPEN",KEY_OPEN,mode);
575 #endif
576 #ifdef KEY_OPTIONS
577   keydef("Key_Options","KEY_OPTIONS",KEY_OPTIONS,mode);
578 #endif
579 #ifdef KEY_PREVIOUS
580   keydef("Key_Previous","KEY_PREVIOUS",KEY_PREVIOUS,mode);
581 #endif
582 #ifdef KEY_REDO
583   keydef("Key_Redo","KEY_REDO",KEY_REDO,mode);
584 #endif
585 #ifdef KEY_REFERENCE
586   keydef("Key_Reference","KEY_REFERENCE",KEY_REFERENCE,mode);
587 #endif
588 #ifdef KEY_REFRESH
589   keydef("Key_Refresh","KEY_REFRESH",KEY_REFRESH,mode);
590 #endif
591 #ifdef KEY_REPLACE
592   keydef("Key_Replace","KEY_REPLACE",KEY_REPLACE,mode);
593 #endif
594 #ifdef KEY_RESTART
595   keydef("Key_Restart","KEY_RESTART",KEY_RESTART,mode);
596 #endif
597 #ifdef KEY_RESUME
598   keydef("Key_Resume","KEY_RESUME",KEY_RESUME,mode);
599 #endif
600 #ifdef KEY_SAVE
601   keydef("Key_Save","KEY_SAVE",KEY_SAVE,mode);
602 #endif
603 #ifdef KEY_SBEG
604   keydef("Key_Shift_Begin","KEY_SBEG",KEY_SBEG,mode);
605 #endif
606 #ifdef KEY_SCANCEL
607   keydef("Key_Shift_Cancel","KEY_SCANCEL",KEY_SCANCEL,mode);
608 #endif
609 #ifdef KEY_SCOMMAND
610   keydef("Key_Shift_Command","KEY_SCOMMAND",KEY_SCOMMAND,mode);
611 #endif
612 #ifdef KEY_SCOPY
613   keydef("Key_Shift_Copy","KEY_SCOPY",KEY_SCOPY,mode);
614 #endif
615 #ifdef KEY_SCREATE
616   keydef("Key_Shift_Create","KEY_SCREATE",KEY_SCREATE,mode);
617 #endif
618 #ifdef KEY_SDC
619   keydef("Key_Shift_Delete_Char","KEY_SDC",KEY_SDC,mode);
620 #endif
621 #ifdef KEY_SDL
622   keydef("Key_Shift_Delete_Line","KEY_SDL",KEY_SDL,mode);
623 #endif
624 #ifdef KEY_SELECT
625   keydef("Key_Select","KEY_SELECT",KEY_SELECT,mode);
626 #endif
627 #ifdef KEY_SEND
628   keydef("Key_Shift_End","KEY_SEND",KEY_SEND,mode);
629 #endif
630 #ifdef KEY_SEOL
631   keydef("Key_Shift_Clear_End_Of_Line","KEY_SEOL",KEY_SEOL,mode);
632 #endif
633 #ifdef KEY_SEXIT
634   keydef("Key_Shift_Exit","KEY_SEXIT",KEY_SEXIT,mode);
635 #endif
636 #ifdef KEY_SFIND
637   keydef("Key_Shift_Find","KEY_SFIND",KEY_SFIND,mode);
638 #endif
639 #ifdef KEY_SHELP
640   keydef("Key_Shift_Help","KEY_SHELP",KEY_SHELP,mode);
641 #endif
642 #ifdef KEY_SHOME
643   keydef("Key_Shift_Home","KEY_SHOME",KEY_SHOME,mode);
644 #endif
645 #ifdef KEY_SIC
646   keydef("Key_Shift_Insert_Char","KEY_SIC",KEY_SIC,mode);
647 #endif
648 #ifdef KEY_SLEFT
649   keydef("Key_Shift_Cursor_Left","KEY_SLEFT",KEY_SLEFT,mode);
650 #endif
651 #ifdef KEY_SMESSAGE
652   keydef("Key_Shift_Message","KEY_SMESSAGE",KEY_SMESSAGE,mode);
653 #endif
654 #ifdef KEY_SMOVE
655   keydef("Key_Shift_Move","KEY_SMOVE",KEY_SMOVE,mode);
656 #endif
657 #ifdef KEY_SNEXT
658   keydef("Key_Shift_Next_Page","KEY_SNEXT",KEY_SNEXT,mode);
659 #endif
660 #ifdef KEY_SOPTIONS
661   keydef("Key_Shift_Options","KEY_SOPTIONS",KEY_SOPTIONS,mode);
662 #endif
663 #ifdef KEY_SPREVIOUS
664   keydef("Key_Shift_Previous_Page","KEY_SPREVIOUS",KEY_SPREVIOUS,mode);
665 #endif
666 #ifdef KEY_SPRINT
667   keydef("Key_Shift_Print","KEY_SPRINT",KEY_SPRINT,mode);
668 #endif
669 #ifdef KEY_SREDO
670   keydef("Key_Shift_Redo","KEY_SREDO",KEY_SREDO,mode);
671 #endif
672 #ifdef KEY_SREPLACE
673   keydef("Key_Shift_Replace","KEY_SREPLACE",KEY_SREPLACE,mode);
674 #endif
675 #ifdef KEY_SRIGHT
676   keydef("Key_Shift_Cursor_Right","KEY_SRIGHT",KEY_SRIGHT,mode);
677 #endif
678 #ifdef KEY_SRSUME
679   keydef("Key_Shift_Resume","KEY_SRSUME",KEY_SRSUME,mode);
680 #endif
681 #ifdef KEY_SSAVE
682   keydef("Key_Shift_Save","KEY_SSAVE",KEY_SSAVE,mode);
683 #endif
684 #ifdef KEY_SSUSPEND
685   keydef("Key_Shift_Suspend","KEY_SSUSPEND",KEY_SSUSPEND,mode);
686 #endif
687 #ifdef KEY_SUNDO
688   keydef("Key_Shift_Undo","KEY_SUNDO",KEY_SUNDO,mode);
689 #endif
690 #ifdef KEY_SUSPEND
691   keydef("Key_Suspend","KEY_SUSPEND",KEY_SUSPEND,mode);
692 #endif
693 #ifdef KEY_UNDO
694   keydef("Key_Undo","KEY_UNDO",KEY_UNDO,mode);
695 #endif
696 #ifdef KEY_MOUSE
697   keydef("Key_Mouse","KEY_MOUSE",KEY_MOUSE,mode);
698 #endif  
699 #ifdef KEY_RESIZE
700   keydef("Key_Resize","KEY_RESIZE",KEY_RESIZE,mode);
701 #endif  
702 }
703
704 /*
705  * Generate a constant with the given name. The second parameter
706  * is a reference to the ACS character in the acs_map[] array and
707  * will be translated into an index.
708  */
709 static void acs_def (const char *name, chtype *a)
710 {
711   int c = a - &acs_map[0];
712   printf("   %-24s : constant Character := ",name);
713   if (isprint(c) && (c!='`'))
714     printf("'%c';\n",c);
715   else
716     printf("Character'Val (%d);\n",c);
717 }
718
719 /*
720  * Generate the constants for the ACS characters
721  */
722 static void gen_acs (void)
723 {
724 #ifdef ACS_ULCORNER
725   acs_def("ACS_Upper_Left_Corner",&ACS_ULCORNER);
726 #endif
727 #ifdef ACS_LLCORNER
728   acs_def("ACS_Lower_Left_Corner",&ACS_LLCORNER);
729 #endif
730 #ifdef ACS_URCORNER
731   acs_def("ACS_Upper_Right_Corner",&ACS_URCORNER);
732 #endif
733 #ifdef ACS_LRCORNER
734   acs_def("ACS_Lower_Right_Corner",&ACS_LRCORNER);
735 #endif
736 #ifdef ACS_LTEE
737   acs_def("ACS_Left_Tee",&ACS_LTEE);
738 #endif
739 #ifdef ACS_RTEE
740   acs_def("ACS_Right_Tee",&ACS_RTEE);
741 #endif
742 #ifdef ACS_BTEE
743   acs_def("ACS_Bottom_Tee",&ACS_BTEE);
744 #endif
745 #ifdef ACS_TTEE
746   acs_def("ACS_Top_Tee",&ACS_TTEE);
747 #endif
748 #ifdef ACS_HLINE
749   acs_def("ACS_Horizontal_Line",&ACS_HLINE);
750 #endif
751 #ifdef ACS_VLINE
752   acs_def("ACS_Vertical_Line",&ACS_VLINE);
753 #endif
754 #ifdef ACS_PLUS
755   acs_def("ACS_Plus_Symbol",&ACS_PLUS);
756 #endif
757 #ifdef ACS_S1
758   acs_def("ACS_Scan_Line_1",&ACS_S1);
759 #endif
760 #ifdef ACS_S9
761   acs_def("ACS_Scan_Line_9",&ACS_S9);
762 #endif
763 #ifdef ACS_DIAMOND
764   acs_def("ACS_Diamond",&ACS_DIAMOND);
765 #endif
766 #ifdef ACS_CKBOARD
767   acs_def("ACS_Checker_Board",&ACS_CKBOARD);
768 #endif
769 #ifdef ACS_DEGREE
770   acs_def("ACS_Degree",&ACS_DEGREE);
771 #endif
772 #ifdef ACS_PLMINUS
773   acs_def("ACS_Plus_Minus",&ACS_PLMINUS);
774 #endif
775 #ifdef ACS_BULLET
776   acs_def("ACS_Bullet",&ACS_BULLET);
777 #endif
778 #ifdef ACS_LARROW
779   acs_def("ACS_Left_Arrow",&ACS_LARROW);
780 #endif
781 #ifdef ACS_RARROW
782   acs_def("ACS_Right_Arrow",&ACS_RARROW);
783 #endif
784 #ifdef ACS_DARROW
785   acs_def("ACS_Down_Arrow",&ACS_DARROW);
786 #endif
787 #ifdef ACS_UARROW
788   acs_def("ACS_Up_Arrow",&ACS_UARROW);
789 #endif
790 #ifdef ACS_BOARD
791   acs_def("ACS_Board_Of_Squares",&ACS_BOARD);
792 #endif
793 #ifdef ACS_LANTERN
794   acs_def("ACS_Lantern",&ACS_LANTERN);
795 #endif
796 #ifdef ACS_BLOCK
797   acs_def("ACS_Solid_Block",&ACS_BLOCK);
798 #endif
799 #ifdef ACS_S3
800   acs_def("ACS_Scan_Line_3",&ACS_S3);
801 #endif
802 #ifdef ACS_S7
803   acs_def("ACS_Scan_Line_7",&ACS_S7);
804 #endif
805 #ifdef ACS_LEQUAL
806   acs_def("ACS_Less_Or_Equal",&ACS_LEQUAL);
807 #endif
808 #ifdef ACS_GEQUAL
809   acs_def("ACS_Greater_Or_Equal",&ACS_GEQUAL);
810 #endif
811 #ifdef ACS_PI
812   acs_def("ACS_PI",&ACS_PI);
813 #endif
814 #ifdef ACS_NEQUAL
815   acs_def("ACS_Not_Equal",&ACS_NEQUAL);
816 #endif
817 #ifdef ACS_STERLING
818   acs_def("ACS_Sterling",&ACS_STERLING);
819 #endif
820 }
821
822 /*
823  * Output some comment lines indicating that the file is generated.
824  * The name parameter is the name of the facility to be used in
825  * the comment.
826  */
827 static void prologue(const char *name)
828 {
829   printf("--  %s binding.\n",name);
830   printf("--  This module is generated. Please don't change it manually!\n");
831   printf("--  Run the generator instead.\n--  |");
832
833   printf("define(`M4_BIT_ORDER',`%s_Order_First')",little_endian ? "Low":"High");
834 }
835
836 /*
837  * Write the prologue for the curses facility and make sure that
838  * KEY_MIN and KEY_MAX are defined for the rest of this source.
839  */
840 static void basedefs (void)
841 {
842   prologue("curses");
843 #ifndef KEY_MAX
844 #  define KEY_MAX 0777
845 #endif
846   printf("define(`M4_KEY_MAX',`8#%o#')",KEY_MAX);
847 #ifndef KEY_MIN
848 #  define KEY_MIN 0401
849 #endif
850   if (KEY_MIN == 256) {
851     fprintf(stderr,"Unexpected value for KEY_MIN: %d\n",KEY_MIN);
852     exit(1);
853   }
854   printf("define(`M4_SPECIAL_FIRST',`8#%o#')",KEY_MIN - 1);
855 }
856
857 /*
858  * Write out the comment lines for the menu facility
859  */
860 static void menu_basedefs (void)
861 {
862   prologue("menu");
863 }
864
865 /*
866  * Write out the comment lines for the form facility
867  */
868 static void form_basedefs (void)
869 {
870   prologue("form");
871 }
872
873 /*
874  * Write out the comment lines for the mouse facility
875  */
876 static void mouse_basedefs(void)
877 {
878   prologue("mouse");
879 }
880
881 /*
882  * Write the definition of a single color
883  */
884 static void color_def (const char *name, int value)
885 {
886   printf("   %-8s : constant Color_Number := %d;\n",name,value);
887 }
888
889 /*
890  * Generate all color definitions
891  */
892 static void gen_color (void)
893 {
894 #ifdef COLOR_BLACK
895   color_def ("Black",COLOR_BLACK);
896 #endif
897 #ifdef COLOR_RED
898   color_def ("Red",COLOR_RED);
899 #endif
900 #ifdef COLOR_GREEN
901   color_def ("Green",COLOR_GREEN);
902 #endif
903 #ifdef COLOR_YELLOW
904   color_def ("Yellow",COLOR_YELLOW);
905 #endif
906 #ifdef COLOR_BLUE
907   color_def ("Blue",COLOR_BLUE);
908 #endif
909 #ifdef COLOR_MAGENTA
910   color_def ("Magenta",COLOR_MAGENTA);
911 #endif
912 #ifdef COLOR_CYAN
913   color_def ("Cyan",COLOR_CYAN);
914 #endif
915 #ifdef COLOR_WHITE
916   color_def ("White",COLOR_WHITE);
917 #endif
918 }
919
920 /*
921  * Generate the linker options for the base facility
922  */
923 static void gen_linkopts (void)
924 {
925    printf("   pragma Linker_Options (\"-lncurses\");\n");
926 }
927
928 /*
929  * Generate the linker options for the menu facility
930  */
931 static void gen_menu_linkopts (void)
932 {
933    printf("   pragma Linker_Options (\"-lmenu\");\n");
934 }
935
936 /*
937  * Generate the linker options for the form facility
938  */
939 static void gen_form_linkopts (void)
940 {
941    printf("   pragma Linker_Options (\"-lform\");\n");
942 }
943
944 /*
945  * Generate the linker options for the panel facility
946  */
947 static void gen_panel_linkopts (void)
948 {
949    printf("   pragma Linker_Options (\"-lpanel\");\n");
950 }
951
952 static void gen_version_info (void)
953 {
954    printf("   NC_Major_Version : constant := %d; --  Major version of ncurses library\n", NCURSES_VERSION_MAJOR);
955    printf("   NC_Minor_Version : constant := %d; --  Minor version of ncurses library\n", NCURSES_VERSION_MINOR);
956    printf("   NC_Version : constant String := %c%d.%d%c;  --  Version of ncurses library\n", '"',NCURSES_VERSION_MAJOR,NCURSES_VERSION_MINOR,'"');
957 }
958
959 /*
960  * main() expects two arguments on the commandline, both single characters.
961  * The first character denotes the facility for which we generate output.
962  * Possible values are
963  *   B - Base
964  *   M - Menus
965  *   F - Forms
966  *   P - Pointer Device (Mouse)
967  *
968  * The second character then denotes the specific output that should be
969  * generated for the selected facility.
970  */
971 int main(int argc, char *argv[])
972 {
973   int x = 0x12345678;
974   char *s = (char *)&x;
975
976   if (*s == 0x78)
977     little_endian = 1;
978
979   if (argc!=3)
980     exit(1);
981
982   switch(argv[1][0])
983     {
984     case 'B': /* The Base facility */
985       switch(argv[2][0])
986         {
987         case 'A': /* chtype translation into Ada95 record type */
988           gen_attr_set("Character_Attribute_Set");
989           break;
990         case 'K': /* translation of keycodes */
991           gen_keydefs(0);
992           break;
993         case 'B': /* write some initial comment lines */
994           basedefs();
995           break;
996         case 'C': /* generate color constants */
997           gen_color();
998           break;
999         case 'M': /* generate constants for the ACS characters */
1000           gen_acs();
1001           break;
1002         case 'L': /* generate the Linker_Options pragma */
1003           gen_linkopts();
1004           break;
1005         case 'O': /* generate definitions of the old key code names */
1006           gen_keydefs(1);
1007           break;
1008         case 'R': /* generate representation clause for Attributed character */
1009           gen_chtype_rep("Attributed_Character");
1010           break;
1011         case 'V': /* generate version info */
1012           gen_version_info();
1013           break;
1014         default:
1015           break;
1016         }
1017       break;
1018     case 'M': /* The Menu facility */
1019       switch(argv[2][0])
1020         {
1021         case 'R': /* generate representation clause for Menu_Option_Set */
1022           gen_menu_opt_rep("Menu_Option_Set");
1023           break;
1024         case 'B': /* write some initial comment lines */
1025           menu_basedefs();
1026           break;
1027         case 'L': /* generate the Linker_Options pragma */
1028           gen_menu_linkopts();
1029           break;
1030         case 'I': /* generate representation clause for Item_Option_Set */
1031           gen_item_opt_rep("Item_Option_Set");
1032           break;
1033         default:
1034           break;
1035         }
1036       break;
1037     case 'F': /* The Form facility */
1038       switch(argv[2][0])
1039         {
1040         case 'R': /* generate representation clause for Form_Option_Set */
1041           gen_form_opt_rep("Form_Option_Set");
1042           break;
1043         case 'B': /* write some initial comment lines */
1044           form_basedefs();
1045           break;
1046         case 'L': /* generate the Linker_Options pragma */
1047           gen_form_linkopts();
1048           break;
1049         case 'I': /* generate representation clause for Field_Option_Set */
1050           gen_field_opt_rep("Field_Option_Set");
1051           break;
1052         default:
1053           break;
1054         }
1055       break;
1056     case 'P': /* The Pointer(=Mouse) facility */
1057       switch(argv[2][0])
1058         {
1059         case 'B': /* write some initial comment lines */
1060           mouse_basedefs();
1061           break;
1062         case 'M': /* generate representation clause for Mouse_Event */
1063           gen_mrep_rep("Mouse_Event");
1064           break;
1065         case 'L': /* generate the Linker_Options pragma */
1066           gen_panel_linkopts();
1067           break;
1068         default:
1069           break;
1070         }
1071         break;
1072     default:
1073       break;
1074     }
1075   return 0;
1076 }