unit parseutils;

{$include ffmpeg.inc}

interface

uses
  rational;

(*
  * This file is part of FFmpeg.
  *
  * FFmpeg is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
  * License as published by the Free Software Foundation; either
  * version 2.1 of the License, or (at your option) any later version.
  *
  * FFmpeg is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * Lesser General Public License for more details.
  *
  * You should have received a copy of the GNU Lesser General Public
  * License along with FFmpeg; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*)

(*
  * @file
  * misc parsing utilities
*)

(*
  * Parse str and store the parsed ratio in q.
  *
  * Note that a ratio with infinite (1/0) or negative value is
  * considered valid, so you should check on the returned value if you
  * want to exclude those values.
  *
  * The undefined value can be expressed using the "0:0" string.
  *
  * @param[in,out] q pointer to the AVRational which will contain the ratio
  * @param[in] str the string to parse: it has to be a string in the format
  * num:den, a float number or an expression
  * @param[in] max the maximum allowed numerator and denominator
  * @param[in] log_offset log level offset which is applied to the log
  * level of log_ctx
  * @param[in] log_ctx parent logging context
  * @return >= 0 on success, a negative error code otherwise
*)
//int av_parse_ratio(AVRational * q, const char * str, int max, int log_offset, void * log_ctx);
function av_parse_ratio(p:pAVRational; const str:PAnsiString; max:Integer; log_offset:Integer; log_ctx:pointer):integer; cdecl;

//#define av_parse_ratio_quiet(rate, str, max)\
//av_parse_ratio(rate, str, max, AV_LOG_MAX_OFFSET, NULL)
function av_parse_ratio_quiet(p:pAVRational; const str:PAnsiString; max:Integer):Integer; inline;

(*
  * Parse str and put in width_ptr and height_ptr the detected values.
  *
  * @param[in,out] width_ptr pointer to the variable which will contain the detected
  * width value
  * @param[in,out] height_ptr pointer to the variable which will contain the detected
  * height value
  * @param[in] str the string to parse: it has to be a string in the format
  * width x height or a valid video size abbreviation.
  * @return >= 0 on success, a negative error code otherwise
*)
// int av_parse_video_size(int *width_ptr, int *height_ptr, const char *str);
function av_parse_video_size(Var width_ptr: Integer; Var height_ptr: Integer; const str: pAnsiChar): Integer;
cdecl;

(*
  * Parse str and store the detected values in *rate.
  *
  * @param[in,out] rate pointer to the AVRational which will contain the detected
  * frame rate
  * @param[in] str the string to parse: it has to be a string in the format
  * rate_num / rate_den, a float number or a valid video rate abbreviation
  * @return >= 0 on success, a negative error code otherwise
*)
//int av_parse_video_rate(AVRational * rate, const char * str);

(*
  * Put the RGBA values that correspond to color_string in rgba_color.
  *
  * @param color_string a string specifying a color. It can be the name of
  * a color (case insensitive match) or a [0x|#]RRGGBB[AA] sequence,
  * possibly followed by "@" and a string representing the alpha
  * component.
  * The alpha component may be a string composed by "0x" followed by an
  * hexadecimal number or a decimal number between 0.0 and 1.0, which
  * represents the opacity value (0x00/0.0 means completely transparent,
  * 0xff/1.0 completely opaque).
  * If the alpha component is not specified then 0xff is assumed.
  * The string "random" will result in a random color.
  * @param slen length of the initial part of color_string containing the
  * color. It can be set to -1 if color_string is a null terminated string
  * containing nothing else than the color.
  * @return >= 0 in case of success, a negative value in case of
  * failure (for example if color_string cannot be parsed).
*)
//int av_parse_color(uint8_t * rgba_color, const char * color_string, int slen, void * log_ctx);

(*
  * Get the name of a color from the internal table of hard-coded named
  * colors.
  *
  * This function is meant to enumerate the color names recognized by
  * av_parse_color().
  *
  * @param color_idx index of the requested color, starting from 0
  * @param rgbp      if not NULL, will point to a 3-elements array with the color value in RGB
  * @return the color name string or NULL if color_idx is not in the array
*)
//const char * av_get_known_color_name(int color_idx, const uint8_t * * rgb);

(*
  * Parse timestr and return in *time a corresponding number of
  * microseconds.
  *
  * @param timeval puts here the number of microseconds corresponding
  * to the string in timestr. If the string represents a duration, it
  * is the number of microseconds contained in the time interval.  If
  * the string is a date, is the number of microseconds since 1st of
  * January, 1970 up to the time of the parsed date.  If timestr cannot
  * be successfully parsed, set *time to INT64_MIN.

  * @param timestr a string representing a date or a duration.
  * - If a date the syntax is:
  * @code
  * [{YYYY-MM-DD|YYYYMMDD}[T|t| ]]{{HH:MM:SS[.m...]]]}|{HHMMSS[.m...]]]}}[Z]
  * now
  * @endcode
  * If the value is "now" it takes the current time.
  * Time is local time unless Z is appended, in which case it is
  * interpreted as UTC.
  * If the year-month-day part is not specified it takes the current
  * year-month-day.
  * - If a duration the syntax is:
  * @code
  * [-][HH:]MM:SS[.m...]
  * [-]S+[.m...]
  * @endcode
  * @param duration flag which tells how to interpret timestr, if not
  * zero timestr is interpreted as a duration, otherwise as a date
  * @return >= 0 in case of success, a negative value corresponding to an
  * AVERROR code otherwise
*)
//int av_parse_time(int64_t * timeval, const char * timestr, int duration);

(*
  * Parse the input string p according to the format string fmt and
  * store its results in the structure dt.
  * This implementation supports only a subset of the formats supported
  * by the standard strptime().
  *
  * In particular it actually supports the parameters:
  * - %H: the hour as a decimal number, using a 24-hour clock, in the
  * range '00' through '23'
  * - %J: hours as a decimal number, in the range '0' through INT_MAX
  * - %M: the minute as a decimal number, using a 24-hour clock, in the
  * range '00' through '59'
  * - %S: the second as a decimal number, using a 24-hour clock, in the
  * range '00' through '59'
  * - %Y: the year as a decimal number, using the Gregorian calendar
  * - %m: the month as a decimal number, in the range '1' through '12'
  * - %d: the day of the month as a decimal number, in the range '1'
  * through '31'
  * - %%: a literal '%'
  *
  * @return a pointer to the first character not processed in this
  * function call, or NULL in case the function fails to match all of
  * the fmt string and therefore an error occurred
*)
//char * av_small_strptime(const char * p, const char * fmt, struct tm * dt);

(*
  * Attempt to find a specific tag in a URL.
  *
  * syntax: '?tag1=val1&tag2=val2...'. Little URL decoding is done.
  * Return 1 if found.
*)
//int av_find_info_tag(char * arg, int arg_size, const char * tag1, const char * info);

(*
  * Convert the decomposed UTC time in tm to a time_t value.
*)
//time_t av_timegm(struct tm * tm);

implementation

uses ffmpeglib, log;

function av_parse_video_size; external avutil_dll;
function av_parse_ratio; external avutil_dll;
function av_parse_ratio_quiet;
begin
  Result := av_parse_ratio(p,str,max,AV_LOG_MAX_OFFSET, nil);
end;

end.