import lib and variable number of arguments

[bingo]

possible , but fussily ...

Code: Select all

Import "msvcrt.lib" 
_snprintf1(buffer.l,count.l,format.l,arg1.l) As "__snprintf@16" 
_snprintf2(buffer.l,count.l,format.l,arg1.l,arg2.l) As "__snprintf@16" 
EndImport 

msize.l = 200
membuffer.l = AllocateMemory(msize)

_snprintf1(membuffer,msize,@"test %s",@"xxx1")

Debug PeekS(membuffer)

_snprintf2(membuffer,msize,@"test %s + %s",@"xxx1",@"xxx2")

Debug PeekS(membuffer)

any hints to handle variable number of arguments ?

[ABBKlaus]

Code: Select all

Import "msvcrt.lib" 
 _snprintf(buffer.l,count.l,format.l,arg1.l,arg2.l=0) As "__snprintf@16" 
EndImport 

msize.l = 200 
membuffer.l = AllocateMemory(msize) 

_snprintf(membuffer,msize,@"test %s",@"xxx1") 

Debug PeekS(membuffer) 

_snprintf(membuffer,msize,@"test %s + %s",@"xxx1",@"xxx2") 

Debug PeekS(membuffer)

[tinman]

For sprintf type of functions you could use the vprintf versions. Instead of variable number of arguments, it takes a pointer to the arguments in memory.

[bingo]

@tinman
do you have a sample ... ?
http://msdn2.microsoft.com/en-us/librar ... S.71).aspx
va_list argptr

@ABBKlaus
...arg2.l=0... is possible - ok !
arg2.l=0,arg3.l=0,arg4.l=0,arg5.l=0,arg6.l=0,arg7.l=0,arg8.l=0,arg9.l=0

[tinman]

@tinman
do you have a sample ... ?
http://msdn2.microsoft.com/en-us/librar ... S.71).aspx
va_list argptr :?:

Only this:

wvsprintf() is available as a Win32 API function in user32.dll. Where does FormatString() come from?

In PureBasic you don't need to use printf if you don't want to. It's just a combination of numerical conversion, formatting and converting to a string. result$ = "Foo: "+Str(value) and so on

Unless of course the format string is specified externally to your code. Then you might as well just use wsvprintf(). I think, but I'm not sure, that the va_list is just a pointer to a block of memory which contains the values you are converting. For example:

Code: Select all

Import "user32.lib"
    wvsprintf_.l(lpOutput.l, lpFormat.s, arglist.l) As "_wvsprintfW"
EndImport

output.s = Space(1024) ; 1024 is the maximum size
value.l = 23
wvsprintf_(@output, "Hi I'm %ld years old", @value) ; we are only converting value
Debug output

But if you had multiple values to convert then you would point to a sequential block of memory into which all the values you were converting were copied. You could try using wsprintf_(), which is probably an ImportC, which does the same but your va_list is automatically pushed onto the stack instead of you having to allocate memory and copy values there.

[Poplar]

Code: Select all

EnableExplicit

Define lib.l = OpenLibrary(#PB_Any, "User32.dll")
If lib > 0
  PrototypeC.i prpto_wvsprintf(lpOutput.s, lpFmt.s, *arglist)
  Global wvsprintf_.prpto_wvsprintf = GetFunction(lib, "wvsprintfW")
  CloseLibrary(lib)
EndIf

; Import "user32.lib"
;   wvsprintf_.l(lpOutput.l, lpFormat.s, arglist.l) As "_wvsprintfW"
; EndImport

Define output.s = Space(1024) ; 1024 is the maximum size
Dim value.l(4)
value(0) = 25
value(1) = 50
value(2) = 80
value(3) = 78
wvsprintf_(output, "Hi I'm %ld years old.Hi I'm %ld years old.Hi I'm %ld years old.Hi I'm %ld years old.", value()) ; we are only converting value
Debug output

__________________________________________________
Code tags added
03.07.2017
RSBasic