home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / software / utilities / hexy / src / hexy_main.c < prev    next >
Encoding:
C/C++ Source or Header  |  1999-08-23  |  17.3 KB  |  763 lines
  1.  
  2. /*
  3.  * [!BGN - MACHINE GENERATED - DO NOT EDIT THIS HEADER]
  4.  *
  5.  * Program   : Hexy (Binary file viewer/editor for the Amiga.)
  6.  * Version   : 1.6
  7.  * File      : Work:Source/!WIP/HisoftProjects/Hexy/Hexy_main.c
  8.  * Author    : Andrew Bell
  9.  * Copyright : Copyright © 1998-1999 Andrew Bell (See GNU GPL)
  10.  * Created   : Saturday 28-Feb-98 16:00:00
  11.  * Modified  : Sunday 22-Aug-99 23:31:45
  12.  * Comment   : 
  13.  *
  14.  * (Generated with StampSource 1.2 by Andrew Bell)
  15.  *
  16.  * [!END - MACHINE GENERATED - DO NOT EDIT THIS HEADER]
  17.  *
  18.  */
  19.  
  20. /* Created: Thu/26/Feb/1998 */
  21.  
  22. #include <Hexy.h>
  23.  
  24. /*
  25.  *  Hexy, binary file viewer and editor for the Amiga.
  26.  *  Copyright (C) 1999 Andrew Bell
  27.  *
  28.  *  Author's email address: andrew.ab2000@bigfoot.com
  29.  *
  30.  *  This program is free software; you can redistribute it and/or modify
  31.  *  it under the terms of the GNU General Public License as published by
  32.  *  the Free Software Foundation; either version 2 of the License, or
  33.  *  (at your option) any later version.
  34.  *
  35.  *  This program is distributed in the hope that it will be useful,
  36.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  37.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  38.  *  GNU General Public License for more details.
  39.  *
  40.  *  You should have received a copy of the GNU General Public License
  41.  *  along with this program; if not, write to the Free Software
  42.  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  43.  *
  44.  */
  45.  
  46.  
  47. #define ARGPLATE "FILE,ASCII/S" /* Move this to Hexy_main.h */
  48.  
  49. /* Prototypes */
  50.  
  51. Prototype BOOL InitPrg( void );
  52. Prototype void ExitPrg( void );
  53. Prototype void ParseEvents( void );
  54. Prototype void DEBUG( void );
  55. Prototype void IDCMP_MAIN( void );
  56. Prototype BOOL IDCMP_CheckRAWKEYS( void );
  57. Prototype ULONG stream[], aa[], WaitFlags, SigFlag_IDCMP;
  58. Prototype UBYTE CurFileLoaded[];
  59. Prototype BOOL NoFileToLoad;
  60. Prototype struct VCtrl VC;
  61. Prototype struct Process *Proc;
  62. Prototype struct RDArgs *ArgInfo;
  63. Prototype struct MsgPort *WinPort;
  64. Prototype UWORD _VERSION;
  65. Prototype UWORD _REVISION;
  66. Prototype UBYTE _DATE[];   
  67. Prototype UBYTE _VERS[];
  68. Prototype UBYTE _VSTRING[];
  69. Prototype UBYTE _VERSTAG[];
  70. Prototype UWORD putChProc[];
  71. Prototype BOOL GUIActive;
  72. Prototype struct FileRequester *FR;
  73. Prototype struct rtReqInfo *RTFR;
  74. Prototype struct Library *ReqToolsBase;
  75. Prototype struct Library *WorkbenchBase;
  76. Prototype struct IntuiMessage IM;
  77. Prototype struct Gadget *Gad;
  78.  
  79. /* Variables and data */
  80.  
  81. UBYTE *VersionTag = VERSTAG;
  82. ULONG stream[99], aa[ARG_AMT], WaitFlags, SigFlag_IDCMP;
  83. UBYTE CurFileLoaded[256+4];
  84. BOOL NoFileToLoad = TRUE;
  85. UWORD _VERSION   = VERSION; /* Global version data, all modules should refer to these variables */
  86. UWORD _REVISION  = REVISION;
  87. UBYTE _DATE[]    = DATE;
  88. UBYTE _VERS[]    = VERS;
  89. UBYTE _VSTRING[] = VSTRING;
  90. UBYTE _VERSTAG[] = VERSTAG;
  91. struct VCtrl VC;
  92. struct Process *Proc;
  93. struct WBStartup *HexyWBMsg = NULL;
  94. struct RDArgs *ArgInfo = NULL;
  95. struct MsgPort *WinPort;
  96. UWORD putChProc[] = { 0x16c0, 0x4e75 };
  97. BOOL GUIActive = FALSE;
  98. struct FileRequester *FR = NULL;
  99. struct rtReqInfo *RTFR = NULL;
  100. struct Library *ReqToolsBase;
  101. struct Library *WorkbenchBase;
  102. struct Library *GadToolsBase;
  103. struct Library *AslBase;
  104. struct Library *CxBase;
  105. struct Library *UtilityBase;
  106. UBYTE CurrentUserDir[258+4];
  107. UBYTE CurrentUserFile[258+4];
  108. struct IntuiMessage IM;
  109. struct Gadget *Gad;
  110. BOOL running = TRUE;
  111.  
  112. LONG main( void )
  113. {
  114.   /*************************************************
  115.    *
  116.    * Start of all our problems :-) 
  117.    *
  118.    */
  119.  
  120.   Proc = (struct Process *) FindTask(NULL);
  121.  
  122.   if (InitPrg())
  123.   {
  124.     if (ViewGUI())
  125.     {
  126.       ParseEvents();
  127.       FreeVC(&VC);
  128.     }
  129.     else VPrintf("Failed to initilize GUI!\n", NULL);
  130.  
  131.     ClearGUI();
  132.   }
  133.   else VPrintf("Failed to initilize program!\n", NULL);
  134.  
  135.   ExitPrg();
  136.  
  137.   return RETURN_OK;
  138. }
  139.  
  140. void wbmain( struct WBStartup *WBS )
  141. {
  142.   HexyWBMsg = WBS;
  143.  
  144.   main();
  145. }
  146.  
  147. BOOL InitPrg( void )
  148. {
  149.   /*************************************************
  150.    *
  151.    * Setup the program. 
  152.    *
  153.    */
  154.  
  155.   WorkbenchBase = OpenLibrary("workbench.library", 39L);
  156.  
  157.   if (!WorkbenchBase) return FALSE;
  158.  
  159.   if (!HexyWBMsg)
  160.   {
  161.     ArgInfo = (struct RDArgs *)
  162.       ReadArgs(ARGPLATE, (LONG *) &aa, NULL);
  163.  
  164.     if (aa[ARG_FILE] == NULL)
  165.       NoFileToLoad = TRUE;
  166.     else
  167.       NoFileToLoad = FALSE;
  168.  
  169.     /*SetProgramName(VERS);*/
  170.   }
  171.   else NoFileToLoad = TRUE;
  172.  
  173.   WinPort = (struct MsgPort *) CreateMsgPort();
  174.  
  175.   if (!WinPort) return(FALSE);
  176.  
  177.   SigFlag_IDCMP = (1 << WinPort->mp_SigBit);
  178.  
  179.   if (!(GadToolsBase = OpenLibrary("gadtools.library", 39L)))
  180.   {
  181.     HexyInformation("Unable to open gadtools.library v39+", NULL);
  182.  
  183.     return FALSE;
  184.   }
  185.  
  186.   if (!(AslBase = OpenLibrary("asl.library", 39L)))
  187.   {
  188.  
  189.     HexyInformation("Unable to open asl.library v39+", NULL);
  190.  
  191.     return FALSE;
  192.   }
  193.  
  194.   if (!(ReqToolsBase = OpenLibrary("reqtools.library", 38L)))
  195.   {
  196.     HexyInformation("Unable to open reqtools.library v38+", NULL);
  197.  
  198.     return FALSE;
  199.   }
  200.  
  201.   if (!(CxBase = OpenLibrary("commodities.library", 39L)))
  202.   {
  203.     HexyInformation("Unable to open commodities.library v39+", NULL);
  204.  
  205.     return FALSE;
  206.   }
  207.  
  208.   if (!(UtilityBase = OpenLibrary("utility.library", 39L)))
  209.   {
  210.     HexyInformation("Unable to open utility.library v39+", NULL);
  211.  
  212.     return FALSE;
  213.   }
  214.  
  215.   /* Setup the paths & filenames for the requester */
  216.  
  217.   if (NoFileToLoad == FALSE)
  218.   {
  219.     /* If the user loaded a file via CLI params then extract path & name
  220.        from that string. */
  221.  
  222.     strcpy( (UBYTE *) &CurrentUserDir, (UBYTE *) aa[ARG_FILE] );
  223.     strcpy( (STRPTR) &CurrentUserFile, FilePart((STRPTR) &CurrentUserDir) );
  224.     PathPart((STRPTR) &CurrentUserDir)[0] = 0;
  225.   }
  226.   else
  227.   {
  228.     /* Terminate file buffer */
  229.  
  230.     CurrentUserFile[0] = 0;
  231.  
  232.     if (!GetCurrentDirName( (STRPTR) &CurrentUserDir, 256))
  233.     {
  234.       CurrentUserDir[0] = 0;  /* Null terminate buffer */
  235.     }
  236.   }
  237.  
  238.   FR = (struct FileRequester *) AllocAslRequestTags(ASL_FileRequest,
  239.     ASLFR_SleepWindow,    TRUE,
  240.     ASLFR_InitialDrawer,  &CurrentUserDir,
  241.     ASLFR_InitialFile,    &CurrentUserFile,
  242.     ASLFR_DoPatterns,     "#?",
  243.     ASLFR_InitialPattern, "#?",
  244.     ASLFR_RejectIcons,    FALSE,
  245.     TAG_DONE);
  246.  
  247.   if (!FR) return(FALSE);
  248.  
  249.   RTFR = (struct rtReqInfo *) rtAllocRequestA(RT_REQINFO, NULL);
  250.  
  251.   if (!RTFR) return(FALSE);
  252.  
  253.   if (!InitCX()) return(FALSE);
  254.   if (!InitApp()) return(FALSE);
  255.  
  256.   return(TRUE);
  257. }
  258.  
  259. void ExitPrg( void )
  260. {
  261.   /*************************************************
  262.    *
  263.    * Close down program. 
  264.    *
  265.    */
  266.  
  267.   FreeApp();
  268.   FreeCX();
  269.  
  270.   if (FR) { FreeAslRequest(FR); FR = NULL; }
  271.   if (RTFR) { rtFreeRequest(RTFR); RTFR = NULL; }
  272.   if (WinPort) { DeleteMsgPort(WinPort); WinPort = NULL; }
  273.   if (ArgInfo) { FreeArgs(ArgInfo); ArgInfo = NULL; }
  274.  
  275.   if (ReqToolsBase)
  276.   {
  277.     CloseLibrary(ReqToolsBase); ReqToolsBase = NULL;
  278.   }
  279.  
  280.   if (UtilityBase)
  281.   {
  282.     CloseLibrary(UtilityBase); UtilityBase = NULL;
  283.   }
  284.  
  285.   if (WorkbenchBase)
  286.   {
  287.     CloseLibrary(WorkbenchBase); WorkbenchBase = NULL;
  288.   }
  289.  
  290.   if (GadToolsBase)
  291.   {
  292.     CloseLibrary(GadToolsBase); GadToolsBase = NULL;
  293.   }
  294.  
  295.   if (AslBase)
  296.   {
  297.     CloseLibrary(AslBase); AslBase = NULL;
  298.   }
  299.   
  300.   if (CxBase)
  301.   {
  302.     CloseLibrary(CxBase); CxBase = NULL;
  303.   }
  304. }
  305.  
  306. void ParseEvents( void )
  307. {
  308.   /*************************************************
  309.    *
  310.    * Process all signals for this task. 
  311.    *
  312.    */
  313.  
  314.   struct IntuiMessage *TmpIM;
  315.  
  316.   if (NoFileToLoad)
  317.   {
  318.     UBYTE *TempPath;
  319.     PrintStatus("Select a file to load...", NULL);
  320.     TempPath = ObtainInFile();
  321.     if (TempPath)
  322.     {
  323.       if (ReadFile(TempPath, &VC))
  324.       {
  325.         /*PrintStatus("File loaded OK", &stream);*/
  326.       }
  327.     }
  328.   }
  329.   else
  330.   {
  331.     if (ReadFile((UBYTE *) aa[ARG_FILE], &VC))
  332.     {
  333.       /*PrintStatus("File loaded OK", &stream);*/
  334.     }
  335.   }
  336.  
  337.   /*PrintStatus("Do something...", NULL);*/
  338.  
  339.   while(running)
  340.   {
  341.     ULONG SigEvent;
  342.  
  343.     WaitFlags = (SigFlag_App | SigFlag_Cx |
  344.                 SigFlag_IDCMP | SIGBREAKF_CTRL_C);
  345.  
  346.     SigEvent = Wait(WaitFlags);
  347.     
  348.     if (SigEvent & SigFlag_IDCMP)
  349.     {
  350.       while (TmpIM = (struct IntuiMessage *) GT_GetIMsg(WinPort))
  351.       {
  352.         CopyMem(TmpIM, &IM, sizeof(struct IntuiMessage));
  353.         Gad = IM.IAddress;
  354.         GT_ReplyIMsg(TmpIM);
  355.  
  356.         if ((IM.IDCMPWindow == MAINWnd) && EditFlag)
  357.         {
  358.           if (Edit_DoEditIDCMP(&IM)) continue;
  359.         }
  360.  
  361.         if (IDCMP_CheckRAWKEYS()) continue;
  362.         if (IM.IDCMPWindow == MAINWnd) IDCMP_MAIN();
  363.         else if (IM.IDCMPWindow == JUMPWnd) IDCMP_JUMP();
  364.         else if (IM.IDCMPWindow == FINDWnd) IDCMP_FIND();
  365.         else if (IM.IDCMPWindow == HUNKLISTWnd) IDCMP_HUNKLIST();
  366.       }
  367.     }
  368.     else if (SigEvent & SigFlag_App) DoAppEvent();
  369.     else if (SigEvent & SigFlag_Cx) if (DoCxEvent()) running = FALSE;
  370.     else if (SigEvent & SIGBREAKF_CTRL_C) running = FALSE;
  371.     continue;
  372.   }
  373. }
  374.  
  375. #define ESC 0x1B  /* Escape key */
  376.  
  377. void IDCMP_MAIN( void )
  378. {
  379.   /*************************************************
  380.    *
  381.    * Handle IDCMP for main window.
  382.    *
  383.    */
  384.  
  385.   if (Edit_DoEditIDCMP(&IM)) return;
  386.  
  387.   switch(IM.Class)
  388.   {
  389.     case IDCMP_VANILLAKEY:
  390.  
  391.       switch((UBYTE)IM.Code)
  392.       {
  393.         case ESC: /* ESC */
  394.         case 'Q':
  395.         case 'q':
  396.           running = FALSE;
  397.           break;
  398.       }
  399.       break;
  400.  
  401.     case IDCMP_CLOSEWINDOW:
  402.       running = FALSE;
  403.       break;
  404.  
  405.     case IDCMP_REFRESHWINDOW:
  406.       MAINRender();
  407.       break;
  408.  
  409.     case IDCMP_MENUPICK:            /* Control Hexy's menus */
  410.     {
  411.       BOOL menudone = FALSE;
  412.       UWORD menuNumber = IM.Code;
  413.       
  414.       while ((menuNumber != MENUNULL) && (!menudone))
  415.       {
  416.         struct MenuItem *item = ItemAddress(MAINMenus, menuNumber);
  417.         UWORD menuNum = MENUNUM(menuNumber);
  418.         UWORD itemNum = ITEMNUM(menuNumber);
  419.         UWORD subNum  = SUBNUM(menuNumber);
  420.         
  421.         switch(menuNum)
  422.         {       
  423.           /*****************************************/
  424.           
  425.           case 0:                   /* Project */
  426.           {
  427.             switch(itemNum)
  428.             {
  429.               case 0:               /* Load */
  430.               {
  431.                 UBYTE *TempPath = ObtainInFile();
  432.                 if (TempPath)
  433.                 {
  434.                   ReadFile(TempPath, &VC);
  435.                 }
  436.                 UpdateJumpWindow();
  437.                 break;
  438.               }
  439.               case 1: break;        /* BAR */
  440.               case 2:               /* Save... */
  441.                 SaveToNewLocation(&VC);
  442.                 break;
  443.               case 3:               /* Split save... */
  444.                 SaveSplit(&VC);
  445.                 break;
  446.               case 4: break;        /* BAR */
  447.               case 5:               /* Iconify */
  448.                 DoIconify();
  449.                 break;
  450.               case 6: break;        /* BAR */
  451.               case 7:               /* About */
  452.               {         
  453.                 struct EasyStruct AboutES =
  454.                 {
  455.                   sizeof(struct EasyStruct),
  456.                   NULL,
  457.                   "About Hexy...", VERS " (" DATE ")\n"
  458.                   " Copyright © " YEAR " Andrew Bell\n"
  459.                   "This is a beta version!",
  460.                   "Continue"
  461.                 };
  462.                 EasyRequest(MAINWnd, &AboutES, NULL, NULL);
  463.                 break;
  464.               }
  465.               case 8:               /* Quit */
  466.                 menudone = TRUE;
  467.                 running = FALSE;
  468.                 break;
  469.             }
  470.             break;
  471.           }
  472.  
  473.           /*****************************************/
  474.  
  475.           case 1:                   /* Control */
  476.           {
  477.             switch(itemNum)
  478.             {
  479.               case 0: ViewJumpWindow(); break;
  480.               case 1: ViewFindWindow(); break;
  481.               case 2: ViewHunkListWindow(); break;
  482.               default: break;
  483.             }
  484.             break;
  485.           }
  486.           default:
  487.             break;
  488.         }
  489.         
  490.         menuNumber = item->NextSelect;
  491.       }
  492.       break;
  493.     }
  494.  
  495.  
  496.     case IDCMP_MOUSEMOVE:
  497.       switch(Gad->GadgetID)
  498.       {
  499.         case GD_GVDRAGBAR:
  500.           if (VC.VC_Mode == HEXYMODE_HEX)
  501.           {
  502.             VC.VC_CurrentPoint = (ULONG)(IM.Code * XAMOUNT_HEX);
  503.           }
  504.           else
  505.           {
  506.             VC.VC_CurrentPoint = (ULONG)(IM.Code * XAMOUNT_ASCII);
  507.           }
  508.  
  509.           UpdateView(&VC, NULL);
  510.           UpdateJumpWindow();
  511.           break;
  512.         default:
  513.           break;
  514.       }
  515.       break;
  516.  
  517.     case IDCMP_GADGETDOWN:
  518.       switch(Gad->GadgetID)
  519.       {
  520.         case GD_GVDRAGBAR:
  521.           if (VC.VC_Mode == HEXYMODE_HEX)
  522.           {
  523.             VC.VC_CurrentPoint = (ULONG)(IM.Code * XAMOUNT_HEX);
  524.           }
  525.           else
  526.           {
  527.             VC.VC_CurrentPoint = (ULONG)(IM.Code * XAMOUNT_ASCII);
  528.           }
  529.           UpdateView(&VC, NULL);
  530.         break;
  531.       }
  532.       break;
  533.  
  534.     case IDCMP_GADGETUP:
  535.     {
  536.       ULONG MoveAmt;
  537.       if (VC.VC_Mode == HEXYMODE_HEX)
  538.       {
  539.         MoveAmt = XAMOUNT_HEX;
  540.       }
  541.       else
  542.       {
  543.         MoveAmt = XAMOUNT_ASCII;
  544.       }
  545.  
  546.       switch(Gad->GadgetID)
  547.       {
  548.         case GD_GVDRAGBAR:
  549.         {
  550.           if (VC.VC_Mode == HEXYMODE_HEX)
  551.           {
  552.             VC.VC_CurrentPoint = (ULONG)(IM.Code * XAMOUNT_HEX);
  553.           }
  554.           else
  555.           {
  556.             VC.VC_CurrentPoint = (ULONG)(IM.Code * XAMOUNT_ASCII);
  557.           }
  558.           UpdateView(&VC, NULL);
  559.           break;
  560.         }
  561.         case GD_GNEXTL:
  562.           AdjustView(&VC, MoveAmt); SetVDragBar(&VC);
  563.           break;
  564.         case GD_GPREVL:
  565.           AdjustView(&VC, -MoveAmt); SetVDragBar(&VC);
  566.           break;
  567.         case GD_GNEXTP:
  568.           AdjustView(&VC, MoveAmt * YLINES); SetVDragBar(&VC);
  569.           break;
  570.         case GD_GPREVP:
  571.           AdjustView(&VC, -(MoveAmt * YLINES)); SetVDragBar(&VC);
  572.           break;
  573.         case GD_GSEARCH:
  574.           ViewFindWindow();
  575.           break;
  576.         case GD_GQUIT:
  577.           running = FALSE;
  578.           break;
  579.         case GD_GMODE:
  580.         {
  581.           switch(IM.Code)
  582.           {
  583.             default:
  584.             case HEXYMODE_HEX:
  585.               Edit_WipeCursor();
  586.               VC.VC_Mode = HEXYMODE_HEX;
  587.               UpdateView(&VC, NULL);
  588.               break;
  589.  
  590.             case HEXYMODE_ASCII:
  591.               Edit_WipeCursor();
  592.               VC.VC_Mode = HEXYMODE_ASCII;
  593.               UpdateView(&VC, NULL);
  594.               break;
  595.           }
  596.           if (EditFlag) Edit_ShiftCursor(0);
  597.           SetVDragBar(&VC);
  598.           break;
  599.         }
  600.  
  601.         case GD_GEDIT:
  602.         {
  603.           ULONG TestFlag;
  604.           ULONG r = GT_GetGadgetAttrs(MAINGadgets[GD_GEDIT], MAINWnd, NULL,
  605.                     GTCB_Checked, &TestFlag,
  606.                     TAG_DONE);
  607.  
  608.           if (r) if (TestFlag) Edit_Begin(); else Edit_End();
  609.           break;
  610.         }
  611.       }
  612.  
  613.       UpdateJumpWindow();
  614.       break;
  615.     }
  616.  
  617.     default:
  618.       ;
  619.   } /* switch(CLASS) */
  620. }
  621.  
  622. BOOL IDCMP_CheckRAWKEYS( void )
  623. {
  624.   /*************************************************
  625.    *
  626.    * Check for global raw keys 
  627.    *
  628.    */
  629.  
  630.   /*
  631.    * All keyboard shortcut should be placed into these procedures:
  632.    *
  633.    * IDCMP_KeyNavigation, controls Up/Dn/Lf/Rt arrows, etc.
  634.    * IDCMP_KeyControl, controls ESC key, HELP keys, etc.
  635.    *
  636.    * IDCMP_KeyNavigation is not called when EditMode is active because
  637.    * the Edit_DoEditIDCMP (aka Edit_DoEdit) handles edit cursor
  638.    * navigation.
  639.    *
  640.    * IDCMP_CheckRAWKEYS should then become obsolete.
  641.    *
  642.    */
  643.  
  644.   if (EditFlag) return(FALSE);
  645.  
  646.   if (IM.Class == IDCMP_RAWKEY)
  647.   {
  648.     LONG Amount = NULL;
  649.     BOOL QFlag;
  650.     BOOL CFlag;
  651.  
  652.     if ((IM.Qualifier & IEQUALIFIER_LSHIFT) ||
  653.       (IM.Qualifier & IEQUALIFIER_RSHIFT))
  654.     {
  655.       QFlag = TRUE;
  656.     }
  657.     else
  658.     {
  659.       QFlag = FALSE;
  660.     }
  661.  
  662.     if  (IM.Qualifier & IEQUALIFIER_CONTROL)
  663.     {
  664.       CFlag = TRUE;
  665.     }
  666.     else
  667.     {
  668.       CFlag = FALSE;
  669.     }
  670.  
  671.     switch(IM.Code)
  672.     {
  673.       /* Add HELP etc here */
  674.     }
  675.  
  676.     if (VC.VC_Mode == HEXYMODE_HEX)
  677.     {
  678.       switch(IM.Code)
  679.       {
  680.         case CURSORUP:
  681.           if (CFlag)
  682.           {
  683.             VC.VC_CurrentPoint = NULL;
  684.             Amount = NULL;
  685.             break;
  686.           }
  687.           else
  688.           {
  689.             if (QFlag)
  690.               Amount = -(XAMOUNT_HEX * YLINES);
  691.             else
  692.               Amount = -XAMOUNT_HEX;
  693.             break;
  694.           }
  695.         case CURSORDOWN:
  696.           if (CFlag)
  697.           {
  698.             VC.VC_CurrentPoint = VC.VC_FileLength - (XAMOUNT_HEX * YLINES);
  699.             Amount = NULL;
  700.             break;
  701.           }
  702.           else
  703.           {
  704.             if (QFlag)
  705.               Amount = (XAMOUNT_HEX*YLINES);
  706.             else
  707.               Amount = XAMOUNT_HEX;
  708.  
  709.             break;
  710.           }
  711.  
  712.         case CURSORLEFT:
  713.           if (QFlag) Amount = -4; else Amount = -1; break;
  714.         case CURSORRIGHT:
  715.           if (QFlag) Amount = 4; else Amount = 1; break;
  716.         default: break;
  717.       }
  718.       UpdateJumpWindow();
  719.     }
  720.     else
  721.     {
  722.       switch(IM.Code)
  723.       {
  724.         case CURSORUP:
  725.           if (QFlag) Amount = -(XAMOUNT_ASCII*YLINES); else Amount = -XAMOUNT_ASCII; break;
  726.         case CURSORDOWN:
  727.           if (QFlag) Amount = (XAMOUNT_ASCII*YLINES); else Amount = XAMOUNT_ASCII; break;
  728.         case CURSORLEFT:
  729.           if (QFlag) Amount = -4; else Amount = -1; break;
  730.         case CURSORRIGHT:
  731.           if (QFlag) Amount = 4; else Amount = 1; break;
  732.         default: break;
  733.       }
  734.       UpdateJumpWindow();
  735.     }
  736.     AdjustView(&VC, Amount);
  737.     SetVDragBar(&VC);
  738.     return(TRUE);
  739.   }
  740.   else
  741.   {
  742.     return(FALSE);
  743.   }
  744. }
  745.  
  746. void DEBUG( void )
  747. {
  748.   /*************************************************
  749.    *
  750.    * Special procedure use for debugging.
  751.    *
  752.    */
  753.  
  754.   /* This is a dummy function that is used for MonAm break points, etc. */
  755. }
  756.  
  757. /*************************************************
  758.  *
  759.  * 
  760.  *
  761.  */
  762.  
  763.