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-01-17 14:15:50 +00:00
parent 22c923a5d4
commit 1682671cbf
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -184,6 +184,7 @@ Private Sub Execute_Click()
Exit Sub Exit Sub
End If End If
Call Awk.AddBuiltinFunction("tan", 1, 1) Call Awk.AddBuiltinFunction("tan", 1, 1)
Call Awk.AddBuiltinFunction("sqr", 1, 1)
Call Awk.AddBuiltinFunction("trim", 1, 1) Call Awk.AddBuiltinFunction("trim", 1, 1)
'Call Awk.DeleteBuiltinFunction("tan") 'Call Awk.DeleteBuiltinFunction("tan")
@ -411,12 +412,12 @@ End Function
Function Awk_HandleBuiltinFunction(ByVal name As String, ByVal args As Variant) As Variant Function Awk_HandleBuiltinFunction(ByVal name As String, ByVal args As Variant) As Variant
If name = "sin" Then If name = "sin" Then
If TypeName(args(0)) = "Long" Or TypeName(args(0)) = "Double" Then If IsNull(args(0)) Then
Awk_HandleBuiltinFunction = Sin(args(0))
ElseIf TypeName(args(0)) = "String" Then
Awk_HandleBuiltinFunction = Sin(Val(args(0)))
ElseIf TypeName(args(0)) = "Null" Then
Awk_HandleBuiltinFunction = Sin(0) Awk_HandleBuiltinFunction = Sin(0)
ElseIf IsNumeric(args(0)) Then
Awk_HandleBuiltinFunction = Sin(args(0))
Else
Awk_HandleBuiltinFunction = Sin(Val(args(0)))
End If End If
ElseIf name = "cos" Then ElseIf name = "cos" Then
If TypeName(args(0)) = "Long" Or TypeName(args(0)) = "Double" Then If TypeName(args(0)) = "Long" Or TypeName(args(0)) = "Double" Then
@ -434,6 +435,14 @@ Function Awk_HandleBuiltinFunction(ByVal name As String, ByVal args As Variant)
ElseIf TypeName(args(0)) = "Null" Then ElseIf TypeName(args(0)) = "Null" Then
Awk_HandleBuiltinFunction = Tan(0) Awk_HandleBuiltinFunction = Tan(0)
End If End If
ElseIf name = "sqr" Then
If IsNull(args(0)) Then
Awk_HandleBuiltinFunction = Sqr(0)
ElseIf IsNumeric(args(0)) Then
Awk_HandleBuiltinFunction = Sqr(args(0))
Else
Awk_HandleBuiltinFunction = Sqr(Val(args(0)))
End If
ElseIf name = "trim" Then ElseIf name = "trim" Then
Awk_HandleBuiltinFunction = Trim(args(0)) Awk_HandleBuiltinFunction = Trim(args(0))
End If End If