ALisp Re: New file uploaded to AutoItList

BTW. About random numbers in newLisp:

You can evaluate this 
(random 0 100)

to get random floating point number from 0.0 to 100.0

And this one
(seed (date-value))

is guaranteeing a different seed any time the script starts.

It works for me.

Valery

--- In [email protected], "valery_vi" <shehrer1@...> wrote:
>
> Hi,
> 
> There is a new branch of AutoIt's application: 
> AutoLisp based on the following Lisp implementation:
> 
> http://newlisp.org/index.cgi?page=Home
> 
> ;===================================================
> ; ALisp by Valery Ivanov, 3 September 2007
> ;===================================================
> 
> #include <GUIConstants.au3>
> Global $Target, $Result
> Global $Dll = DllOpen("newlisp.dll")
> 
> 
> $hWnd = GUICreate("ALisp © Valery Ivanov, 3 September 2007", 400, 450)
> ;--------------------------------------------------
> $LabelTarget = GUICtrlCreateLabel("Your Lisp sample lines:", 10, 40,
> 380, 21)
> $Target = GUICtrlCreateEdit('(+ 3 4)', 10, 70, 380, 100)
> 
> ;--------------------------------------------------
> $LabelResult = GUICtrlCreateLabel("Lisp evaluation: ", 10, 180, 100, 21)
> $Result = GUICtrlCreateEdit('', 10, 210, 380, 200)
> ;--------------------------------------------------
> $Evaluate = GUICtrlCreateButton("Evaluate", 150, 420, 100, 21)
> GUISetState()
> 
> ; Start the main loop
> While 1
> $Msg = GUIGetMsg()
> Select
> Case $Msg = $GUI_EVENT_CLOSE
> DllClose($Dll)
> Exit
> Case $Msg = $Evaluate
>   Evaluate()
> EndSelect
> WEnd
> 
> func Evaluate()
> local $TargetContent, $ResultContent
>  $TargetContent = GUICtrlRead($Target)
>  $ResultContent = DllCall($Dll, "str", "newlispEvalStr", "str",
> $TargetContent)
>  GUICtrlSetData($Result,StringTrimRight($ResultContent[0],1))
> endfunc
> 
> DLL lib is in ALisp.zip, too.
> 
> Valery
> 
> 
> --- In [email protected], [email protected] wrote:
> >
> > 
> > Hello,
> > 
> > This email message is a notification to let you know that
> > a file has been uploaded to the Files area of the AutoItList 
> > group.
> > 
> >   File        : /MISC/ALisp.zip 
> >   Uploaded by : valery_vi <shehrer1@> 
> >   Description : ALisp script 
> > 
> > You can access this file at the URL:
> > http://groups.yahoo.com/group/AutoItList/files/MISC/ALisp.zip 
> > 
> > To learn more about file sharing for your group, please visit:
> > http://help.yahoo.com/help/us/groups/files
> > 
> > Regards,
> > 
> > valery_vi <shehrer1@>
> >
>