haiku-buildtools/jam/pathvms.c

54 	    f->f_grist.len = p - file;
63 	    f->f_dir.len = p + 1 - file;
74 	    f->f_member.len = end - p - 2;
90 	    f->f_suffix.len = end - p;
97 	f->f_base.len = end - file;
164 		int	len;
172 	int	len )
174 	while( len-- )
184 	int	len,
189 	if( !buf || !len )
194 	    i->dev.len =
195 	    i->dir.len = 0;
197 	else if( p = strnchr( (char *)buf, ':', len ) )
200 	    i->dev.len = p + 1 - buf;
201 	    i->dir.ptr = (char *)buf + i->dev.len;
202 	    i->dir.len = len - i->dev.len;
203 	    i->flags = i->dir.len && *i->dir.ptr == '[' ? DIR_DEVDIR : DIR_DEV;
208 	    i->dev.len = 0;
210 	    i->dir.len = len;
224 	if( i->dir.len == 8 && !strncmp( i->dir.ptr, "[000000]", 8 ) )
245 	if( f->f_grist.len )
248 	    memcpy( file, f->f_grist.ptr, f->f_grist.len );
249 	    file += f->f_grist.len;
255 	dir_flags( f->f_root.ptr, f->f_root.len, &root );
256 	dir_flags( f->f_dir.ptr, f->f_dir.len, &dir );
264 		memcpy( file, f->f_dir.ptr, f->f_dir.len );
265 		file += f->f_dir.len;
270 		memcpy( file, f->f_root.ptr, f->f_root.len );
271 		file += f->f_root.len;
276 		memcpy( file, root.dev.ptr, root.dev.len );
277 		file += root.dev.len;
278 		memcpy( file, dir.dir.ptr, dir.dir.len );
279 		file += dir.dir.len;
285 		memcpy( file, f->f_root.ptr, f->f_root.len );
286 		file += f->f_root.len;
299 		memcpy( file, dir.dir.ptr + 1, dir.dir.len - 1 );
300 		file += dir.dir.len - 1;
305 		memcpy( file, root.dev.ptr, root.dev.len );
306 		file += root.dev.len;
309 		memcpy( file, dir.dir.ptr + 2, dir.dir.len - 2 );
310 		file += dir.dir.len - 2;
367 	if( f->f_base.len )
369 	    memcpy( file, f->f_base.ptr, f->f_base.len );
370 	    file += f->f_base.len;
377 	if( f->f_suffix.len )
379 	    memcpy( file, f->f_suffix.ptr, f->f_suffix.len );
380 	    file += f->f_suffix.len;
382 	else if( binding && f->f_base.len )
387 	if( f->f_member.len )
390 	    memcpy( file, f->f_member.ptr, f->f_member.len );
391 	    file += f->f_member.len;
399 		    f->f_root.len, f->f_root.ptr,
400 		    f->f_dir.len, f->f_dir.ptr,
401 		    f->f_base.len, f->f_base.ptr,
402 		    f->f_suffix.len, f->f_suffix.ptr,
403 		    f->f_member.len, f->f_member.ptr,
415 	if( f->f_base.len )
421 	    f->f_base.len =
422 	    f->f_suffix.len =
423 	    f->f_member.len = 0;