home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / substrm2 / substrm.c next >
Encoding:
C/C++ Source or Header  |  1988-01-22  |  3.7 KB  |  97 lines
  1. /*********************************************************************/
  2. /**                                                                 **/
  3. /** SUBSTRMEMO ()                                                   **/
  4. /**                                                                 **/
  5. /** Syntax: SUBSTRMEMO (<expC) [, <expN> [, <expN]] )               **/
  6. /**                                                                 **/
  7. /** Returns: A string containing the specified number of lines from **/
  8. /**          a memo field.  The sub-portion of the memo field       **/
  9. /**          starts with the first number specified and includes    **/
  10. /**          all the lines up to and including the last number.     **/
  11. /**          Useful if you must print a memo field that is more     **/
  12. /**          than a page in length                                  **/
  13. /**          If start > end, a nul string is returned               **/
  14. /**                                                                 **/
  15. /** Example: ? substrmemo (memofld, 3, 5) => return lines 3 to 5 of **/
  16. /**                                          the field MEMOFLD      **/
  17. /**          ? substrmemo (memofld, 8)    => returns the remainder  **/
  18. /**                                          of the field MEMOFLD   **/
  19. /**                                          starting at line 8     **/
  20. /**          ? substrmemo (memofld, 7, 7) => return line 7          **/
  21. /**          ? substrmemo (memofld)       => returns whole field    **/
  22. /**          ? substrmemo (memofld, 5, 3) => return nul string      **/
  23. /**                                                                 **/
  24. /** Compiler:  Microsoft 5.0 :: CL /c /AL /Zl /Oalt /FPa /Gs substrm.c **/
  25. /**                                                                 **/
  26. /** Author:  Matt Colegrove                                         **/
  27. /**                                                                 **/
  28. /*********************************************************************/
  29.  
  30. #include "d:\clip87\nandef.h"
  31. #include "d:\clip87\extend.h"
  32.  
  33. #define LF           '\n'
  34. #define SOFT_LF      ('\n' | 0x80)
  35. #define MAX_SIZE     0x7ff           /* 32K */
  36.  
  37. CLIPPER SUBSTRMEMO ()
  38.  
  39. {
  40.    unsigned char *_exmgrab();
  41.    unsigned char *str1, *pos1;         /* string and pointer to it */
  42.    unsigned char *str2, *pos2;
  43.    unsigned sizeof2;
  44.  
  45.    int lines, start, end;
  46.  
  47.    if (PCOUNT >= 1 && ISCHAR (1))
  48.       {
  49.       str1 = _parc (1);
  50.       pos1 = str1;
  51.       start = 1;
  52.       end   = MAX_SIZE;           /* guaranteed end of field */
  53.  
  54.       if (PCOUNT >= 2 && ISNUM (2))
  55.          {
  56.          start = _parni (2);
  57.  
  58.          if (PCOUNT == 3 && ISNUM (3))
  59.             {
  60.             end = _parni (3);
  61.             }
  62.          else
  63.             {
  64.             _retc ("ERROR: Too Many Parameters passed to SUBSTRMEMO");
  65.             }
  66.          }  /* endif PCOUNT >= 2 */
  67.  
  68.       lines = 1;      /* when we begin, we are on line 1 */
  69.       while (*pos1 && (lines < start))  /* spin pass lines before start */
  70.          {
  71.          if (*pos1 == LF || *pos1 == SOFT_LF)
  72.             lines++;
  73.          pos1++;
  74.          }
  75.  
  76.       sizeof2 = strlen (str1);
  77.       str2 = _exmgrab (sizeof2);  /* allocate space to str2 */
  78.       pos2 = str2;
  79.       while ((*pos1) && (*pos1 != 0x1a) && (lines <= end))
  80.          {
  81.          *pos2 = ((*pos1) & 0x7f);  /* strip of high order bit */
  82.          if (*pos1 == LF || *pos1 == SOFT_LF)
  83.             lines++;
  84.          pos1++;
  85.          pos2++;
  86.          }
  87.       *pos2 = '\0';   /* terminate the string */
  88.       _retc (str2);
  89.       _exmback (str2, sizeof2);
  90.       }
  91.    else /* PCOUNT < 1 */
  92.       {
  93.       _retc ("ERROR: SUBSTRMEMO has no parameters passed to it");
  94.       }
  95. }
  96. /* end of substrm.c */
  97.