| Last change
 on this file since 998 was             793, checked in by Gregg Young, 18 years ago | 
        
          | 
Move #pragma alloc_text to end for OpenWatcom compat
 | 
        
          | 
              
Property                 svn:eol-style
 set to                 native
Property                 svn:keywords
 set to                 Author Date Id Revision | 
        
          | File size:
            801 bytes | 
      
      
| Rev | Line |  | 
|---|
| [793] | 1 |  | 
|---|
|  | 2 | /*********************************************************************** | 
|---|
|  | 3 |  | 
|---|
|  | 4 | $Id: delims.c 793 2007-08-21 02:53:38Z gyoung $ | 
|---|
|  | 5 |  | 
|---|
|  | 6 | Copyright (c) 1993-98 M. Kimes | 
|---|
|  | 7 | Copyright (c) 2003, 2007 Steven H.Levine | 
|---|
|  | 8 |  | 
|---|
|  | 9 | Delimit chars | 
|---|
|  | 10 |  | 
|---|
|  | 11 | 20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat | 
|---|
|  | 12 |  | 
|---|
|  | 13 | ***********************************************************************/ | 
|---|
|  | 14 |  | 
|---|
| [2] | 15 | #include <os2.h> | 
|---|
|  | 16 | #include <stdlib.h> | 
|---|
|  | 17 | #include <string.h> | 
|---|
|  | 18 |  | 
|---|
| [551] | 19 | char *skip_delim(char *a, register char *delim) | 
|---|
|  | 20 | { | 
|---|
| [2] | 21 |  | 
|---|
|  | 22 | register char *p = a; | 
|---|
|  | 23 |  | 
|---|
| [551] | 24 | if (p && delim) { | 
|---|
|  | 25 | while (*p) { | 
|---|
|  | 26 | if (strchr(delim, *p)) | 
|---|
|  | 27 | p++; | 
|---|
| [2] | 28 | else | 
|---|
| [551] | 29 | break; | 
|---|
| [2] | 30 | } | 
|---|
|  | 31 | } | 
|---|
|  | 32 | return p; | 
|---|
|  | 33 | } | 
|---|
|  | 34 |  | 
|---|
| [551] | 35 | char *to_delim(char *a, register char *delim) | 
|---|
|  | 36 | { | 
|---|
| [2] | 37 |  | 
|---|
|  | 38 | register char *p = a; | 
|---|
|  | 39 |  | 
|---|
| [551] | 40 | if (p && delim) { | 
|---|
|  | 41 | while (*p) { | 
|---|
|  | 42 | if (strchr(delim, *p)) | 
|---|
|  | 43 | break; | 
|---|
| [2] | 44 | p++; | 
|---|
|  | 45 | } | 
|---|
|  | 46 | } | 
|---|
|  | 47 | return p; | 
|---|
|  | 48 | } | 
|---|
| [793] | 49 |  | 
|---|
|  | 50 | #pragma alloc_text(MISC8,skip_delim,to_delim) | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.