---

Class Relations

• class: ::nx::Object

::nx::Object create ::xo::ical

Methods (to be applied on the object)

• clock_to_iso (scripted)

  clock format $seconds -format "%Y-%m-%dT%H:%M:%SZ" -gmt 1

• clock_to_local_day (scripted)

  clock format $seconds -format "%Y%m%d"

• clock_to_oacstime (scripted)

  clock format $seconds -format "%Y-%m-%d %H:%M"

• clock_to_utc (scripted)

  clock format $seconds -format "%Y%m%dT%H%M%SZ" -gmt 1

• date_time_to_clock (scripted)

  set year  [string range $date 0 3]
  set month [string range $date 4 5]
  set day   [string range $date 6 7]
  set hour  [string range $time 0 1]
  set min   [string range $time 2 3]
  set sec   [string range $time 4 5]
  set TZ [expr {$utc ? "GMT" : ""}]
  return [clock scan "$year-$month-$day $hour:$min $TZ"]

• dates_valid_p (scripted)

  # A sanity check that the start time is before the end time.
  # This is a rewrite of calendar::item::dates_valid_p, but
  # about 100 times faster.
  #
  
  #:log "$start_date <= $end_date = [expr {[clock scan $start_date] <= [clock scan $end_date]}]"
  expr {[clock scan $start_date] <= [clock scan $end_date]}

• ical_to_text (scripted)

  #
  # Transform the escaped ical text format to plain text
  #
  regsub -all {\\(n|N)} $text \n text
  regsub -all {\\(\\|\;|\,)} $text {\1} text
  return $text

• reflow_content_line (scripted)

  #
  # Perform line folding: According to RFC 5545 section 3.1,
  # SHOULD NOT be longer than 75 octets, excluding the line break.
  # https://www.ietf.org/rfc/rfc5545.txt
  #
  if {[string length $text] > 73} {
    set lines ""
    while {[string length $text] > 73} {
      append lines [string range $text 0 73] \r\n " "
      set text [string range $text 74 end]
    }
    append lines $text
    set text $lines
  }
  return $text

• tcl_time_to_local_day (scripted)

  # https://tools.ietf.org/html/rfc5545#section-3.3.4
  return "VALUE=DATE:[:clock_to_local_day [clock scan $time]]"

• tcl_time_to_utc (scripted)

  clock format [clock scan $time] -format "%Y%m%dT%H%M%SZ" -gmt 1

• text_to_ical (scripted)

  #
  # Transform arbitrary text to the escaped ical text format
  # (see rfc 2445)
  #
  
  if {$remove_tags} {
    regsub -all {<[^>]+>} $text "" text
  }
  regsub -all {(\\|\;|\,)} $text {\\\1} text
  regsub -all \n $text {\\n} text
  return $text

• utc_to_clock (scripted)

  clock scan $utc_time -format "%Y%m%dT%H%M%SZ" -gmt 1

---