## SA:MP RL_FILES v1.2.7 ##

/*
 *                              rl_files 0.1.2
 *        All right reserved! © By: RaFaeL
 *
 * Owner                : RaFaeL
 * Time                 : 28.01.2013
 *
 * Thanks to:
 *                      RaFaeL                           - Scripting, PAWN
 *                      Kyosaur                          - How to build plugin
 *                      SA:MP Team past, present, future - SA:MP.
 *
 *
 * Functions:
 *          fcheck(dir[], idx) - Check if file exist by idx
 *          fnum(dir[]) - Return how much files in dir
 *          fname(dir[], idx, souce[], len = sizeof(souce)) - Return the file name by idx
 *          fprint(dir[]) - Print all files in dir
 *          fend(file[], len = sizeof(file)) - Delete the file .(dot)
 *
 * CallBacks:
 *          None.
 *
 * Update:
 *      28.01.2013:
 *          Other:              - First Release
 *                              - Bug fixed
 *      29.01.2013:
 *          Functions:          - fend(file[], len = sizeof(file))
 *                              -
 *
 *          Other:
 *                              - fnum(dir[]) changed to PAWN scripted function
 *                              - No meter if "." or "" directory
 *      31.01.2013:
 *          Other:              - Fixed bug while reading directorys
 *                              - Default dir[] = "."
 *
 */

#if defined rl_files
    #error files is already defined!
#endif
#define rl_files


#define MAX_FILE_NAME    64
#define NULL_DIR         "."
#define PRINT_FORMAT "%s/%s",dir,file

native fname(dir[], idx, souce[], len = sizeof(souce));

stock fprint(dir[] = NULL_DIR) {
    new
        idx,
        file[MAX_FILE_NAME];
    while(fname(dir, idx, file)) {
        printf(PRINT_FORMAT);
        idx++;
    }
    return 1;
}

stock fnum(dir[] = NULL_DIR) {
    new
        idx,
        file[MAX_FILE_NAME];
    while(fname(dir, idx, file)) {
        idx++;
    }
    return idx;
}

stock fcheck(dir[], idx) {
    new
        file[MAX_FILE_NAME];
    if(!fname(dir, idx, file))
        return 0;
    return 1;
}

stock fend(file[], len = sizeof(file)) {
    new
        ret[MAX_FILE_NAME];
    strcat((ret[0] = EOS, ret), file);
    strdel(ret, strfind(ret, ".", true), len);
    return ret;
}