Data commit

Task/Call-a-foreign-language-function/PureBasic/call-a-foreign-language-function-1.basic

@@ -0,0 +1,39 @@
+; Call_a_foreign_language_function.fasm -> Call_a_foreign_language_function.obj
+; the assembler code...
+
+; format COFF or
+; format COFF64 classic (DJGPP) variants of COFF file
+
+; format MS COFF or
+; format MS COFF64 Microsoft's variants of COFF file
+
+format  MS COFF
+
+include "Win32A.Inc"
+
+section ".text" executable readable code
+
+proc	strucase stdcall str:dword
+xor	eax,eax
+mov	ebx,[str]
+strucase_loop:
+mov	al,byte[ebx]
+cmp	al,0
+jz	strucase_is_null_byte
+cmp	al,'a'
+jb	strucase_skip
+cmp	al,'z'
+ja	strucase_skip
+and	al,11011111b
+strucase_skip:
+; mov	byte[ebx],al
+xchg	al,byte[ebx]
+inc	ebx
+jmp	strucase_loop
+strucase_is_null_byte:
+xor	eax,eax
+mov	eax,[str]
+ret
+endp
+
+public strucase as "_strucase@4"

Task/Call-a-foreign-language-function/PureBasic/call-a-foreign-language-function-2.basic

@@ -0,0 +1,10 @@
+; the PureBasic code...
+
+Import "Call_a_foreign_language_function.obj"
+strucase(t.s) As "_strucase@4"
+EndImport
+
+t.s="hElLo WoRld!!"
+*r=StrUcase(t.s) ; PureBasic is case-insensitive
+; cw(peeks(*r))
+Debug peeks(*r)