ruby-106/ruby/file.c

345 rb_stat_cmp(VALUE self, VALUE other)
347     if (rb_obj_is_kind_of(other, rb_obj_class(self))) {
349         struct timespec ts2 = stat_mtimespec(get_stat(other));
2687 #define has_unc(buf) (isdirsep((buf)[0]) && isdirsep((buf)[1]))
2689 #define has_unc(buf) 0
2694 has_drive_letter(const char *buf)
2696     if (ISALPHA(buf[0]) && buf[1] == ':') {
2873     bdiff = p - buf;\
2877 	buf = RSTRING_PTR(result);\
2878 	p = buf + bdiff;\
2879 	pend = buf + buflen;\
2884     p = buf = RSTRING_PTR(result),\
2892     char *buf;
2905 	memcpy(buf = RSTRING_PTR(result), dir, dirlen);
2916 	memcpy(buf = RSTRING_PTR(result), pwPtr->pw_dir, dirlen + 1);
2925     for (bend = (p = buf) + dirlen; p < bend; Inc(p, bend, enc)) {
2938     char *buf, *cwdp = dir;
2952     buf = RSTRING_PTR(result);
2953     memcpy(buf, cwdp, dirlen);
2957     return buf + dirlen;
2964     char *buf, *p, *pend, *root;
2979 	    buf = 0;
2990 	    buf = p + 1;
2993 	if (NIL_P(rb_home_dir(buf, result))) {
2994 	    rb_raise(rb_eArgError, "can't find user %s", buf);
3040 	    p = chompdirsep(skiproot(buf, p, enc), p, enc);
3062 	    p = skipprefix(buf, p, enc);
3066 	    p = chompdirsep(skiproot(buf, p, enc), p, enc);
3073 	p = buf + len;
3075 	memset(buf, '/', len);
3079     if (p > buf && p[-1] == '/')
3082 	rb_str_set_len(result, p-buf);
3087     rb_str_set_len(result, p-buf+1);
3090     root = skipprefix(buf, p+1, enc);
3150 		long rootdiff = root - buf;
3151 		rb_str_set_len(result, p-buf+1);
3153 		root = buf + rootdiff;
3182 	rb_str_set_len(result, p-buf+1);
3186 	rb_str_set_len(result, p-buf);
3188     if (p == skiproot(buf, p + !!*p, enc) - 1) p++;
3192     if ((s = strrdirsep(b = buf, p, enc)) != 0 && !strpbrk(s, "*?")) {
3212 	if (lstat(buf, &st) == 0 && S_ISLNK(st.st_mode)) {
3218 	path = *buf ? buf : "/";
3247 	rb_str_set_len(result, p - buf + strlen(p));
3295     rb_str_set_len(result, p - buf);
4220  *               | with other lock options using logical or.
5183 	char *buf = my_getcwd();
5186 	newpath = rb_str_new2(buf);
5187 	xfree(buf);
5472  *  other. Higher-order bits may also be used to indicate the type of
5473  *  file (plain, directory, pipe, socket, and so on) and various other