C++ (Cpp) date_and_timeの例

コード例 #1

ファイル: date_and_time.c プロジェクト: vinriviere/m68k-atari-mint-gcc

GFC_REAL_4
secnds (GFC_REAL_4 *x)
{
  GFC_INTEGER_4 values[VALUES_SIZE];
  GFC_REAL_4 temp1, temp2;

  /* Make the INTEGER*4 array for passing to date_and_time, with enough space
   for a rank-one array.  */
  gfc_array_i4 *avalues = xmalloc (sizeof (gfc_array_i4)
				   + sizeof (descriptor_dimension));
  avalues->base_addr = &values[0];
  GFC_DESCRIPTOR_DTYPE (avalues).type = BT_REAL;
  GFC_DESCRIPTOR_DTYPE (avalues).elem_len = 4;
  GFC_DESCRIPTOR_DTYPE (avalues).rank = 1;
  GFC_DIMENSION_SET(avalues->dim[0], 0, 7, 1);

  date_and_time (NULL, NULL, NULL, avalues, 0, 0, 0);

  free (avalues);

  temp1 = 3600.0 * (GFC_REAL_4)values[4] +
	    60.0 * (GFC_REAL_4)values[5] +
		   (GFC_REAL_4)values[6] +
	   0.001 * (GFC_REAL_4)values[7];
  temp2 = fmod (*x, 86400.0);
  temp2 = (temp1 - temp2 >= 0.0) ? temp2 : (temp2 - 86400.0);
  return temp1 - temp2;
}

コード例 #2

ファイル: date_and_time.c プロジェクト: JuanMiguelBG/gcc-4.7.0-PS3

GFC_REAL_4
secnds (GFC_REAL_4 *x)
{
  GFC_INTEGER_4 values[VALUES_SIZE];
  GFC_REAL_4 temp1, temp2;

  /* Make the INTEGER*4 array for passing to date_and_time.  */
  gfc_array_i4 *avalues = internal_malloc_size (sizeof (gfc_array_i4));
  avalues->data = &values[0];
  GFC_DESCRIPTOR_DTYPE (avalues) = ((BT_REAL << GFC_DTYPE_TYPE_SHIFT)
				        & GFC_DTYPE_TYPE_MASK) +
				    (4 << GFC_DTYPE_SIZE_SHIFT);

  GFC_DIMENSION_SET(avalues->dim[0], 0, 7, 1);

  date_and_time (NULL, NULL, NULL, avalues, 0, 0, 0);

  free (avalues);

  temp1 = 3600.0 * (GFC_REAL_4)values[4] +
	    60.0 * (GFC_REAL_4)values[5] +
		   (GFC_REAL_4)values[6] +
	   0.001 * (GFC_REAL_4)values[7];
  temp2 = fmod (*x, 86400.0);
  temp2 = (temp1 - temp2 >= 0.0) ? temp2 : (temp2 - 86400.0);
  return temp1 - temp2;
}

コード例 #3

ファイル: file.c プロジェクト: RavivarmanPerinpanathan/MyScript

int	footer()
{
  FILE		*file;
  char		*dt;

  file = create_file();
  dt = date_and_time();
  fwrite("\nScript done on ", 17, sizeof(char), file);
  fwrite(dt, strlen(dt), sizeof(char), file);
  fwrite("\n", 1, sizeof(char), file);
  return (0);
}

コード例 #4

ファイル: file.c プロジェクト: RavivarmanPerinpanathan/MyScript

int	header()
{
  FILE		*file;
  char		*dt;
  
  file = create_file();
  dt = date_and_time();
  fwrite("\nScript started on ", 18, sizeof(char), file);
  fwrite(dt, strlen(dt), sizeof(char), file);
  fwrite("\n", 1, sizeof(char), file);
  return (0);
}

コード例 #5

ファイル: q3.c プロジェクト: eokeeffe/C-code

int main()
{
	date_and_time();
	return 0;
}