source: buchla-68k/orig/GP/BASENAM.C@ cbe2c15

Last change on this file since cbe2c15 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago

Imported original source code.

  • Property mode set to 100755
File size: 1.7 KB
Line 
1/*
2 ============================================================================
3 basenam.c -- Extract base name from a path
4 Version 4 -- 1988-07-13 -- D.N. Lynx Crowe
5
6 Extracts the base name of a file from a path.
7
8 char *
9 basenam(s)
10 char *s;
11
12 Can be used with MSDOS, PCDOS, GEMDOS, or Unix(tm) with suitable
13 defines for SWITCHAR and DRIVES, as follows:
14
15 For Unix(tm):
16 SWITCHAR '/'
17 DRIVES FALSE
18
19 For MSDOS or PCDOS:
20 SWITCHAR swchar() function to get DOS SWITCHAR
21 DRIVES (c == ':')
22
23 For GEMDOS:
24 SWITCHAR '\\'
25 DRIVES (c == ':')
26
27 Define TESTER to get a test program and edit the array of test cases
28 for the system you're compiling for.
29 ============================================================================
30*/
31
32#define FALSE 0
33
34#define SWITCHAR '\\' /* TOS definition */
35#define DRIVES (c == ':') /* TOS / MSDOS / PCDOS definition */
36
37/*
38 */
39
40/*
41 ============================================================================
42 basenam(s) -- extract the base name from the path at s
43 ============================================================================
44*/
45
46char *
47basenam(s)
48char *s;
49{
50 register char *cp = s;
51 register char c;
52
53 while ('\0' != *s) {
54
55 c = *s++;
56
57 if ((c == SWITCHAR) || DRIVES)
58 cp = s;
59 }
60
61 return(cp);
62}
63
64/*
65 */
66
67#ifdef TESTER
68
69#include "stdio.h"
70
71char *t[] = { /* test cases for GEMDOS */
72
73 "simple.one",
74 "c:more.doc",
75 "c:\\more",
76 "\\yet\\more.doc",
77 "another.1\\yet.more\\complex\\",
78 "and\\still.one\\more",
79 NULL
80};
81
82main()
83{
84 register int n = 0;
85 register char *p;
86
87 while (NULL != (p = t[n++]) )
88 printf("%s returned %s\n", p, basenam(p));
89
90 printf("Done.\n");
91 exit(0);
92}
93
94#endif
Note: See TracBrowser for help on using the repository browser.