home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / comm / term33so.lha / termTextBuffer.c < prev    next >
C/C++ Source or Header  |  1993-04-30  |  44KB  |  1,824 lines
  1. /*
  2. **    termTextBuffer.c
  3. **
  4. **    Support routines for the text buffer.
  5. **
  6. **    Copyright © 1990-1993 by Olaf `Olsen' Barthel & MXM
  7. **        All Rights Reserved
  8. */
  9.  
  10. #include "termGlobal.h"
  11.  
  12.     /* Gadget ID codes. */
  13.  
  14. enum    {    GAD_SCROLLER,GAD_UP,GAD_DOWN };
  15.  
  16.     /* Menu ID codes. */
  17.  
  18. enum    {    MEN_SEARCH,MEN_REPEAT,MEN_GOTO,MEN_CLEARBUF_CONTENTS,MEN_CLOSEBUF,MEN_QUITBUF };
  19.  
  20.     /* Gadget ID codes. */
  21.  
  22. enum    {    GAD_STRING,GAD_LOAD,GAD_OK,GAD_CANCEL };
  23.  
  24.     /* A handy macro to determine the length of a string. */
  25.  
  26. #define LINE_WIDTH(s)    (s)[-1]
  27.  
  28.     /* The dimensions of the scroller images. */
  29.  
  30. #define ARROW_WIDTH    18
  31. #define ARROW_HEIGHT    11
  32.  
  33. STATIC struct NewMenu BufferMenu[] =
  34. {
  35.     { NM_TITLE, NULL,         0 , 0, 0, (APTR)0},
  36.     {  NM_ITEM, NULL,         0 , 0, 0, (APTR)MEN_SEARCH},
  37.     {  NM_ITEM, NULL,         0 , 0, 0, (APTR)MEN_REPEAT},
  38.     {  NM_ITEM, NM_BARLABEL,     0 , 0, 0, (APTR)0},
  39.     {  NM_ITEM, NULL,         0 , 0, 0, (APTR)MEN_GOTO},
  40.     {  NM_ITEM, NM_BARLABEL,     0 , 0, 0, (APTR)0},
  41.     {  NM_ITEM, NULL,         0 , 0, 0, (APTR)MEN_CLEARBUF_CONTENTS},
  42.     {  NM_ITEM, NULL,         0 , 0, 0, (APTR)MEN_CLOSEBUF},
  43.     {  NM_ITEM, NM_BARLABEL,     0 , 0, 0, (APTR)0},
  44.     {  NM_ITEM, NULL,         0 , 0, 0, (APTR)MEN_QUITBUF},
  45.  
  46.     { NM_END, 0,             0 , 0, 0, (APTR)0}
  47. };
  48.  
  49.     /* Some private data (render info & window). */
  50.  
  51. STATIC struct Window        *BufferWindow;
  52. STATIC struct Screen        *BufferScreen;
  53.  
  54. STATIC struct RastPort        *BPort;
  55. STATIC APTR             BufferVisualInfo;
  56.  
  57. STATIC LONG             NumBufferLines,
  58.                  NumBufferColumns,
  59.                  LastTopLine;
  60.  
  61. STATIC BYTE             BufferTerminated;
  62.  
  63. STATIC WORD             LocalTextFontWidth,
  64.                  LocalTextFontHeight,
  65.                  LocalTextFontBase;
  66.  
  67. STATIC struct TTextAttr         LocalTextFont;
  68. STATIC UBYTE             LocalTextFontName[MAX_FILENAME_LENGTH];
  69.  
  70. STATIC struct TTextAttr         LocalUserFont;
  71. STATIC UBYTE             LocalUserFontName[MAX_FILENAME_LENGTH];
  72.  
  73. STATIC LONG             CurrentLine,
  74.                  DisplayedLines;
  75.  
  76. STATIC struct SearchInfo    *BufferSearchInfo;
  77.  
  78. STATIC struct Gadget        *Scroller,
  79.                 *UpArrow,
  80.                 *DownArrow;
  81.  
  82. STATIC struct Image        *UpImage,
  83.                 *DownImage;
  84.  
  85. STATIC UWORD            *BufferLineWidths,
  86.                 *BufferLineOffsets,
  87.                 *BufferColumnOffsets;
  88.  
  89.     /* DeleteScroller(VOID):
  90.      *
  91.      *    Delete scroller and arrow objects.
  92.      */
  93.  
  94. STATIC VOID
  95. DeleteScroller(VOID)
  96. {
  97.     if(Scroller)
  98.     {
  99.         DisposeObject(Scroller);
  100.  
  101.         Scroller = NULL;
  102.     }
  103.  
  104.     if(UpArrow)
  105.     {
  106.         DisposeObject(UpArrow);
  107.  
  108.         UpArrow = NULL;
  109.     }
  110.  
  111.     if(DownArrow)
  112.     {
  113.         DisposeObject(DownArrow);
  114.  
  115.         DownArrow = NULL;
  116.     }
  117.  
  118.     if(UpImage)
  119.     {
  120.         DisposeObject(UpImage);
  121.  
  122.         UpImage = NULL;
  123.     }
  124.  
  125.     if(DownImage)
  126.     {
  127.         DisposeObject(DownImage);
  128.  
  129.         DownImage = NULL;
  130.     }
  131. }
  132.  
  133.     /* CreateScroller(LONG Height):
  134.      *
  135.      *    Create scroller and arrow objects.
  136.      */
  137.  
  138. STATIC BYTE __regargs
  139. CreateScroller(LONG Height)
  140. {
  141.     struct DrawInfo    *DrawInfo;
  142.     BYTE         Result = FALSE;
  143.  
  144.     if(DrawInfo = GetScreenDrawInfo(BufferScreen))
  145.     {
  146.         if(UpImage = (struct Image *)NewObject(NULL,"sysiclass",
  147.             SYSIA_Size,    SYSISIZE_MEDRES,
  148.             SYSIA_Which,    UPIMAGE,
  149.             SYSIA_DrawInfo,    DrawInfo,
  150.         TAG_DONE))
  151.         {
  152.             if(DownImage = (struct Image *)NewObject(NULL,"sysiclass",
  153.                 SYSIA_Size,    SYSISIZE_MEDRES,
  154.                 SYSIA_Which,    DOWNIMAGE,
  155.                 SYSIA_DrawInfo,    DrawInfo,
  156.             TAG_DONE))
  157.             {
  158.                 LONG ScrollerHeight,LeftEdge;
  159.  
  160.                 ScrollerHeight = Height - 2 * ARROW_HEIGHT;
  161.  
  162.                 LeftEdge = BufferScreen -> Width - ARROW_WIDTH;
  163.  
  164.                 if(Scroller = NewObject(NULL,"propgclass",
  165.                     GA_ID,        GAD_SCROLLER,
  166.  
  167.                     GA_Top,        0,
  168.                     GA_Left,    LeftEdge,
  169.                     GA_Width,    ARROW_WIDTH,
  170.                     GA_Height,    ScrollerHeight,
  171.                     GA_Immediate,    TRUE,
  172.                     GA_FollowMouse,    TRUE,
  173.                     GA_RelVerify,    TRUE,
  174.  
  175.                     PGA_Freedom,    FREEVERT,
  176.                     PGA_NewLook,    TRUE,
  177.  
  178.                     PGA_Visible,    1,
  179.                     PGA_Total,    1,
  180.                 TAG_DONE))
  181.                 {
  182.                     STATIC struct TagItem ArrowMappings[] = { GA_ID,GA_ID,TAG_END };
  183.  
  184.                     if(UpArrow = NewObject(NULL,"buttongclass",
  185.                         GA_ID,        GAD_UP,
  186.                         GA_Image,    UpImage,
  187.                         GA_Left,    LeftEdge,
  188.                         GA_Top,        ScrollerHeight,
  189.                         GA_Height,    ARROW_HEIGHT,
  190.                         GA_Width,    ARROW_WIDTH,
  191.                         GA_Immediate,    TRUE,
  192.                         GA_RelVerify,    TRUE,
  193.                         GA_Previous,    Scroller,
  194.  
  195.                         ICA_TARGET,    ICTARGET_IDCMP,
  196.                         ICA_MAP,    ArrowMappings,
  197.                     TAG_DONE))
  198.                     {
  199.                         if(DownArrow = NewObject(NULL,"buttongclass",
  200.                             GA_ID,        GAD_DOWN,
  201.                             GA_Image,    DownImage,
  202.                             GA_Left,    LeftEdge,
  203.                             GA_Top,        ScrollerHeight + ARROW_HEIGHT,
  204.                             GA_Height,    ARROW_HEIGHT,
  205.                             GA_Width,    ARROW_WIDTH,
  206.                             GA_Immediate,    TRUE,
  207.                             GA_RelVerify,    TRUE,
  208.                             GA_Previous,    UpArrow,
  209.  
  210.                             ICA_TARGET,    ICTARGET_IDCMP,
  211.                             ICA_MAP,    ArrowMappings,
  212.                         TAG_DONE))
  213.                             Result = TRUE;
  214.                     }
  215.                 }
  216.             }
  217.         }
  218.  
  219.         FreeScreenDrawInfo(BufferScreen,DrawInfo);
  220.     }
  221.  
  222.     if(!Result)
  223.         DeleteScroller();
  224.  
  225.     return(Result);
  226. }
  227.  
  228.     /* GetSearchString(STRPTR Buffer):
  229.      *
  230.      *    Prompt user for a string to search the buffer for.
  231.      */
  232.  
  233. STATIC BYTE
  234. GetSearchString(STRPTR Buffer)
  235. {
  236.     struct Gadget    *GadgetList = NULL;
  237.     struct Gadget    *GadgetArray[GAD_CANCEL + 1];
  238.     struct Window    *PanelWindow;
  239.     UBYTE         OtherBuffer[256];
  240.     BYTE         Success = FALSE;
  241.  
  242.     strcpy(OtherBuffer,Buffer);
  243.  
  244.     if(CreateAllGetsGadgets(FALSE,FALSE,0,OtherBuffer,LocaleString(MSG_TERMBUFFER_ENTER_SEARCH_STRING_TXT),GadgetArray,&GadgetList,BufferVisualInfo,BufferScreen))
  245.     {
  246.         if(PanelWindow = OpenWindowTags(NULL,
  247.             WA_Left,        (BufferScreen -> Width    - SZ_GetWindowWidth())    / 2,
  248.             WA_Top,            (BufferScreen -> Height    - SZ_GetWindowHeight())    / 2,
  249.             WA_Width,        SZ_GetWindowWidth(),
  250.             WA_Height,        SZ_GetWindowHeight(),
  251.  
  252.             WA_Activate,        TRUE,
  253.             WA_DragBar,        TRUE,
  254.             WA_DepthGadget,        TRUE,
  255.             WA_CloseGadget,        TRUE,
  256.             WA_RMBTrap,        TRUE,
  257.             WA_CustomScreen,    BufferScreen,
  258.  
  259.             WA_IDCMP,        IDCMP_ACTIVEWINDOW | IDCMP_CLOSEWINDOW | IDCMP_VANILLAKEY | IDCMP_RAWKEY | IDCMP_GADGETDOWN | BUTTONIDCMP | STRINGIDCMP,
  260.  
  261.             WA_Title,        LocaleString(MSG_TERMBUFFER_ENTER_SEARCH_STRING_TXT),
  262.         TAG_DONE))
  263.         {
  264.             struct IntuiMessage    *Massage;
  265.             ULONG             IClass,Code;
  266.             struct Gadget        *Gadget;
  267.             BYTE             Terminated = FALSE;
  268.             ULONG             SignalSet;
  269.             STRPTR             String;
  270.  
  271.             AddGList(PanelWindow,GadgetList,(UWORD)-1,(UWORD)-1,NULL);
  272.             RefreshGList(GadgetList,PanelWindow,NULL,(UWORD)-1);
  273.             GT_RefreshWindow(PanelWindow,NULL);
  274.  
  275.             ActiveGadget = NULL;
  276.  
  277.             String = SZ_GetString(GadgetArray[GAD_STRING]);
  278.  
  279.             while(!Terminated)
  280.             {
  281.                 SignalSet = Wait(PORTMASK(PanelWindow -> UserPort) | SIG_TOFRONT | SIG_KILL);
  282.  
  283.                 if(SignalSet & SIG_TOFRONT);
  284.                     BumpWindow(PanelWindow);
  285.  
  286.                 if(SignalSet & SIG_KILL)
  287.                 {
  288.                     BufferTerminated = TRUE;
  289.  
  290.                     Terminated = TRUE;
  291.                 }
  292.  
  293.                 if(SignalSet & PORTMASK(PanelWindow -> UserPort))
  294.                 {
  295.                     while(!Terminated && (Massage = (struct IntuiMessage *)GT_GetIMsg(PanelWindow -> UserPort)))
  296.                     {
  297.                         IClass    = Massage -> Class;
  298.                         Code    = Massage -> Code;
  299.                         Gadget    = (struct Gadget *)Massage -> IAddress;
  300.  
  301.                         GT_ReplyIMsg(Massage);
  302.  
  303.                         if(IClass == IDCMP_VANILLAKEY)
  304.                             KeySelect(GadgetArray,GAD_CANCEL,Code,PanelWindow,&Gadget,&IClass,&Code);
  305.  
  306.                         if(IClass == IDCMP_RAWKEY && Code == HELP_CODE)
  307.                             DisplayBeep(PanelWindow -> WScreen);
  308.  
  309.                         if(IClass == IDCMP_GADGETDOWN)
  310.                         {
  311.                             if((Gadget -> GadgetType & GTYP_GTYPEMASK) == GTYP_STRGADGET)
  312.                                 ActiveGadget = Gadget;
  313.                         }
  314.  
  315.                         if(IClass == IDCMP_ACTIVEWINDOW && ActiveGadget)
  316.                             ActivateGadget(ActiveGadget,PanelWindow,NULL);
  317.  
  318.                         if(IClass == IDCMP_CLOSEWINDOW)
  319.                             Terminated = TRUE;
  320.  
  321.                         if(IClass == IDCMP_GADGETUP)
  322.                         {
  323.                             switch(Gadget -> GadgetID)
  324.                             {
  325.                                 case GAD_OK:
  326.                                 case GAD_STRING:
  327.  
  328.                                     if(String[0])
  329.                                     {
  330.                                         strcpy(Buffer,String);
  331.  
  332.                                         Success = TRUE;
  333.                                     }
  334.  
  335.                                 case GAD_CANCEL:
  336.  
  337.                                     Terminated = TRUE;
  338.  
  339.                                     break;
  340.  
  341.                             }
  342.                         }
  343.                     }
  344.                 }
  345.             }
  346.  
  347.             RemoveGList(PanelWindow,GadgetList,(UWORD)-1);
  348.  
  349.             CloseWindow(PanelWindow);
  350.         }
  351.     }
  352.  
  353.     FreeGadgets(GadgetList);
  354.  
  355.     return(Success);
  356. }
  357.  
  358.     /* PrintLine(STRPTR Buffer,LONG LineNumber):
  359.      *
  360.      *    Print a line at a given line number in the displayed area.
  361.      */
  362.  
  363. STATIC VOID
  364. PrintLine(STRPTR Buffer,LONG LineNumber)
  365. {
  366.     WORD Length = Buffer[-1];
  367.  
  368.         /* Print the text. */
  369.  
  370.     if(Length)
  371.     {
  372.         Move(BPort,0,BufferLineOffsets[LineNumber] + LocalTextFontBase);
  373.  
  374.         if(Length > NumBufferColumns)
  375.             Text(BPort,Buffer,NumBufferColumns);
  376.         else
  377.             Text(BPort,Buffer,Length);
  378.     }
  379.  
  380.         /* The line doesn't exactly fill the displayed line,
  381.          * so erase the remaining columns.
  382.          */
  383.  
  384.     if(Length < BufferLineWidths[LineNumber])
  385.         ClipBlit(BPort,0,0,BPort,BufferColumnOffsets[Length],BufferLineOffsets[LineNumber],BufferColumnOffsets[NumBufferColumns - Length],LocalTextFontHeight,MINTERM_ZERO);
  386.  
  387.     BufferLineWidths[LineNumber] = Length;
  388. }
  389.  
  390.     /* RedrawScreen(LONG FirstLine):
  391.      *
  392.      *    Redraw the contents of the entire screen and return the
  393.      *    number of lines actually drawn.
  394.      */
  395.  
  396. STATIC LONG
  397. RedrawScreen(LONG FirstLine)
  398. {
  399.     LONG i,Last,Line = 0,Result;
  400.  
  401.     ObtainSemaphore(BufferSemaphore);
  402.  
  403.         /* Determine last line to display. */
  404.  
  405.     if((Last = FirstLine + NumBufferLines) >= Lines)
  406.         Last = Lines;
  407.  
  408.     Result = Last - FirstLine;
  409.  
  410.     if(Lines)
  411.     {
  412.         if(LastTopLine != -1)
  413.         {
  414.             LONG Delta = FirstLine - LastTopLine;
  415.  
  416.             if(ABS(Delta) < NumBufferLines)
  417.             {
  418.                     /* No change? */
  419.  
  420.                 if(!Delta)
  421.                 {
  422.                     ReleaseSemaphore(BufferSemaphore);
  423.  
  424.                     return(Result);
  425.                 }
  426.                 else
  427.                 {
  428.                     LastTopLine = FirstLine;
  429.  
  430.                         /* Scrolled up? */
  431.  
  432.                     if(Delta < 0)
  433.                     {
  434.                         for(i = NumBufferLines - 1 ; i > -Delta ; i--)
  435.                             BufferLineWidths[i] = BufferLineWidths[i + Delta];
  436.  
  437.                         ClipBlit(BPort,0,0,BPort,0,BufferLineOffsets[-Delta],BufferColumnOffsets[NumBufferColumns],BufferLineOffsets[NumBufferLines + Delta],MINTERM_COPY);
  438.  
  439.                         Last = FirstLine - Delta;
  440.                     }
  441.                     else
  442.                     {
  443.                         for(i = Delta ; i < NumBufferLines ; i++)
  444.                             BufferLineWidths[i - Delta] = BufferLineWidths[i];
  445.  
  446.                             /* Scrolled down. */
  447.  
  448.                         ClipBlit(BPort,0,BufferLineOffsets[Delta],BPort,0,0,BufferColumnOffsets[NumBufferColumns],BufferLineOffsets[NumBufferLines - Delta],MINTERM_COPY);
  449.  
  450.                         FirstLine += NumBufferLines - Delta;
  451.  
  452.                         Line = NumBufferLines - Delta;
  453.                     }
  454.                 }
  455.             }
  456.             else
  457.                 LastTopLine = FirstLine;
  458.         }
  459.         else
  460.             LastTopLine = FirstLine;
  461.  
  462.         if(BufferLines)
  463.         {
  464.             for(i = FirstLine ; i < Last ; i++)
  465.                 PrintLine(BufferLines[i],Line++);
  466.         }
  467.     }
  468.  
  469.     ReleaseSemaphore(BufferSemaphore);
  470.  
  471.         /* We didn't fill the whole screen, so clear the rest. */
  472.  
  473.     if(Result < NumBufferLines)
  474.     {
  475.         WORD i;
  476.  
  477.         for(i = Result ; i < NumBufferLines ; i++)
  478.             BufferLineWidths[i] = 0;
  479.  
  480.         ClipBlit(BPort,0,0,BPort,0,BufferLineOffsets[Line],BufferColumnOffsets[NumBufferColumns],BufferLineOffsets[NumBufferLines - Line],MINTERM_ZERO);
  481.     }
  482.  
  483.     return(Result);
  484. }
  485.  
  486.     /* MarkArea(LONG Column,LONG Line,LONG Length):
  487.      *
  488.      *    Mark an area in the term Buffer window.
  489.      */
  490.  
  491. STATIC VOID
  492. MarkArea(LONG Column,LONG Line,LONG Length)
  493. {
  494.     STATIC LONG OldColumn = -1,OldLine = -1,OldLength = -1;
  495.  
  496.     if(OldColumn != -1)
  497.         ClipBlit(BPort,0,0,BPort,BufferColumnOffsets[OldColumn],BufferLineOffsets[OldLine],BufferColumnOffsets[OldLength],LocalTextFontHeight,MINTERM_NOT_C);
  498.  
  499.     if(Column != -1)
  500.     {
  501.         if(OldColumn != Column || OldLine != Line || OldLength != Length)
  502.             ClipBlit(BPort,0,0,BPort,BufferColumnOffsets[Column],BufferLineOffsets[Line],BufferColumnOffsets[Length],LocalTextFontHeight,MINTERM_NOT_C);
  503.     }
  504.  
  505.     OldColumn    = Column;
  506.     OldLine        = Line;
  507.     OldLength    = Length;
  508. }
  509.  
  510.     /* BufferClipPage(struct BlockMarker *Marker):
  511.      *
  512.      *    Send the marked area to the clipboard.
  513.      */
  514.  
  515. STATIC VOID __inline
  516. BufferClipPage(struct BlockMarker *Marker)
  517. {
  518.     if(BufferLines)
  519.     {
  520.         struct IFFHandle *Handle;
  521.  
  522.         if(Handle = AllocIFF())
  523.         {
  524.             if(Handle -> iff_Stream = (ULONG)OpenClipboard(Config -> ClipConfig -> ClipboardUnit))
  525.             {
  526.                 InitIFFasClip(Handle);
  527.  
  528.                 if(!OpenIFF(Handle,IFFF_WRITE))
  529.                 {
  530.                     if(!PushChunk(Handle,ID_FTXT,ID_FORM,IFFSIZE_UNKNOWN))
  531.                     {
  532.                         if(!PushChunk(Handle,0,ID_CHRS,IFFSIZE_UNKNOWN))
  533.                         {
  534.                             LONG    Lines = Marker -> LastLine - Marker -> FirstLine - 1,
  535.                                 i;
  536.  
  537.                             if(LINE_WIDTH(BufferLines[Marker -> FirstLine]) > Marker -> FirstColumn)
  538.                                 WriteTrimmedString(Handle,&BufferLines[Marker -> FirstLine][Marker -> FirstColumn],LINE_WIDTH(BufferLines[Marker -> FirstLine]) - Marker -> FirstColumn);
  539.  
  540.                             WriteChunkBytes(Handle,"\n",1);
  541.  
  542.                             if(Lines > 0)
  543.                             {
  544.                                 for(i = 0 ; i < Lines ; i++)
  545.                                 {
  546.                                     if(LINE_WIDTH(BufferLines[Marker -> FirstLine + 1 + i]))
  547.                                         WriteTrimmedString(Handle,BufferLines[Marker -> FirstLine + 1 + i],LINE_WIDTH(BufferLines[Marker -> FirstLine + 1 + i]));
  548.  
  549.                                     WriteChunkBytes(Handle,"\n",1);
  550.                                 }
  551.                             }
  552.  
  553.                             if(Marker -> LastColumn > LINE_WIDTH(BufferLines[Marker -> LastLine]))
  554.                                 WriteTrimmedString(Handle,BufferLines[Marker -> LastLine],LINE_WIDTH(BufferLines[Marker -> LastLine]));
  555.                             else
  556.                                 WriteTrimmedString(Handle,BufferLines[Marker -> LastLine],Marker -> LastColumn);
  557.  
  558.                             WriteChunkBytes(Handle,"\n",1);
  559.  
  560.                             PopChunk(Handle);
  561.                         }
  562.  
  563.                         PopChunk(Handle);
  564.                     }
  565.  
  566.                     CloseIFF(Handle);
  567.                 }
  568.  
  569.                 CloseClipboard((struct ClipboardHandle *)Handle -> iff_Stream);
  570.             }
  571.  
  572.             FreeIFF(Handle);
  573.         }
  574.     }
  575. }
  576.  
  577.     /* BufferClip(VOID):
  578.      *
  579.      *    Start buffer marking process.
  580.      */
  581.  
  582. STATIC VOID
  583. BufferClip(VOID)
  584. {
  585.     struct BlockMarker    *Marker;
  586.     LONG             FirstX = BufferWindow -> MouseX / LocalTextFontWidth,
  587.                  FirstY = BufferWindow -> MouseY / LocalTextFontHeight;
  588.  
  589.     if(Marker = BM_SetMark(BufferWindow -> RPort,ToggleSelect,ToggleSelect,NumBufferColumns,NumBufferLines,0,0,CurrentLine,Lines,BufferWindow -> MouseX / LocalTextFontWidth,BufferWindow -> MouseY / LocalTextFontHeight,LocalTextFontWidth,LocalTextFontHeight))
  590.     {
  591.         struct IntuiMessage    *Massage;
  592.         ULONG             Code,IClass;
  593.         BYTE             Done = FALSE,Aborted = FALSE;
  594.         LONG             PlusX = LocalTextFontWidth - 1,
  595.                      MouseX,MouseY,
  596.                      Delta = 0;
  597.  
  598.         ReportMouse(TRUE,BufferWindow);
  599.  
  600.         while(!Done)
  601.         {
  602.             WaitPort(BufferWindow -> UserPort);
  603.  
  604.             while(Massage = (struct IntuiMessage *)GetMsg(BufferWindow -> UserPort))
  605.             {
  606.                 IClass    = Massage -> Class;
  607.                 Code    = Massage -> Code;
  608.                 MouseX    = Massage -> MouseX;
  609.                 MouseY    = Massage -> MouseY;
  610.  
  611.                 ReplyMsg(Massage);
  612.  
  613.                 if(IClass == IDCMP_INACTIVEWINDOW)
  614.                 {
  615.                     Done = Aborted = TRUE;
  616.  
  617.                     break;
  618.                 }
  619.  
  620.                 if(IClass == IDCMP_INTUITICKS && Delta != 0)
  621.                 {
  622.                     if(BufferLines)
  623.                     {
  624.                         if((Delta > 0 && CurrentLine + NumBufferLines < Lines) || (Delta < 0 && CurrentLine > 0))
  625.                         {
  626.                             if(Delta < 0)
  627.                             {
  628.                                 WORD i;
  629.  
  630.                                 for(i = NumBufferLines - 1 ; i > -Delta ; i--)
  631.                                     BufferLineWidths[i] = BufferLineWidths[i + Delta];
  632.  
  633.                                 if(DisplayedLines)
  634.                                     ClipBlit(BPort,0,0,BPort,0,LocalTextFontHeight,BufferColumnOffsets[NumBufferColumns],BufferLineOffsets[NumBufferLines - 1],MINTERM_COPY);
  635.  
  636.                                 BufferLineWidths[0] = NumBufferColumns;
  637.  
  638.                                 PrintLine(BufferLines[--CurrentLine],0);
  639.                             }
  640.                             else
  641.                             {
  642.                                 WORD i;
  643.  
  644.                                 for(i = Delta ; i < NumBufferLines ; i++)
  645.                                     BufferLineWidths[i - Delta] = BufferLineWidths[i];
  646.  
  647.                                 if(DisplayedLines)
  648.                                     ClipBlit(BPort,0,LocalTextFontHeight,BPort,0,0,BufferColumnOffsets[NumBufferColumns],BufferLineOffsets[NumBufferLines - 1],MINTERM_COPY);
  649.  
  650.                                 BufferLineWidths[NumBufferLines - 1] = NumBufferColumns;
  651.  
  652.                                 PrintLine(BufferLines[CurrentLine + NumBufferLines],NumBufferLines - 1);
  653.  
  654.                                 CurrentLine++;
  655.                             }
  656.  
  657.                             Marker -> Top += Delta;
  658.                             Marker -> LastY -= Delta;
  659.  
  660.                             BM_ExtendMark(Marker,(MouseX + PlusX) / LocalTextFontWidth,MouseY / LocalTextFontHeight,Delta);
  661.                         }
  662.                         else
  663.                             Delta = 0;
  664.                     }
  665.                 }
  666.  
  667.                 if(IClass == IDCMP_MOUSEBUTTONS && (Code & IECODE_UP_PREFIX))
  668.                 {
  669.                     BM_Draw(Marker,Marker -> Unselect);
  670.  
  671.                     Done = TRUE;
  672.  
  673.                     break;
  674.                 }
  675.  
  676.                 if(IClass == IDCMP_MOUSEMOVE)
  677.                 {
  678.                     BM_ExtendMark(Marker,(MouseX + PlusX) / LocalTextFontWidth,MouseY / LocalTextFontHeight,0);
  679.  
  680.                     if(MouseY < 1)
  681.                     {
  682.                         if(CurrentLine > 0)
  683.                             Delta = -1;
  684.                     }
  685.                     else
  686.                     {
  687.                         if(MouseY >= BufferWindow -> Height - 1 && CurrentLine + NumBufferLines < Lines)
  688.                             Delta = 1;
  689.                     }
  690.  
  691.                     while(Delta)
  692.                     {
  693.                         MouseX    = Window -> MouseX;
  694.                         MouseY    = Window -> MouseY;
  695.  
  696.                         if((Delta < 0 && MouseY > 0) || (Delta > 0 && MouseY < BufferWindow -> Height - 1))
  697.                             break;
  698.                         else
  699.                         {
  700.                             if(BufferLines)
  701.                             {
  702.                                 if((Delta > 0 && CurrentLine + NumBufferLines < Lines) || (Delta < 0 && CurrentLine > 0))
  703.                                 {
  704.                                     if(Delta < 0)
  705.                                     {
  706.                                         WORD i;
  707.  
  708.                                         for(i = NumBufferLines - 1 ; i > -Delta ; i--)
  709.                                             BufferLineWidths[i] = BufferLineWidths[i + Delta];
  710.  
  711.                                         if(DisplayedLines)
  712.                                             ClipBlit(BPort,0,0,BPort,0,LocalTextFontHeight,BufferColumnOffsets[NumBufferColumns],BufferLineOffsets[NumBufferLines - 1],MINTERM_COPY);
  713.  
  714.                                         BufferLineWidths[0] = NumBufferColumns;
  715.  
  716.                                         PrintLine(BufferLines[--CurrentLine],0);
  717.                                     }
  718.                                     else
  719.                                     {
  720.                                         WORD i;
  721.  
  722.                                         for(i = Delta ; i < NumBufferLines ; i++)
  723.                                             BufferLineWidths[i - Delta] = BufferLineWidths[i];
  724.  
  725.                                         if(DisplayedLines)
  726.                                             ClipBlit(BPort,0,LocalTextFontHeight,BPort,0,0,BufferColumnOffsets[NumBufferColumns],BufferLineOffsets[NumBufferLines - 1],MINTERM_COPY);
  727.  
  728.                                         BufferLineWidths[NumBufferLines - 1] = NumBufferColumns;
  729.  
  730.                                         PrintLine(BufferLines[CurrentLine + NumBufferLines],NumBufferLines - 1);
  731.  
  732.                                         CurrentLine++;
  733.                                     }
  734.  
  735.                                     Marker -> Top    += Delta;
  736.                                     Marker -> LastY    -= Delta;
  737.  
  738.                                     BM_ExtendMark(Marker,(MouseX + PlusX) / LocalTextFontWidth,MouseY / LocalTextFontHeight,Delta);
  739.  
  740.                                     SetGadgetAttrs(Scroller,BufferWindow,NULL,
  741.                                         PGA_Top,CurrentLine,
  742.                                     TAG_DONE);
  743.                                 }
  744.                                 else
  745.                                     break;
  746.                             }
  747.                             else
  748.                                 break;
  749.                         }
  750.                     }
  751.  
  752.                     Delta = 0;
  753.                 }
  754.             }
  755.         }
  756.  
  757.         ReportMouse(FALSE,BufferWindow);
  758.  
  759.         while(Massage = (struct IntuiMessage *)GetMsg(BufferWindow -> UserPort))
  760.             ReplyMsg(Massage);
  761.  
  762.         if(!Aborted)
  763.         {
  764.             if(FirstX != BufferWindow -> MouseX / LocalTextFontWidth || FirstY != BufferWindow -> MouseY / LocalTextFontHeight)
  765.             {
  766.                 SetWait(BufferWindow);
  767.  
  768.                 if(Marker -> FirstColumn == Marker -> Width)
  769.                 {
  770.                     Marker -> FirstLine++;
  771.  
  772.                     Marker -> FirstColumn = 0;
  773.                 }
  774.  
  775.                 if(Marker -> LastColumn == 0)
  776.                 {
  777.                     Marker -> LastLine--;
  778.  
  779.                     Marker -> LastColumn = Marker -> Width;
  780.                 }
  781.  
  782.                 if(Marker -> FirstLine <= Marker -> LastLine)
  783.                 {
  784.                     if(Marker -> FirstLine != Marker -> LastLine || Marker -> FirstColumn != Marker -> LastColumn)
  785.                     {
  786.                         if(BufferLines)
  787.                         {
  788.                             if(Marker -> FirstLine == Marker -> LastLine)
  789.                                 SaveClip(&BufferLines[Marker -> FirstLine][Marker -> FirstColumn],Marker -> LastColumn - Marker -> FirstColumn);
  790.                             else
  791.                                 BufferClipPage(Marker);
  792.                         }
  793.                     }
  794.                 }
  795.  
  796.                 ClrWait(BufferWindow);
  797.             }
  798.         }
  799.  
  800.         FreeVec(Marker);
  801.     }
  802. }
  803.  
  804.     /* StartBufferSearch(BYTE NewSearchString):
  805.      *
  806.      *    Search the buffer for a string.
  807.      */
  808.  
  809. STATIC VOID
  810. StartBufferSearch(BYTE NewSearchString)
  811. {
  812.     STATIC UBYTE SearchBuffer[256];
  813.  
  814.     BYTE StartSearch = TRUE;
  815.  
  816.     BlockWindow(BufferWindow);
  817.  
  818.     if(NewSearchString || !SearchBuffer[0])
  819.     {
  820.         if(GetSearchString(SearchBuffer))
  821.         {
  822.             if(SearchBuffer[0])
  823.             {
  824.                 if(BufferSearchInfo)
  825.                     DeleteSearchInfo(BufferSearchInfo);
  826.  
  827.                 BufferSearchInfo = CreateSearchInfo(SearchBuffer);
  828.             }
  829.             else
  830.                 StartSearch = FALSE;
  831.         }
  832.         else
  833.             StartSearch = FALSE;
  834.     }
  835.     else
  836.     {
  837.         if(!BufferSearchInfo)
  838.             BufferSearchInfo = CreateSearchInfo(SearchBuffer);
  839.     }
  840.  
  841.     if(StartSearch && BufferSearchInfo)
  842.     {
  843.         if(Lines)
  844.         {
  845.             LONG LineNumber;
  846.  
  847.             ObtainSemaphore(BufferSemaphore);
  848.  
  849.             LineNumber = SearchTextBuffer(BufferSearchInfo);
  850.  
  851.             ReleaseSemaphore(BufferSemaphore);
  852.  
  853.             if(LineNumber == -1)
  854.             {
  855.                 BlockWindows();
  856.  
  857.                 MyEasyRequest(BufferWindow,LocaleString(MSG_TERMBUFFER_DID_NOT_FIND_TXT),LocaleString(MSG_GLOBAL_CONTINUE_TXT),SearchBuffer);
  858.  
  859.                 ReleaseWindows();
  860.  
  861.                 FlushMsg(BufferWindow);
  862.  
  863.                 BufferSearchInfo -> FoundY = -1;
  864.  
  865.                 MarkArea(-1,-1,-1);
  866.             }
  867.             else
  868.             {
  869.                 if(LineNumber < CurrentLine)
  870.                 {
  871.                     MarkArea(-1,-1,-1);
  872.  
  873.                     DisplayedLines = RedrawScreen(CurrentLine = LineNumber);
  874.  
  875.                     SetGadgetAttrs(Scroller,BufferWindow,NULL,
  876.                         PGA_Top,CurrentLine,
  877.                     TAG_DONE);
  878.                 }
  879.                 else
  880.                 {
  881.                     if(LineNumber > CurrentLine + DisplayedLines - 1)
  882.                     {
  883.                         MarkArea(-1,-1,-1);
  884.  
  885.                         if(LineNumber >= Lines - NumBufferLines)
  886.                         {
  887.                             LONG NewCurrentLine;
  888.  
  889.                             if((NewCurrentLine = Lines - NumBufferLines) < 0)
  890.                                 NewCurrentLine = 0;
  891.  
  892.                             if(CurrentLine != NewCurrentLine)
  893.                                 DisplayedLines = RedrawScreen(CurrentLine = NewCurrentLine);
  894.                         }
  895.                         else
  896.                             DisplayedLines = RedrawScreen(CurrentLine = LineNumber);
  897.  
  898.                         SetGadgetAttrs(Scroller,BufferWindow,NULL,
  899.                             PGA_Top,CurrentLine,
  900.                         TAG_DONE);
  901.                     }
  902.                 }
  903.  
  904.                 MarkArea(BufferSearchInfo -> FoundX,LineNumber - CurrentLine,BufferSearchInfo -> PatternWidth);
  905.             }
  906.         }
  907.         else
  908.             MyEasyRequest(BufferWindow,LocaleString(MSG_GLOBAL_NOTHING_IN_THE_BUFFER_TXT),LocaleString(MSG_GLOBAL_CONTINUE_TXT));
  909.     }
  910.  
  911.     ReleaseWindow(BufferWindow);
  912. }
  913.  
  914.     /* LaunchBuffer():
  915.      *
  916.      *    Launch the buffer process.
  917.      */
  918.  
  919. BYTE
  920. LaunchBuffer()
  921. {
  922.         /* Is the buffer process already running? */
  923.  
  924.     if(BufferProcess)
  925.     {
  926.             /* Tell it to bring its screen to the front. */
  927.  
  928.         Signal(BufferProcess,SIG_TOFRONT);
  929.  
  930.             /* Return success. */
  931.  
  932.         return(TRUE);
  933.     }
  934.     else
  935.     {
  936.         struct MsgPort    *ReplyPort;
  937.         BYTE         Result = FALSE;
  938.  
  939.             /* Create reply port. */
  940.  
  941.         if(ReplyPort = CreateMsgPort())
  942.         {
  943.             struct Message *Message;
  944.  
  945.                 /* Create startup message. */
  946.  
  947.             if(Message = (struct Message *)AllocVec(sizeof(struct Message),MEMF_ANY|MEMF_CLEAR))
  948.             {
  949.                 Message -> mn_ReplyPort    = ReplyPort;
  950.                 Message -> mn_Length    = sizeof(struct Message);
  951.  
  952.                     /* Launc the buffer process. */
  953.  
  954.                 if(BufferProcess = (struct Process *)CreateNewProcTags(
  955.                     NP_Entry,    BufferServer,
  956.                     NP_Name,    "term buffer process",
  957.                     NP_Priority,    0,
  958.                     NP_StackSize,    8192,
  959.                     NP_WindowPtr,    -1,
  960.                 TAG_END))
  961.                 {
  962.                         /* Send the startup message. */
  963.  
  964.                     PutMsg(&BufferProcess -> pr_MsgPort,Message);
  965.  
  966.                         /* Wait for reply. */
  967.  
  968.                     WaitPort(ReplyPort);
  969.  
  970.                         /* Pick up the reply. */
  971.  
  972.                     GetMsg(ReplyPort);
  973.  
  974.                         /* Is the process still running? */
  975.  
  976.                     if(BufferProcess)
  977.                         Result = TRUE;
  978.                 }
  979.  
  980.                     /* Free the startup message. */
  981.  
  982.                 FreeVec(Message);
  983.             }
  984.  
  985.                 /* Delete the reply port. */
  986.  
  987.             DeleteMsgPort(ReplyPort);
  988.         }
  989.  
  990.             /* Return the result. */
  991.  
  992.         return(Result);
  993.     }
  994. }
  995.  
  996.     /* TerminateBuffer():
  997.      *
  998.      *    Terminate the buffer process.
  999.      */
  1000.  
  1001. VOID
  1002. TerminateBuffer()
  1003. {
  1004.     if(BufferProcess)
  1005.     {
  1006.         Forbid();
  1007.  
  1008.         Signal(BufferProcess,SIG_KILL);
  1009.  
  1010.         ClrSignal(SIG_HANDSHAKE);
  1011.  
  1012.         Wait(SIG_HANDSHAKE);
  1013.  
  1014.         Permit();
  1015.     }
  1016.  
  1017.     LastTopLine = -1;
  1018. }
  1019.  
  1020.     /* BufferServer():
  1021.      *
  1022.      *    Asynchronous task to display the data stored in the
  1023.      *    scrollback display buffer.
  1024.      */
  1025.  
  1026. VOID __saveds
  1027. BufferServer()
  1028. {
  1029.     struct ColorSpec     ColorSpec[3];
  1030.  
  1031.     ULONG             SignalSet;
  1032.  
  1033.     struct IntuiMessage    *Massage;
  1034.     ULONG             IClass,Code,Qualifier,LastQualifier = NULL;
  1035.     UBYTE             Char,LastChar = 0;
  1036.  
  1037.     LONG             MouseX,MouseY,LastWidth = 0;
  1038.  
  1039.     UBYTE             PercentBuffer[80];
  1040.  
  1041.     struct Menu        *BufferMenuStrip;
  1042.  
  1043.     LONG             Width;
  1044.     ULONG             DisplayMode;
  1045.  
  1046.     struct Rectangle     DisplayClip;
  1047.     struct DimensionInfo     DimensionInfo;
  1048.  
  1049.     UWORD             SomeColour,CharCount,Height;
  1050.  
  1051.     struct TextFont        *LocalFont;
  1052.  
  1053.     struct Message        *StartupMessage;
  1054.     struct MsgPort        *StartupPort = &((struct Process *)SysBase -> ThisTask) -> pr_MsgPort;
  1055.     struct TagItem        *TagList;
  1056.  
  1057.         /* Wait for startup message. */
  1058.  
  1059.     WaitPort(StartupPort);
  1060.  
  1061.     StartupMessage = GetMsg(StartupPort);
  1062.  
  1063.         /* Reset top line index. */
  1064.  
  1065.     LastTopLine = -1;
  1066.  
  1067.         /* Clone the global font data. */
  1068.  
  1069.     LocalTextFontWidth    = TextFontWidth;
  1070.     LocalTextFontHeight    = TextFontHeight;
  1071.     LocalTextFontBase    = TextFontBase;
  1072.  
  1073.     memcpy(&LocalTextFont,&TextAttr,sizeof(struct TTextAttr));
  1074.  
  1075.     LocalTextFont . tta_Name = LocalTextFontName;
  1076.  
  1077.     strcpy(LocalTextFontName,TextAttr . tta_Name);
  1078.  
  1079.     memcpy(&LocalUserFont,&UserFont,sizeof(struct TTextAttr));
  1080.  
  1081.     LocalUserFont . tta_Name = LocalUserFontName;
  1082.  
  1083.     strcpy(LocalUserFontName,UserFont . tta_Name);
  1084.  
  1085.         /* Up and running... */
  1086.  
  1087.     BufferTerminated = FALSE;
  1088.  
  1089.         /* Set up the startup colours for our buffer screen. */
  1090.  
  1091.     ColorSpec[0] . ColorIndex    = 0;
  1092.     ColorSpec[0] . Red        = (Config -> ScreenConfig -> Colours[0] >> 8) & 0xF;
  1093.     ColorSpec[0] . Green        = (Config -> ScreenConfig -> Colours[0] >> 4) & 0xF;
  1094.     ColorSpec[0] . Blue        = (Config -> ScreenConfig -> Colours[0]     ) & 0xF;
  1095.  
  1096.     switch(Config -> ScreenConfig -> ColourMode)
  1097.     {
  1098.         case COLOUR_EIGHT:
  1099.  
  1100.             SomeColour = Config -> ScreenConfig -> Colours[7];
  1101.             break;
  1102.  
  1103.         case COLOUR_SIXTEEN:
  1104.  
  1105.             SomeColour = Config -> ScreenConfig -> Colours[15];
  1106.             break;
  1107.  
  1108.         case COLOUR_AMIGA:
  1109.         case COLOUR_MONO:
  1110.  
  1111.             SomeColour = Config -> ScreenConfig -> Colours[1];
  1112.             break;
  1113.     }
  1114.  
  1115.     ColorSpec[1] . ColorIndex    = 1;
  1116.     ColorSpec[1] . Red        = (SomeColour >> 8) & 0xF;
  1117.     ColorSpec[1] . Green        = (SomeColour >> 4) & 0xF;
  1118.     ColorSpec[1] . Blue        = (SomeColour     ) & 0xF;
  1119.  
  1120.     ColorSpec[2] . ColorIndex    = -1;
  1121.  
  1122.         /* We'll use a fixed screen width, only the
  1123.          * height is adapted from the main screen.
  1124.          */
  1125.  
  1126.     DisplayMode = Config -> ScreenConfig -> DisplayMode;
  1127.  
  1128.     if(Screen)
  1129.     {
  1130.         Width = Screen -> Width - (ARROW_WIDTH + 1);
  1131.  
  1132.         if((CharCount = Width / LocalTextFontWidth) > BUFFER_LINE_WIDTH)
  1133.             CharCount = BUFFER_LINE_WIDTH;
  1134.     }
  1135.     else
  1136.         CharCount = BUFFER_LINE_WIDTH;
  1137.  
  1138.     Width = CharCount * LocalTextFontWidth + ARROW_WIDTH + 1;
  1139.  
  1140.         /* Get the mode dimension info. */
  1141.  
  1142.     if(GetDisplayInfoData(NULL,(APTR)&DimensionInfo,sizeof(struct DimensionInfo),DTAG_DIMS,DisplayMode))
  1143.     {
  1144.             /* Is the screen width smaller than the
  1145.              * minimum screen mode width?
  1146.              */
  1147.  
  1148.         if(Width < DimensionInfo . MinRasterWidth)
  1149.         {
  1150.                 /* Use default modes. */
  1151.  
  1152.             if((DisplayMode & LACE) || ((DisplayMode & MONITOR_ID_MASK) == A2024_MONITOR_ID))
  1153.                 DisplayMode = HIRESLACE_KEY;
  1154.             else
  1155.                 DisplayMode = HIRES_KEY;
  1156.         }
  1157.     }
  1158.  
  1159.     if(LocalFont = OpenFont(&LocalTextFont))
  1160.     {
  1161.             /* Inquire the text overscan dimensions. */
  1162.  
  1163.         if(QueryOverscan(DisplayMode,&DisplayClip,OSCAN_TEXT))
  1164.         {
  1165.                 /* Centre the buffer screen. */
  1166.  
  1167.             if(DisplayClip . MaxX - DisplayClip . MinX + 1 > Width)
  1168.             {
  1169.                 LONG Differ = ((DisplayClip . MaxX - DisplayClip . MinX + 1) - (Width)) / 2;
  1170.  
  1171.                 DisplayClip . MinX += Differ;
  1172.                 DisplayClip . MaxX -= Differ;
  1173.             }
  1174.  
  1175.                 /* Open a single bitplane clone of the main screen. */
  1176.  
  1177.             if(BufferScreen = (struct Screen *)OpenScreenTags(NULL,
  1178.                 SA_Title,    LocaleString(MSG_TERMBUFFER_TERM_BUFFER_TXT),
  1179.                 SA_Depth,    1,
  1180.                 SA_DClip,    &DisplayClip,
  1181.                 SA_DisplayID,    DisplayMode,
  1182.                 SA_Font,    &LocalUserFont,
  1183.                 SA_Behind,    TRUE,
  1184.                 SA_AutoScroll,    TRUE,
  1185.                 SA_Colors,    ColorSpec,
  1186.             TAG_END))
  1187.             {
  1188.                 if(BufferVisualInfo = GetVisualInfo(BufferScreen,TAG_DONE))
  1189.                 {
  1190.                     LocalizeMenu(BufferMenu,MSG_TERMBUFFER_PROJECT_MEN);
  1191.  
  1192.                     if(BufferMenuStrip = CreateMenus(BufferMenu,TAG_DONE))
  1193.                     {
  1194.                         if(LayoutMenus(BufferMenuStrip,BufferVisualInfo,
  1195.                             GTMN_TextAttr,        &LocalUserFont,
  1196.                             GTMN_NewLookMenus,    TRUE,
  1197.                         TAG_DONE))
  1198.                         {
  1199.                             WORD TitleOffset,Len;
  1200.  
  1201.                             Height = (BufferScreen -> Height - (BufferScreen -> BarHeight + 2)) / LocalTextFontHeight;
  1202.  
  1203.                             Len = strlen(LocaleString(MSG_TERMBUFFER_TERM_BUFFER_TXT));
  1204.  
  1205.                             TitleOffset = TextLength(BufferScreen -> BarLayer -> rp,LocaleString(MSG_TERMBUFFER_TERM_BUFFER_TXT),Len) + TextLength(BufferScreen -> BarLayer -> rp," ",1) + 4;
  1206.  
  1207.                                 /* Open a cute window on our buffer screen. */
  1208.  
  1209.                             if(BufferWindow = OpenWindowTags(NULL,
  1210.                                 WA_Top,        BufferScreen -> BarHeight + 2,
  1211.                                 WA_Left,    0,
  1212.                                 WA_Width,    BufferScreen -> Width,
  1213.                                 WA_Height,    Height * LocalTextFontHeight,
  1214.                                 WA_Backdrop,    TRUE,
  1215.                                 WA_Borderless,    TRUE,
  1216.                                 WA_SmartRefresh,FALSE,
  1217.                                 WA_CustomScreen,BufferScreen,
  1218.                                 WA_RMBTrap,    TRUE,
  1219.                                 WA_NewLookMenus,TRUE,
  1220.                                 WA_RptQueue,    1,
  1221.                                 WA_IDCMP,    IDCMP_IDCMPUPDATE | IDCMP_RAWKEY | IDCMP_INACTIVEWINDOW | IDCMP_MOUSEBUTTONS | IDCMP_MENUPICK | IDCMP_GADGETUP | IDCMP_GADGETDOWN | IDCMP_MOUSEMOVE,
  1222.                             TAG_DONE))
  1223.                             {
  1224.                                 if(BufferLineWidths = (UWORD *)AllocVec(2 * sizeof(UWORD) * (BufferWindow -> Height / LocalTextFontHeight) + sizeof(UWORD) * (BufferWindow -> Width / LocalTextFontWidth),MEMF_ANY | MEMF_CLEAR))
  1225.                                 {
  1226.                                     UWORD    Index;
  1227.                                     WORD    i;
  1228.  
  1229.                                     BufferLineOffsets    = &BufferLineWidths[BufferWindow -> Height / LocalTextFontHeight];
  1230.                                     BufferColumnOffsets    = &BufferLineOffsets[BufferWindow -> Height / LocalTextFontHeight];
  1231.  
  1232.                                     for(i = Index = 0 ; i < BufferWindow -> Height / LocalTextFontHeight ; i++)
  1233.                                     {
  1234.                                         BufferLineOffsets[i] = Index;
  1235.  
  1236.                                         Index += LocalTextFontHeight;
  1237.                                     }
  1238.  
  1239.                                     for(i = Index = 0 ; i < BufferWindow -> Width / LocalTextFontWidth ; i++)
  1240.                                     {
  1241.                                         BufferColumnOffsets[i] = Index;
  1242.  
  1243.                                         Index += LocalTextFontWidth;
  1244.                                     }
  1245.  
  1246.                                     if(CreateScroller(BufferWindow -> Height))
  1247.                                     {
  1248.                                             /* Signal our father process that
  1249.                                              * we're running.
  1250.                                              */
  1251.  
  1252.                                         ReplyMsg(StartupMessage);
  1253.  
  1254.                                         StartupMessage = NULL;
  1255.  
  1256.                                         SetMenuStrip(BufferWindow,BufferMenuStrip);
  1257.  
  1258.                                         AddGList(BufferWindow,Scroller,(UWORD)-1,(UWORD)-1,NULL);
  1259.                                         RefreshGList(Scroller,BufferWindow,NULL,(UWORD)-1);
  1260.     
  1261. Restart:                                    BPort = BufferWindow -> RPort;
  1262.  
  1263.                                         SetFont(BPort,LocalFont);
  1264.  
  1265.                                             /* Determine maximum dimensions of
  1266.                                              * the buffer screen (in rows and
  1267.                                              * columns).
  1268.                                              */
  1269.  
  1270.                                         NumBufferColumns    = (BufferWindow -> Width - (ARROW_WIDTH + 1)) / LocalTextFontWidth;
  1271.                                         NumBufferLines        = BufferWindow -> Height / LocalTextFontHeight;
  1272.  
  1273.                                             /* Bring the screen to the front. */
  1274.  
  1275.                                         BumpWindow(BufferWindow);
  1276.  
  1277.                                             /* Set the drawing pens for the window. */
  1278.  
  1279.                                         SetAPen(BPort,1);
  1280.                                         SetBPen(BPort,0);
  1281.                                         SetDrMd(BPort,JAM2);
  1282.  
  1283.                                             /* Initial creation of the buffer display. */
  1284.  
  1285.                                         DisplayedLines = RedrawScreen(CurrentLine = 0);
  1286.  
  1287.                                         SetGadgetAttrs(Scroller,BufferWindow,NULL,
  1288.                                             PGA_Top,    0,
  1289.                                             PGA_Total,    Lines,
  1290.                                             PGA_Visible,    NumBufferLines,
  1291.                                         TAG_DONE);
  1292.  
  1293.                                         BufferWindow -> Flags &= ~WFLG_RMBTRAP;
  1294.  
  1295.                                         do
  1296.                                         {
  1297.                                                 /* Show where we are. */
  1298.  
  1299.                                             if(Lines)
  1300.                                             {
  1301.                                                 LONG Width;
  1302.  
  1303.                                                 SetAPen(BufferScreen -> BarLayer -> rp,0);
  1304.                                                 SetBPen(BufferScreen -> BarLayer -> rp,1);
  1305.                                                 SetDrMd(BufferScreen -> BarLayer -> rp,JAM2);
  1306.  
  1307.                                                 if(LocaleBase)
  1308.                                                     SPrintf(PercentBuffer,"%lD/%lD (%ld%%)",CurrentLine,Lines > NumBufferLines ? Lines - NumBufferLines : 0,(100 * (CurrentLine + DisplayedLines)) / Lines);
  1309.                                                 else
  1310.                                                     SPrintf(PercentBuffer,"%ld/%ld (%ld%%)",CurrentLine,Lines > NumBufferLines ? Lines - NumBufferLines : 0,(100 * (CurrentLine + DisplayedLines)) / Lines);
  1311.  
  1312.                                                 Len = strlen(PercentBuffer);
  1313.  
  1314.                                                 Move(BufferScreen -> BarLayer -> rp,TitleOffset,BufferScreen -> BarLayer -> rp -> Font -> tf_Baseline + 1);
  1315.                                                 Text(BufferScreen -> BarLayer -> rp,PercentBuffer,Len);
  1316.  
  1317.                                                 Width = TextLength(BufferScreen -> BarLayer -> rp,PercentBuffer,Len);
  1318.  
  1319.                                                 if(LastWidth > Width)
  1320.                                                 {
  1321.                                                     SetAPen(BufferScreen -> BarLayer -> rp,1);
  1322.  
  1323.                                                     RectFill(BufferScreen -> BarLayer -> rp,TitleOffset + Width,1,TitleOffset + LastWidth - 1,BufferScreen -> BarLayer -> rp -> Font -> tf_YSize);
  1324.                                                 }
  1325.  
  1326.                                                 LastWidth = Width;
  1327.                                             }
  1328.  
  1329.                                             SignalSet = Wait(SIG_KILL | SIG_TOFRONT | SIG_UPDATE | SIG_MOVEUP | PORTMASK(BufferWindow -> UserPort));
  1330.  
  1331.                                                 /* Leave the town? */
  1332.  
  1333.                                             if(SignalSet & SIG_KILL)
  1334.                                                 BufferTerminated = TRUE;
  1335.  
  1336.                                                 /* Bring our window to the front. */
  1337.  
  1338.                                             if(SignalSet & SIG_TOFRONT)
  1339.                                                 BumpWindow(BufferWindow);
  1340.  
  1341.                                                 /* We've got one more line in the
  1342.                                                  * buffer.
  1343.                                                  */
  1344.  
  1345.                                             if(SignalSet & SIG_UPDATE)
  1346.                                             {
  1347.                                                 ObtainSemaphore(BufferSemaphore);
  1348.  
  1349.                                                 if(BufferLines && Lines)
  1350.                                                 {
  1351.                                                     if(Lines - CurrentLine > DisplayedLines && DisplayedLines < NumBufferLines)
  1352.                                                     {
  1353.                                                         LONG i = CurrentLine + DisplayedLines;
  1354.  
  1355.                                                         do
  1356.                                                             PrintLine(BufferLines[i++],DisplayedLines++);
  1357.                                                         while(DisplayedLines < NumBufferLines);
  1358.                                                     }
  1359.                                                 }
  1360.                                                                                                  
  1361.                                                 ReleaseSemaphore(BufferSemaphore);
  1362.  
  1363.                                                 SetGadgetAttrs(Scroller,BufferWindow,NULL,
  1364.                                                     PGA_Total,    Lines,
  1365.                                                     PGA_Visible,    NumBufferLines,
  1366.                                                 TAG_DONE);
  1367.                                             }
  1368.  
  1369.                                                 /* The contents of the buffer have moved
  1370.                                                  * up a line.
  1371.                                                  */
  1372.  
  1373.                                             if(SignalSet & SIG_MOVEUP)
  1374.                                             {
  1375.                                                 LastTopLine++;
  1376.  
  1377.                                                 DisplayedLines = RedrawScreen(CurrentLine);
  1378.                                             }
  1379.  
  1380.                                                 /* Process the incoming window
  1381.                                                  * input.
  1382.                                                  */
  1383.  
  1384.                                             while(Massage = (struct IntuiMessage *)GetMsg(BufferWindow -> UserPort))
  1385.                                             {
  1386.                                                 IClass        = Massage -> Class;
  1387.                                                 Code        = Massage -> Code;
  1388.                                                 Qualifier    = Massage -> Qualifier;
  1389.                                                 MouseX        = Massage -> MouseX;
  1390.                                                 MouseY        = Massage -> MouseY;
  1391.                                                 TagList        = (struct TagItem *)Massage -> IAddress;
  1392.  
  1393.                                                     /* This hack is necessary to obtain the
  1394.                                                      * character codes generated for the cursor
  1395.                                                      * keys. A control or alternate qualifier
  1396.                                                      * would spoil the result (i.e. we would
  1397.                                                      * not get a valid key code).
  1398.                                                      */
  1399.  
  1400.                                                 Massage -> Qualifier = NULL;
  1401.  
  1402.                                                 Char = KeyConvert(Massage,NULL,NULL);
  1403.  
  1404.                                                     /* Just in case anybody needs it... */
  1405.  
  1406.                                                 Massage -> Qualifier = Qualifier;
  1407.  
  1408.                                                 ReplyMsg((struct Message *)Massage);
  1409.  
  1410.                                                 if(IClass == IDCMP_IDCMPUPDATE)
  1411.                                                 {
  1412.                                                     switch(GetTagData(GA_ID,0,TagList))
  1413.                                                     {
  1414.                                                         case GAD_UP:
  1415.  
  1416.                                                             if(CurrentLine > 0)
  1417.                                                             {
  1418.                                                                 CurrentLine--;
  1419.  
  1420.                                                                 MarkArea(-1,-1,-1);
  1421.  
  1422.                                                                 SetGadgetAttrs(Scroller,BufferWindow,NULL,
  1423.                                                                     PGA_Top,CurrentLine,
  1424.                                                                 TAG_DONE);
  1425.  
  1426.                                                                 DisplayedLines = RedrawScreen(CurrentLine);
  1427.                                                             }
  1428.  
  1429.                                                             break;
  1430.  
  1431.                                                         case GAD_DOWN:
  1432.  
  1433.                                                             if(CurrentLine + NumBufferLines < Lines)
  1434.                                                             {
  1435.                                                                 CurrentLine++;
  1436.  
  1437.                                                                 MarkArea(-1,-1,-1);
  1438.  
  1439.                                                                 SetGadgetAttrs(Scroller,BufferWindow,NULL,
  1440.                                                                     PGA_Top,CurrentLine,
  1441.                                                                 TAG_DONE);
  1442.  
  1443.                                                                 DisplayedLines = RedrawScreen(CurrentLine);
  1444.                                                             }
  1445.  
  1446.                                                             break;
  1447.                                                     }
  1448.                                                 }
  1449.  
  1450.                                                 if(IClass == IDCMP_MOUSEMOVE || IClass == IDCMP_GADGETDOWN || IClass == IDCMP_GADGETUP)
  1451.                                                 {
  1452.                                                     LONG Position;
  1453.  
  1454.                                                     GetAttr(PGA_Top,Scroller,&Position);
  1455.  
  1456.                                                     if(Position != CurrentLine)
  1457.                                                     {
  1458.                                                         MarkArea(-1,-1,-1);
  1459.  
  1460.                                                         DisplayedLines = RedrawScreen(CurrentLine = Position);
  1461.                                                     }
  1462.                                                 }
  1463.  
  1464.                                                 if(IClass == IDCMP_RAWKEY)
  1465.                                                 {
  1466.                                                     if(Code == HELP_CODE)
  1467.                                                         GuideDisplay(CONTEXT_TEXTBUFFER);
  1468.  
  1469.                                                     if(LastChar)
  1470.                                                     {
  1471.                                                         if((Code & IECODE_UP_PREFIX) || !(LastQualifier & IEQUALIFIER_REPEAT))
  1472.                                                         {
  1473.                                                             SetGadgetAttrs(Scroller,BufferWindow,NULL,
  1474.                                                                 PGA_Top,CurrentLine,
  1475.                                                             TAG_DONE);
  1476.                                                         }
  1477.                                                     }
  1478.  
  1479.                                                     if(LastChar = Char)
  1480.                                                     {
  1481.                                                             /* Use the numeric keypad keys to
  1482.                                                              * move through the buffer.
  1483.                                                              */
  1484.  
  1485.                                                         if(Qualifier & IEQUALIFIER_NUMERICPAD)
  1486.                                                         {
  1487.                                                                 /* Remove the numpad qualifier. */
  1488.  
  1489.                                                             Qualifier &= ~IEQUALIFIER_NUMERICPAD;
  1490.  
  1491.                                                             switch(Char - '0')
  1492.                                                             {
  1493.                                                                     /* Jump to bottom. */
  1494.  
  1495.                                                                 case 1: Char = CDN;
  1496.                                                                     Qualifier |= IEQUALIFIER_CONTROL;
  1497.                                                                     break;
  1498.  
  1499.                                                                     /* Jump to top. */
  1500.  
  1501.                                                                 case 7: Char = CUP;
  1502.                                                                     Qualifier |= IEQUALIFIER_CONTROL;
  1503.                                                                     break;
  1504.  
  1505.                                                                     /* Move one page down. */
  1506.  
  1507.                                                                 case 3: Char = CDN;
  1508.                                                                     Qualifier |= IEQUALIFIER_LSHIFT;
  1509.                                                                     break;
  1510.  
  1511.                                                                     /* Move one page up. */
  1512.  
  1513.                                                                 case 9: Char = CUP;
  1514.                                                                     Qualifier |= IEQUALIFIER_LSHIFT;
  1515.                                                                     break;
  1516.  
  1517.                                                                     /* Move one line down. */
  1518.  
  1519.                                                                 case 2: Char = CDN;
  1520.                                                                     break;
  1521.  
  1522.                                                                     /* Move one line up. */
  1523.  
  1524.                                                                 case 8: Char = CUP;
  1525.                                                                     break;
  1526.                                                             }
  1527.                                                         }
  1528.  
  1529.                                                             /* Check cursor keys. */
  1530.  
  1531.                                                         switch(Char)
  1532.                                                         {
  1533.                                                                 /* Scroll the buffer up. */
  1534.  
  1535.                                                             case CUP:
  1536.  
  1537.                                                                 if(Qualifier & IEQUALIFIER_CONTROL)
  1538.                                                                 {
  1539.                                                                     MarkArea(-1,-1,-1);
  1540.  
  1541.                                                                     if(CurrentLine)
  1542.                                                                     {
  1543.                                                                         DisplayedLines = RedrawScreen(CurrentLine = 0);
  1544.  
  1545.                                                                         LastChar = 0;
  1546.  
  1547.                                                                         SetGadgetAttrs(Scroller,BufferWindow,NULL,
  1548.                                                                             PGA_Top,CurrentLine,
  1549.                                                                         TAG_DONE);
  1550.                                                                     }
  1551.  
  1552.                                                                     break;
  1553.                                                                 }
  1554.  
  1555.                                                                 if(Qualifier & (IEQUALIFIER_LSHIFT|IEQUALIFIER_RSHIFT))
  1556.                                                                 {
  1557.                                                                     LONG NewCurrentLine;
  1558.  
  1559.                                                                     if((NewCurrentLine = CurrentLine - NumBufferLines) < 0)
  1560.                                                                         NewCurrentLine = 0;
  1561.  
  1562.                                                                     MarkArea(-1,-1,-1);
  1563.  
  1564.                                                                     if(NewCurrentLine != CurrentLine)
  1565.                                                                     {
  1566.                                                                         DisplayedLines = RedrawScreen(CurrentLine = NewCurrentLine);
  1567.  
  1568.                                                                         LastChar = 0;
  1569.  
  1570.                                                                         SetGadgetAttrs(Scroller,BufferWindow,NULL,
  1571.                                                                             PGA_Top,CurrentLine,
  1572.                                                                         TAG_DONE);
  1573.                                                                     }
  1574.  
  1575.                                                                     break;
  1576.                                                                 }
  1577.  
  1578.                                                                 if(CurrentLine)
  1579.                                                                 {
  1580.                                                                     MarkArea(-1,-1,-1);
  1581.  
  1582.                                                                     DisplayedLines = RedrawScreen(--CurrentLine);
  1583.                                                                 }
  1584.  
  1585.                                                                 break;
  1586.  
  1587.                                                                 /* Scroll the buffer down. */
  1588.  
  1589.                                                             case CDN:
  1590.  
  1591.                                                                 if(Qualifier & IEQUALIFIER_CONTROL)
  1592.                                                                 {
  1593.                                                                     LONG NewCurrentLine;
  1594.  
  1595.                                                                     if((NewCurrentLine = Lines - NumBufferLines) < 0)
  1596.                                                                         NewCurrentLine = 0;
  1597.  
  1598.                                                                     MarkArea(-1,-1,-1);
  1599.  
  1600.                                                                     if(CurrentLine != NewCurrentLine)
  1601.                                                                     {
  1602.                                                                         DisplayedLines = RedrawScreen(CurrentLine = NewCurrentLine);
  1603.  
  1604.                                                                         LastChar = 0;
  1605.  
  1606.                                                                         SetGadgetAttrs(Scroller,BufferWindow,NULL,
  1607.                                                                             PGA_Top,CurrentLine,
  1608.                                                                         TAG_DONE);
  1609.                                                                     }
  1610.  
  1611.                                                                     break;
  1612.                                                                 }
  1613.  
  1614.                                                                 if(Qualifier & (IEQUALIFIER_LSHIFT|IEQUALIFIER_RSHIFT))
  1615.                                                                 {
  1616.                                                                     LONG NewCurrentLine;
  1617.  
  1618.                                                                     if((NewCurrentLine = CurrentLine + (2 * NumBufferLines)) > Lines)
  1619.                                                                         NewCurrentLine = Lines;
  1620.  
  1621.                                                                     if((NewCurrentLine = NewCurrentLine - NumBufferLines) < 0)
  1622.                                                                         NewCurrentLine = 0;
  1623.  
  1624.                                                                     MarkArea(-1,-1,-1);
  1625.  
  1626.                                                                     if(NewCurrentLine != CurrentLine)
  1627.                                                                     {
  1628.                                                                         DisplayedLines = RedrawScreen(CurrentLine = NewCurrentLine);
  1629.  
  1630.                                                                         LastChar = 0;
  1631.  
  1632.                                                                         SetGadgetAttrs(Scroller,BufferWindow,NULL,
  1633.                                                                             PGA_Top,CurrentLine,
  1634.                                                                         TAG_DONE);
  1635.                                                                     }
  1636.  
  1637.                                                                     break;
  1638.                                                                 }
  1639.  
  1640.                                                                 if(CurrentLine + NumBufferLines < Lines)
  1641.                                                                 {
  1642.                                                                     MarkArea(-1,-1,-1);
  1643.  
  1644.                                                                     DisplayedLines = RedrawScreen(++CurrentLine);
  1645.                                                                 }
  1646.  
  1647.                                                                 break;
  1648.                                                         }
  1649.  
  1650.                                                         LastQualifier = Qualifier;
  1651.                                                     }
  1652.                                                     else
  1653.                                                         LastQualifier = NULL;
  1654.  
  1655.                                                     continue;
  1656.                                                 }
  1657.  
  1658.                                                     /* User hit a mouse button. */
  1659.  
  1660.                                                 if(IClass == IDCMP_MOUSEBUTTONS && !(Code & IECODE_UP_PREFIX))
  1661.                                                 {
  1662.                                                     MarkArea(-1,-1,-1);
  1663.  
  1664.                                                         /* Reasonable dimensions? */
  1665.  
  1666.                                                     if(MouseY / LocalTextFontHeight < DisplayedLines && MouseX / LocalTextFontWidth < NumBufferColumns)
  1667.                                                     {
  1668.                                                         ObtainSemaphore(BufferSemaphore);
  1669.  
  1670.                                                         BufferClip();
  1671.  
  1672.                                                         LastTopLine = CurrentLine;
  1673.  
  1674.                                                         ReleaseSemaphore(BufferSemaphore);
  1675.  
  1676.                                                         if(Qualifier & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT))
  1677.                                                             Signal(ThisProcess,SIG_CLIP);
  1678.  
  1679.                                                         break;
  1680.                                                     }
  1681.                                                 }
  1682.  
  1683.                                                 if(IClass == IDCMP_MENUPICK)
  1684.                                                 {
  1685.                                                     struct MenuItem *MenuItem;
  1686.  
  1687.                                                     while(Code != MENUNULL)
  1688.                                                     {
  1689.                                                         MenuItem = ItemAddress(BufferMenuStrip,Code);
  1690.  
  1691.                                                         switch((ULONG)GTMENUITEM_USERDATA(MenuItem))
  1692.                                                         {
  1693.                                                             case MEN_SEARCH:
  1694.  
  1695.                                                                 StartBufferSearch(TRUE);
  1696.                                                                 break;
  1697.  
  1698.                                                             case MEN_REPEAT:
  1699.  
  1700.                                                                 StartBufferSearch(FALSE);
  1701.                                                                 break;
  1702.  
  1703.                                                             case MEN_GOTO:
  1704.  
  1705.                                                                 if(Window)
  1706.                                                                     BumpWindow(Window);
  1707.  
  1708.                                                                 break;
  1709.  
  1710.                                                             case MEN_QUITBUF:
  1711.                                                             case MEN_CLOSEBUF:
  1712.  
  1713.                                                                 BufferTerminated = TRUE;
  1714.                                                                 break;
  1715.  
  1716.                                                             case MEN_CLEARBUF_CONTENTS:
  1717.  
  1718.                                                                 if(Lines)
  1719.                                                                 {
  1720.                                                                     BlockWindows();
  1721.  
  1722.                                                                     BlockWindow(BufferWindow);
  1723.  
  1724.                                                                     if(Qualifier & (IEQUALIFIER_LSHIFT|IEQUALIFIER_RSHIFT))
  1725.                                                                     {
  1726.                                                                         FreeBuffer();
  1727.  
  1728.                                                                         ReleaseWindow(BufferWindow);
  1729.  
  1730.                                                                         ReleaseWindows();
  1731.  
  1732.                                                                         FlushMsg(BufferWindow);
  1733.  
  1734.                                                                         goto Restart;
  1735.                                                                     }
  1736.                                                                     else
  1737.                                                                     {
  1738.                                                                         if(MyEasyRequest(BufferWindow,LocaleString(MSG_TERMBUFFER_BUFFER_STILL_HOLDS_LINES_TXT),LocaleString(MSG_GLOBAL_YES_NO_TXT),Lines))
  1739.                                                                         {
  1740.                                                                             FreeBuffer();
  1741.  
  1742.                                                                             ReleaseWindow(BufferWindow);
  1743.  
  1744.                                                                             ReleaseWindows();
  1745.  
  1746.                                                                             FlushMsg(BufferWindow);
  1747.  
  1748.                                                                             goto Restart;
  1749.                                                                         }
  1750.                                                                     }
  1751.  
  1752.                                                                     ReleaseWindow(BufferWindow);
  1753.  
  1754.                                                                     ReleaseWindows();
  1755.  
  1756.                                                                     FlushMsg(BufferWindow);
  1757.                                                                 }
  1758.  
  1759.                                                                 break;
  1760.                                                         }
  1761.  
  1762.                                                         Code = MenuItem -> NextSelect;
  1763.                                                     }
  1764.                                                 }
  1765.  
  1766.                                             }
  1767.                                         }
  1768.                                         while(!BufferTerminated);
  1769.  
  1770.                                         RemoveGList(BufferWindow,Scroller,(UWORD)-1);
  1771.  
  1772.                                         DeleteScroller();
  1773.                                     }
  1774.  
  1775.                                     FreeVec(BufferLineWidths);
  1776.                                 }
  1777.  
  1778.                                 if(Window)
  1779.                                     BumpWindow(Window);
  1780.  
  1781.                                 MarkArea(-1,-1,-1);
  1782.  
  1783.                                 ScreenToBack(BufferScreen);
  1784.  
  1785.                                 BufferWindow -> Flags |= WFLG_RMBTRAP;
  1786.  
  1787.                                 ClearMenuStrip(BufferWindow);
  1788.  
  1789.                                 CloseWindow(BufferWindow);
  1790.                             }
  1791.                         }
  1792.  
  1793.                         FreeMenus(BufferMenuStrip);
  1794.                     }
  1795.  
  1796.                     FreeVisualInfo(BufferVisualInfo);
  1797.                 }
  1798.  
  1799.                 CloseScreen(BufferScreen);
  1800.             }
  1801.         }
  1802.  
  1803.         CloseFont(LocalFont);
  1804.     }
  1805.  
  1806.         /* Release the search buffer data. */
  1807.  
  1808.     if(BufferSearchInfo)
  1809.     {
  1810.         DeleteSearchInfo(BufferSearchInfo);
  1811.  
  1812.         BufferSearchInfo = NULL;
  1813.     }
  1814.  
  1815.     Forbid();
  1816.  
  1817.     BufferProcess = NULL;
  1818.  
  1819.     if(StartupMessage)
  1820.         ReplyMsg(StartupMessage);
  1821.     else
  1822.         Signal(ThisProcess,SIG_HANDSHAKE);
  1823. }
  1824.