home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / c / skew.lha / Skew / Source / skew3.c < prev   
Encoding:
C/C++ Source or Header  |  1992-10-12  |  21.1 KB  |  759 lines
  1.  
  2. /*
  3.  *      skew3.c     --      stuff needed for writing output file
  4.  *
  5.  */
  6.  
  7. #include <dos/dos.h>
  8.  
  9. #include "skew.h"
  10.  
  11. /* flags related to gadgets & output file */
  12. extern LONG Flag1, Flag2A, Flag2B, Flag3;
  13.  
  14. /* flags for cycle gadgets on display #2 (zero indexing) */
  15. extern LONG
  16.         WaitingMode_FLAG, Variables_FLAG, Comments_FLAG, FillIns_FLAG,
  17.         WaitingMode_START, Variables_START, Comments_START, FillIns_START,
  18.         TopArgs_FLAG, TopReturn_FLAG, TestVarScope_FLAG;
  19.  
  20. /* name for top-level function, as well as prefix & suffix for the rest */
  21. extern char *IDCMP_WIN_BUF, *TOP_LEVEL_BUF, *PREFIX_BUF, *SUFFIX_BUF,
  22.             *TEST_VAR_BUF;
  23.  
  24. BOOL Writing_Done = FALSE;  /* TRUE when work was saved and no gadget hit */
  25.  
  26.  
  27. /*  we hope AmigaDOS will handle error checking for us */
  28. __regargs VOID GenerateCode( BPTR );
  29.  
  30. static VOID WriteHeader( VOID );
  31. static VOID WriteGlobalDefs( VOID );
  32. static VOID WriteLocalDefs( VOID );
  33. static VOID WriteProtos( VOID );
  34. static VOID WriteTopLevelF( VOID );
  35. static VOID WriteCases( VOID );
  36. static VOID WriteFSkeletons( VOID );
  37. static VOID WriteFillIn( VOID );
  38. static VOID Pad( VOID );
  39.  
  40. static VOID WriteRefreshTopL( VOID );
  41. static VOID lowWriteRefreshTopL( VOID );
  42. static VOID WriteRefreshSkel( VOID );
  43. static VOID lowWriteRefreshSkel( VOID );
  44.  
  45. __regargs static VOID lowWriteProtos( BOOL, LONG, UBYTE * );
  46. __regargs static VOID lowWriteCases( BOOL, LONG, LONG, UBYTE *, UBYTE * );
  47. __regargs static VOID lowWriteFSkeletons( BOOL, LONG, UBYTE * );
  48.  
  49.  
  50. VOID
  51. GenerateCode( BPTR fh )
  52. {
  53.     SelectOutput( fh );
  54.  
  55.     if ( Comments_FLAG != NO_COMMENTS )
  56.         WriteHeader();
  57.     else
  58.         PutStr( "\n" );                 /* start one line lower */
  59.  
  60.     if ( TestVarScope_FLAG == TestVar_GLOBAL ) {
  61.             PutStr( "BOOL " );
  62.             PutStr( TEST_VAR_BUF );
  63.             PutStr( " = FALSE;\n" );
  64.     }
  65.  
  66.     if ( Variables_FLAG == GLOBAL )
  67.         WriteGlobalDefs();
  68.  
  69.     if ( Flag3 & Prototypes_FLAG )
  70.         WriteProtos();
  71.  
  72.     WriteTopLevelF();
  73.  
  74.     if ( Flag3 & Skeletons_FLAG )
  75.         WriteFSkeletons();
  76.  
  77.     Writing_Done = TRUE;
  78. }
  79.  
  80.  
  81. VOID
  82. WriteHeader()
  83. {
  84.       PutStr( "\n/*\n *      Code generated by SKEleton Writer v1.20\n */\n\n" );
  85. }
  86.  
  87.  
  88. VOID
  89. WriteGlobalDefs()
  90. {
  91.     PutStr( "\n" );
  92.  
  93.     if ( ( Flag1 & CLASS_FLAG ) | Flag2A | Flag2B )
  94.         PutStr( "ULONG  Class;\n" );
  95.  
  96.     if ( Flag1 & CODE_FLAG && Flag1 & QUALIFIER_FLAG )
  97.         PutStr( "USHORT Code, Qualifier;\n" );
  98.     else if ( Flag1 & CODE_FLAG )
  99.         PutStr( "USHORT Code;" );
  100.     else if ( Flag1 & QUALIFIER_FLAG )
  101.         PutStr( "USHORT Qualifier;\n" );
  102.  
  103.     if ( Flag1 & IADDRESS_FLAG )
  104.         PutStr( "APTR   IAddress;\n" );
  105.  
  106.     if ( Flag1 & MOUSEX_FLAG && Flag1 & MOUSEY_FLAG )
  107.         PutStr( "SHORT  MouseX, MouseY;\n" );
  108.     else if ( Flag1 & MOUSEX_FLAG )
  109.         PutStr( "SHORT  MouseX;\n" );
  110.     else if ( Flag1 & MOUSEY_FLAG )
  111.         PutStr( "SHORT  MouseY;\n" );
  112.  
  113.     if ( Flag1 & SECONDS_FLAG && Flag1 & MICROS_FLAG )
  114.         PutStr( "ULONG  Seconds, Micros;\n" );
  115.     else if ( Flag1 & SECONDS_FLAG )
  116.         PutStr( "ULONG  Seconds;\n" );
  117.     else if ( Flag1 & MICROS_FLAG )
  118.         PutStr( "ULONG  Micros;\n" );
  119. }
  120.  
  121.  
  122. VOID
  123. WriteLocalDefs()
  124. {
  125.     PutStr( "\n" );
  126.  
  127.  
  128.     if ( ( Flag1 & CLASS_FLAG ) | Flag2A | Flag2B )
  129.         PutStr( "    ULONG  class;\n" );
  130.  
  131.     if ( Flag1 & CODE_FLAG && Flag1 & QUALIFIER_FLAG )
  132.         PutStr( "    USHORT code, qualifier;\n" );
  133.     else if ( Flag1 & CODE_FLAG )
  134.         PutStr( "    USHORT code;" );
  135.     else if ( Flag1 & QUALIFIER_FLAG )
  136.         PutStr( "    USHORT qualifier;\n" );
  137.  
  138.     if ( Flag1 & IADDRESS_FLAG )
  139.         PutStr( "    APTR   iaddress;\n" );
  140.  
  141.     if ( Flag1 & MOUSEX_FLAG && Flag1 & MOUSEY_FLAG )
  142.         PutStr( "    SHORT  mouse_x, mouse_y;\n" );
  143.     else if ( Flag1 & MOUSEX_FLAG )
  144.         PutStr( "    SHORT  mouse_x;\n" );
  145.     else if ( Flag1 & MOUSEY_FLAG )
  146.         PutStr( "    SHORT  mouse_y;\n" );
  147.  
  148.     if ( Flag1 & SECONDS_FLAG && Flag1 & MICROS_FLAG )
  149.         PutStr( "    ULONG  seconds, micros;\n" );
  150.     else if ( Flag1 & SECONDS_FLAG )
  151.         PutStr( "    ULONG  seconds;\n" );
  152.     else if ( Flag1 & MICROS_FLAG )
  153.         PutStr( "    ULONG  micros;\n" );
  154. }
  155.  
  156.  
  157. VOID
  158. WriteProtos()
  159. {
  160.     PutStr( "\n" );
  161.  
  162.     if ( TopArgs_FLAG ) {
  163.         if ( TopReturn_FLAG )
  164.             VPrintf( "LONG %s( struct Window * );\n\n", (LONG *)&TOP_LEVEL_BUF );
  165.         else
  166.             VPrintf( "VOID %s( struct Window * );\n\n", (LONG *)&TOP_LEVEL_BUF );
  167.     }
  168.     else {
  169.         if ( TopReturn_FLAG )
  170.             VPrintf( "LONG %s( VOID );\n\n", (LONG *)&TOP_LEVEL_BUF );
  171.         else
  172.             VPrintf( "VOID %s( VOID );\n\n", (LONG *)&TOP_LEVEL_BUF );
  173.     }
  174.  
  175.     /* still lots of brute force, but less... */
  176.  
  177.     /* Flag2A */
  178.     lowWriteProtos( TRUE,    MOUSEBUTTONS_F_FLAG,    "MouseButtons" );
  179.     lowWriteProtos( TRUE,    MOUSEMOVE_F_FLAG,        "MouseMove" );
  180.     lowWriteProtos( TRUE,    GADGETDOWN_F_FLAG,        "GadgetDown" );
  181.     lowWriteProtos( TRUE,    GADGETUP_F_FLAG,        "GadgetUp" );
  182.     lowWriteProtos( TRUE,    CLOSEWINDOW_F_FLAG,        "CloseWindow" );
  183.     lowWriteProtos( TRUE,    MENUPICK_F_FLAG,        "MenuPick" );
  184.     lowWriteProtos( TRUE,    MENUVERIFY_F_FLAG,        "MenuVerify" );
  185.     lowWriteProtos( TRUE,    MENUHELP_F_FLAG,        "MenuHelp" );
  186.     lowWriteProtos( TRUE,    RAWKEY_F_FLAG,            "RawKey" );
  187.     lowWriteProtos( TRUE,    VANILLAKEY_F_FLAG,        "VanillaKey" );
  188.     lowWriteProtos( TRUE,    REQSET_F_FLAG,             "ReqSet" );
  189.     lowWriteProtos( TRUE,    REQCLEAR_F_FLAG,         "ReqClear" );
  190.     lowWriteProtos( TRUE,    REQVERIFY_F_FLAG,         "ReqVerify" );
  191.  
  192.     /* Flag2B */
  193.     lowWriteProtos( FALSE,    NEWSIZE_F_FLAG,         "NewSize" );
  194.     lowWriteProtos( FALSE,    SIZEVERIFY_F_FLAG,         "SizeVerify" );
  195.     lowWriteProtos( FALSE,    ACTIVEWINDOW_F_FLAG,     "ActiveWindow" );
  196.     lowWriteProtos( FALSE,    INACTIVEWINDOW_F_FLAG,     "InactiveWindow" );
  197.     lowWriteProtos( FALSE,    CHANGEWINDOW_F_FLAG,     "ChangeWindow" );
  198.     lowWriteProtos( FALSE,    REFRESHWINDOW_F_FLAG,     "RefreshWindow" );
  199.     lowWriteProtos( FALSE,    DISKINSERTED_F_FLAG,     "DiskInserted" );
  200.     lowWriteProtos( FALSE,    DISKREMOVED_F_FLAG,     "DiskRemoved" );
  201.     lowWriteProtos( FALSE,    NEWPREFS_F_FLAG,         "NewPrefs" );
  202.     lowWriteProtos( FALSE,    INTUITICKS_F_FLAG,         "IntuiTicks" );
  203.     lowWriteProtos( FALSE,    IDCMPUPDATE_F_FLAG,     "IDCMPUpdate" );
  204.     lowWriteProtos( FALSE,    LONELYMESSAGE_F_FLAG,    "LonelyMessage" );
  205. }
  206.  
  207.  
  208. VOID
  209. lowWriteProtos( BOOL fA, LONG flag, UBYTE *name )
  210. {
  211.     LONG our_flag = ( fA ) ? Flag2A : Flag2B;
  212.  
  213.     if ( our_flag & flag ) {
  214.         if ( Variables_FLAG == LOCAL ) {
  215.             WriteFillIn();
  216.             Pad();
  217.             PutStr( PREFIX_BUF );
  218.             PutStr( name );
  219.             VPrintf( "%s(", (LONG *)&SUFFIX_BUF );
  220.             Pad();
  221.             WriteFillIn();
  222.             Pad();
  223.             PutStr( ");\n" );
  224.         }
  225.         else {
  226.             VPrintf( "VOID %s", (LONG *)&PREFIX_BUF );
  227.             PutStr( name );
  228.             VPrintf( "%s( VOID );\n", (LONG *)&SUFFIX_BUF );
  229.         }
  230.     }
  231. }
  232.  
  233.  
  234.  
  235. VOID
  236. WriteTopLevelF()
  237. {
  238.     if ( TopArgs_FLAG ) {
  239.         if ( TopReturn_FLAG )
  240.             VPrintf( "\n\nLONG %s( struct Window *wnd )\n{", (LONG *)&TOP_LEVEL_BUF );
  241.         else
  242.             VPrintf( "\n\nVOID %s( struct Window *wnd )\n{", (LONG *)&TOP_LEVEL_BUF );
  243.     }
  244.     else {
  245.         if ( TopReturn_FLAG )
  246.             VPrintf( "\n\nLONG %s()\n{", (LONG *)&TOP_LEVEL_BUF );
  247.         else
  248.             VPrintf( "\n\nVOID %s()\n{", (LONG *)&TOP_LEVEL_BUF );
  249.     }
  250.  
  251.     PutStr( "\n    struct IntuiMessage *msg;\n" );
  252.  
  253.     if ( Variables_FLAG == LOCAL )
  254.         WriteLocalDefs();
  255.  
  256.     PutStr( "\n" );
  257.  
  258.     if ( TestVarScope_FLAG == TestVar_LOCAL ) {
  259.             PutStr( "    BOOL   " );
  260.             PutStr( TEST_VAR_BUF );
  261.             PutStr( " = FALSE;\n\n" );
  262.     }
  263.  
  264.     PutStr( "    while ( ! " );
  265.     PutStr( TEST_VAR_BUF );
  266.     PutStr( " ) {\n" );
  267.  
  268.     if ( WaitingMode_FLAG == PASSIVE ) {
  269.         if ( TopArgs_FLAG )
  270.             PutStr( "        WaitPort( wnd->UserPort );\n" );
  271.         else
  272.               VPrintf( "        WaitPort( %s->UserPort );\n",
  273.                                                     (LONG *)&IDCMP_WIN_BUF );
  274.     }
  275.     else {
  276.         PutStr( "\n        " );
  277.         WriteFillIn();
  278.  
  279.         if ( Comments_FLAG == VERBOSE_COMMENTS ) {
  280.             PutStr( "  /* do your thing while you're looping */\n\n" );
  281.         }
  282.         else {
  283.             PutStr( "\n\n" );
  284.         }
  285.     }
  286.  
  287.     if ( Flag1 & gadtools_FLAG ) {
  288.         if ( TopArgs_FLAG ) {
  289.             PutStr( "        while ( msg = (struct IntuiMessage *)GT_GetIMsg( wnd->UserPort ) ) {\n" );
  290.         }
  291.         else {
  292.               VPrintf( "        while ( msg = (struct IntuiMessage *)GT_GetIMsg( %s->UserPort ) ) {\n",
  293.                     (LONG *)&IDCMP_WIN_BUF );
  294.         }
  295.     }
  296.     else {
  297.         if ( TopArgs_FLAG ) {
  298.             PutStr( "        while ( msg = (struct IntuiMessage *)GetMsg( wnd->UserPort ) ) {\n" );
  299.         }
  300.         else {
  301.               VPrintf( "        while ( msg = (struct IntuiMessage *)GetMsg( %s->UserPort ) ) {\n",
  302.                     (LONG *)&IDCMP_WIN_BUF );
  303.         }
  304.     }
  305.  
  306.     PutStr( "\n" );
  307.  
  308.     /* assignements */
  309.     if ( ( Flag1 & CLASS_FLAG ) | Flag2A | Flag2B ) {
  310.         if ( Variables_FLAG == LOCAL )
  311.             PutStr( "            class     =  msg->Class;\n" );
  312.         else
  313.             PutStr( "            Class     =  msg->Class;\n" );
  314.     }
  315.  
  316.     if ( Flag1 & CODE_FLAG ) {
  317.         if ( Variables_FLAG == LOCAL )
  318.             PutStr( "            code      =  msg->Code;\n" );
  319.         else
  320.             PutStr( "            Code      =  msg->Code;\n" );
  321.     }
  322.  
  323.     if ( Flag1 & QUALIFIER_FLAG ) {
  324.         if ( Variables_FLAG == LOCAL )
  325.             PutStr( "            qualifier =  msg->Qualifier;\n" );
  326.         else
  327.             PutStr( "            Qualifier =  msg->Qualifier;\n" );
  328.     }
  329.  
  330.     if ( Flag1 & IADDRESS_FLAG ) {
  331.         if ( Variables_FLAG == LOCAL )
  332.             PutStr( "            iaddress  =  msg->IAddress;\n" );
  333.         else
  334.             PutStr( "            IAddress  =  msg->IAddress;\n" );
  335.     }
  336.  
  337.     if ( Flag1 & MOUSEX_FLAG ) {
  338.         if ( Variables_FLAG == LOCAL )
  339.             PutStr( "            mouse_x   =  msg->MouseX;\n" );
  340.         else
  341.             PutStr( "            MouseX    =  msg->MouseX;\n" );
  342.     }
  343.  
  344.     if ( Flag1 & MOUSEY_FLAG ) {
  345.         if ( Variables_FLAG == LOCAL )
  346.             PutStr( "            mouse_y   =  msg->MouseY;\n" );
  347.         else
  348.             PutStr( "            MouseY    =  msg->MouseY;\n" );
  349.     }
  350.  
  351.     if ( Flag1 & SECONDS_FLAG ) {
  352.         if ( Variables_FLAG == LOCAL )
  353.             PutStr( "            seconds   =  msg->Seconds;\n" );
  354.         else
  355.             PutStr( "            Seconds   =  msg->Seconds;\n" );
  356.     }
  357.  
  358.     if ( Flag1 & MICROS_FLAG ) {
  359.         if ( Variables_FLAG == LOCAL )
  360.             PutStr( "            micros    =  msg->Micros;\n" );
  361.         else
  362.             PutStr( "            Micros    =  msg->Micros;\n" );
  363.     }
  364.  
  365.     PutStr( "\n" );
  366.  
  367.     /* we are replying the message... */
  368.     if ( Flag1 & gadtools_FLAG )
  369.         PutStr( "            GT_ReplyIMsg( msg );\n" );
  370.     else
  371.         PutStr( "            ReplyMsg( msg );\n" );
  372.  
  373.     /* switch */
  374.     if ( Variables_FLAG == LOCAL ) {
  375.         PutStr( "\n            switch ( class ) {\n" );
  376.     }
  377.     else {
  378.         PutStr( "\n            switch ( Class ) {\n" );
  379.     }
  380.  
  381.     if ( !Flag2A && !Flag2B )
  382.         PutStr( "\n\n" );
  383.     else
  384.         WriteCases();
  385.  
  386.     PutStr( "                default:\n" );
  387.     PutStr( "                    " );
  388.     WriteFillIn();
  389.     PutStr( "\n                    break;\n" );
  390.     PutStr( "            }\n        }\n    }\n\n" );
  391.  
  392.     /* write stuff for replying outstanding messages */
  393.  
  394.     if ( Comments_FLAG == VERBOSE_COMMENTS )
  395.         PutStr( "    /* reply all outstanding messages */\n" );
  396.  
  397.     if ( Flag1 & gadtools_FLAG ) {
  398.         if ( TopArgs_FLAG ) {
  399.             PutStr( "    while ( msg = (struct IntuiMessage *)GT_GetIMsg( wnd->UserPort ) )\n" );
  400.         }
  401.         else {
  402.               VPrintf( "    while ( msg = (struct IntuiMessage *)GT_GetIMsg( %s->UserPort ) )\n",
  403.                     (LONG *)&IDCMP_WIN_BUF );
  404.         }
  405.         PutStr( "        GT_ReplyIMsg( msg );\n" );
  406.     }
  407.     else {
  408.         if ( TopArgs_FLAG ) {
  409.             PutStr( "    while ( msg = (struct IntuiMessage *)GetMsg( wnd->UserPort ) )\n" );
  410.         }
  411.         else {
  412.               VPrintf( "    while ( msg = (struct IntuiMessage *)GetMsg( %s->UserPort ) )\n",
  413.                     (LONG *)&IDCMP_WIN_BUF );
  414.         }
  415.         PutStr( "        ReplyMsg( msg );\n" );
  416.     }
  417.  
  418.     if ( TopReturn_FLAG ) {
  419.         PutStr( "\n    return( " );
  420.         WriteFillIn();
  421.         PutStr( " );\n" );
  422.     }
  423.  
  424.     PutStr( "}\n" );
  425. }
  426.  
  427.  
  428. VOID
  429. WriteCases()
  430. {
  431.     /* Flag2A */
  432.     lowWriteCases( TRUE,    MOUSEBUTTONS_FLAG,    MOUSEBUTTONS_F_FLAG,        "MouseButtons",      "IDCMP_MOUSEBUTTONS" );
  433.     lowWriteCases( TRUE,    MOUSEMOVE_FLAG,     MOUSEMOVE_F_FLAG,             "MouseMove",         "IDCMP_MOUSEMOVE" );
  434.     lowWriteCases( TRUE,    GADGETDOWN_FLAG,     GADGETDOWN_F_FLAG,            "GadgetDown",        "IDCMP_GADGETDOWN" );
  435.     lowWriteCases( TRUE,    GADGETUP_FLAG,        GADGETUP_F_FLAG,            "GadgetUp",          "IDCMP_GADGETUP" );
  436.     lowWriteCases( TRUE,    CLOSEWINDOW_FLAG,    CLOSEWINDOW_F_FLAG,            "CloseWindow",       "IDCMP_CLOSEWINDOW" );
  437.     lowWriteCases( TRUE,    MENUPICK_FLAG,        MENUPICK_F_FLAG,            "MenuPick",          "IDCMP_MENUPICK" );
  438.     lowWriteCases( TRUE,    MENUVERIFY_FLAG,    MENUVERIFY_F_FLAG,            "MenuVerify",        "IDCMP_MENUVERIFY" );
  439.     lowWriteCases( TRUE,    MENUHELP_FLAG,        MENUHELP_F_FLAG,            "MenuHelp",          "IDCMP_MENUHELP" );
  440.     lowWriteCases( TRUE,    RAWKEY_FLAG,        RAWKEY_F_FLAG,                "RawKey",            "IDCMP_RAWKEY" );
  441.     lowWriteCases( TRUE,    VANILLAKEY_FLAG,    VANILLAKEY_F_FLAG,            "VanillaKey",        "IDCMP_VANILLAKEY" );
  442.     lowWriteCases( TRUE,    REQSET_FLAG,        REQSET_F_FLAG,                "ReqSet",            "IDCMP_REQSET" );
  443.     lowWriteCases( TRUE,    REQCLEAR_FLAG,         REQCLEAR_F_FLAG,            "ReqClear",          "IDCMP_REQCLEAR" );
  444.     lowWriteCases( TRUE,    REQVERIFY_FLAG,     REQVERIFY_F_FLAG,            "ReqVerify",         "IDCMP_REQVERIFY" );
  445.  
  446.     /* Flag2B */
  447.     lowWriteCases( FALSE,    NEWSIZE_FLAG,        NEWSIZE_F_FLAG,                "NewSize",           "IDCMP_NEWSIZE" );
  448.     lowWriteCases( FALSE,    SIZEVERIFY_FLAG,     SIZEVERIFY_F_FLAG,               "SizeVerify",        "IDCMP_SIZEVERIFY" );
  449.     lowWriteCases( FALSE,    ACTIVEWINDOW_FLAG,     ACTIVEWINDOW_F_FLAG,        "ActiveWindow",      "IDCMP_ACTIVEWINDOW" );
  450.     lowWriteCases( FALSE,    INACTIVEWINDOW_FLAG,    INACTIVEWINDOW_F_FLAG,    "InactiveWindow",    "IDCMP_INACTIVEWINDOW" );
  451.     lowWriteCases( FALSE,    CHANGEWINDOW_FLAG,     CHANGEWINDOW_F_FLAG,        "ChangeWindow",      "IDCMP_CHANGEWINDOW" );
  452.  
  453.     /* we refresh window automatically if gadtools are used! */
  454.     if ( Flag1 & gadtools_FLAG || Flag2B & REFRESHWINDOW_FLAG || Flag2B & REFRESHWINDOW_F_FLAG )
  455.         WriteRefreshTopL();
  456.  
  457.     lowWriteCases( FALSE,    DISKINSERTED_FLAG,     DISKINSERTED_F_FLAG,        "DiskInserted",      "IDCMP_DISKINSERTED" );
  458.     lowWriteCases( FALSE,    DISKREMOVED_FLAG,     DISKREMOVED_F_FLAG,            "DiskRemoved",       "IDCMP_DISKREMOVED" );
  459.     lowWriteCases( FALSE,    NEWPREFS_FLAG,         NEWPREFS_F_FLAG,            "NewPrefs",          "IDCMP_NEWPREFS" );
  460.     lowWriteCases( FALSE,    INTUITICKS_FLAG,     INTUITICKS_F_FLAG,               "IntuiTicks",        "IDCMP_INTUITICKS" );
  461.     lowWriteCases( FALSE,    IDCMPUPDATE_FLAG,     IDCMPUPDATE_F_FLAG,            "IDCMPUpdate",       "IDCMP_IDCMPUPDATE" );
  462.     lowWriteCases( FALSE,    LONELYMESSAGE_FLAG,    LONELYMESSAGE_F_FLAG,           "LonelyMessage",     "IDCMP_LONELYMESSAGE" );
  463. }
  464.  
  465.  
  466. VOID
  467. lowWriteCases(     BOOL fA, LONG flag, LONG f_flag,
  468.                 UBYTE *low_name, UBYTE *up_name )
  469. {
  470.     LONG our_flag = ( fA ) ? Flag2A : Flag2B;
  471.  
  472.     if ( our_flag & flag || our_flag & f_flag ) {
  473.       PutStr( "                case " );
  474.       PutStr( up_name );
  475.       PutStr( ":\n" );
  476.         if ( our_flag & f_flag ) {
  477.               PutStr( "                    " );
  478.             PutStr( (UBYTE *)PREFIX_BUF );
  479.             PutStr( low_name );
  480.             VPrintf( "%s(", (LONG *)&SUFFIX_BUF );
  481.             Pad();
  482.             if ( Variables_FLAG == LOCAL )
  483.                 WriteFillIn();
  484.             Pad();
  485.             PutStr( ");\n" );
  486.         }
  487.         else {
  488.             PutStr( "                    " );
  489.             WriteFillIn();
  490.             PutStr( "\n" );
  491.         }
  492.         PutStr( "                    break;\n" );
  493.     }
  494. }
  495.  
  496.  
  497. VOID
  498. WriteRefreshTopL()
  499. {
  500.     PutStr( "                case " );
  501.     PutStr( "IDCMP_REFRESHWINDOW" );
  502.     PutStr( ":\n" );
  503.     if ( Flag2B & REFRESHWINDOW_F_FLAG ) {
  504.          PutStr( "                    " );
  505.         PutStr( (UBYTE *)PREFIX_BUF );
  506.         PutStr( "RefreshWindow" );
  507.         VPrintf( "%s(", (LONG *)&SUFFIX_BUF );
  508.         Pad();
  509.         if ( Variables_FLAG == LOCAL )
  510.             WriteFillIn();
  511.         Pad();
  512.         PutStr( ");\n" );
  513.     }
  514.     else {
  515.         PutStr( "                    " );
  516.             lowWriteRefreshTopL();
  517.             PutStr( "\n" );
  518.     }
  519.     PutStr( "                    break;\n" );
  520. }
  521.  
  522.  
  523. VOID
  524. lowWriteRefreshTopL()
  525. {
  526.     if ( Flag1 & gadtools_FLAG ) {
  527.  
  528.         /* O.K. -- the guy explicitly asked for refreshing... */
  529.         if (Flag2B & REFRESHWINDOW_FLAG || Flag2B & REFRESHWINDOW_F_FLAG ) {
  530.             if ( TopArgs_FLAG ) {
  531.                 PutStr( "GT_BeginRefresh( wnd );\n\n" );
  532.                 if ( Comments_FLAG == VERBOSE_COMMENTS )
  533.                     PutStr( "                    /* own rendering (if needed) here */\n\n" );
  534.                 PutStr( "                    GT_EndRefresh( wnd, TRUE );" );
  535.             }
  536.             else {
  537.                 VPrintf( "GT_BeginRefresh( %s );\n\n", (LONG *)&IDCMP_WIN_BUF );
  538.                 if ( Comments_FLAG == VERBOSE_COMMENTS ) {
  539.                     PutStr( "                    /* own rendering (if needed) here */\n\n" );
  540.                 }
  541.                 VPrintf( "                    GT_EndRefresh( %s, TRUE );", (LONG *)&IDCMP_WIN_BUF );
  542.             }
  543.         }
  544.  
  545.         /* he gets refreshing AGINST his will! */
  546.         else {
  547.             if ( TopArgs_FLAG ) {
  548.                 PutStr( "GT_BeginRefresh( wnd );" );
  549.                 if ( Comments_FLAG != NO_COMMENTS )
  550.                     PutStr( "    /* NECESSARY with gadtools! */" );
  551.                   PutStr( "\n                    GT_EndRefresh( wnd, TRUE );" );
  552.             }
  553.             else {
  554.                 VPrintf( "GT_BeginRefresh( %s );", (LONG *)&IDCMP_WIN_BUF );
  555.                 if ( Comments_FLAG != NO_COMMENTS )
  556.                     PutStr( "    /* NECESSARY with gadtools! */" );
  557.                 VPrintf( "\n                    GT_EndRefresh( %s, TRUE );", (LONG *)&IDCMP_WIN_BUF );
  558.             }
  559.         }
  560.     }
  561.  
  562.     /* he says NO GADTOOLS required -- if so -- no AI needed either */
  563.     else {
  564.         if ( TopArgs_FLAG ) {
  565.             PutStr( "BeginRefresh( wnd );\n\n" );
  566.             if ( Comments_FLAG == VERBOSE_COMMENTS ) {
  567.                 PutStr( "                    /* own rendering (if needed) here */\n\n" );
  568.             }
  569.             PutStr( "                    EndRefresh( wnd, TRUE );" );
  570.         }
  571.         else {
  572.             VPrintf( "BeginRefresh( %s );\n\n", (LONG *)&IDCMP_WIN_BUF );
  573.             if ( Comments_FLAG == VERBOSE_COMMENTS ) {
  574.                 PutStr( "                    /* own rendering (if needed) here */\n\n" );
  575.             }
  576.             VPrintf( "                    EndRefresh( %s, TRUE );", (LONG *)&IDCMP_WIN_BUF );
  577.         }
  578.     }
  579. }
  580.  
  581.  
  582. VOID
  583. WriteFSkeletons()
  584. {
  585.     PutStr( "\n\n" );
  586.  
  587.     /* still lots of raw force; perhaps should use arrays,
  588.     ** but in fact this ain't bad...
  589.     */
  590.  
  591.     /* Flag2A */
  592.     lowWriteFSkeletons( TRUE,    MOUSEBUTTONS_F_FLAG,    "MouseButtons" );
  593.     lowWriteFSkeletons( TRUE,    MOUSEMOVE_F_FLAG,        "MouseMove" );
  594.     lowWriteFSkeletons( TRUE,    GADGETDOWN_F_FLAG,        "GadgetDown" );
  595.     lowWriteFSkeletons( TRUE,    GADGETUP_F_FLAG,        "GadgetUp" );
  596.     lowWriteFSkeletons( TRUE,    CLOSEWINDOW_F_FLAG,        "CloseWindow" );
  597.     lowWriteFSkeletons( TRUE,    MENUPICK_F_FLAG,        "MenuPick" );
  598.     lowWriteFSkeletons( TRUE,    MENUVERIFY_F_FLAG,        "MenuVerify" );
  599.     lowWriteFSkeletons( TRUE,    MENUHELP_F_FLAG,        "MenuHelp" );
  600.     lowWriteFSkeletons( TRUE,    RAWKEY_F_FLAG,            "RawKey" );
  601.     lowWriteFSkeletons( TRUE,    VANILLAKEY_F_FLAG,        "VanillaKey" );
  602.     lowWriteFSkeletons( TRUE,    REQSET_F_FLAG,             "ReqSet" );
  603.     lowWriteFSkeletons( TRUE,    REQCLEAR_F_FLAG,         "ReqClear" );
  604.     lowWriteFSkeletons( TRUE,    REQVERIFY_F_FLAG,         "ReqVerify" );
  605.  
  606.     /* Flag2B */
  607.     lowWriteFSkeletons( FALSE,    NEWSIZE_F_FLAG,         "NewSize" );
  608.     lowWriteFSkeletons( FALSE,    SIZEVERIFY_F_FLAG,         "SizeVerify" );
  609.     lowWriteFSkeletons( FALSE,    ACTIVEWINDOW_F_FLAG,     "ActiveWindow" );
  610.     lowWriteFSkeletons( FALSE,    INACTIVEWINDOW_F_FLAG,     "InactiveWindow" );
  611.     lowWriteFSkeletons( FALSE,    CHANGEWINDOW_F_FLAG,     "ChangeWindow" );
  612.  
  613.     if ( Flag2B & REFRESHWINDOW_F_FLAG )
  614.         WriteRefreshSkel();
  615.  
  616.     lowWriteFSkeletons( FALSE,    DISKINSERTED_F_FLAG,     "DiskInserted" );
  617.     lowWriteFSkeletons( FALSE,    DISKREMOVED_F_FLAG,     "DiskRemoved" );
  618.     lowWriteFSkeletons( FALSE,    NEWPREFS_F_FLAG,         "NewPrefs" );
  619.     lowWriteFSkeletons( FALSE,    INTUITICKS_F_FLAG,         "IntuiTicks" );
  620.     lowWriteFSkeletons( FALSE,    IDCMPUPDATE_F_FLAG,     "IDCMPUpdate" );
  621.     lowWriteFSkeletons( FALSE,    LONELYMESSAGE_F_FLAG,    "LonelyMessage" );
  622. }
  623.  
  624.  
  625.  
  626. VOID
  627. lowWriteFSkeletons( BOOL fA, LONG flag, UBYTE *name )
  628. {
  629.     LONG our_flag = ( fA ) ? Flag2A : Flag2B;
  630.  
  631.     if ( our_flag & flag ) {
  632.         if ( Variables_FLAG == LOCAL ) {
  633.             WriteFillIn();
  634.             Pad();
  635.             PutStr( (UBYTE *)PREFIX_BUF );
  636.             PutStr( name );
  637.             VPrintf( "%s(", (LONG *)&SUFFIX_BUF );
  638.             Pad();
  639.             WriteFillIn();
  640.             Pad();
  641.             PutStr( ")\n{\n    " );
  642.             WriteFillIn();
  643.             PutStr( "\n}\n\n" );
  644.         }
  645.         else {
  646.             PutStr( "\nVOID " );
  647.             PutStr( (UBYTE *)PREFIX_BUF );
  648.             PutStr( name );
  649.             VPrintf( "%s() \n{\n    ", (LONG *)&SUFFIX_BUF );
  650.             WriteFillIn();
  651.             PutStr( "\n}\n\n" );
  652.         }
  653.     }
  654. }
  655.  
  656.  
  657. VOID
  658. WriteRefreshSkel()
  659. {
  660.     if ( Variables_FLAG == LOCAL ) {
  661.         WriteFillIn();
  662.         Pad();
  663.         PutStr( (UBYTE *)PREFIX_BUF );
  664.         PutStr( "RefreshWindow" );
  665.         if ( TopArgs_FLAG ) {
  666.             VPrintf( "%s( struct Window *wnd )\n{n    ", (LONG *)&SUFFIX_BUF );
  667.             lowWriteRefreshSkel();
  668.         }
  669.         else {
  670.             VPrintf( "%s(", (LONG *)&SUFFIX_BUF );
  671.             Pad();
  672.             WriteFillIn();
  673.             Pad();
  674.             PutStr( ")\n{\n    " );
  675.             lowWriteRefreshSkel();
  676.         }
  677.     }
  678.     else {
  679.         PutStr( "\nVOID " );
  680.         PutStr( "RefreshWindow" );
  681.         if ( TopArgs_FLAG ) {
  682.             VPrintf( "%s( struct Window *wnd )\n{\n    ", (LONG *)&SUFFIX_BUF );
  683.             lowWriteRefreshSkel();
  684.         }
  685.         else {
  686.             VPrintf( "%s() \n{\n    ", (LONG *)&SUFFIX_BUF );
  687.             lowWriteRefreshSkel();
  688.         }
  689.     }
  690. }
  691.  
  692.  
  693. VOID
  694. lowWriteRefreshSkel()
  695. {
  696.     if ( Flag1 & gadtools_FLAG ) {
  697.         if ( TopArgs_FLAG ) {
  698.             PutStr( "GT_BeginRefresh( wnd );\n\n");
  699.             if ( Comments_FLAG == VERBOSE_COMMENTS ) {
  700.                 PutStr( "    /* own rendering (if needed) here */\n\n" );
  701.             }
  702.             PutStr( "    GT_EndRefresh( wnd, TRUE );");
  703.         }
  704.         else {
  705.             VPrintf( "GT_BeginRefresh( %s );\n\n", (LONG *)&IDCMP_WIN_BUF );
  706.             if ( Comments_FLAG == VERBOSE_COMMENTS ) {
  707.                 PutStr( "    /* own rendering (if needed) here */\n\n" );
  708.             }
  709.             VPrintf( "    GT_EndRefresh( %s, TRUE );", (LONG *)&IDCMP_WIN_BUF );
  710.         }
  711.     }
  712.     else {
  713.         if ( TopArgs_FLAG ) {
  714.             PutStr( "BeginRefresh( wnd );\n\n");
  715.             if ( Comments_FLAG == VERBOSE_COMMENTS ) {
  716.                 PutStr( "    /* own rendering (if needed) here */\n\n" );
  717.             }
  718.             PutStr( "    EndRefresh( wnd, TRUE );");
  719.         }
  720.         else {
  721.             VPrintf( "BeginRefresh( %s );\n\n", (LONG *)&IDCMP_WIN_BUF );
  722.             if ( Comments_FLAG == VERBOSE_COMMENTS ) {
  723.                 PutStr( "    /* own rendering (if needed) here */\n\n" );
  724.             }
  725.             VPrintf( "    EndRefresh( %s, TRUE );", (LONG *)&IDCMP_WIN_BUF );
  726.         }
  727.     }
  728.  
  729.     PutStr( "\n}\n\n" );
  730. }
  731.  
  732.  
  733. VOID
  734. WriteFillIn()
  735. {
  736.     switch ( FillIns_FLAG ) {
  737.         case 0:
  738.             return;
  739.         case 1:
  740.             PutStr( "@@@@@@@@@@" );
  741.             break;
  742.         case 2:
  743.             PutStr( "/* @@ */" );
  744.             break;
  745.         case 3:
  746.             PutStr( "@@" );
  747.             break;
  748.     }
  749. }
  750.  
  751.  
  752. VOID
  753. Pad()
  754. {
  755.     if ( FillIns_FLAG != FILLS_NONE && Variables_FLAG == LOCAL )
  756.         PutStr( " " );
  757. }
  758.  
  759.