mirror of
https://port.numenaute.org/aleajactaest/khanat-opennel-code.git
synced 2024-12-05 01:34:50 +00:00
855 lines
22 KiB
Text
855 lines
22 KiB
Text
|
global systempreferencefilename = "\\\Amiga\\3D\\Database\\system\\zs_sys_prefs.ini",
|
|||
|
--global systempreferencefilename = "c:\\zs_sys_prefs.ini",
|
|||
|
ProjectPath = (getINISetting systempreferencefilename "Filepath" "ProjectPath")
|
|||
|
error_list_file = "\\\Amiga\\3D\\Database\\system\\zonefiles_error_list.ini" -- pour faire fichier de report
|
|||
|
error_array ; if error_array == undefined do error_array = #()
|
|||
|
|
|||
|
rollout dbase_cleaner_rollout "Database Zone Project Cleaner"
|
|||
|
(
|
|||
|
|
|||
|
----------------------------------------------------------------
|
|||
|
-- ui elements def
|
|||
|
----------------------------------------------------------------
|
|||
|
group "The Checker "
|
|||
|
(
|
|||
|
Button CheckTheDatabase "Check the Database" width:110
|
|||
|
-- CheckBox CheckOnly "report only please" checked:true
|
|||
|
-- Label textcheck "(Don't modify Database)" enabled:true
|
|||
|
-- Label textclean "(Do Clean the Database)" enabled:false
|
|||
|
progressbar progress_bar color:blue width:588
|
|||
|
Label textcurrentproj "Current file : --" enabled:false align:#left
|
|||
|
)
|
|||
|
|
|||
|
group "The Files "
|
|||
|
(
|
|||
|
label Count_Files "--" align:#left across:2
|
|||
|
button reset_lists "Reset" width:50
|
|||
|
listbox Files_listbox "Files with possible errors :" height:10 items:error_array
|
|||
|
)
|
|||
|
group "Manual "
|
|||
|
(
|
|||
|
button load_proj "Load" width:50 across:2 enabled:false
|
|||
|
button save_proj "Save" width:50 enabled:false
|
|||
|
button basic_clean "Clean Loaded" width:100 enabled:false
|
|||
|
)
|
|||
|
group "Auto "
|
|||
|
(
|
|||
|
button basic_clean_all "Basic Clean Listed Files " -- enabled:false
|
|||
|
button test_only_basic_clean_all "Tst Bazc Clean Listd Filz" -- enabled:false
|
|||
|
button collapse_nel_patch_all "Collapse all listed"
|
|||
|
progressbar progress_bar2 color:green height:8 width:588
|
|||
|
)
|
|||
|
group "The objects "
|
|||
|
(
|
|||
|
listbox Objects_listbox "Objects in current File :" height:18
|
|||
|
)
|
|||
|
|
|||
|
----------------------------------------------------------------
|
|||
|
-- Fonctions def
|
|||
|
----------------------------------------------------------------
|
|||
|
Fn backupfilezone nomdufichierzone = -- backup a file named day and time and oldfilename in a subdir named (the number of the week 0-51)
|
|||
|
(
|
|||
|
local s=localtime , s1 , tabjourdesmois , nb_jours , i , semaineencours , file2backup , nouveaunomdefichier , sfinale="__" , directory4backup , s1= filterstring s "/ :" , tabjourdesmois=#("31","28","31","30","31","30","31","31","30","31","30","31")
|
|||
|
if s1[3]=="00" or s1[3]=="04" or s1[3]=="08" then tabjourdesmois[2]=((tabjourdesmois[2] as integer) +1) as string -- ann<6E>es bisextiles
|
|||
|
nb_jours=0 --determiner le numero de la semaine
|
|||
|
for i=1 to ((s1[2] as integer)-1) do -- ajouter les jours de chaque mois <20>coul<75>
|
|||
|
(
|
|||
|
nb_jours=nb_jours + (tabjourdesmois[i] as integer)
|
|||
|
)
|
|||
|
nb_jours=nb_jours + (s1[1] as integer) -- ajouter les jours <20>coul<75>s du mois courant
|
|||
|
semaineencours = nb_jours/7
|
|||
|
if (getfiles (projectpath + (semaineencours as string) + "\\\\" + nomdufichierzone + ".max")).count == 0 -- creation du repertoire de backup
|
|||
|
then (makedir (projectpath + (semaineencours as string) + "\\" )) else (print "le repertoire existe d<>j<EFBFBD>, pas besoin de le cr<63>er")
|
|||
|
for i=1 to S1.count do ( sfinale=sfinale + "_" + s1[i]) --determiner le nouveau nom de fichier : date + heure
|
|||
|
copyfile (projectpath + nomdufichierzone + ".max") (projectpath + (semaineencours as string) + "\\\\" + nomdufichierzone + sfinale + ".max") -- bouger le fichier dans le repertoire de backup
|
|||
|
print ("fin du backup")
|
|||
|
|
|||
|
)
|
|||
|
|
|||
|
Fn delete_unwanted_entitys = -- materials / camera / shapes....
|
|||
|
(
|
|||
|
-- undefined LM_DATA persistent array
|
|||
|
LM_DATA = undefined
|
|||
|
print "LM_Data array undefined"
|
|||
|
|
|||
|
-- clean the material editor
|
|||
|
for i = 1 to meditMaterials.count do (meditMaterials[i]=standard()) -- reset material editor
|
|||
|
|
|||
|
-- delete cameras
|
|||
|
delete cameras
|
|||
|
|
|||
|
-- delete unwanted names
|
|||
|
obj_to_delete = #()
|
|||
|
for i in objects do
|
|||
|
(
|
|||
|
if ((matchpattern (i.name) pattern:"* name")==true) AND ( matchpattern (i.name) pattern:((getfilenamefile maxfilename)+" name"))==false -- l'objet est un nom *ET* n'est pas celui du projet.
|
|||
|
then
|
|||
|
(
|
|||
|
append obj_to_delete i
|
|||
|
)
|
|||
|
)
|
|||
|
print "deleting objects : "
|
|||
|
print obj_to_delete
|
|||
|
delete obj_to_delete
|
|||
|
)
|
|||
|
|
|||
|
----------------------------------------------------------------
|
|||
|
-- ui process def
|
|||
|
----------------------------------------------------------------
|
|||
|
on CheckOnly changed arg do
|
|||
|
(
|
|||
|
textcheck.enabled = arg
|
|||
|
textclean.enabled = NOT arg
|
|||
|
)
|
|||
|
|
|||
|
fn lowercase instring = -- beginning of function definition
|
|||
|
(
|
|||
|
local upper, lower, outstring -- declare variables as local
|
|||
|
upper="ABCDEFGHIJKLMNOPQRSTUVWXYZ" -- set variables to literals
|
|||
|
lower="abcdefghijklmnopqrstuvwxyz"
|
|||
|
outstring=instring
|
|||
|
for i=1 to outstring.count do
|
|||
|
(
|
|||
|
j=findString upper outstring[i]
|
|||
|
if (j != undefined) do outstring[i]=lower[j]
|
|||
|
)
|
|||
|
return outstring -- value of outstring will be returned as function result
|
|||
|
)
|
|||
|
|
|||
|
fn findID node =
|
|||
|
(
|
|||
|
local
|
|||
|
|
|||
|
-- Const
|
|||
|
alphabet="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
|||
|
NameTab = filterString node.name "_"
|
|||
|
if (NameTab != undefined) and (NameTab.count == 2) then
|
|||
|
(
|
|||
|
Z_ID = -1
|
|||
|
alpha_letter1 = NameTab[2][1]
|
|||
|
alpha_letter2 = NameTab[2][2]
|
|||
|
alpha_letter1_value = findstring alphabet alpha_letter1
|
|||
|
alpha_letter2_value = findstring alphabet alpha_letter2
|
|||
|
|
|||
|
-- Decompose theh name in an array array[1]=numeric string value array[2]=alpha string value
|
|||
|
-- The index of the engine start at 0 but the script one at 1 so we sub 1 each time
|
|||
|
alpha_sub_id = (((alpha_letter1_value as integer - 1) * 26 + (alpha_letter2_value as integer)))-1
|
|||
|
num_sub_id = (NameTab[1] as integer)-1
|
|||
|
|
|||
|
-- Array of 256 per 256
|
|||
|
---------------------------
|
|||
|
-- 0 1 2 3 ... 255
|
|||
|
-- 256 257 258 259 ... 511
|
|||
|
-- 512 513 514 515 ... 767
|
|||
|
-- ...
|
|||
|
|
|||
|
Z_ID = num_sub_id*256 + alpha_sub_id
|
|||
|
|
|||
|
return Z_ID
|
|||
|
)
|
|||
|
else
|
|||
|
return 0
|
|||
|
)
|
|||
|
|
|||
|
fn idToCoord coord =
|
|||
|
(
|
|||
|
zoneX = floor (coord.x/160)
|
|||
|
zoneY = floor (-coord.y/160)
|
|||
|
|
|||
|
return zoneY*256 + zoneX;
|
|||
|
)
|
|||
|
|
|||
|
fn atTheGoodPosition node =
|
|||
|
(
|
|||
|
-- Get the center
|
|||
|
center = node.center
|
|||
|
|
|||
|
-- Check position
|
|||
|
if (findID node) == (idToCoord center) then
|
|||
|
return true
|
|||
|
else
|
|||
|
return false
|
|||
|
)
|
|||
|
|
|||
|
--------------------
|
|||
|
on CheckTheDatabase pressed do
|
|||
|
(
|
|||
|
--remettre <20> zero
|
|||
|
error_array = #()
|
|||
|
Files_listbox.items = error_array
|
|||
|
deletefile error_list_file
|
|||
|
progress_bar.value = 0
|
|||
|
|
|||
|
--
|
|||
|
textcurrentproj.enabled = true
|
|||
|
project_files = getFiles ( projectpath + "*.max" )
|
|||
|
counter = 0
|
|||
|
|
|||
|
Files_listbox.items = error_array
|
|||
|
|
|||
|
for f in project_files do
|
|||
|
(
|
|||
|
-- Error ?
|
|||
|
bFound = false
|
|||
|
bMultiZone = false
|
|||
|
bWrongName = false
|
|||
|
bWrongMaterial = false
|
|||
|
bLoaded = false
|
|||
|
bWrongPosition = false
|
|||
|
|
|||
|
-- Name of the file
|
|||
|
fileName = getFilenameFile f
|
|||
|
|
|||
|
-- Load the project
|
|||
|
try
|
|||
|
(
|
|||
|
if (loadMaxFile f) == true then
|
|||
|
(
|
|||
|
-- Zone loaded
|
|||
|
bLoaded = true
|
|||
|
|
|||
|
-- Check there is only one zone with the name of the file
|
|||
|
for node in geometry do
|
|||
|
(
|
|||
|
-- It is a NeL zone ?
|
|||
|
if (classof node) == RklPatch then
|
|||
|
(
|
|||
|
-- Already a zone ?
|
|||
|
if bFound == true then
|
|||
|
bMultiZone = true
|
|||
|
|
|||
|
-- A zone has been found
|
|||
|
bFound = true
|
|||
|
|
|||
|
-- The same name ?
|
|||
|
if (lowercase fileName) != (lowercase node.name) then
|
|||
|
(
|
|||
|
bWrongName = true
|
|||
|
)
|
|||
|
|
|||
|
-- The position
|
|||
|
if (atTheGoodPosition node) == false then
|
|||
|
bWrongPosition = true
|
|||
|
)
|
|||
|
|
|||
|
-- The material..
|
|||
|
if (classof node.material) == MultiMaterial then
|
|||
|
(
|
|||
|
-- Big material ?
|
|||
|
if (node.material.numsubs > 20) then
|
|||
|
(
|
|||
|
bWrongMaterial = true
|
|||
|
)
|
|||
|
)
|
|||
|
)
|
|||
|
)
|
|||
|
)
|
|||
|
catch
|
|||
|
(
|
|||
|
)
|
|||
|
|
|||
|
-- Set error
|
|||
|
bError = (bWrongPosition == true) or (bWrongMaterial == true) or (bWrongName == true) or (bMultiZone == true) or (bFound == false) or (bLoaded == false)
|
|||
|
|
|||
|
-- Set error message
|
|||
|
errorMessage = fileName
|
|||
|
if bLoaded == false then
|
|||
|
(
|
|||
|
errorMessage += ", can't load it"
|
|||
|
)
|
|||
|
if bFound == false then
|
|||
|
(
|
|||
|
errorMessage += ", can't found a NeL patch object"
|
|||
|
)
|
|||
|
if bMultiZone == true then
|
|||
|
(
|
|||
|
errorMessage += ", multiple NeL zone"
|
|||
|
)
|
|||
|
if bWrongName == true then
|
|||
|
(
|
|||
|
errorMessage += ", NeL zone has a wrong name"
|
|||
|
)
|
|||
|
if bWrongMaterial == true then
|
|||
|
(
|
|||
|
errorMessage += ", NeL zone has a big material"
|
|||
|
)
|
|||
|
if bWrongPosition == true then
|
|||
|
(
|
|||
|
errorMessage += ", NeL zone position is wrong"
|
|||
|
)
|
|||
|
|
|||
|
-- Append error ?
|
|||
|
if bError == true then
|
|||
|
(
|
|||
|
setinisetting error_list_file "Zone error" fileName errorMessage
|
|||
|
|
|||
|
append error_array errorMessage
|
|||
|
|
|||
|
Count_Files.text = error_array.count as string
|
|||
|
Files_listbox.items = error_array
|
|||
|
Files_listbox.selection += 1
|
|||
|
print (" ---> project : " + filenamefrompath f)
|
|||
|
)
|
|||
|
|
|||
|
progress_bar.value = 100.*counter/project_files.count
|
|||
|
counter += 1
|
|||
|
)
|
|||
|
if counter >0
|
|||
|
then
|
|||
|
(
|
|||
|
Files_listbox.selection = 1
|
|||
|
basic_clean_all.enabled = true
|
|||
|
test_only_basic_clean_all.enabled = true
|
|||
|
)
|
|||
|
)
|
|||
|
|
|||
|
on Files_listbox doubleClicked error_list_index do
|
|||
|
(
|
|||
|
-- Load the project
|
|||
|
fileName = filterString Files_listbox.items[error_list_index] ","
|
|||
|
if (fileName != undefined) and (fileName.count != 0) then
|
|||
|
(
|
|||
|
-- Make a file name
|
|||
|
fileName = ProjectPath+"\\"+fileName[1]+".max"
|
|||
|
loadMaxFile fileName
|
|||
|
)
|
|||
|
)
|
|||
|
|
|||
|
on Files_listbox selected error_list_index do
|
|||
|
(
|
|||
|
--load_proj.enabled = true
|
|||
|
--Objects_listbox.enabled = false -- juste pour montrer que <20>a bosse
|
|||
|
--Files_listbox.enabled = false -- juste pour montrer que <20>a bosse
|
|||
|
--Count_Files.enabled = false -- juste pour montrer que <20>a bosse
|
|||
|
|
|||
|
--Current_proj = (ProjectPath + Files_listbox.selected )
|
|||
|
--Objects_listbox.items = (getMAXFileObjectNames current_proj)
|
|||
|
|
|||
|
--Count_Files.enabled = true -- juste pour montrer que <20>a bosse
|
|||
|
--Files_listbox.enabled = true -- juste pour montrer que <20>a bosse
|
|||
|
--Objects_listbox.enabled = true -- juste pour montrer que <20>a bosse
|
|||
|
)
|
|||
|
|
|||
|
|
|||
|
|
|||
|
on reset_lists pressed do
|
|||
|
(
|
|||
|
error_array = #()
|
|||
|
Files_listbox.items = error_array
|
|||
|
)
|
|||
|
|
|||
|
|
|||
|
on load_proj pressed do
|
|||
|
(
|
|||
|
loadMaxFile (ProjectPath + Files_listbox.selected )
|
|||
|
messagebox ("Loaded project for zone : " + Files_listbox.selected + "\n \n Please Clean the project and save")
|
|||
|
max unhide all
|
|||
|
save_proj.enabled = true
|
|||
|
basic_clean.enabled = true
|
|||
|
)
|
|||
|
|
|||
|
on save_proj pressed do
|
|||
|
(
|
|||
|
if (querybox ("Do You Really want to overwrite this ZONE ?\n" + MaxFileName )) == true and querybox "Really sure ?" == true
|
|||
|
then
|
|||
|
(
|
|||
|
print ("saving zone : " + MaxFileName)
|
|||
|
save_proj.enabled = false
|
|||
|
backupfilezone (getfilenameFile MaxFileName)
|
|||
|
print (" zone backuped : " + MaxFileName)
|
|||
|
max file save
|
|||
|
print (" zone saved : " + MaxFileName)
|
|||
|
)
|
|||
|
else
|
|||
|
(
|
|||
|
print ("no save for : " + MaxFileName)
|
|||
|
)
|
|||
|
)
|
|||
|
|
|||
|
on basic_clean pressed do
|
|||
|
(
|
|||
|
delete_unwanted_entitys()
|
|||
|
-- basic_clean.enabled = false
|
|||
|
)
|
|||
|
|
|||
|
on basic_clean_all pressed do
|
|||
|
(
|
|||
|
compteurdeligne = 0
|
|||
|
for proj_file in Files_listbox.items do
|
|||
|
(
|
|||
|
compteurdeligne += 1
|
|||
|
progress_bar2.value = 100.*compteurdeligne/Files_listbox.items.count
|
|||
|
Files_listbox.selection = compteurdeligne
|
|||
|
print ("processing file : " + proj_file)
|
|||
|
|
|||
|
loadMaxFile (ProjectPath + Files_listbox.selected )
|
|||
|
delete_unwanted_entitys()
|
|||
|
|
|||
|
backupfilezone (getfilenameFile MaxFileName)
|
|||
|
print (" zone backuped : " + MaxFileName)
|
|||
|
max file save
|
|||
|
print (" zone saved : " + MaxFileName)
|
|||
|
|
|||
|
)
|
|||
|
|
|||
|
print ("nombre de projets trait<69>s : " + Files_listbox.items.count as string)
|
|||
|
|
|||
|
if (querybox "Do you want to Build an updated list of possible errors ?" ) == true
|
|||
|
then
|
|||
|
(
|
|||
|
print "faire mise <20> jour "
|
|||
|
)
|
|||
|
)
|
|||
|
|
|||
|
----------------------------------------
|
|||
|
on collapse_nel_patch_all pressed do
|
|||
|
(
|
|||
|
compteurdeligne = 0
|
|||
|
for proj_file in Files_listbox.items do
|
|||
|
(
|
|||
|
compteurdeligne += 1
|
|||
|
progress_bar2.value = 100.*compteurdeligne/Files_listbox.items.count
|
|||
|
Files_listbox.selection = compteurdeligne
|
|||
|
print ("processing file : " + proj_file)
|
|||
|
|
|||
|
loadMaxFile (ProjectPath + Files_listbox.selected )
|
|||
|
|
|||
|
patch_name="$'"+(substring maxfilename 1 (maxfilename.count-4))+"'"
|
|||
|
execute (" obj_to_check = " + patch_name)
|
|||
|
if obj_to_check.modifiers.count != 0
|
|||
|
then
|
|||
|
(
|
|||
|
collapsestack obj_to_check
|
|||
|
backupfilezone (getfilenameFile MaxFileName)
|
|||
|
print (" zone backuped : " + MaxFileName)
|
|||
|
max file save
|
|||
|
print (" zone saved : " + MaxFileName)
|
|||
|
)
|
|||
|
else print ("nothing to do with " + proj_file)
|
|||
|
)
|
|||
|
|
|||
|
print ("nombre de projets trait<69>s : " + Files_listbox.items.count as string)
|
|||
|
|
|||
|
if (querybox "Do you want to Build an updated list of possible errors ?" ) == true
|
|||
|
then
|
|||
|
(
|
|||
|
print "faire mise <20> jour "
|
|||
|
)
|
|||
|
)
|
|||
|
|
|||
|
|
|||
|
----------------------------------------
|
|||
|
|
|||
|
on test_only_basic_clean_all pressed do
|
|||
|
(
|
|||
|
compteurdeligne = 0
|
|||
|
for proj_file in Files_listbox.items do
|
|||
|
(
|
|||
|
compteurdeligne += 1
|
|||
|
progress_bar2.value = 100.*compteurdeligne/Files_listbox.items.count
|
|||
|
Files_listbox.selection = compteurdeligne
|
|||
|
print ("processing file : " + proj_file)
|
|||
|
loadMaxFile (ProjectPath + Files_listbox.selected )
|
|||
|
delete_unwanted_entitys()
|
|||
|
|
|||
|
print (" zone tested : " + MaxFileName)
|
|||
|
)
|
|||
|
print ("nombre de projets trait<69>s : " + Files_listbox.items.count as string)
|
|||
|
)
|
|||
|
|
|||
|
|
|||
|
|
|||
|
on dbase_cleaner_rollout open do
|
|||
|
(
|
|||
|
Count_Files.text = error_array.count as string
|
|||
|
clearlistener()
|
|||
|
)
|
|||
|
|
|||
|
|
|||
|
|
|||
|
)
|
|||
|
|
|||
|
---------------------------------------------------
|
|||
|
|
|||
|
-- Find and log doubling names
|
|||
|
|
|||
|
|
|||
|
fileType = #( "Shape", "Animations", "Skeleton", "Swt" )
|
|||
|
keyWords = #( #("shape_source_directory"), #("anim_source_directory"), #("skel_source_directory"), #("swt_source_directory") )
|
|||
|
checkMeshName = #( true, false, false, false )
|
|||
|
checkProjectName = #( true, true, true, true )
|
|||
|
objectDouble = #()
|
|||
|
objectDoubleProject = #()
|
|||
|
objectArray = #()
|
|||
|
NEL3D_APPDATA_DONOTEXPORT = 1423062565 -- do not export me : "undefined" = export me
|
|||
|
-- "0" = export me
|
|||
|
-- "1" = DONT expo
|
|||
|
|
|||
|
rollout dbase_cleaner_double_rollout "Database Double Detector"
|
|||
|
(
|
|||
|
-- A button to select the config file
|
|||
|
label ConfigFileLabel "Config files path:" align:#left
|
|||
|
edittext ConfigFile "" width:588
|
|||
|
button SelectConfigFile "Browse for config path" width:588
|
|||
|
dropdownlist TypeCheck "Type of project to check:" items:fileType selection:0
|
|||
|
listbox DirectoryList "List of directory to check:" width:588
|
|||
|
label ExcludeLabel "Excluded names:" align:#left
|
|||
|
edittext Exclude "" width:588
|
|||
|
button Refresh "Refresh list" width:588
|
|||
|
button Check "Check for double" width:588
|
|||
|
listbox DoubleObject "List of project with same object name:" width:588
|
|||
|
listbox DoubleProject "List of project with the same name:" width:588
|
|||
|
|
|||
|
-- On select the config file
|
|||
|
on SelectConfigFile pressed do
|
|||
|
(
|
|||
|
-- Open a file browser
|
|||
|
result = getOpenFileName caption:"Select the build process config file" filename:"config.cfg" types:"Config Files (*.cfg)|*.cfg|All Files (*.*)|*.*||"
|
|||
|
|
|||
|
-- Ok ?
|
|||
|
if (result != undefined) then
|
|||
|
(
|
|||
|
ConfigFile.text = getFilenamePath result
|
|||
|
)
|
|||
|
)
|
|||
|
|
|||
|
-- Get a list of options
|
|||
|
fn getOptions filename keyword array =
|
|||
|
(
|
|||
|
-- Open a file stream
|
|||
|
stream = openFile filename
|
|||
|
|
|||
|
-- Success ?
|
|||
|
if (stream != undefined) then
|
|||
|
(
|
|||
|
-- Look for the keyword
|
|||
|
while (skipToString stream keyword) != undefined do
|
|||
|
(
|
|||
|
-- Remove the '=' caracter
|
|||
|
skipToString stream "="
|
|||
|
|
|||
|
-- Get the option
|
|||
|
line = readLine stream
|
|||
|
|
|||
|
-- Remove spaces
|
|||
|
while (line.count != 0) and (line[1] == " ") do
|
|||
|
(
|
|||
|
line = substring line 2 (line.count-1)
|
|||
|
)
|
|||
|
|
|||
|
-- Remove spaces
|
|||
|
while (line.count != 0) and (line[line.count] == " ") do
|
|||
|
(
|
|||
|
line = substring line 1 (line.count-1)
|
|||
|
)
|
|||
|
|
|||
|
-- Add the options
|
|||
|
append array line
|
|||
|
)
|
|||
|
|
|||
|
-- Close the file
|
|||
|
close stream
|
|||
|
|
|||
|
-- Ok
|
|||
|
return true
|
|||
|
)
|
|||
|
else
|
|||
|
(
|
|||
|
return false
|
|||
|
)
|
|||
|
)
|
|||
|
|
|||
|
fn convertString instring =
|
|||
|
(
|
|||
|
index = findString instring "/"
|
|||
|
while index != undefined do
|
|||
|
(
|
|||
|
instring[index] = "\\"
|
|||
|
index = findString instring "/"
|
|||
|
)
|
|||
|
return instring
|
|||
|
)
|
|||
|
|
|||
|
-- Add the object
|
|||
|
fn addObjectToList name path =
|
|||
|
(
|
|||
|
append objectDouble (name + " - " + (filenameFromPath (convertString path)) + " - " + (getFilenamePath (convertString path)) )
|
|||
|
append objectDoubleProject path
|
|||
|
)
|
|||
|
|
|||
|
-- File type selected
|
|||
|
on TypeCheck selected selection do
|
|||
|
(
|
|||
|
-- Config file path
|
|||
|
siteF = ConfigFile.text + "site.cfg"
|
|||
|
|
|||
|
-- Get the database directory
|
|||
|
databaseDirectory = #()
|
|||
|
if (getOptions siteF "database_directory" databaseDirectory) == true then
|
|||
|
(
|
|||
|
-- Ok ?
|
|||
|
if (databaseDirectory.count == 1) then
|
|||
|
(
|
|||
|
-- Clean the directory list
|
|||
|
copyArray = #()
|
|||
|
DirectoryList.items = copyArray
|
|||
|
|
|||
|
-- Look for the directories
|
|||
|
if selection != 0 then
|
|||
|
(
|
|||
|
-- Directory file path
|
|||
|
directoryFile = ConfigFile.text + "directories.cfg"
|
|||
|
|
|||
|
-- Array of keyword
|
|||
|
directoriesArray = #()
|
|||
|
for keyword in keyWords[selection] do
|
|||
|
(
|
|||
|
if (getOptions directoryFile keyword directoriesArray) == false then
|
|||
|
(
|
|||
|
-- Error message
|
|||
|
Messagebox ("Can't read directory file " + directoryFile)
|
|||
|
return undefined
|
|||
|
)
|
|||
|
)
|
|||
|
|
|||
|
-- Add the directory
|
|||
|
for directory in directoriesArray do
|
|||
|
append copyArray (databaseDirectory[1] + "/" + directory)
|
|||
|
|
|||
|
-- Set the array
|
|||
|
DirectoryList.items = copyArray
|
|||
|
)
|
|||
|
)
|
|||
|
else
|
|||
|
(
|
|||
|
-- Error message
|
|||
|
Messagebox ("Syntax error in config file " + configF)
|
|||
|
)
|
|||
|
)
|
|||
|
else
|
|||
|
(
|
|||
|
-- Error message
|
|||
|
Messagebox ("Can't read config file " + configF)
|
|||
|
)
|
|||
|
)
|
|||
|
|
|||
|
fn lowercase instring = -- beginning of function definition
|
|||
|
(
|
|||
|
local upper, lower, outstring -- declare variables as local
|
|||
|
upper="ABCDEFGHIJKLMNOPQRSTUVWXYZ" -- set variables to literals
|
|||
|
lower="abcdefghijklmnopqrstuvwxyz"
|
|||
|
outstring=instring
|
|||
|
for i=1 to outstring.count do
|
|||
|
(
|
|||
|
j=findString upper outstring[i]
|
|||
|
if (j != undefined) do outstring[i]=lower[j]
|
|||
|
)
|
|||
|
return outstring -- value of outstring will be returned as function result
|
|||
|
)
|
|||
|
|
|||
|
-- Refresh list
|
|||
|
fn refreshList =
|
|||
|
(
|
|||
|
objectDouble = #()
|
|||
|
objectDoubleProject = #()
|
|||
|
|
|||
|
-- Get the keyword list
|
|||
|
keywords = filterString Exclude.text " "
|
|||
|
|
|||
|
-- Search for double
|
|||
|
object = 1
|
|||
|
while object <= objectArray.count-1 do
|
|||
|
(
|
|||
|
-- First names
|
|||
|
firstNames = filterString objectArray[object] ";"
|
|||
|
|
|||
|
-- Filter first name
|
|||
|
same = false
|
|||
|
for keys in keywords do
|
|||
|
(
|
|||
|
if (findString firstNames[1] keys) != undefined then
|
|||
|
(
|
|||
|
same = true
|
|||
|
exit
|
|||
|
)
|
|||
|
)
|
|||
|
|
|||
|
-- Not keyword
|
|||
|
if same == false then
|
|||
|
(
|
|||
|
-- Second names
|
|||
|
secondNames = filterString objectArray[object+1] ";"
|
|||
|
|
|||
|
-- Same name ?
|
|||
|
if firstNames[1] == secondNames[1] then
|
|||
|
(
|
|||
|
-- Add the first
|
|||
|
addObjectToList firstNames[1] firstNames[2]
|
|||
|
|
|||
|
-- Add the other
|
|||
|
while (firstNames[1] == secondNames[1]) do
|
|||
|
(
|
|||
|
-- Add the second
|
|||
|
addObjectToList secondNames[1] secondNames[2]
|
|||
|
|
|||
|
-- Next
|
|||
|
object = object + 1
|
|||
|
|
|||
|
-- Last one ?
|
|||
|
if (object == objectArray.count) then
|
|||
|
exit
|
|||
|
|
|||
|
-- Get the new second
|
|||
|
secondNames = filterString objectArray[object+1] ";"
|
|||
|
)
|
|||
|
)
|
|||
|
)
|
|||
|
|
|||
|
object = object + 1
|
|||
|
)
|
|||
|
|
|||
|
-- Copy the array
|
|||
|
DoubleObject.items = objectDouble
|
|||
|
)
|
|||
|
|
|||
|
-- Refresh
|
|||
|
on Refresh pressed do
|
|||
|
(
|
|||
|
refreshList ()
|
|||
|
)
|
|||
|
|
|||
|
-- Check
|
|||
|
on Check pressed do
|
|||
|
(
|
|||
|
-- Check double name in objects
|
|||
|
if checkMeshName[TypeCheck.selection] == true then
|
|||
|
(
|
|||
|
-- Object array
|
|||
|
objectArray = #()
|
|||
|
|
|||
|
-- For each directory
|
|||
|
for folder in DirectoryList.items do
|
|||
|
(
|
|||
|
-- Get the max files
|
|||
|
files = getFiles (folder+"/*.max")
|
|||
|
for file in files do
|
|||
|
(
|
|||
|
-- Get the object in the max file
|
|||
|
objectsMax = getMAXFileObjectNames file
|
|||
|
|
|||
|
-- For each object
|
|||
|
for object in objectsMax do
|
|||
|
(
|
|||
|
-- Insert a reference
|
|||
|
append objectArray ( (lowercase (object as string) ) + ";" + file)
|
|||
|
)
|
|||
|
)
|
|||
|
)
|
|||
|
|
|||
|
-- Sort the array
|
|||
|
sort objectArray
|
|||
|
|
|||
|
-- Refresh list
|
|||
|
refreshList ()
|
|||
|
)
|
|||
|
else
|
|||
|
DoubleObject.items = #()
|
|||
|
|
|||
|
-- Check double name in prject name
|
|||
|
if checkProjectName[TypeCheck.selection] == true then
|
|||
|
(
|
|||
|
-- Object array
|
|||
|
objectArrayProject = #()
|
|||
|
projectDouble = #()
|
|||
|
|
|||
|
-- For each directory
|
|||
|
for folder in DirectoryList.items do
|
|||
|
(
|
|||
|
-- Get the max files
|
|||
|
files = getFiles (folder+"/*.max")
|
|||
|
for file in files do
|
|||
|
(
|
|||
|
append objectArrayProject ( (filenameFromPath (convertString (lowercase file))) + ";" + (lowercase file) )
|
|||
|
)
|
|||
|
)
|
|||
|
|
|||
|
-- Sort the array
|
|||
|
sort objectArrayProject
|
|||
|
|
|||
|
-- Search for double
|
|||
|
object = 1
|
|||
|
while object <= objectArrayProject.count-1 do
|
|||
|
(
|
|||
|
-- First names
|
|||
|
firstNames = filterString objectArrayProject[object] ";"
|
|||
|
|
|||
|
-- Second names
|
|||
|
secondNames = filterString objectArrayProject[object+1] ";"
|
|||
|
|
|||
|
-- Same name ?
|
|||
|
if firstNames[1] == secondNames[1] then
|
|||
|
(
|
|||
|
-- Add the first
|
|||
|
append projectDouble firstNames[2]
|
|||
|
|
|||
|
-- Add the other
|
|||
|
while (firstNames[1] == secondNames[1]) do
|
|||
|
(
|
|||
|
-- Add the second
|
|||
|
append projectDouble secondNames[2]
|
|||
|
|
|||
|
-- Next
|
|||
|
object = object + 1
|
|||
|
|
|||
|
-- Last one ?
|
|||
|
if (object == objectArrayProject.count) then
|
|||
|
exit
|
|||
|
|
|||
|
-- Get the new second
|
|||
|
secondNames = filterString objectArrayProject[object+1] ";"
|
|||
|
)
|
|||
|
)
|
|||
|
|
|||
|
object = object + 1
|
|||
|
)
|
|||
|
|
|||
|
-- Copy the array
|
|||
|
DoubleProject.items = projectDouble
|
|||
|
)
|
|||
|
else
|
|||
|
DoubleProject.items = #()
|
|||
|
)
|
|||
|
|
|||
|
-- double click in the window
|
|||
|
on DoubleObject doubleClicked index do
|
|||
|
(
|
|||
|
-- Check
|
|||
|
if (index>0) and (index<=objectDoubleProject.count) then
|
|||
|
loadMaxFile objectDoubleProject[index]
|
|||
|
)
|
|||
|
|
|||
|
-- double click in the window
|
|||
|
on DoubleProject doubleClicked index do
|
|||
|
(
|
|||
|
-- Check
|
|||
|
if (index>0) and (index<=DoubleProject.items.count) then
|
|||
|
loadMaxFile DoubleProject.items[index]
|
|||
|
)
|
|||
|
)
|
|||
|
|
|||
|
|
|||
|
----------------------------------------------------------------
|
|||
|
-- macroscript begins
|
|||
|
----------------------------------------------------------------
|
|||
|
|
|||
|
|
|||
|
|
|||
|
if dbase_cleaner_floater != undefined do
|
|||
|
(
|
|||
|
closerolloutfloater dbase_cleaner_floater
|
|||
|
)
|
|||
|
dbase_cleaner_Floater = newRolloutFloater "Database Cleaner" 640 815 800 200
|
|||
|
addrollout dbase_cleaner_rollout dbase_cleaner_Floater rolledUp:true
|
|||
|
addrollout dbase_cleaner_double_rollout dbase_cleaner_Floater rolledUp:true
|
|||
|
|