PureBasic Forums - English

Code: Select all

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; AUTOMATICALLY GENERATED CODE, DO NOT MODIFY
; UNLESS YOU REALLY, REALLY, REALLY MEAN IT !!
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Code generated by : Dev-Object - V1.5.0
; Project name : the project name here
; File name : File name here
; File Version : 0.0.0
; Programmation : In progress
; Programmed by : Your name
; AKA : 
; E-mail : 
; Creation Date : 16-05-2021
; Last update : 16-05-2021
; Coded for PureBasic : V5.72
; Platform : Windows, Linux, MacOS X
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

DeclareModule Recentfiles
  
  Interface Recentfiles
    
    GetHistoricSize.i()
    SetHistoricSize(*P_HistoricSize.a
List)
    ReadPrefs(P_GroupName.s)
    WritePrefs(P_GroupName.s)
    Free()
    
  EndInterface
  
  ; Declare Free(*This)
  Declare.i New(*P_HistoricSize.a
List = #Null)
  
EndDeclareModule

Module Recentfiles
  
  ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  ; <<<<< Structure declaration <<<<<

  Structure Private_Members
    
    VirtualTable.i
    HistoricSize.a
List FileNames.s()
    
  EndStructure
  
  ; <<<<<<<<<<<<<<<<<<<<<<<<<<<
  ; <<<<< The observators <<<<<

  Procedure.i GetHistoricSize(*This.Private_Members)
    
    ProcedureReturn *This\HistoricSize
  EndProcedure
  
  ; <<<<<<<<<<<<<<<<<<<<<<<<
  ; <<<<< The mutators <<<<<

  Procedure SetHistoricSize(*This.Private_Members, *P_HistoricSize.a
List)
    
    If *This\HistoricSize <> #Null
      *This\HistoricSize\Free()
    EndIf
    
    *This\HistoricSize = *P_HistoricSize
    
  EndProcedure
  
  ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  ; <<<<< Read preferences group <<<<<

  Procedure ReadPrefs(*This.Private_Members, P_GroupName.s)
    
    PreferenceGroup(P_GroupName)
    
    ; NOT SUPPORTED YET
    
  EndProcedure
  
  ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  ; <<<<< Write preferences group <<<<<

  Procedure WritePrefs(*This.Private_Members, P_GroupName.s)
    
    PreferenceGroup(P_GroupName)
    
    ; NOT SUPPORTED YET
    
  EndProcedure
  
  ; <<<<<<<<<<<<<<<<<<<<<<<<<<
  ; <<<<< The Destructor <<<<<

  Procedure Free(*This.Private_Members)
    
    If *This\HistoricSize <> #Null
      *This\HistoricSize\Free()
    EndIf
    
    FreeStructure(*This)
    
  EndProcedure
  
  ; <<<<<<<<<<<<<<<<<<<<<<<<<<<
  ; <<<<< The Constructor <<<<<

  Procedure.i New(*P_HistoricSize.a
List = #Null)
    
    *This.Private_Members = AllocateStructure(Private_Members)
    *This\VirtualTable = ?START_METHODS
    
    If *P_HistoricSize <> #Null
      *This\HistoricSize = *P_HistoricSize
    Else
      *This\HistoricSize = a
List::New()
    EndIf
    
    ProcedureReturn *This
  EndProcedure
  
  ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  ; <<<<< The Virtual Table Entries <<<<<

  DataSection
    START_METHODS:
    Data.i @GetHistoricSize()
    Data.i @SetHistoricSize()
    Data.i @ReadPrefs()
    Data.i @WritePrefs()
    Data.i @Free()
    END_METHODS:
  EndDataSection
  
EndModule

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Code generated in : 00.001 seconds (135000.00 lines/second) <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

; <<<<<<<<<<<<<<<<<<<<<<<
; <<<<< END OF FILE <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<

Code: Select all

[BasicMethods]
Getters = 1
Setters = 1
Update = 0
Reset = 0
Clear = 0
Access = 0
[MathsMethods]
Equal = 0
Plus = 0
Minus = 0
Add = 0
AddScaled = 0
Subtract = 0
Product = 0
Divide = 0
AddScalar = 0
SubtractScalar = 0
ProductByScalar = 0
DivideByScalar = 0
Lerp = 0
[MemoryMethods]
Copy = 0
Compare = 0
Swapping = 0
[DynamicArrayMethods]
Sort = 0
LinearSearch = 0
BinarySearch = 0
Randomize = 0
ReDimension = 0
Size = 0
[LinkedListMethods]
Sort = 0
LinearSearch = 1
BinarySearch = 0
Randomize = 0
Add = 1
AddEx = 1
Insert = 1
InsertEx = 1
Select = 1
First = 1
Last = 1
Previous = 1
Next = 1
Delete = 1
Reset = 1
Clear = 1
Index = 1
Size = 1
[MapMethods]
Add = 0
AddEx = 0
Clear = 0
Size = 0
Reset = 0
Delete = 0
Find = 0
Next = 0
Key = 0
[StaticArrayMethods]
QuickSortAscendant = 0
QuickSortDescendant = 0
LinearSearch = 0
BinarySearch = 0
FixedLenghtQueue = 0
[BinaryFile]
ReadWrite = 0
CreateFile = 0
OpenFile = 0
ReadFile = 0
AddFileFormatID = 0
[EncodedCryptedFile]
ReadWrite = 0
CreateFile = 0
OpenFile = 0
ReadFile = 0
AddFileFormatID = 0
CustomFileLibToUse = 
[PrefsFile]
ReadWriteGroup = 1
CreateOpenFile = 0
[XMLFile]
NodeWithChild = 0
NodeWithAttribute = 0
AddCollectAttribute = 0
CreateLoadFile = 0
CatchFile = 0
[Class]
Name = RecentFiles
Members_Max = 2
Members_0 = HistoricSize.a
Members_1 = List FileNames.s()

Code: Select all

Array ArrayEdges.Edges::Edges(25)
List ListEdges.Edges::Edges()
Map MapEdges.Edges::Edges()