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

Data update

Browse source
This commit is contained in:
Ingy dot Net 2024-04-19 16:56:29 -07:00
parent 0df55f9f24
commit aec8ed51b6
1045 changed files with 18889 additions and 2777 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Task/Pragmatic-directives/FreeBASIC/pragmatic-directives-1.basic Normal file
View file

@ -0,0 +1,5 @@
Private Sub i_am_private
End Sub
Public Sub i_am_public
End Sub

2
Task/Pragmatic-directives/FreeBASIC/pragmatic-directives-2.basic Normal file
View file

@ -0,0 +1,2 @@
' declaring 'strcpy' from the standard C library
Declare Function strcpy Cdecl Alias "strcpy" (Byval dest As ZString Ptr, Byval src As ZString Ptr) As ZString Ptr

1
Task/Pragmatic-directives/FreeBASIC/pragmatic-directives-3.basic Normal file
View file

@ -0,0 +1 @@
Declare Function MyFunctionPascal Pascal Alias "MyFunction" (param As Integer) As Integer

1
Task/Pragmatic-directives/FreeBASIC/pragmatic-directives-4.basic Normal file
View file

@ -0,0 +1 @@
Declare Function MyFunc1 Stdcall (param1 As Integer, param2 As Integer) As Integer

5
Task/Pragmatic-directives/PureBasic/pragmatic-directives-1.basic Normal file
View file

@ -0,0 +1,5 @@
CompilerIf #PB_Compiler_OS = #PB_OS_Linux
; some Linux specific code
CompilerElse
; some code for other operating systems
CompilerEndIf

6
Task/Pragmatic-directives/PureBasic/pragmatic-directives-2.basic Normal file
View file

@ -0,0 +1,6 @@
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_MacOS
; some Mac OS
CompilerCase #PB_OS_Linux
; some Linux specific code
CompilerEndSelect

5
Task/Pragmatic-directives/PureBasic/pragmatic-directives-3.basic Normal file
View file

@ -0,0 +1,5 @@
CompilerIf #PB_Compiler_OS = #PB_OS_Linux
CompilerError "Linux is not supported, sorry."
CompilerElse
CompilerWarning "OS supported, you can now comment me."
CompilerEndIf

4
Task/Pragmatic-directives/PureBasic/pragmatic-directives-4.basic Normal file
View file

@ -0,0 +1,4 @@
EnableExplicit
Defines
a = 20 ; Ok, as declared with 'Define'
b = 10 ; Will raise an error here

6
Task/Pragmatic-directives/PureBasic/pragmatic-directives-5.basic Normal file
View file

@ -0,0 +1,6 @@
; x86 assembly example
Test = 10
EnableASM
MOV dword [v_Test],20
DisableASM
DebugTest ; Will be 20