aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Task/Introspection/FreeBASIC/introspection-1.freebasic Normal file
View file

@ -0,0 +1,17 @@
' 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

17
Task/Introspection/FreeBASIC/introspection-2.freebasic Normal file
View file

@ -0,0 +1,17 @@
' 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

12
Task/Introspection/FreeBASIC/introspection-3.freebasic Normal file
View file

@ -0,0 +1,12 @@
#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

12
Task/Introspection/FreeBASIC/introspection-4.freebasic Normal file
View file

@ -0,0 +1,12 @@
#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