FileType

NextFile

	Print "Starting Pack-Tool..."

Global P$=Input("source directory: ")
Global TargetName$ = Input("packname: ")
	TargetName$ = TargetName$ + ".rp"
Global TargetStream = WriteFile(TargetName$)
Global Time=MilliSecs()
	Pack(P$)
	Print (MilliSecs()-Time)+" ms needed"



Function Pack(DirPath$)
	Local RootDir   = ReadDir(DirPath$)
	
	If RootDir = 0
		Print "Verzeichnis existiert nicht!"
		Return
	EndIf
	CloseDir(RootDir)
	
	PackDir(DirPath$)
End Function



Function PackFile(Path$)
	Print
	Print "PACKFILE("+Path$+")"
	Print "packing: "+Path$
	Local File=ReadFile(Path$)
	Local Count=0
	Repeat
		If Not Eof(File)
			ReadByte(File)
			Count=Count+1
		Else
			Exit
		EndIf
	Forever
	Print "bytes counted: "+Count
	WriteByte(TargetStream,1)
	WriteInt(TargetStream,Count)
	CloseFile(File)
	File=ReadFile(Path$)
	Local Count2=0
	Repeat
		If Count2<=Count
			Count2=Count2+1
			Local byte=ReadByte(File)
			WriteByte(TargetStream,byte)
		Else
			Exit
		EndIf
	Forever
	Print "bytes written: "+Count2
	CloseFile(File)
End Function



Function PackDir(Path$)
	Print
	Print "PACKDIR("+Path$+")"
	Local Dir=ReadDir(Path$)
	NextFile(Dir):NextFile(Dir)
	WriteByte(TargetStream,2)
	WriteString(TargetStream,Path$)
	Repeat
		Print
		Local CurrentFile$ = NextFile(Dir)
		Local Typ = FileType(CurrentFile$)
		Print "found: "+CurrentFile$
		If CurrentFile = ""
			Print "EXIT"
			Print
			Exit
		EndIf
		
		If Typ = 1
			Print "file detected..."
			PackFile(CurrentFile$)
		ElseIf Typ = 2
			Print "directory detected..."
			PackDir(CurrentFile$)
		ElseIf Typ = 0
			Print "WTF, TYP 0?"
		Else
			Print "UNKNOWN ERROR!"
		EndIf
	Forever
	CloseDir(Dir)
End Function