comparison src/mac.c @ 61338:b44917251d3a

(cfdate_to_lisp): Add `const' for variable `epoch_gdate'. (Fmac_get_preference): Doc fix.

61337:3e5d6db23314

  return result;
}


/* CFDate to a list of three integers as in a return value of
   `current-time'xo.  */

Lisp_Object
cfdate_to_lisp (date)
     CFDateRef date;
{
  static CFGregorianDate epoch_gdate = {1970, 1, 1, 0, 0, 0.0};
  static CFAbsoluteTime epoch = 0.0, sec;
  int high, low;

  if (epoch == 0.0)
    epoch = CFGregorianDateGetAbsoluteTime (epoch_gdate, NULL);

  component = parse_component (p);
  if (NILP (component))
    return Qnil;

  result = Fcons (component, result);
  while (binding = parse_binding (p))
    {
      if (binding == '*')
	result = Fcons (LOOSE_BINDING, result);
      component = parse_component (p);
      if (NILP (component))

  CFNumber           Integer or float               number
  CFBoolean          Symbol (t or nil)              boolean
  CFDate             List of three integers         date
                       (cf. `current-time')
  CFData             Unibyte string                 data
  CFArray            Array                          array
  CFDictionary       Alist or hash table            dictionary
                       (depending on HASH-BOUND)

If it is t, a symbol that represents the type of the original Core
Foundation object is prepended.  If it is `xml', the value is returned

{
  QCLIPBOARD = intern ("CLIPBOARD");
  staticpro (&QCLIPBOARD);

#if TARGET_API_MAC_CARBON
  Qstring = intern ("string");
  staticpro (&Qstring);

  Qnumber = intern ("number");
  staticpro (&Qnumber);

  Qboolean = intern ("boolean");
  staticpro (&Qboolean);

  Qdate = intern ("date");
  staticpro (&Qdate);

  Qdata = intern ("data");
  staticpro (&Qdata);

  Qarray = intern ("array");
  staticpro (&Qarray);

  Qdictionary = intern ("dictionary");
  staticpro (&Qdictionary);

  Qxml = intern ("xml");
  staticpro (&Qxml);
#endif

61338:b44917251d3a

  return result;
}


/* CFDate to a list of three integers as in a return value of
   `current-time'.  */

Lisp_Object
cfdate_to_lisp (date)
     CFDateRef date;
{
  static const CFGregorianDate epoch_gdate = {1970, 1, 1, 0, 0, 0.0};
  static CFAbsoluteTime epoch = 0.0, sec;
  int high, low;

  if (epoch == 0.0)
    epoch = CFGregorianDateGetAbsoluteTime (epoch_gdate, NULL);

  component = parse_component (p);
  if (NILP (component))
    return Qnil;

  result = Fcons (component, result);
  while ((binding = parse_binding (p)) != '\0')
    {
      if (binding == '*')
	result = Fcons (LOOSE_BINDING, result);
      component = parse_component (p);
      if (NILP (component))

  CFNumber           Integer or float               number
  CFBoolean          Symbol (t or nil)              boolean
  CFDate             List of three integers         date
                       (cf. `current-time')
  CFData             Unibyte string                 data
  CFArray            Vector                         array
  CFDictionary       Alist or hash table            dictionary
                       (depending on HASH-BOUND)

If it is t, a symbol that represents the type of the original Core
Foundation object is prepended.  If it is `xml', the value is returned

{
  QCLIPBOARD = intern ("CLIPBOARD");
  staticpro (&QCLIPBOARD);

#if TARGET_API_MAC_CARBON
  Qstring  = intern ("string");		staticpro (&Qstring);
  Qnumber  = intern ("number");		staticpro (&Qnumber);
  Qboolean = intern ("boolean");	staticpro (&Qboolean);
  Qdate	   = intern ("date");		staticpro (&Qdate);
  Qdata    = intern ("data");		staticpro (&Qdata);
  Qarray   = intern ("array");		staticpro (&Qarray);
  Qdictionary = intern ("dictionary");	staticpro (&Qdictionary);

  Qxml = intern ("xml");
  staticpro (&Qxml);
#endif