FreeBASIC 拡張ライブラリ

# include once "ext/algorithms/quicksort.bi"

dim array(1 to 5) as integer = { 4, 1, 3, 5, 2 }

ext.QuickSort(array())

for i as integer = 1 to 5
    print "(" & array(i) & ")" ;
next : print
Sleep

(1)(2)(3)(4)(5)

# include once "ext/algorithms/replaceif.bi"

function IsNumeric ( byref elem as const ubyte ) as ext.bool
    return 0 < instr( "0123456789", chr(elem) )
end function

var text = "abc 123 def"

dim first as ubyte ptr = strptr(text)
dim last as ubyte ptr = first + len(text)

ext.ReplaceIf( first, last, @IsNumeric, asc("x") )
print text
Sleep

abc xxx def

# include once "ext/algorithms/transform.bi"
# include once "ext/algorithms/foreach.bi"

type Person
    name as zstring ptr
    age as ubyte
    ismale as integer
end type

sub OutputPerson ( byref p as Person )
    var result = "( " & *p.name
    result &= ", " & p.age
    result &= ", " & *iif( p.ismale, @"male )", @"female )" )
    print result
end sub

function ChangeGender ( byref p as Person ) as Person
    var tmp = p
    tmp.ismale = not tmp.ismale
    return tmp
end function

fbext_Instanciate( fbext_ForEach, ((Person)) )
fbext_Instanciate( fbext_Transform, ((Person)) )

const N = 5
dim people(1 to N) as Person = _
{ _
    ( @"John", 34, -1 ), _
    ( @"Jacob", 12, -1 ), _
    ( @"Jennifer", 24, 0 ), _
    ( @"Joseph", 55, -1 ), _
    ( @"Jasmine", 18, 0 ) _
}

ext.ForEach( @people(1), @people(1) + N, @OutputPerson )
ext.Transform( @people(1), @people(1) + N, @people(1), @ChangeGender )
ext.ForEach( @people(1), @people(1) + N, @OutputPerson )
Sleep

' Gets an iterator `it` to the first element in the range [first,last) for
' which `*it = value` is true, or `last` if there is no such element.

function Find ( first as ubyte ptr, last as ubyte ptr, value as ubyte ) as byte ptr
    do while first < last
        if *first = value then exit do
        first += 1
    loop
    return first
end function

' Gets an iterator `it` to the first element in the range [first,last) for
' which `*it = value` is true, or `last` if there is no such element.

function Find overload ( first as ubyte ptr, last as ubyte ptr, value as ubyte ) as ubyte ptr
    do while first < last
        if *first = value then exit do
        first += 1
    loop
    return first
end function

' Gets an iterator `it` to the first element in the range [first,last) for
' which `*it = value` is true, or `last` if there is no such element.

function Find ( first as integer ptr, last as integer ptr, value as integer ) as integer ptr
    do while first < last
        if *first = value then exit do
        first += 1
    loop
    return first
end function

# include once "ext/templates.bi"

' ElementType - the type of elements iterated through.
# macro Find_Define( __, ElementType )
:
    ' Gets an iterator `it` to the first element in the range [first,last) for
    ' which `*it = value` is true, or `last` if there is no such element.
    function Find overload ( first as fbext_TypeName(ElementType) ptr, _
                             last as fbext_TypeName(ElementType) ptr,  _
                             value as fbext_TypeName(ElementType)      _
    ) as fbext_TypeName(ElementType) ptr
    
        do while first < last
            if *first = value then exit do
            first += 1
        loop
        return first
    
    end function
:
# endmacro

fbext_Instantiate( Find, ((ubyte)) )
fbext_Instantiate( Find, ((integer)) )
fbext_Instantiate( Find, ((double)) )

Find_Define( __, (ubyte) )
Find_Define( __, (integer) )
Find_Define( __, (double) )