Introspection: Difference between revisions
Added FreeBASIC
(Added FreeBASIC) |
|||
Line 606:
User variables: 1 Sum: -32
</pre>
=={{header|FreeBASIC}}==
Version 1:
<lang freebasic>' FB 1.05.0 Win64
#If __FB_VERSION__ < "1.06.0"
#Error "Compiler version is too old - needs to be 1.06.0 or later"
#EndIf
Dim bloop As Integer = -15
#IfDef bloop
#IfDef Abs
Print "Abs(bloop) = "; Abs(bloop)
#Else
Print "Abs is not available"
#EndIf
#Else
Print "bloop does not exist"
#EndIf
Sleep</lang>
{{out}}
<pre>introspection.bas(4) error: Compiler version is too old - needs to be 1.06.0 or later</pre>
Version 2:
<lang freebasic>' FB 1.05.0 Win64
#If __FB_VERSION__ < "1.05.0" '' version 1.05.0 is now OK
#Error "Compiler version is too old - needs to be 1.05.0 or later"
#EndIf
Dim bloop As Integer = -15
#IfDef bloop
#IfDef Abs
Print "Abs(bloop) = "; Abs(bloop)
#Else
Print "Abs is not available"
#EndIf
#Else
Print "bloop does not exist"
#EndIf
Sleep</lang>
{{out}}
<pre>Abs(bloop) = 15</pre>
Version 3 (version code omitted for brevity):
<lang freebasic>#Undef Abs '' undefine Abs keyword
Dim bloop As Integer = -15
#IfDef bloop
#IfDef Abs
Print "Abs(bloop) = "; Abs(bloop)
#Else
Print "Abs is not available"
#EndIf
#Else
Print "bloop does not exist"
#EndIf
Sleep</lang>
{{out}}
<pre>Abs is not available</pre>
Version 4 (version code omitted for brevity):
<lang freebasic>#Undef Abs '' undefine Abs keyword
'Dim bloop As Integer = -15 '' bloop declaration commented out
#IfDef bloop
#IfDef Abs
Print "Abs(bloop) = "; Abs(bloop)
#Else
Print "Abs is not available"
#EndIf
#Else
Print "bloop does not exist"
#EndIf
Sleep</lang>
{{out}}
<pre>bloop does not exist</pre>
=={{header|GAP}}==
| |||