(*
  This file is part of Hercules.
  http://herc.ws - http://github.com/HerculesWS/Hercules

  Copyright (C) 2014-2020 Hercules Dev Team

  Hercules is free software: you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  (at your option) any later version.

  This program 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 General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program.  If not, see <http://www.gnu.org/licenses/>.
*)

-- Base Author: Haru @ http://herc.ws

(*
	*************************************************************
	*************************************************************
	********                                                                       **************
	********    NOTE:  This script must be saved as app!!!     **************
	********                                                                       **************
	*************************************************************
	*************************************************************
*)

property allowed_extensions : {"txt", "c", "ath", "herc"}
property allowed_types : {"TEXT"}

on run
	try
		set the resource_path to path to resource "Scripts"
		tell application "Finder" to set the resource_path to the container of the resource_path
	on error
		display alert "Error" message "You need to save this script as an app bundle." buttons {"Cancel"} cancel button 1 as warning
	end try
	set the dialog_result to display dialog "You can drag files to this app to have them checked." with title "Hercules Script Checker" buttons {"Cancel", "(Re)build Hercules", "Check Script"} default button 3 cancel button 1
	if the button returned of the dialog_result is "(Re)build Hercules" then
		rebuild()
	else
		set these_items to choose file of type allowed_extensions with prompt "Choose the script(s) you want to check:" with multiple selections allowed
		process_items(these_items)
	end if
end run

on open these_items
	process_items(these_items)
end open

on build_hercules(hercules_repo)
	try
		set the resource_path to path to resource "Scripts"
		tell application "Finder" to set the resource_path to the container of the resource_path
	on error
		display alert "Error" message "You need to save this script as an app bundle." buttons {"Cancel"} cancel button 1 as warning
	end try
	set the configuration_flags to display dialog "Do you want to use any configuration flags? (i.e. --disable-renewal)" with title "Configuration" default answer "" buttons {"Cancel", "Ok"} default button 2 cancel button 1
	try
		set the command_output to do shell script "cd " & (the quoted form of the POSIX path of the hercules_repo) & " && echo './configure " & the text returned of the configuration_flags & " 2>&1' | bash -i"
	on error
		display dialog "Configuration failed" with title "Configuration result" buttons {"Abort"} cancel button 1
	end try
	tell application "TextEdit"
		activate
		set the new_document to make new document
		set the text of new_document to the command_output
	end tell
	display dialog "Configuration successfully completed. Please check the log file for details." with title "Configuration result" buttons {"Abort", "Continue"} default button 2 cancel button 1
	try
		set the command_output to do shell script "cd " & (the quoted form of the POSIX path of the hercules_repo) & " && echo 'make clean 2>&1 && make sql -j8 2>&1' | bash -i"
	on error
		display dialog "Build failed." with title "Build result" buttons {"Abort"} cancel button 1
	end try
	tell application "TextEdit"
		activate
		set the new_document to make new document
		set the text of new_document to the command_output
	end tell
	display dialog "Build successfully completed. Please check the log file for details." with title "Build result" buttons {"Abort", "Continue"} default button 2 cancel button 1
	set the files_to_copy to {"map-server", "script-checker"}
	set the conf_files_to_copy to {"inter-server.conf", "import", "packet.conf", "script.conf"}
	set the db_files_to_copy to {"map_index.txt", "item_db2.txt", "constants.conf", "mob_db2.txt"}
	set the db2_files_to_copy to {"map_cache.dat", "item_db.txt", "skill_db.txt", "mob_db.txt"}
	try
		set the hercules_path to path to resource "Hercules"
		do shell script "rm -r " & the quoted form of ((the POSIX path of hercules_path) & "/")
	end try
	set the hercules_path to the resource_path
	tell application "Finder" to make new folder at hercules_path with properties {name:"Hercules"}
	delay 3
	set the hercules_path to path to resource "Hercules"
	repeat with each_file in files_to_copy
		copy_file(each_file, hercules_repo, hercules_path, ".")
	end repeat
	do shell script "mkdir " & the quoted form of ((POSIX path of the hercules_path) & "/conf")
	repeat with each_file in conf_files_to_copy
		copy_file(each_file, hercules_repo, hercules_path, "conf")
	end repeat
	do shell script "mkdir " & the quoted form of ((POSIX path of the hercules_path) & "/db")
	repeat with each_file in db_files_to_copy
		copy_file(each_file, hercules_repo, hercules_path, "db")
	end repeat
	do shell script "mkdir " & the quoted form of ((POSIX path of the hercules_path) & "/db/pre-re")
	repeat with each_file in db2_files_to_copy
		copy_file(each_file, hercules_repo, hercules_path, "db/pre-re")
	end repeat
	do shell script "mkdir " & the quoted form of ((POSIX path of the hercules_path) & "/db/re")
	repeat with each_file in db2_files_to_copy
		copy_file(each_file, hercules_repo, hercules_path, "db/re")
	end repeat
	display dialog "Build complete" with title "Done" buttons {"Ok"} default button "Ok"
end build_hercules

on rebuild()
	set the repo_path to choose folder with prompt "Choose the folder where your Hercules repository is located:"
	build_hercules(repo_path)
end rebuild

on copy_file(filename, source, destination, subpath)
	do shell script "cp -rp " & the quoted form of ((the POSIX path of source) & "/" & subpath & "/" & filename) & " " & the quoted form of ((the POSIX path of destination) & "/" & subpath & "/")
end copy_file

on process_items(these_items)
	repeat
		try
			set the scriptchecker to the path to resource "script-checker" in directory "Hercules"
			set the mapserver to the path to resource "map-server" in directory "Hercules"
		on error
			display alert "Missing Hercules binaries" message "You need to build Hercules and place it within this app bundle before running the script checker." & linefeed & linefeed & "I can try to build it for you, but only if you have the Xcode command line tools installed." & linefeed & "Do you want to continue?" buttons {"Cancel", "Build"} default button "Build" cancel button "Cancel" as warning
			rebuild()
			return false
		end try
		exit repeat
	end repeat
	repeat with i from 1 to the count of these_items
		set this_item to item i of these_items
		set the item_info to info for this_item
		set this_name to the name of the item_info
		try
			set this_extension to the name extension of item_info
		on error
			set this_extension to ""
		end try
		try
			set this_filetype to the file type of item_info
		on error
			set this_filetype to ""
		end try
		if (folder of the item_info is false) and (alias of the item_info is false) and ((this_filetype is in the allowed_types) or (this_extension is in the allowed_extensions)) then
			process_item(scriptchecker, this_item)
		end if
	end repeat
end process_items

on process_item(checkerpath, this_item)
	set the_result to do shell script (the quoted form of the POSIX path of checkerpath & " " & the quoted form of the POSIX path of this_item) & " 2>&1"
	if the_result is "" then
		set the_result to "Check passed."
	end if
	display dialog ("File: " & POSIX path of this_item) & linefeed & "Result: " & linefeed & the_result with title "Output" buttons {"Abort", "Next"} default button "Next" cancel button "Abort"
end process_item