Uso de la utilidad del sistema "ditto" de Mac OS, desde Omnis

Crear un Zip, basePath y destName son las respectivas rutas de origen y destino del archivo.

Begin text block
    Text: set dir to "[basePath]" as string (Carriage return)
    Text: set dest to "[destName]" as string (Carriage return)
    Text: set scriptText to "ditto -rsrc -c -k --sequesterRsrc --keepParent " & quoted form of the POSIX path of dir & " " & quoted form of the POSIX path of dest (Carriage return)
    Text: do shell script scriptText
End text block
Get text block script
Do $runapplescript(script,result) Returns error

Descomprimir un Zip, basePath y destName son las respectivas rutas de origen y destino del archivo.

Begin text block
    Text: set dir to "[basePath]" as string (Carriage return)
    Text: set dest to "[destName]" as string (Carriage return)
    Text: set scriptText to "ditto -rsrc -x -k " & quoted form of the POSIX path of dir & " " & quoted form of the POSIX path of dest (Carriage return)
    Text: do shell script scriptText
End text block
Get text block script
Do $runapplescript(script,result) Returns error

Esto eliminaría el archivo temporal después de la copia/descompresión.

Begin text block
    Text: set source to "[pFrom]" as string (Carriage return)
    Text: set targetdir to "[pTo]" as string (Carriage return)
    Text: tell application "Finder" (Carriage return)
    Text: duplicate source to targetdir (Carriage return)
    Text: end tell
End text block
Get text block lScript
Do $runapplescript(lScript,lResult) Returns lnError

Cómo hacer aparecer una animación durante la carga del "remote form" inicial.

Tomando como base un documento HTML entandar para la llamada a un "remote form", necesitaremos realizar lo siguiente:

1) Eliminar las líneas siguientes:

2) Reemplazarlas por:

Obviamente, deberemos substituir el fichero GIF, por el que sea más apropiado.

3) Modificar el "remote form" indicado en el HTML

Añadir (si no existe), un método de tipo "client executed" denominado "$init" que deberá incluir la línea siguiente :

    JavaScript: clearSplash();

Ha de ser así, puesto que necesitamos eliminar el "splash" después de que termine el "jOmnis.onLoad()" y el $init es ejecutado exactamente cuando eso sucede, sin embargo, debemos tener en cuenta que el "$construct" aún no se habrá ejecutado, por lo que aún habrá una demora hasta que el cliente toma el control.

Para probarlo, podemos (por ejemplo) añadir al "$construct" el código siguiente, con intención de simular un retraso durante la carga del "remote form":

Do iMegaList.$define("","","")
For i from 1 to 50000 step 1
    Do iMegaList.$add("AAA","BBB","CCC")
End For

Eso es todo, espero sus comentarios, reciban un saludo.

Función para la generación de contraseñas

La función permite ser invocada con o sin parámetro del modo siguiente:

    Do method $PassGen() Returns Password

Por ejemplo devolvería: Password = x32Vn1

o mediante la especificación un parámetro con la longitud deseada:

    Do method $PassGen(4) Returns Password

Por ejemplo devolvería: Password = 4cB3

Definición de la función:

;  autor        ;; Florent Pousserot
;  método       ;; $PassGen
;  descripción  ;; Generación aleatoria de contraseñas
;  parametros   ;; Parametro 1: Longitud de la contraseña deseada.
                   Por defecto 6 caracteres
;  devuelve     ;; La contraseña generada

Do zlCharAuthorize.$define('char')

For x from 48 to 57 step 1     ;; códigos ascii [0-9]
    Do zlCharAuthorize.$add(chr(x))
End For

For x from 97 to 122 step 1     ;; códigos ascii [a-z]
    Do zlCharAuthorize.$add(chr(x))
End For

For x from 1 to pcPassLength step 1
    Calculate zlCursor as randrealrng(1,36)     ;; devuelve un valor aleatorio entre 1 y 36 ; representa [0-9,a-z] <=> [10+26]
    If mod(x,3)     ;; modulo 3
        Calculate zcPassword as con(zcPassword,zlCharAuthorize.[zlCursor].C1)     ;; minúscula
    Else
        Calculate zcPassword as con(zcPassword,upp(zlCharAuthorize.[zlCursor].C1))     ;; mayúscula
    End If
End For

Quit method zcPassword