Include a file: Difference between revisions
Added FreeBASIC
(Reactivate seed7 example) |
(Added FreeBASIC) |
||
Line 340:
Different compilers behave differently, and standardisation attempts have not reached back to earlier compilers.
=={{header|FreeBASIC}}==
File to be included :
<lang freebasic>' person.bi file
Type Person
name As String
age As UInteger
Declare Operator Cast() As String
End Type
Operator Person.Cast() As String
Return "[" + This.name + ", " + Str(This.age) + "]"
End Operator</lang>
Main file :
<lang freebasic>' FB 1.05.0 Win 64
' main.bas file
#include "person.bi"
Dim person1 As Person
person1.name = "Methuselah"
person1.age = 969
Print person1
Print
Print "Press any key to quit"
Sleep</lang>
{{out}}
<pre>
[Methuselah, 969]
</pre>
=={{header|Furryscript}}==
|