Tiny File Manager

Back Back Up Advanced Editor

;		x x x x x x x x x x
;		x x x x x x x x x x
;		x x x x x x x x x x
;		x x x x x x x x x x
;		x x x x x x x x x x
;		x x x x x x x x x x
;		x x x x x x x x x x
;		x x x x x x x x x x
;		x x x x x x x x x x
;		x x x x x x x x x x
;
;
;
;
;
;
;
;
;

total_devices = 10 + 8 + 40 +24 
	module = ceiling(sqrt(total_devices))
	taille_matrice = module * module
	spare = taille_matrice - total_devices

objets = list(10 8 40 24)

classement_objets = '()
	classement_objets = classer(objets)

taille_matrice / 9

total_devices = 82
	
	colonne = ceiling(sqrt(total_devices))
	ligne = colonne
	if( ligne * colonne < total_devices then
	    ligne = colonne + 1	
	)

if( ligne * colonne < total_devices then
	    ligne = ligne + 1	
	)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
procedure(classer(liste)

prog( ()	
		liste_classer = '()

for(j 0 length(liste)-1
	        	if(j == 0 then  
	 		   a = nth(j liste)
			   b = nth(j+1 liste)
			   val = min(a b)
			)
			if(j > 0 then  
			   a = nth(j liste)
			   val = min(val a)
			)
	   	)
	
		min = val  
		declare(tab[length(liste)])

for(i 0 length(liste)-1
		    tab[i] = nth(i liste)
	        )

for(j 0 length(liste)-1-1
 	            for(i 0 length(liste)-1-1
	  	        a = tab[i]
	  	        b = tab[i+1]
	                if(b<a then
	                   tab[i] = b
		           tab[i+1] = a
                        )
	            )
                )

for(i 0 length(liste)-1
		    liste_classer = append1(liste_classer tab[i])
		)

return(liste_classer)

);prog

)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
procedure(traitement()
(
	if(geGetEditCellView()~>mode == "r" then
        hiDisplayAppDBox(
            ?name 'readOnlyErr
            ?dboxBanner "Error"
            ?dboxText "Layout must be opened with write permission"
            ?dialogType hicErrorDialog
            ?buttonLayout 'Close
        )
        return( nil )
    )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
procedure(traitement()
(
   	
	
	liste_id='()

liste_id = setof(element geGetSelectedSet() element~>objType=="inst")

nombre_mos = length(liste_id)

for(i 0 length(liste_id)-2
		a = nth(i liste_type_cell)
		b = nth(i+1 liste_type_cell)
		if(a != b then

hiDisplayAppDBox(
            ?name 'readOnlyErr
            ?dboxBanner "Error"
            ?dboxText "Layout must be opened with write permission"
            ?dialogType hicErrorDialog
            ?buttonLayout 'Close
        )
		
	)

hiDisplayAppDBox(
            ?name 'readOnlyErr
            ?dboxBanner "Error"
            ?dboxText "Layout must be opened with write permission"
            ?dialogType hicErrorDialog
            ?buttonLayout 'Close
        )
        return( nil )

)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;printf("[Info]:Erreur - type de mos non homogenes !.\n")
;flag_erreur = t
;hiGetAttention()
;error( "Exactly one reference object must be selected" )