]> ncurses.scripts.mit.edu Git - ncurses.git/blobdiff - form/frm_data.c
ncurses 6.3 - patch 20220806
[ncurses.git] / form / frm_data.c
index 847d7d5a4d184b3ec4a3704539cd110015143167..940c32db99c60d23bf3a3e01e6661267f99924a0 100644 (file)
@@ -1,5 +1,6 @@
 /****************************************************************************
- * Copyright (c) 1998-2002,2003 Free Software Foundation, Inc.              *
+ * Copyright 2020,2021 Thomas E. Dickey                                     *
+ * Copyright 1998-2010,2013 Free Software Foundation, Inc.                  *
  *                                                                          *
  * Permission is hereby granted, free of charge, to any person obtaining a  *
  * copy of this software and associated documentation files (the            *
 
 #include "form.priv.h"
 
-MODULE_ID("$Id: frm_data.c,v 1.10 2003/11/08 20:38:14 tom Exp $")
+MODULE_ID("$Id: frm_data.c,v 1.21 2021/06/17 21:11:08 tom Exp $")
 
 /*---------------------------------------------------------------------------
-|   Facility      :  libnform  
+|   Facility      :  libnform
 |   Function      :  bool data_behind(const FORM *form)
-|   
+|
 |   Description   :  Check for off-screen data behind. This is nearly trivial
 |                    because the beginning of a field is fixed.
 |
 |   Return Values :  TRUE   - there are off-screen data behind
 |                    FALSE  - there are no off-screen data behind
 +--------------------------------------------------------------------------*/
-NCURSES_EXPORT(bool)
-data_behind (const FORM *form)
+FORM_EXPORT(bool)
+data_behind(const FORM *form)
 {
   bool result = FALSE;
 
+  T((T_CALLED("data_behind(%p)"), (const void *)form));
+
   if (form && (form->status & _POSTED) && form->current)
     {
       FIELD *field;
@@ -56,95 +59,108 @@ data_behind (const FORM *form)
       field = form->current;
       if (!Single_Line_Field(field))
        {
-         result = (form->toprow==0) ? FALSE : TRUE;
+         result = (form->toprow == 0) ? FALSE : TRUE;
        }
       else
        {
-         result = (form->begincol==0) ? FALSE : TRUE;
+         result = (form->begincol == 0) ? FALSE : TRUE;
        }
     }
-  return(result);
+  returnBool(result);
 }
 
 /*---------------------------------------------------------------------------
-|   Facility      :  libnform  
-|   Function      :  static char * After_Last_Non_Pad_Position(
-|                                    char *buffer,
+|   Facility      :  libnform
+|   Function      :  static char * Only_Padding(
+|                                    WINDOW *w,
 |                                    int len,
 |                                    int pad)
-|   
-|   Description   :  Find the last position in the buffer that doesn't
+|
+|   Description   :  Test if 'length' cells starting at the current position
 |                    contain a padding character.
 |
-|   Return Values :  The pointer to this position 
+|   Return Values :  true if only padding cells are found
 +--------------------------------------------------------------------------*/
-INLINE 
-static char * After_Last_Non_Pad_Position(char *buffer, int len, int pad)
+NCURSES_INLINE static bool
+Only_Padding(WINDOW *w, int len, int pad)
 {
-  char *end = buffer + len;
-
-  assert(buffer && len>=0);
-  while ( (buffer < end) && (*(end-1)==pad) )
-    end--;
+  bool result = TRUE;
+  int y, x, j;
+  FIELD_CELL cell;
 
-  return end;
+  getyx(w, y, x);
+  for (j = 0; j < len; ++j)
+    {
+      if (wmove(w, y, x + j) != ERR)
+       {
+#if USE_WIDEC_SUPPORT
+         if (win_wch(w, &cell) != ERR)
+           {
+             if ((chtype)CharOf(cell) != ChCharOf(pad)
+                 || cell.chars[1] != 0)
+               {
+                 result = FALSE;
+                 break;
+               }
+           }
+#else
+         cell = (FIELD_CELL)winch(w);
+         if (ChCharOf(cell) != ChCharOf(pad))
+           {
+             result = FALSE;
+             break;
+           }
+#endif
+       }
+      else
+       {
+         /* if an error, return true: no non-padding text found */
+         break;
+       }
+    }
+  /* no need to reset the cursor position; caller does this */
+  return result;
 }
 
-#define SMALL_BUFFER_SIZE (80)
-
 /*---------------------------------------------------------------------------
-|   Facility      :  libnform  
+|   Facility      :  libnform
 |   Function      :  bool data_ahead(const FORM *form)
-|   
+|
 |   Description   :  Check for off-screen data ahead. This is more difficult
-|                    because a dynamic field has a variable end. 
+|                    because a dynamic field has a variable end.
 |
 |   Return Values :  TRUE   - there are off-screen data ahead
 |                    FALSE  - there are no off-screen data ahead
 +--------------------------------------------------------------------------*/
-NCURSES_EXPORT(bool)
-data_ahead (const FORM *form)
+FORM_EXPORT(bool)
+data_ahead(const FORM *form)
 {
   bool result = FALSE;
 
+  T((T_CALLED("data_ahead(%p)"), (const void *)form));
+
   if (form && (form->status & _POSTED) && form->current)
     {
-      static char buffer[SMALL_BUFFER_SIZE + 1];
       FIELD *field;
-      bool large_buffer;
       bool cursor_moved = FALSE;
-      char *bp;
-      char *found_content;
       int pos;
 
       field = form->current;
       assert(form->w);
 
-      large_buffer = (field->cols > SMALL_BUFFER_SIZE);
-      if (large_buffer)
-       bp = (char *)malloc((size_t)(field->cols) + 1);
-      else
-       bp = buffer;
-
-      assert(bp);
-      
       if (Single_Line_Field(field))
        {
-         int check_len;
-
          pos = form->begincol + field->cols;
          while (pos < field->dcols)
            {
-             check_len = field->dcols - pos;
-             if ( check_len >= field->cols )
+             int check_len = field->dcols - pos;
+
+             if (check_len >= field->cols)
                check_len = field->cols;
              cursor_moved = TRUE;
-             wmove(form->w,0,pos);
-             winnstr(form->w,bp,check_len);
-             found_content = 
-               After_Last_Non_Pad_Position(bp,check_len,field->pad);
-             if (found_content==bp)
-                 pos += field->cols;             
+             wmove(form->w, 0, pos);
+             if (Only_Padding(form->w, check_len, field->pad))
+               pos += field->cols;
              else
                {
                  result = TRUE;
@@ -158,12 +174,9 @@ data_ahead (const FORM *form)
          while (pos < field->drows)
            {
              cursor_moved = TRUE;
-             wmove(form->w,pos,0);
+             wmove(form->w, pos, 0);
              pos++;
-             winnstr(form->w,bp,field->cols);
-             found_content = 
-               After_Last_Non_Pad_Position(bp,field->cols,field->pad);
-             if (found_content!=bp)
+             if (!Only_Padding(form->w, field->cols, field->pad))
                {
                  result = TRUE;
                  break;
@@ -171,13 +184,10 @@ data_ahead (const FORM *form)
            }
        }
 
-      if (large_buffer)
-       free(bp);
-
       if (cursor_moved)
-       wmove(form->w,form->currow,form->curcol);
+       wmove(form->w, form->currow, form->curcol);
     }
-  return(result);
+  returnBool(result);
 }
 
 /* frm_data.c ends here */