summaryrefslogtreecommitdiff
path: root/tools/Script-Checker.applescript
blob: db1983f4bd5a2d4a94b707c506eddbd2f1cf48db (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
(*
  Copyright (c) Hercules Dev Team, licensed under GNU GPL.
  See the LICENSE file
  Base Author: Haru @ http://hercules.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", "const.txt", "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