//	M064 : t@CpX̕Cgݗ
option double;

//------------------------------------------------------------------------------//
//	t@CpX̕Cgݗ												//
//																				//
//	߂l	F	Ȃ															//
//------------------------------------------------------------------------------//
function main()
{
	define	$org, $parts[4], $out;

	_Cls();

	_Print("\nIWĩpX\\n");
	$org = $_GetMacFilePath();
	_Print("original = ", $org, "\n");

	_Print("\npX𕪉Ċep[c\\n");
	$parts[] = $_SplitPath($org);
	_Print("Parts = <", $parts[0], ">, <", $parts[1], ">, <", $parts[2], ">, <", $parts[3], ">\n");

	_Print("\npXgݗĂĕ\\n");
	$out = $_MakePath($parts[]);
	_Print("Makepath = ", $out, "\n");
}
