/programs/develop/ktcc/trunk/bin/lib/libck.a |
---|
Cannot display: file marked as a binary type. |
svn:mime-type = application/octet-stream |
/programs/develop/ktcc/trunk/libc/build.bat |
---|
10,7 → 10,7 |
set CFLAGS=-c -nostdinc -DGNUC -I"%cd%\%INCLUDE%" -Wall |
set AR=kos32-ar |
set ASM=fasm |
set dirs=stdio memory kolibrisys string stdlib math dlfcn |
set dirs=stdio memory kolibrisys string stdlib math dlfcn libgen |
rem #### END OF CONFIG SECTION #### |
set objs= |
/programs/develop/ktcc/trunk/libc/include/libgen.h |
---|
0,0 → 1,7 |
#ifndef __KTCC_LIBGEN_H__ |
#define __KTCC_LIBGEN_H__ |
char *basename(char *path); |
char *dirname(char *path); |
#endif // __KTCC_LIBGEN_H__ |
/programs/develop/ktcc/trunk/libc/include/string.h |
---|
4,6 → 4,7 |
extern void* memchr(const void*,int,size_t); |
extern void* memrchr(const void*,int,size_t); |
extern int memcmp(const void*,const void*,size_t); |
extern void* memcpy(void*,const void*,size_t); |
extern void* memmove(void*,const void*,size_t); |
/programs/develop/ktcc/trunk/libc/libgen/basename.c |
---|
0,0 → 1,23 |
/* Return the name-within-directory of a file name. |
Copyright (C) 1996-2019 Free Software Foundation, Inc. |
This file is part of the GNU C Library. |
The GNU C Library is free software; you can redistribute it and/or |
modify it under the terms of the GNU Lesser General Public |
License as published by the Free Software Foundation; either |
version 2.1 of the License, or (at your option) any later version. |
The GNU C Library is distributed in the hope that it will be useful, |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
Lesser General Public License for more details. |
You should have received a copy of the GNU Lesser General Public |
License along with the GNU C Library; if not, see |
<http://www.gnu.org/licenses/>. */ |
#include <string.h> |
char * |
basename (const char *filename) |
{ |
char *p = strrchr (filename, '/'); |
return p ? p + 1 : (char *) filename; |
} |
/programs/develop/ktcc/trunk/libc/libgen/dirname.c |
---|
0,0 → 1,67 |
/* dirname - return directory part of PATH. |
Copyright (C) 1996-2019 Free Software Foundation, Inc. |
This file is part of the GNU C Library. |
Contributed by Ulrich Drepper <drepper@cygnus.com>, 1996. |
The GNU C Library is free software; you can redistribute it and/or |
modify it under the terms of the GNU Lesser General Public |
License as published by the Free Software Foundation; either |
version 2.1 of the License, or (at your option) any later version. |
The GNU C Library is distributed in the hope that it will be useful, |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
Lesser General Public License for more details. |
You should have received a copy of the GNU Lesser General Public |
License along with the GNU C Library; if not, see |
<http://www.gnu.org/licenses/>. */ |
#include <libgen.h> |
#include <string.h> |
char * |
dirname (char *path) |
{ |
static const char dot[] = "."; |
char *last_slash; |
/* Find last '/'. */ |
last_slash = path != NULL ? strrchr (path, '/') : NULL; |
if (last_slash != NULL && last_slash != path && last_slash[1] == '\0') |
{ |
/* Determine whether all remaining characters are slashes. */ |
char *runp; |
for (runp = last_slash; runp != path; --runp) |
if (runp[-1] != '/') |
break; |
/* The '/' is the last character, we have to look further. */ |
if (runp != path) |
last_slash = memrchr (path, '/', runp - path); |
} |
if (last_slash != NULL) |
{ |
/* Determine whether all remaining characters are slashes. */ |
char *runp; |
for (runp = last_slash; runp != path; --runp) |
if (runp[-1] != '/') |
break; |
/* Terminate the path. */ |
if (runp == path) |
{ |
/* The last slash is the first character in the string. We have to |
return "/". As a special case we have to return "//" if there |
are exactly two slashes at the beginning of the string. See |
XBD 4.10 Path Name Resolution for more information. */ |
if (last_slash == path + 1) |
++last_slash; |
else |
last_slash = path + 1; |
} |
else |
last_slash = runp; |
last_slash[0] = '\0'; |
} |
else |
/* This assignment is ill-designed but the XPG specs require to |
return a string containing "." in any case no directory part is |
found and so a static and constant string is required. */ |
path = (char *) dot; |
return path; |
} |
/programs/develop/ktcc/trunk/libc/string/memrchr.c |
---|
0,0 → 1,12 |
/* memrchr.c from musl |
*/ |
#include <string.h> |
void *memrchr(const void *m, int c, size_t n) |
{ |
const unsigned char *s = m; |
c = (unsigned char)c; |
while (n--) if (s[n]==c) return (void *)(s+n); |
return 0; |
} |