hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan
2007-04-15 14:25:35 +00:00
parent 8536529c43
commit 8932f06fdd
4 changed files with 124 additions and 124 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ase/test/com/AwkForm.frm
View File

@ -175,11 +175,11 @@ Private Sub Execute_Click()
Awk.UseLongLong = False
Awk.Debug = True
If Awk.AddFunction("sin", 1, 1) = -1 Then
If Not Awk.AddFunction("sin", 1, 1) Then
MsgBox "Cannot add builtin function - " + Awk.ErrorMessage
Exit Sub
End If
If Awk.AddFunction("cos", 1, 1) = -1 Then
If Not Awk.AddFunction("cos", 1, 1) Then
MsgBox "Cannot add builtin function - " + Awk.ErrorMessage
Exit Sub
End If
@ -188,11 +188,11 @@ Private Sub Execute_Click()
Call Awk.AddFunction("trim", 1, 1)
'Call Awk.DeleteFunction("tan")
If Awk.Parse() = -1 Then
If Not Awk.Parse() Then
MsgBox "PARSE ERROR [" + Str(Awk.ErrorLine) + "]" + Awk.ErrorMessage
Else
Awk.EntryPoint = Trim(EntryPoint.Text)
If Awk.Run() = -1 Then
If Not Awk.Run() Then
MsgBox "RUN ERROR [" + Str(Awk.ErrorLine) + "]" + Awk.ErrorMessage
End If
End If