ALisp Re: New file uploaded to AutoItList

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@...>
>