Function FOutputCalendarFile

io.cpp:1196–1258

// format file, as indicated by the -oc switch.

flag FOutputCalendarFile(void)
{
  char sz[cchSzMax];
  CONST char *pch;
  FILE *file = NULL;
  int i, iMax, mon, day, yea;
  real tim;
  flag fRet = fFalse;
  CI *pci, ciT;

  if (us.fNoWrite)
    goto LDone;
  file = fopen(is.szFileOut, "w");  // Create and open the file for output.
  if (file == NULL) {
    sprintf(sz, "ICalendar file '%s' can not be created.", is.szFileOut);
    PrintError(sz);
    goto LDone;
  }

  GetTimeNow(&mon, &day, &yea, &tim, 0, 0);
  fprintf(file, "BEGIN:VCALENDAR\n");
  fprintf(file, "VERSION:2.0\n");
  fprintf(file, "PRODID:astrolog.org\n");
  fprintf(file, "CALSCALE:GREGORIAN\n");

  iMax = Max(is.cci, 1);
  for (i = 0; i < iMax; i++) {
    pci = iMax <= 1 ? &ciMain : &is.rgci[i];
    if (!FBetween(pci->yea, -999, 9999)) {
      PrintWarning("Can't save this chart to iCalendar format because the "
        "Year field is more than 4 characters long.");
      goto LDone;
    }
    fprintf(file, "BEGIN:VEVENT\n");
    pch = FSzSet(pci->nam) ? pci->nam : "Astrolog chart";
    fprintf(file, "SUMMARY:%s\n", pch);
    fprintf(file, "DESCRIPTION:%s\\nhttp://www.astrolog.org/astrolog.htm\n",
      pch);
    fprintf(file, "LOCATION:%s\n",
      FSzSet(pci->loc) ? pci->loc : "Default location");
    ciT = *pci; ciT.tim += rSmall;
    AdjustTimeZone(&ciT, 0, 0);
    sprintf(sz, "%04d%02d%02dT%02d%02d%02dZ",
      ciT.yea, ciT.mon, ciT.day, (int)ciT.tim, (int)(RFract(ciT.tim)*60.0),
      (int)(RFract(ciT.tim)*3600.0) % 60);
    fprintf(file, "DTSTART:%s\n", sz);
    fprintf(file, "DTEND:%s\n", sz);
    sprintf(sz, "%04d%02d%02dT%02d%02d%02dZ",
      yea, mon, day, (int)tim, (int)(RFract(tim)*60.0),
      (int)(RFract(tim)*3600.0) % 60);
    fprintf(file, "DTSTAMP:%s\n", sz);
    fprintf(file, "UID:astrolog.org_%s_%d\n", sz, i);
    fprintf(file, "URL:http://www.astrolog.org/astrolog.htm\n");
    fprintf(file, "END:VEVENT\n");
  }
  fprintf(file, "END:VCALENDAR\n");

  fRet = fTrue;