ExamineParameter()

Flype · Post by **Flype** » Mon Oct 10, 2005 9:32 am

Code updated For 5.20+

Why not using the same syntax than some others purebasic features for reading arguments/parameters ?

Code: Select all

Procedure.l ExamineParameter() 
  
  Structure _ARGS 
    i.l 
    c.l 
    v.s[32] 
  EndStructure 
  
  Shared _arg._ARGS 
  
  For i=0 To 32 
    
    a$ = ProgramParameter() 
    
    If a$ 
      _arg\v[i] = a$ 
    Else 
      _arg\c = i : Break 
    EndIf 
    
  Next 
  
  ProcedureReturn _arg\c 

EndProcedure 
Procedure.b NextParameter() 
  
  Shared _arg._ARGS 
  
  _arg\i + 1 
  
  If _arg\i < _arg\c 
    ProcedureReturn #True 
  EndIf 
  
EndProcedure 
Procedure.s GetParameter() 
  
  Shared _arg._ARGS 
  
  ProcedureReturn _arg\v[_arg\i] 
  
EndProcedure 

If ExamineParameter() 
  While NextParameter() 
    Debug GetParameter() 
  Wend 
EndIf