PureBasic Forums - English

juergenkulow

; Linux GetExtensionPart does not recognize file names ending with a backslash.
Filename$="X:\A\A\B\A\B\GTI\A\.tproject"
Debug "GetFilePart:"+GetFilePart(Filename$)
Debug "GetFilePart #PB_FileSystem_NoExtension:"+GetFilePart(Filename$,#PB_FileSystem_NoExtension)
Debug "GetExtensionPart ...

juergenkulow

gcc version 11.4.0 (Ubuntu 11.4.0-1ubuntu1~22.04):

Code: Select all

Enter a positive integer: 5 
Factorial of 5 = 120k

juergenkulow

; x86 PeekS IMA with magic length $80FE0, $81FE0, $82FE0, ... , $CDCFEO=13488096, ...
For Length=$81000 To 1 Step -16
Debug Hex(Length)
*MemoryID = AllocateMemory(Length)
For *p.Ascii=*MemoryID To *MemoryID+Length-1
*p\a='A'
Next
s.s=PeekS(*MemoryID, Length, #PB_UTF8)
FreeMemory(*MemoryID ...

juergenkulow

Please note, that in structures a @Bold "static array[]" doesn't behave like the normal BASIC array (defined using @ReferenceLink "Dim" Dim)
to be conform to the C/C++ structure format (to allow direct API structure porting). This means that a@Bold "["2@Bold "]" will
allocate an array from 0 to ...

juergenkulow

If the mouse is on the other screen, the skeleton is not visible.

juergenkulow

Search: USB site:https://www.purebasic.fr/english/

juergenkulow

Code: Select all

; If Not Test:ProcedureReturn:EndIf
  CMP    byte [rsp+48],0
  JE     No0
  XOR    rax,rax
  JMP    Ok0
No0:
  MOV    rax,1
Ok0:
  AND    rax,rax
  JE    _EndIf2
  JMP   _EndProcedure1
_EndIf2:

Code: Select all

// If Not Test:ProcedureReturn:EndIf
if (!(!(v_test))) { goto no2; }
r=0;
goto end;
no2:;

juergenkulow

--preprocess:

Code: Select all

Macro fry
  Debug MacroExpandedCount
EndMacro
x = 0
more:
Debug 1
x+1
If x < 10 :
 Goto more :
 EndIf
; 1
; 1
; 1
; 1
; 1
; 1
; 1
; 1
; 1
; 1

juergenkulow

; After GetMeshData ArraySize of vertices is 7. For loop to 60000 stops at vertices(8).
GetMeshData(#malla,0, vertices(),#PB_Mesh_Vertex,0,7)
; ^
Debug "GET ArraySize:"+Str(ArraySize(vertices()))+" #nvertices:"+Str(#nvertices)
;GET ArraySize:7 #nvertices:60000
#nvertices=60000
Dim vertices ...

juergenkulow

PiOctal$="3 ...

juergenkulow

Does that really make sense?
; File Preferences Debugger Individual Settings Debug Output Add Timestamp set
For i=1 To 10
Debug RSet(Str(ElapsedMilliseconds()%1000),3,"0")+" "+Str(i)
Next
; [07:55:36] 523 1
; [07:55:36] 523 2
; [07:55:36] 523 3
; [07:55:36] 523 4
; [07:55:36] 523 5
; [07:55:36 ...

juergenkulow

Yes exactly:

Code: Select all

;Value range of Date()
Debug FormatNumber(Date(1601,1,1,0,0,0),0)
Debug FormatNumber(Date(9999,12,31,23,59,59),0)
Debug Hex(Date(1601,1,1,0,0,0),#PB_Quad)
Debug Hex(Date(9999,12,31,23,59,59),#PB_Quad)
; -11,644,473,600
; 253,402,300,799
; FFFFFFFD49EF6F00
; 3AFFF4417F

juergenkulow

If LoadFont has found exactly the right font under Windows, the following lines should appear in test.pdf:
...
8 0 obj
<<
/Type /Font
/BaseFont /HPDFAA+FuturaStd-Book
/Subtype /Type0
/Encoding /Identity-H
/ToUnicode 9 0 R
/DescendantFonts [ 11 0 R ]
>>
endobj
...
Otherwise:
...
8 0 obj
<<
/Type ...

juergenkulow

by boddhi » Thu May 02, 2024 5:22 pm
And some PB functions, like Date(), didn't need .i, only .l, until PB 6.10 regardless 32 or 64-bit OS.
I think that many codes using these functions should no longer work for this reason too.

; Check all Programs with Date() and similar for replacement .l by ...

juergenkulow

After adding MyLabel_n: in DataSection the preprocessor "-pp /tmp/a.pp" do Restore MyLabel_n:
Macro DynamicRestore(n)
MyLabel_#n
EndMacro
n=Random(3,1)
Restore MyLabel_n
Read.s label$
Debug label$
End
DataSection
MyLabel_n:
MyLabel_1:
Data.s "MyLabel_1"
MyLabel_2:
Data.s "MyLabel_2 ...

PureBasic Forums - English

Search found 351 matches

Re: GetExtensionPart() of empty filename

Re: [6.10] Always error with C Backend

[Bug]Re: Problem with lenght size and PeekS

[no bug]Re: Weird struct sizeof with static arrays

Re: Any 'Skeleton()' example for the manual?

Re: Access a USB device from PB?

Re: ProcedureReturn

[no bug] Re: seems like a bug MacroExpandedCount

Re: Problem-question for GetMeshData()

Re: Generating digits of PI in Octal

Re: Debug window switch from time to ElapsedMilliseconds

Re: Differences between 6.1 5.73

Re: Suitable fonts for DrawVectorText()?

Re: Differences between 6.1 5.73

Re: Macro concatenate doesn't work with variable?