| /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; |
| } |