aleajactaest/khanat-opennel-code
1
0
Fork 0
mirror of https://port.numenaute.org/aleajactaest/khanat-opennel-code.git synced 2024-11-14 11:19:07 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions
khanat-opennel-code/code/nel/tools/3d/plugin_max/scripts/db_cleaner.ms

855 lines
22 KiB
Text
Raw Normal View History

Changed: order or the lib to make it compile in pure static
2010-07-28 06:57:08 +00:00
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
Reference in a new issue Copy permalink