|
Last change
on this file since 135 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:
1.3 KB
|
| Rev | Line | |
|---|
| [2] | 1 | #define INCL_DOS
|
|---|
| 2 |
|
|---|
| 3 | #include <os2.h>
|
|---|
| 4 | #include <stdlib.h>
|
|---|
| 5 | #include <stdio.h>
|
|---|
| 6 | #include <string.h>
|
|---|
| 7 |
|
|---|
| 8 | #pragma data_seg(DATA1)
|
|---|
| 9 | #pragma alloc_text(MISC9,first_path,searchapath,searchpath)
|
|---|
| 10 |
|
|---|
| 11 | CHAR * first_path (CHAR *path,CHAR *ret) {
|
|---|
| 12 |
|
|---|
| 13 | CHAR *p,*pp;
|
|---|
| 14 |
|
|---|
| 15 | if(!path || !ret)
|
|---|
| 16 | return ret;
|
|---|
| 17 | strcpy(ret,path);
|
|---|
| 18 | p = strchr(ret,';');
|
|---|
| 19 | if(p) {
|
|---|
| 20 | *p = 0;
|
|---|
| 21 | p++;
|
|---|
| 22 | if(*ret == '.') { /* skip initial "cur dir" */
|
|---|
| 23 | pp = strchr(p,';');
|
|---|
| 24 | if(pp)
|
|---|
| 25 | *pp = 0;
|
|---|
| 26 | if(*p)
|
|---|
| 27 | memmove(ret,p,strlen(p) + 1);
|
|---|
| 28 | }
|
|---|
| 29 | }
|
|---|
| 30 | return ret;
|
|---|
| 31 | }
|
|---|
| 32 |
|
|---|
| 33 |
|
|---|
| 34 | CHAR * searchapath (CHAR *path,CHAR *filename) {
|
|---|
| 35 |
|
|---|
| 36 | static CHAR fbuf[CCHMAXPATH];
|
|---|
| 37 |
|
|---|
| 38 | if(strchr(filename,'\\') || strchr(filename,'/') || strchr(filename,':')) {
|
|---|
| 39 |
|
|---|
| 40 | FILESTATUS3 fsa;
|
|---|
| 41 |
|
|---|
| 42 | if(!DosQueryPathInfo(filename,FIL_STANDARD,&fsa,
|
|---|
| 43 | (ULONG)sizeof(fsa)))
|
|---|
| 44 | return filename;
|
|---|
| 45 | *fbuf = 0;
|
|---|
| 46 | return fbuf;
|
|---|
| 47 | }
|
|---|
| 48 | *fbuf = 0;
|
|---|
| 49 | if(DosSearchPath(SEARCH_IGNORENETERRS | SEARCH_ENVIRONMENT |
|
|---|
| 50 | SEARCH_CUR_DIRECTORY,
|
|---|
| 51 | path,filename,fbuf,CCHMAXPATH - 1))
|
|---|
| 52 | *fbuf = 0;
|
|---|
| 53 | return fbuf;
|
|---|
| 54 | }
|
|---|
| 55 |
|
|---|
| 56 |
|
|---|
| 57 | CHAR * searchpath (CHAR *filename) {
|
|---|
| 58 |
|
|---|
| 59 | CHAR *found;
|
|---|
| 60 |
|
|---|
| 61 | if(!filename)
|
|---|
| 62 | return "";
|
|---|
| 63 | found = searchapath("PATH",filename);
|
|---|
| 64 | if(!*found) {
|
|---|
| 65 | found = searchapath("DPATH",filename);
|
|---|
| 66 | if(!*found)
|
|---|
| 67 | found = searchapath("XPATH",filename);
|
|---|
| 68 | }
|
|---|
| 69 | return found;
|
|---|
| 70 | }
|
|---|
| 71 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.