| Last change
 on this file since 93 was             2, checked in by root, 23 years ago | 
        
          | 
Initial revision
 | 
        
          | 
              
Property                 svn:eol-style
 set to                 native
Property                 svn:keywords
 set to                 Author Date Id Revision | 
        
          | File size:
            594 bytes | 
      
      
| Line |  | 
|---|
| 1 | #include <os2.h> | 
|---|
| 2 | #include <stdlib.h> | 
|---|
| 3 | #include <string.h> | 
|---|
| 4 | #include <ctype.h> | 
|---|
| 5 |  | 
|---|
| 6 | #pragma alloc_text(MISC8,strip_trail_char,strip_lead_char) | 
|---|
| 7 |  | 
|---|
| 8 |  | 
|---|
| 9 | char * strip_trail_char (char *strip,char *a) { | 
|---|
| 10 |  | 
|---|
| 11 | register char *p; | 
|---|
| 12 |  | 
|---|
| 13 | if(a && *a && strip && *strip) { | 
|---|
| 14 | p = &a[strlen(a) - 1]; | 
|---|
| 15 | while (*a && strchr(strip,*p) != NULL) { | 
|---|
| 16 | *p = 0; | 
|---|
| 17 | p--; | 
|---|
| 18 | } | 
|---|
| 19 | } | 
|---|
| 20 | return a; | 
|---|
| 21 | } | 
|---|
| 22 |  | 
|---|
| 23 | char * strip_lead_char (char *strip,char *a) { | 
|---|
| 24 |  | 
|---|
| 25 | register char *p = a; | 
|---|
| 26 |  | 
|---|
| 27 | if(a && *a && strip && *strip) { | 
|---|
| 28 | while(*p && strchr(strip,*p) != NULL) | 
|---|
| 29 | p++; | 
|---|
| 30 | if(p != a) | 
|---|
| 31 | memmove(a,p,strlen(p) + 1); | 
|---|
| 32 | } | 
|---|
| 33 | return a; | 
|---|
| 34 | } | 
|---|
| 35 |  | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.