head	8.7;
access;
symbols;
locks; strict;
comment	@ * @;


8.7
date	2026.05.11.12.01.10;	author mcalabre;	state Exp;
branches;
next	8.6;

8.6
date	2026.03.29.13.53.56;	author mcalabre;	state Exp;
branches
	8.6.1.1;
next	8.5;

8.5
date	2025.12.06.13.47.41;	author mcalabre;	state Exp;
branches
	8.5.1.1;
next	8.4;

8.4
date	2024.10.28.13.56.17;	author mcalabre;	state Exp;
branches
	8.4.1.1;
next	8.3;

8.3
date	2024.05.13.16.33.00;	author mcalabre;	state Exp;
branches
	8.3.1.1;
next	8.2;

8.2
date	2023.11.16.10.00.30;	author mcalabre;	state Exp;
branches
	8.2.1.1;
next	8.1;

8.1
date	2023.07.05.17.12.07;	author mcalabre;	state Exp;
branches
	8.1.1.1;
next	8.0;

8.0
date	2023.07.01.06.15.05;	author mcalabre;	state Exp;
branches
	8.0.1.1;
next	7.13;

7.13
date	2022.10.07.03.43.35;	author mcalabre;	state Exp;
branches
	7.13.1.1;
next	7.12;

7.12
date	2022.09.09.04.57.58;	author mcalabre;	state Exp;
branches
	7.12.1.1;
next	7.11;

7.11
date	2022.04.26.06.13.52;	author mcalabre;	state Exp;
branches
	7.11.1.1;
next	7.10;

7.10
date	2022.04.23.14.25.15;	author mcalabre;	state Exp;
branches
	7.10.1.1;
next	7.9;

7.9
date	2022.03.25.15.14.49;	author mcalabre;	state Exp;
branches
	7.9.1.1;
next	7.8;

7.8
date	2022.03.25.06.11.49;	author mcalabre;	state Exp;
branches
	7.8.1.1;
next	7.7;

7.7
date	2021.07.12.06.36.49;	author mcalabre;	state Exp;
branches
	7.7.1.1;
next	7.6;

7.6
date	2021.04.13.12.57.01;	author mcalabre;	state Exp;
branches
	7.6.1.1;
next	7.5;

7.5
date	2021.03.20.05.54.58;	author mcalabre;	state Exp;
branches
	7.5.1.1;
next	7.4;

7.4
date	2021.01.31.02.24.52;	author mcalabre;	state Exp;
branches
	7.4.1.1;
next	7.3;

7.3
date	2020.06.03.03.37.03;	author mcalabre;	state Exp;
branches
	7.3.1.1;
next	7.2;

7.2
date	2020.03.09.07.31.23;	author mcalabre;	state Exp;
branches
	7.2.1.1;
next	7.1;

7.1
date	2019.12.31.13.25.19;	author mcalabre;	state Exp;
branches
	7.1.1.1;
next	6.4;

6.4
date	2019.08.15.09.30.18;	author mcalabre;	state Exp;
branches
	6.4.1.1;
next	6.3;

6.3
date	2019.07.12.07.33.39;	author mcalabre;	state Exp;
branches
	6.3.1.1;
next	6.2;

6.2
date	2018.10.20.10.03.14;	author mcalabre;	state Exp;
branches
	6.2.1.1;
next	6.1;

6.1
date	2018.10.19.08.35.17;	author mcalabre;	state Exp;
branches
	6.1.1.1;
next	5.20;

5.20
date	2018.10.05.05.32.41;	author mcalabre;	state Exp;
branches
	5.20.1.1;
next	5.19;

5.19
date	2018.07.26.15.37.05;	author mcalabre;	state Exp;
branches
	5.19.1.1;
next	5.18;

5.18
date	2018.01.10.08.32.14;	author mcalabre;	state Exp;
branches
	5.18.1.1;
next	5.17;

5.17
date	2017.09.18.08.44.24;	author mcalabre;	state Exp;
branches
	5.17.1.1;
next	5.16;

5.16
date	2017.01.15.04.25.02;	author mcalabre;	state Exp;
branches
	5.16.1.1;
next	5.15;

5.15
date	2016.04.05.12.55.11;	author mcalabre;	state Exp;
branches
	5.15.1.1;
next	5.14;

5.14
date	2016.02.07.10.49.32;	author mcalabre;	state Exp;
branches
	5.14.1.1;
next	5.13;

5.13
date	2016.01.26.08.51.15;	author mcalabre;	state Exp;
branches
	5.13.1.1;
next	5.12;

5.12
date	2015.11.15.02.13.01;	author mcalabre;	state Exp;
branches
	5.12.1.1;
next	5.11;

5.11
date	2015.10.18.09.13.06;	author mcalabre;	state Exp;
branches
	5.11.1.1;
next	5.10;

5.10
date	2015.10.09.08.19.16;	author mcalabre;	state Exp;
branches
	5.10.1.1;
next	5.9;

5.9
date	2015.07.21.09.20.03;	author mcalabre;	state Exp;
branches
	5.9.1.1;
next	5.8;

5.8
date	2015.07.08.11.04.01;	author mcalabre;	state Exp;
branches
	5.8.1.1;
next	5.7;

5.7
date	2015.06.29.02.44.17;	author mcalabre;	state Exp;
branches
	5.7.1.1;
next	5.6;

5.6
date	2015.06.14.07.11.25;	author mcalabre;	state Exp;
branches
	5.6.1.1;
next	5.5;

5.5
date	2015.05.05.13.16.32;	author mcalabre;	state Exp;
branches
	5.5.1.1;
next	5.4;

5.4
date	2015.04.21.14.41.06;	author mcalabre;	state Exp;
branches
	5.4.1.1;
next	5.3;

5.3
date	2015.04.21.02.50.52;	author mcalabre;	state Exp;
branches
	5.3.1.1;
next	5.2;

5.2
date	2015.04.15.12.35.08;	author mcalabre;	state Exp;
branches
	5.2.1.1;
next	5.1;

5.1
date	2015.04.07.10.56.38;	author mcalabre;	state Exp;
branches
	5.1.1.1;
next	5.0;

5.0
date	2015.04.05.12.25.01;	author mcalabre;	state Exp;
branches
	5.0.1.1;
next	4.25;

4.25
date	2014.12.14.14.29.37;	author mcalabre;	state Exp;
branches
	4.25.1.1;
next	4.24;

4.24
date	2014.09.18.15.25.01;	author mcalabre;	state Exp;
branches
	4.24.1.1;
next	4.23;

4.23
date	2014.05.13.05.50.52;	author mcalabre;	state Exp;
branches
	4.23.1.1;
next	4.22;

4.22
date	2014.04.12.15.03.53;	author mcalabre;	state Exp;
branches
	4.22.1.1;
next	4.21;

4.21
date	2014.03.24.05.12.28;	author mcalabre;	state Exp;
branches
	4.21.1.1;
next	4.20;

4.20
date	2013.12.18.05.42.50;	author mcalabre;	state Exp;
branches
	4.20.1.1;
next	4.19;

4.19
date	2013.09.29.14.17.52;	author mcalabre;	state Exp;
branches
	4.19.1.1;
next	4.18;

4.18
date	2013.07.13.10.00.05;	author mcalabre;	state Exp;
branches
	4.18.1.1;
next	4.17;

4.17
date	2013.01.29.05.29.21;	author cal103;	state Exp;
branches
	4.17.1.1;
next	4.16;

4.16
date	2012.11.07.04.42.45;	author cal103;	state Exp;
branches
	4.16.1.1;
next	4.15;

4.15
date	2012.09.26.14.26.06;	author cal103;	state Exp;
branches
	4.15.1.1;
next	4.14;

4.14
date	2012.07.13.10.02.32;	author cal103;	state Exp;
branches
	4.14.1.1;
next	4.13;

4.13
date	2012.03.14.07.39.30;	author cal103;	state Exp;
branches
	4.13.1.1;
next	4.12;

4.12
date	2012.02.29.07.57.57;	author cal103;	state Exp;
branches
	4.12.1.1;
next	4.11;

4.11
date	2012.02.20.23.30.02;	author cal103;	state Exp;
branches
	4.11.1.1;
next	4.10;

4.10
date	2012.02.05.23.41.44;	author cal103;	state Exp;
branches
	4.10.1.1;
next	4.9;

4.9
date	2012.01.24.05.40.29;	author cal103;	state Exp;
branches
	4.9.1.1;
next	4.8;

4.8
date	2011.08.15.08.05.54;	author cal103;	state Exp;
branches
	4.8.1.1;
next	4.7;

4.7
date	2011.02.07.07.03.42;	author cal103;	state Exp;
branches
	4.7.1.1;
next	4.6;

4.6
date	2010.11.16.06.15.31;	author cal103;	state Exp;
branches
	4.6.1.1;
next	4.5;

4.5
date	2010.07.16.07.01.26;	author cal103;	state Exp;
branches
	4.5.1.1;
next	4.4;

4.4
date	2009.08.06.07.45.31;	author cal103;	state Exp;
branches
	4.4.1.1;
next	4.3;

4.3
date	2007.12.27.05.35.51;	author cal103;	state Exp;
branches
	4.3.1.1;
next	4.2;

4.2
date	2005.09.23.03.09.34;	author cal103;	state Exp;
branches
	4.2.1.1;
next	4.1;

4.1
date	2005.08.25.06.25.16;	author cal103;	state Exp;
branches;
next	0.0;

0.0
date	2005.08.25.06.12.24;	author cal103;	state Exp;
branches;
next	;

4.2.1.1
date	2005.12.05.01.39.15;	author cal103;	state Exp;
branches;
next	4.2.1.2;

4.2.1.2
date	2005.12.16.03.55.23;	author cal103;	state Exp;
branches;
next	4.2.1.3;

4.2.1.3
date	2007.06.29.06.36.49;	author cal103;	state Exp;
branches;
next	4.2.1.4;

4.2.1.4
date	2007.07.11.08.02.44;	author cal103;	state Exp;
branches;
next	4.2.1.5;

4.2.1.5
date	2007.07.12.02.35.59;	author cal103;	state Exp;
branches;
next	4.2.1.6;

4.2.1.6
date	2007.07.12.03.54.38;	author cal103;	state Exp;
branches;
next	4.2.1.7;

4.2.1.7
date	2007.08.02.05.58.54;	author cal103;	state Exp;
branches;
next	4.2.1.8;

4.2.1.8
date	2007.08.08.04.15.14;	author cal103;	state Exp;
branches;
next	4.2.1.9;

4.2.1.9
date	2007.08.08.04.28.57;	author cal103;	state Exp;
branches;
next	4.2.1.10;

4.2.1.10
date	2007.12.03.05.12.59;	author cal103;	state Exp;
branches;
next	;

4.3.1.1
date	2007.12.27.13.24.32;	author cal103;	state Exp;
branches;
next	4.3.1.2;

4.3.1.2
date	2009.07.22.06.37.43;	author cal103;	state Exp;
branches;
next	;

4.4.1.1
date	2009.08.10.08.54.26;	author cal103;	state Exp;
branches;
next	4.4.1.2;

4.4.1.2
date	2010.01.19.03.44.00;	author cal103;	state Exp;
branches;
next	;

4.5.1.1
date	2010.07.16.07.05.32;	author cal103;	state Exp;
branches;
next	;

4.6.1.1
date	2010.11.16.06.16.19;	author cal103;	state Exp;
branches;
next	4.6.1.2;

4.6.1.2
date	2011.01.14.06.33.44;	author cal103;	state Exp;
branches;
next	;

4.7.1.1
date	2011.02.07.07.04.23;	author cal103;	state Exp;
branches;
next	4.7.1.2;

4.7.1.2
date	2011.08.12.05.36.41;	author cal103;	state Exp;
branches;
next	;

4.8.1.1
date	2011.08.15.08.07.06;	author cal103;	state Exp;
branches;
next	4.8.1.2;

4.8.1.2
date	2012.01.24.05.23.30;	author cal103;	state Exp;
branches;
next	;

4.9.1.1
date	2012.01.24.05.41.46;	author cal103;	state Exp;
branches;
next	;

4.10.1.1
date	2012.02.05.23.42.47;	author cal103;	state Exp;
branches;
next	;

4.11.1.1
date	2012.02.20.23.31.13;	author cal103;	state Exp;
branches;
next	;

4.12.1.1
date	2012.02.29.07.59.11;	author cal103;	state Exp;
branches;
next	;

4.13.1.1
date	2012.03.14.07.40.38;	author cal103;	state Exp;
branches;
next	4.13.1.2;

4.13.1.2
date	2012.07.13.03.37.00;	author cal103;	state Exp;
branches;
next	;

4.14.1.1
date	2012.07.13.10.04.50;	author cal103;	state Exp;
branches;
next	;

4.15.1.1
date	2012.09.26.14.27.52;	author cal103;	state Exp;
branches;
next	;

4.16.1.1
date	2012.11.07.04.45.57;	author cal103;	state Exp;
branches;
next	4.16.1.2;

4.16.1.2
date	2013.01.29.05.10.40;	author cal103;	state Exp;
branches;
next	;

4.17.1.1
date	2013.01.29.05.32.33;	author cal103;	state Exp;
branches;
next	;

4.18.1.1
date	2013.07.13.10.02.38;	author mcalabre;	state Exp;
branches;
next	;

4.19.1.1
date	2013.09.29.14.20.40;	author mcalabre;	state Exp;
branches;
next	;

4.20.1.1
date	2013.12.18.05.46.56;	author mcalabre;	state Exp;
branches;
next	4.20.1.2;

4.20.1.2
date	2014.03.21.06.26.03;	author mcalabre;	state Exp;
branches;
next	;

4.21.1.1
date	2014.03.24.05.15.29;	author mcalabre;	state Exp;
branches;
next	;

4.22.1.1
date	2014.04.12.15.06.33;	author mcalabre;	state Exp;
branches;
next	;

4.23.1.1
date	2014.05.13.05.53.51;	author mcalabre;	state Exp;
branches;
next	;

4.24.1.1
date	2014.09.18.15.28.11;	author mcalabre;	state Exp;
branches;
next	;

4.25.1.1
date	2014.12.14.14.32.46;	author mcalabre;	state Exp;
branches;
next	4.25.1.2;

4.25.1.2
date	2015.01.06.01.01.52;	author mcalabre;	state Exp;
branches;
next	4.25.1.3;

4.25.1.3
date	2015.03.13.06.48.43;	author mcalabre;	state Exp;
branches;
next	4.25.1.4;

4.25.1.4
date	2015.04.03.07.09.34;	author mcalabre;	state Exp;
branches;
next	;

5.0.1.1
date	2015.04.05.12.28.02;	author mcalabre;	state Exp;
branches;
next	;

5.1.1.1
date	2015.04.07.11.01.11;	author mcalabre;	state Exp;
branches;
next	;

5.2.1.1
date	2015.04.15.12.39.16;	author mcalabre;	state Exp;
branches;
next	;

5.3.1.1
date	2015.04.21.02.54.03;	author mcalabre;	state Exp;
branches;
next	;

5.4.1.1
date	2015.04.21.14.44.29;	author mcalabre;	state Exp;
branches;
next	;

5.5.1.1
date	2015.05.05.13.21.02;	author mcalabre;	state Exp;
branches;
next	;

5.6.1.1
date	2015.06.14.07.14.46;	author mcalabre;	state Exp;
branches;
next	;

5.7.1.1
date	2015.06.29.02.47.25;	author mcalabre;	state Exp;
branches;
next	;

5.8.1.1
date	2015.07.08.11.07.20;	author mcalabre;	state Exp;
branches;
next	;

5.9.1.1
date	2015.07.21.09.28.10;	author mcalabre;	state Exp;
branches;
next	;

5.10.1.1
date	2015.10.09.08.22.37;	author mcalabre;	state Exp;
branches;
next	;

5.11.1.1
date	2015.10.18.09.16.29;	author mcalabre;	state Exp;
branches;
next	;

5.12.1.1
date	2015.11.15.02.16.16;	author mcalabre;	state Exp;
branches;
next	5.12.1.2;

5.12.1.2
date	2016.01.25.05.17.40;	author mcalabre;	state Exp;
branches;
next	;

5.13.1.1
date	2016.01.26.08.54.34;	author mcalabre;	state Exp;
branches;
next	;

5.14.1.1
date	2016.02.07.10.52.46;	author mcalabre;	state Exp;
branches;
next	;

5.15.1.1
date	2016.04.05.12.58.37;	author mcalabre;	state Exp;
branches;
next	5.15.1.2;

5.15.1.2
date	2017.01.15.04.14.22;	author mcalabre;	state Exp;
branches;
next	;

5.16.1.1
date	2017.01.15.04.29.01;	author mcalabre;	state Exp;
branches;
next	;

5.17.1.1
date	2017.09.18.08.46.00;	author mcalabre;	state Exp;
branches;
next	5.17.1.2;

5.17.1.2
date	2017.12.05.00.30.02;	author mcalabre;	state Exp;
branches;
next	5.17.1.3;

5.17.1.3
date	2018.01.10.08.26.04;	author mcalabre;	state Exp;
branches;
next	;

5.18.1.1
date	2018.01.10.08.33.04;	author mcalabre;	state Exp;
branches;
next	;

5.19.1.1
date	2018.07.26.15.41.41;	author mcalabre;	state Exp;
branches;
next	;

5.20.1.1
date	2018.10.05.05.33.33;	author mcalabre;	state Exp;
branches;
next	;

6.1.1.1
date	2018.10.19.08.36.15;	author mcalabre;	state Exp;
branches;
next	;

6.2.1.1
date	2018.10.20.10.04.15;	author mcalabre;	state Exp;
branches;
next	6.2.1.2;

6.2.1.2
date	2019.05.10.02.01.28;	author mcalabre;	state Exp;
branches;
next	6.2.1.3;

6.2.1.3
date	2019.07.11.05.50.59;	author mcalabre;	state Exp;
branches;
next	;

6.3.1.1
date	2019.07.12.07.34.37;	author mcalabre;	state Exp;
branches;
next	;

6.4.1.1
date	2019.08.15.09.31.29;	author mcalabre;	state Exp;
branches;
next	6.4.1.2;

6.4.1.2
date	2019.12.03.06.14.52;	author mcalabre;	state Exp;
branches;
next	6.4.1.3;

6.4.1.3
date	2019.12.31.03.28.29;	author mcalabre;	state Exp;
branches;
next	;

7.1.1.1
date	2019.12.31.13.28.19;	author mcalabre;	state Exp;
branches;
next	;

7.2.1.1
date	2020.03.09.07.34.50;	author mcalabre;	state Exp;
branches;
next	;

7.3.1.1
date	2020.06.03.03.38.11;	author mcalabre;	state Exp;
branches;
next	7.3.1.2;

7.3.1.2
date	2020.08.17.11.20.48;	author mcalabre;	state Exp;
branches;
next	7.3.1.3;

7.3.1.3
date	2021.01.19.14.10.01;	author mcalabre;	state Exp;
branches;
next	7.3.1.4;

7.3.1.4
date	2021.01.28.12.31.20;	author mcalabre;	state Exp;
branches;
next	;

7.4.1.1
date	2021.01.31.02.26.24;	author mcalabre;	state Exp;
branches;
next	;

7.5.1.1
date	2021.03.20.05.56.42;	author mcalabre;	state Exp;
branches;
next	;

7.6.1.1
date	2021.04.13.13.00.36;	author mcalabre;	state Exp;
branches;
next	;

7.7.1.1
date	2021.07.12.06.38.27;	author mcalabre;	state Exp;
branches;
next	7.7.1.2;

7.7.1.2
date	2022.03.25.06.05.59;	author mcalabre;	state Exp;
branches;
next	;

7.8.1.1
date	2022.03.25.06.14.15;	author mcalabre;	state Exp;
branches;
next	;

7.9.1.1
date	2022.03.25.15.16.40;	author mcalabre;	state Exp;
branches;
next	;

7.10.1.1
date	2022.04.23.14.26.54;	author mcalabre;	state Exp;
branches;
next	;

7.11.1.1
date	2022.04.26.06.15.32;	author mcalabre;	state Exp;
branches;
next	;

7.12.1.1
date	2022.09.09.05.00.36;	author mcalabre;	state Exp;
branches;
next	;

7.13.1.1
date	2022.10.07.03.45.47;	author mcalabre;	state Exp;
branches;
next	7.13.1.2;

7.13.1.2
date	2023.06.15.04.17.20;	author mcalabre;	state Exp;
branches;
next	;

8.0.1.1
date	2023.07.01.06.22.44;	author mcalabre;	state Exp;
branches;
next	;

8.1.1.1
date	2023.07.05.17.15.00;	author mcalabre;	state Exp;
branches;
next	;

8.2.1.1
date	2023.11.16.10.05.58;	author mcalabre;	state Exp;
branches;
next	8.2.1.2;

8.2.1.2
date	2024.04.02.14.06.10;	author mcalabre;	state Exp;
branches;
next	;

8.3.1.1
date	2024.05.13.16.35.40;	author mcalabre;	state Exp;
branches;
next	;

8.4.1.1
date	2024.10.28.13.58.41;	author mcalabre;	state Exp;
branches;
next	8.4.1.2;

8.4.1.2
date	2025.12.06.13.37.17;	author mcalabre;	state Exp;
branches;
next	;

8.5.1.1
date	2025.12.06.14.05.16;	author mcalabre;	state Exp;
branches;
next	8.5.1.2;

8.5.1.2
date	2026.03.29.13.36.17;	author mcalabre;	state Exp;
branches;
next	;

8.6.1.1
date	2026.03.29.14.19.27;	author mcalabre;	state Exp;
branches;
next	8.6.1.2;

8.6.1.2
date	2026.04.10.13.25.51;	author mcalabre;	state Exp;
branches;
next	8.6.1.3;

8.6.1.3
date	2026.04.25.08.09.42;	author mcalabre;	state Exp;
branches;
next	8.6.1.4;

8.6.1.4
date	2026.05.11.09.37.34;	author mcalabre;	state Exp;
branches;
next	;


desc
@Program that tests the generic FITS header parser by reading a test header
and printing the resulting fitskey structs.
@


8.7
log
@WCSLIB 8.7
@
text
@/*============================================================================
  WCSLIB 8.7 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2026, Mark Calabretta

  This file is part of WCSLIB.

  WCSLIB 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 3 of the License, or (at your option)
  any later version.

  WCSLIB 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 WCSLIB.  If not, see http://www.gnu.org/licenses.

  Author: Mark Calabretta, Australia Telescope National Facility, CSIRO.
  http://www.atnf.csiro.au/computing/software/wcs
  $Id: tfitshdr.c,v 8.6.1.4 2026/05/11 09:37:34 mcalabre Exp mcalabre $
*=============================================================================
*
* tfitshdr tests fitshdr(), the FITS parser for image headers, by reading a
* test header and printing the resulting fitskey structs.
*
* Input comes from file 'fitshdr.fits' using either fits_hdr2str() from
* CFITSIO if the DO_CFITSIO preprocessor is defined, or read directly using
* fgets() otherwise.
*
* wcshdr() is called first to extract all WCS-related keyrecords from the
* input header before passing it on to fitshdr().
*
*---------------------------------------------------------------------------*/

// Must be included before anything else.
#include <wcsconfig_tests.h>

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#if defined HAVE_CFITSIO && defined DO_CFITSIO
#include <fitsio.h>
#endif

#include <fitshdr.h>
#include <wcshdr.h>
#include <wcsutil.h>

int main()

{
  // Set line buffering in case stdout is redirected to a file, otherwise
  // stdout and stderr messages will be jumbled (stderr is unbuffered).
  setvbuf(stdout, NULL, _IOLBF, 0);

  printf("Testing FITS image header parser (tfitshdr.c)\n"
         "---------------------------------------------\n\n");

  // Read in the FITS header.
  char infile[] = "fitshdr.fits";
  int  nkeyrec, status = 0;

#if defined HAVE_CFITSIO && defined DO_CFITSIO
  fitsfile *fptr;
  if (fits_open_file(&fptr, infile, READONLY, &status)) {
    fits_report_error(stderr, status);
    return 1;
  }

  char *header;
  if (fits_hdr2str(fptr, 0, NULL, 0, &header, &nkeyrec, &status)) {
    fits_report_error(stderr, status);
    return 1;
  }

  fits_close_file(fptr, &status);
#else
  FILE *fptr;
  if ((fptr = fopen(infile, "r")) == 0) {
    printf("ERROR opening %s\n", infile);
    return 1;
  }

  char keyrec[81], header[288001];
  int k = 0, gotend = 0;
  nkeyrec = 0;
  for (int j = 0; j < 100; j++) {
    for (int i = 0; i < 36; i++) {
      if (fgets(keyrec, 81, fptr) == 0) {
        break;
      }

      memcpy(header+k, keyrec, 80);
      k += 80;
      nkeyrec++;

      if (strncmp(keyrec, "END       ", 10) == 0) {
        // An END keyrecord was read, but read the rest of the block.
        gotend = 1;
      }
    }

    if (gotend) break;
  }
  fclose(fptr);
#endif

  printf("Found %d header keyrecords.\n", nkeyrec);


  // Cull recognized, syntactically valid WCS keyrecords from the header.
  int relax = WCSHDR_all;
  int ctrl = -1;
  int nreject, nwcs;
  struct wcsprm *wcs;
  if ((status = wcspih(header, nkeyrec, relax, ctrl, &nreject, &nwcs,
                       &wcs))) {
    fprintf(stderr, "wcspih ERROR %d: %s.\n", status, wcs_errmsg[status]);
    return 1;
  }
  wcsvfree(&nwcs, &wcs);

  // Number remaining.
  nkeyrec = strlen(header) / 80;


  // Specific keywords to be located or culled.
  int nkeyids = 7;
  struct fitskeyid keyids[8];
  strncpy(keyids[0].name, "SIMPLE  ", 12);
  strncpy(keyids[1].name, "BITPIX  ", 12);
  strncpy(keyids[2].name, "NAXIS   ", 12);
  strncpy(keyids[3].name, "COMMENT ", 12);
  strncpy(keyids[4].name, "HISTORY ", 12);
  strncpy(keyids[5].name, "        ", 12);
  strncpy(keyids[6].name, "END     ", 12);

  if (nkeyids) {
    printf("\nThe following keyrecords will not be listed:\n");
    for (int i = 0; i < nkeyids; i++) {
      printf("  \"%8s\"\n", keyids[i].name);
    }
  }


  // Parse the header.
  struct fitskey *keys;
  if ((status = fitshdr(header, nkeyrec, nkeyids, keyids, &nreject, &keys))) {
    printf("fitskey ERROR %d: %s.\n", status, fitshdr_errmsg[status]);
  }
#if defined HAVE_CFITSIO && defined DO_CFITSIO
  fits_free_memory(header, &status);
#endif

  // Report the results.
  printf("\n%d header keyrecords parsed by fitshdr(), %d rejected:\n\n",
    nkeyrec, nreject);
  struct fitskey *kptr = keys;
  for (int i = 0; i < nkeyrec; i++, kptr++) {
    // Skip syntactically valid keyrecords that were indexed.
    if (kptr->keyno < 0 && !kptr->status) continue;

    // Basic keyrecord info.
    printf("%4d%5d  %-8s%3d", kptr->keyno, kptr->status, kptr->keyword,
                              kptr->type);

    // Format the keyvalue for output.
    char text[80];
    switch (abs(kptr->type)%10) {
    case 1:
      // Logical.
      snprintf(text, 80, "%c", kptr->keyvalue.i?'T':'F');
      break;
    case 2:
      // 32-bit signed integer.
      snprintf(text, 80, "%d", kptr->keyvalue.i);
      break;
    case 3:
      // 64-bit signed integer.
#ifdef WCSLIB_INT64
         snprintf(text, 80, "%+lld", kptr->keyvalue.k);
#else
         if (kptr->keyvalue.k[2]) {
           snprintf(text, 80, "%+d%09d%09d", kptr->keyvalue.k[2],
                                         abs(kptr->keyvalue.k[1]),
                                         abs(kptr->keyvalue.k[0]));
         } else {
           snprintf(text, 80, "%+d%09d",     kptr->keyvalue.k[1],
                                         abs(kptr->keyvalue.k[0]));
         }
#endif
       break;
    case 4:;
      // Very long integer.
      int k = 0;
      for (int j = 7; j > 0; j--) {
        if (kptr->keyvalue.l[j]) {
          k = j;
          break;
        }
      }

      snprintf(text, 80, "%+d", kptr->keyvalue.l[k]);
      char *tp = text + strlen(text);
      for (int j = k-1; j >= 0; j--) {
        size_t tsize = (text + 80) - tp;
        snprintf(tp, tsize, "%09d", abs(kptr->keyvalue.l[j]));
        tp += strlen(tp);
      }

      break;
    case 5:
      // Float.
      snprintf(text, 80, "%+13.6e", kptr->keyvalue.f);
      break;
    case 6:
      // Int complex.
      snprintf(text, 80, "%.0f  %.0f", kptr->keyvalue.c[0],
                                       kptr->keyvalue.c[1]);
      break;
    case 7:
      // Float complex.
      snprintf(text, 80, "%+13.6e  %+13.6e", kptr->keyvalue.c[0],
                                             kptr->keyvalue.c[1]);
      break;
    case 8:
      // String.
      snprintf(text, 80, "\"%s\"", kptr->keyvalue.s);
      break;
    default:
      // No value.
      *text = '\0';
      break;
    }

    if (kptr->type > 0) {
      // Keyvalue successfully extracted.
      printf("  %s", text);
    } else if (kptr->type < 0) {
      // Syntax error of some type while extracting the keyvalue.
      printf("  (%s)", text);
    }

    // Units?
    if (kptr->ulen) {
      printf(" %.*s", kptr->ulen-2, kptr->comment+1);
    }

    // Comment text or reject keyrecord.
    printf("\n%s\n", kptr->comment);
  }


  // Print indexes.
  printf("\n\nIndexes of selected keywords:\n");
  for (int i = 0; i < nkeyids; i++) {
    printf("%-8s%5d%5d%5d", keyids[i].name, keyids[i].count, keyids[i].idx[0],
      keyids[i].idx[1]);

    // Print logical (SIMPLE) and integer (BITPIX, NAXIS) values.
    if (keyids[i].count) {
      kptr = keys + keyids[i].idx[0];
      printf("%4d", kptr->type);

      if (kptr->type == 1) {
        printf("%5c", kptr->keyvalue.i?'T':'F');
      } else if (kptr->type == 2) {
        printf("%5d", kptr->keyvalue.i);
      }
    }
    printf("\n");
  }

  wcsdealloc(keys);

  return 0;
}
@


8.6
log
@WCSLIB 8.6
@
text
@d2 1
a2 1
  WCSLIB 8.6 - an implementation of the FITS WCS standard.
d22 1
a22 1
  $Id: tfitshdr.c,v 8.5.1.2 2026/03/29 13:36:17 mcalabre Exp mcalabre $
d37 1
a54 18
  char infile[] = "fitshdr.fits";
  char text[80];
  int  i, j, k, nkeyrec, nkeyids, nreject, status;
  struct fitskey *keys, *kptr;
  struct fitskeyid keyids[8];
#if defined HAVE_CFITSIO && defined DO_CFITSIO
  char *header;
  fitsfile *fptr;
#else
  char keyrec[81], header[288001];
  int  end;
  FILE *fptr;
#endif

  struct wcsprm *wcs;
  int  ctrl, nwcs, relax;


d63 3
d67 1
a67 2
  status = 0;

d73 1
d81 1
d87 2
a88 2
  k = 0;
  end = 0;
d90 2
a91 2
  for (j = 0; j < 100; j++) {
    for (i = 0; i < 36; i++) {
d102 1
a102 1
        end = 1;
d106 1
a106 1
    if (end) break;
d115 4
a118 2
  relax = WCSHDR_all;
  ctrl = -1;
d131 9
a139 8
  strcpy(keyids[0].name, "SIMPLE  ");
  strcpy(keyids[1].name, "BITPIX  ");
  strcpy(keyids[2].name, "NAXIS   ");
  strcpy(keyids[3].name, "COMMENT ");
  strcpy(keyids[4].name, "HISTORY ");
  strcpy(keyids[5].name, "        ");
  strcpy(keyids[6].name, "END     ");
  nkeyids = 7;
d143 1
a143 1
    for (i = 0; i < nkeyids; i++) {
d150 1
d161 2
a162 2
  kptr = keys;
  for (i = 0; i < nkeyrec; i++, kptr++) {
d171 1
d175 1
a175 1
      sprintf(text, "%c", kptr->keyvalue.i?'T':'F');
d179 1
a179 1
      sprintf(text, "%d", kptr->keyvalue.i);
d184 1
a184 1
         sprintf(text, "%+lld", kptr->keyvalue.k);
d187 3
a189 3
           sprintf(text, "%+d%09d%09d", kptr->keyvalue.k[2],
                                    abs(kptr->keyvalue.k[1]),
                                    abs(kptr->keyvalue.k[0]));
d191 2
a192 2
           sprintf(text, "%+d%09d",     kptr->keyvalue.k[1],
                                    abs(kptr->keyvalue.k[0]));
d196 1
a196 1
    case 4:
d198 2
a199 2
      k = 0;
      for (j = 7; j > 0; j--) {
d206 6
a211 3
      sprintf(text, "%+d", kptr->keyvalue.l[k]);
      for (j = k-1; j >= 0; j--) {
        sprintf(text+strlen(text), "%09d", abs(kptr->keyvalue.l[j]));
d217 1
a217 1
      sprintf(text, "%+13.6e", kptr->keyvalue.f);
d221 2
a222 2
      sprintf(text, "%.0f  %.0f", kptr->keyvalue.c[0],
                                  kptr->keyvalue.c[1]);
d226 2
a227 2
      sprintf(text, "%+13.6e  %+13.6e", kptr->keyvalue.c[0],
                                        kptr->keyvalue.c[1]);
d231 1
a231 1
      sprintf(text, "\"%s\"", kptr->keyvalue.s);
d259 1
a259 1
  for (i = 0; i < nkeyids; i++) {
@


8.6.1.1
log
@WCSLIB 8.6 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 8.6 2026/03/29 13:53:56 mcalabre Exp $
@


8.6.1.2
log
@Converted to C99-style intermingled variable declarations.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 8.6.1.1 2026/03/29 14:19:27 mcalabre Exp mcalabre $
d54 18
d80 2
a81 2
  char infile[] = "fitshdr.fits";
  int nkeyrec, status = 0;
a82 2
#if defined HAVE_CFITSIO && defined DO_CFITSIO
  fitsfile *fptr;
a87 1
  char *header;
a94 1
  FILE *fptr;
d100 2
a101 3
  char keyrec[81], header[288001];
  int k = 0;
  int end = 0;
d103 2
a104 2
  for (int j = 0; j < 100; j++) {
    for (int i = 0; i < 36; i++) {
d128 2
a129 4
  int relax = WCSHDR_all;
  int ctrl = -1;
  int nreject, nwcs;
  struct wcsprm *wcs;
a141 2
  int nkeyids = 7;
  struct fitskeyid keyids[8];
d149 1
d153 1
a153 1
    for (int i = 0; i < nkeyids; i++) {
a159 1
  struct fitskey *keys;
d170 2
a171 2
  struct fitskey *kptr = keys;
  for (int i = 0; i < nkeyrec; i++, kptr++) {
a179 1
    char text[80];
d206 2
a207 2
      int k = 0;
      for (int j = 7; j > 0; j--) {
d215 1
a215 1
      for (int j = k-1; j >= 0; j--) {
d264 1
a264 1
  for (int i = 0; i < nkeyids; i++) {
@


8.6.1.3
log
@Inconsequential changes prompted by clang-tidy:
 - Replaced use of strcpy() with strncpy(), and sprintf() with snprintf()
   (clang-analyzer-security.insecureAPI.DeprecatedOrUnsafeBufferHandling).
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 8.6.1.2 2026/04/10 13:25:51 mcalabre Exp mcalabre $
a36 1
// Must be included before anything else.
d63 1
a63 1
  int  nkeyrec, status = 0;
d87 2
a88 1
  int k = 0, gotend = 0;
d102 1
a102 1
        gotend = 1;
d106 1
a106 1
    if (gotend) break;
d133 7
a139 7
  strncpy(keyids[0].name, "SIMPLE  ", 12);
  strncpy(keyids[1].name, "BITPIX  ", 12);
  strncpy(keyids[2].name, "NAXIS   ", 12);
  strncpy(keyids[3].name, "COMMENT ", 12);
  strncpy(keyids[4].name, "HISTORY ", 12);
  strncpy(keyids[5].name, "        ", 12);
  strncpy(keyids[6].name, "END     ", 12);
d175 1
a175 1
      snprintf(text, 80, "%c", kptr->keyvalue.i?'T':'F');
d179 1
a179 1
      snprintf(text, 80, "%d", kptr->keyvalue.i);
d184 1
a184 1
         snprintf(text, 80, "%+lld", kptr->keyvalue.k);
d187 3
a189 3
           snprintf(text, 80, "%+d%09d%09d", kptr->keyvalue.k[2],
                                         abs(kptr->keyvalue.k[1]),
                                         abs(kptr->keyvalue.k[0]));
d191 2
a192 2
           snprintf(text, 80, "%+d%09d",     kptr->keyvalue.k[1],
                                         abs(kptr->keyvalue.k[0]));
d206 1
a206 2
      snprintf(text, 80, "%+d", kptr->keyvalue.l[k]);
      char *tp = text + strlen(text);
d208 1
a208 3
        size_t tsize = (text + 80) - tp;
        snprintf(tp, tsize, "%09d", abs(kptr->keyvalue.l[j]));
        tp += strlen(tp);
d214 1
a214 1
      snprintf(text, 80, "%+13.6e", kptr->keyvalue.f);
d218 2
a219 2
      snprintf(text, 80, "%.0f  %.0f", kptr->keyvalue.c[0],
                                       kptr->keyvalue.c[1]);
d223 2
a224 2
      snprintf(text, 80, "%+13.6e  %+13.6e", kptr->keyvalue.c[0],
                                             kptr->keyvalue.c[1]);
d228 1
a228 1
      snprintf(text, 80, "\"%s\"", kptr->keyvalue.s);
@


8.6.1.4
log
@Appeased a pedantic compiler warning.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 8.6.1.3 2026/04/25 08:09:42 mcalabre Exp mcalabre $
d196 1
a196 1
    case 4:;
@


8.5
log
@WCSLIB 8.5
@
text
@d2 2
a3 2
  WCSLIB 8.5 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2025, Mark Calabretta
d21 2
a22 2
  http://www.atnf.csiro.au/people/Mark.Calabretta
  $Id: tfitshdr.c,v 8.4.1.2 2025/12/06 13:37:17 mcalabre Exp mcalabre $
@


8.5.1.1
log
@WCSLIB 8.5 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 8.5 2025/12/06 13:47:41 mcalabre Exp $
@


8.5.1.2
log
@Updated date in copyright notice.
@
text
@d3 1
a3 1
  Copyright (C) 1995-2026, Mark Calabretta
d21 2
a22 2
  http://www.atnf.csiro.au/computing/software/wcs
  $Id: tfitshdr.c,v 8.5.1.1 2025/12/06 14:05:16 mcalabre Exp mcalabre $
@


8.4
log
@WCSLIB 8.4
@
text
@d2 2
a3 2
  WCSLIB 8.4 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2024, Mark Calabretta
d22 1
a22 1
  $Id: tfitshdr.c,v 8.3.1.1 2024/05/13 16:35:40 mcalabre Exp mcalabre $
@


8.4.1.1
log
@WCSLIB 8.4 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 8.4 2024/10/28 13:56:17 mcalabre Exp $
@


8.4.1.2
log
@Updated date in copyright notice.
@
text
@d3 1
a3 1
  Copyright (C) 1995-2025, Mark Calabretta
d22 1
a22 1
  $Id: tfitshdr.c,v 8.4.1.1 2024/10/28 13:58:41 mcalabre Exp mcalabre $
@


8.3
log
@WCSLIB 8.3
@
text
@d2 1
a2 1
  WCSLIB 8.3 - an implementation of the FITS WCS standard.
d22 1
a22 1
  $Id: tfitshdr.c,v 8.2.1.2 2024/04/02 14:06:10 mcalabre Exp mcalabre $
@


8.3.1.1
log
@WCSLIB 8.3 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 8.3 2024/05/13 16:33:00 mcalabre Exp $
@


8.2
log
@WCSLIB 8.2
@
text
@d2 2
a3 2
  WCSLIB 8.2 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2023, Mark Calabretta
d22 1
a22 1
  $Id: tfitshdr.c,v 8.1.1.1 2023/07/05 17:15:00 mcalabre Exp mcalabre $
@


8.2.1.1
log
@WCSLIB 8.2 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 8.2 2023/11/16 10:00:30 mcalabre Exp $
@


8.2.1.2
log
@Updated date in copyright notice.
@
text
@d3 1
a3 1
  Copyright (C) 1995-2024, Mark Calabretta
d22 1
a22 1
  $Id: tfitshdr.c,v 8.2.1.1 2023/11/16 10:05:58 mcalabre Exp mcalabre $
@


8.1
log
@WCSLIB 8.1
@
text
@d2 1
a2 1
  WCSLIB 8.1 - an implementation of the FITS WCS standard.
d22 1
a22 1
  $Id: tfitshdr.c,v 8.0.1.1 2023/07/01 06:22:44 mcalabre Exp mcalabre $
@


8.1.1.1
log
@WCSLIB 8.1 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 8.1 2023/07/05 17:12:07 mcalabre Exp $
@


8.0
log
@WCSLIB 8.0
@
text
@d2 1
a2 1
  WCSLIB 8.0 - an implementation of the FITS WCS standard.
d22 1
a22 1
  $Id: tfitshdr.c,v 7.13.1.2 2023/06/15 04:17:20 mcalabre Exp mcalabre $
@


8.0.1.1
log
@WCSLIB 8.0 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 8.0 2023/07/01 06:15:05 mcalabre Exp $
@


7.13
log
@WCSLIB 7.13
@
text
@d2 2
a3 2
  WCSLIB 7.13 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2022, Mark Calabretta
d22 1
a22 1
  $Id: tfitshdr.c,v 7.12.1.1 2022/09/09 05:00:36 mcalabre Exp mcalabre $
@


7.13.1.1
log
@WCSLIB 7.13 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 7.13 2022/10/07 03:43:35 mcalabre Exp $
@


7.13.1.2
log
@Updated date in copyright notice.
@
text
@d3 1
a3 1
  Copyright (C) 1995-2023, Mark Calabretta
d22 1
a22 1
  $Id: tfitshdr.c,v 7.13.1.1 2022/10/07 03:45:47 mcalabre Exp mcalabre $
@


7.12
log
@WCSLIB 7.12
@
text
@d2 1
a2 1
  WCSLIB 7.12 - an implementation of the FITS WCS standard.
d22 1
a22 1
  $Id: tfitshdr.c,v 7.11.1.1 2022/04/26 06:15:32 mcalabre Exp mcalabre $
@


7.12.1.1
log
@WCSLIB 7.12 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 7.12 2022/09/09 04:57:58 mcalabre Exp $
@


7.11
log
@WCSLIB 7.11
@
text
@d2 1
a2 1
  WCSLIB 7.11 - an implementation of the FITS WCS standard.
d22 1
a22 1
  $Id: tfitshdr.c,v 7.10.1.1 2022/04/23 14:26:54 mcalabre Exp mcalabre $
@


7.11.1.1
log
@WCSLIB 7.11 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 7.11 2022/04/26 06:13:52 mcalabre Exp $
@


7.10
log
@WCSLIB 7.10
@
text
@d2 1
a2 1
  WCSLIB 7.10 - an implementation of the FITS WCS standard.
d22 1
a22 1
  $Id: tfitshdr.c,v 7.9.1.1 2022/03/25 15:16:40 mcalabre Exp mcalabre $
@


7.10.1.1
log
@WCSLIB 7.10 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 7.10 2022/04/23 14:25:15 mcalabre Exp $
@


7.9
log
@WCSLIB 7.9
@
text
@d2 1
a2 1
  WCSLIB 7.9 - an implementation of the FITS WCS standard.
d22 1
a22 1
  $Id: tfitshdr.c,v 7.8.1.1 2022/03/25 06:14:15 mcalabre Exp mcalabre $
@


7.9.1.1
log
@WCSLIB 7.9 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 7.9 2022/03/25 15:14:49 mcalabre Exp $
@


7.8
log
@WCSLIB 7.8
@
text
@d2 1
a2 1
  WCSLIB 7.8 - an implementation of the FITS WCS standard.
d22 1
a22 1
  $Id: tfitshdr.c,v 7.7.1.2 2022/03/25 06:05:59 mcalabre Exp mcalabre $
@


7.8.1.1
log
@WCSLIB 7.8 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 7.8 2022/03/25 06:11:49 mcalabre Exp $
@


7.7
log
@WCSLIB 7.7
@
text
@d2 2
a3 2
  WCSLIB 7.7 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2021, Mark Calabretta
d22 1
a22 1
  $Id: tfitshdr.c,v 7.6.1.1 2021/04/13 13:00:36 mcalabre Exp mcalabre $
@


7.7.1.1
log
@WCSLIB 7.7 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 7.7 2021/07/12 06:36:49 mcalabre Exp $
@


7.7.1.2
log
@Updated date in copyright notice.
@
text
@d3 1
a3 1
  Copyright (C) 1995-2022, Mark Calabretta
d22 1
a22 1
  $Id: tfitshdr.c,v 7.7.1.1 2021/07/12 06:38:27 mcalabre Exp mcalabre $
@


7.6
log
@WCSLIB 7.6
@
text
@d2 1
a2 1
  WCSLIB 7.6 - an implementation of the FITS WCS standard.
d22 1
a22 1
  $Id: tfitshdr.c,v 7.5.1.1 2021/03/20 05:56:42 mcalabre Exp mcalabre $
@


7.6.1.1
log
@WCSLIB 7.6 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 7.6 2021/04/13 12:57:01 mcalabre Exp $
@


7.5
log
@WCSLIB 7.5
@
text
@d2 1
a2 1
  WCSLIB 7.5 - an implementation of the FITS WCS standard.
d22 1
a22 1
  $Id: tfitshdr.c,v 7.4.1.1 2021/01/31 02:26:24 mcalabre Exp mcalabre $
@


7.5.1.1
log
@WCSLIB 7.5 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 7.5 2021/03/20 05:54:58 mcalabre Exp $
@


7.4
log
@WCSLIB 7.4
@
text
@d2 1
a2 1
  WCSLIB 7.4 - an implementation of the FITS WCS standard.
d22 1
a22 1
  $Id: tfitshdr.c,v 7.3.1.4 2021/01/28 12:31:20 mcalabre Exp mcalabre $
@


7.4.1.1
log
@WCSLIB 7.4 development branch.
@
text
@d22 1
a22 1
  $Id: tfitshdr.c,v 7.4 2021/01/31 02:24:52 mcalabre Exp $
@


7.3
log
@WCSLIB 7.3
@
text
@d2 2
a3 3

  WCSLIB 7.3 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2020, Mark Calabretta
a19 2
  Direct correspondence concerning WCSLIB to mark@@calabretta.id.au

d22 1
a22 1
  $Id: tfitshdr.c,v 7.2.1.1 2020/03/09 07:34:50 mcalabre Exp mcalabre $
d72 2
a73 2
  /* Set line buffering in case stdout is redirected to a file, otherwise
   * stdout and stderr messages will be jumbled (stderr is unbuffered). */
d79 1
a79 1
  /* Read in the FITS header. */
d114 1
a114 1
        /* An END keyrecord was read, but read the rest of the block. */
d127 1
a127 1
  /* Cull recognized, syntactically valid WCS keyrecords from the header. */
d137 1
a137 1
  /* Number remaining. */
d141 1
a141 1
  /* Specific keywords to be located or culled. */
d159 1
a159 1
  /* Parse the header. */
d167 1
a167 1
  /* Report the results. */
d172 1
a172 1
    /* Skip syntactically valid keyrecords that were indexed. */
d175 1
a175 1
    /* Basic keyrecord info. */
d179 1
a179 1
    /* Format the keyvalue for output. */
d182 1
a182 1
      /* Logical. */
d186 1
a186 1
      /* 32-bit signed integer. */
d190 1
a190 1
      /* 64-bit signed integer. */
d205 1
a205 1
      /* Very long integer. */
d221 1
a221 1
      /* Float. */
d225 1
a225 1
      /* Int complex. */
d230 1
a230 1
      /* Float complex. */
d235 1
a235 1
      /* String. */
d239 1
a239 1
      /* No value. */
d245 1
a245 1
      /* Keyvalue successfully extracted. */
d248 1
a248 1
      /* Syntax error of some type while extracting the keyvalue. */
d252 1
a252 1
    /* Units? */
d257 1
a257 1
    /* Comment text or reject keyrecord. */
d262 1
a262 1
  /* Print indexes. */
d268 1
a268 1
    /* Print logical (SIMPLE) and integer (BITPIX, NAXIS) values. */
@


7.3.1.1
log
@WCSLIB 7.3 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 7.3 2020/06/03 03:37:03 mcalabre Exp $
@


7.3.1.2
log
@Switched to C99 style commenting (i.e. using //) within the code.
@
text
@d2 1
d25 1
a25 1
  $Id: tfitshdr.c,v 7.3.1.1 2020/06/03 03:38:11 mcalabre Exp mcalabre $
d75 2
a76 2
  // Set line buffering in case stdout is redirected to a file, otherwise
  // stdout and stderr messages will be jumbled (stderr is unbuffered).
d82 1
a82 1
  // Read in the FITS header.
d117 1
a117 1
        // An END keyrecord was read, but read the rest of the block.
d130 1
a130 1
  // Cull recognized, syntactically valid WCS keyrecords from the header.
d140 1
a140 1
  // Number remaining.
d144 1
a144 1
  // Specific keywords to be located or culled.
d162 1
a162 1
  // Parse the header.
d170 1
a170 1
  // Report the results.
d175 1
a175 1
    // Skip syntactically valid keyrecords that were indexed.
d178 1
a178 1
    // Basic keyrecord info.
d182 1
a182 1
    // Format the keyvalue for output.
d185 1
a185 1
      // Logical.
d189 1
a189 1
      // 32-bit signed integer.
d193 1
a193 1
      // 64-bit signed integer.
d208 1
a208 1
      // Very long integer.
d224 1
a224 1
      // Float.
d228 1
a228 1
      // Int complex.
d233 1
a233 1
      // Float complex.
d238 1
a238 1
      // String.
d242 1
a242 1
      // No value.
d248 1
a248 1
      // Keyvalue successfully extracted.
d251 1
a251 1
      // Syntax error of some type while extracting the keyvalue.
d255 1
a255 1
    // Units?
d260 1
a260 1
    // Comment text or reject keyrecord.
d265 1
a265 1
  // Print indexes.
d271 1
a271 1
    // Print logical (SIMPLE) and integer (BITPIX, NAXIS) values.
@


7.3.1.3
log
@Updated date in copyright notice.
@
text
@d3 1
a3 1
  Copyright (C) 1995-2021, Mark Calabretta
d24 1
a24 1
  $Id: tfitshdr.c,v 7.3.1.2 2020/08/17 11:20:48 mcalabre Exp mcalabre $
@


7.3.1.4
log
@Removed my email address from the copyright notice.
@
text
@d20 2
d24 1
a24 1
  $Id: tfitshdr.c,v 7.3.1.3 2021/01/19 14:10:01 mcalabre Exp mcalabre $
@


7.2
log
@WCSLIB 7.2
@
text
@d3 1
a3 1
  WCSLIB 7.2 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 7.1.1.1 2019/12/31 13:28:19 mcalabre Exp mcalabre $
@


7.2.1.1
log
@WCSLIB 7.2 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 7.2 2020/03/09 07:31:23 mcalabre Exp $
@


7.1
log
@WCSLIB 7.1
@
text
@d3 1
a3 1
  WCSLIB 7.1 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 6.4.1.3 2019/12/31 03:28:29 mcalabre Exp mcalabre $
@


7.1.1.1
log
@WCSLIB 7.1 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 7.1 2019/12/31 13:25:19 mcalabre Exp $
@


6.4
log
@WCSLIB 6.4
@
text
@d3 2
a4 2
  WCSLIB 6.4 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2019, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 6.3.1.1 2019/07/12 07:34:37 mcalabre Exp mcalabre $
d112 1
a112 1
      strncpy(header+k, keyrec, 80);
@


6.4.1.1
log
@WCSLIB 6.4 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 6.4 2019/08/15 09:30:18 mcalabre Exp $
@


6.4.1.2
log
@Consequent on warnings from gcc 9.2.0 with -Wstringop-truncation (via -Wall),
replaced use of strncpy() with memcpy().
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 6.4.1.1 2019/08/15 09:31:29 mcalabre Exp mcalabre $
d112 1
a112 1
      memcpy(header+k, keyrec, 80);
@


6.4.1.3
log
@Updated date in copyright notice.
@
text
@d4 1
a4 1
  Copyright (C) 1995-2020, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 6.4.1.2 2019/12/03 06:14:52 mcalabre Exp mcalabre $
@


6.3
log
@WCSLIB 6.3
@
text
@d3 1
a3 1
  WCSLIB 6.3 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 6.2.1.3 2019/07/11 05:50:59 mcalabre Exp mcalabre $
@


6.3.1.1
log
@WCSLIB 6.3 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 6.3 2019/07/12 07:33:39 mcalabre Exp $
@


6.2
log
@WCSLIB 6.2
@
text
@d3 2
a4 2
  WCSLIB 6.2 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2018, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 6.1.1.1 2018/10/19 08:36:15 mcalabre Exp mcalabre $
d50 1
d52 1
a52 1
#include <fitshdr.h>
d167 1
a167 1
  free(header);
d285 1
a285 1
  free(keys);
@


6.2.1.1
log
@WCSLIB 6.2 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 6.2 2018/10/20 10:03:14 mcalabre Exp $
@


6.2.1.2
log
@Updated date in copyright notice.
@
text
@d4 1
a4 1
  Copyright (C) 1995-2019, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 6.2.1.1 2018/10/20 10:04:15 mcalabre Exp mcalabre $
@


6.2.1.3
log
@Use wcsdealloc() to free allocated memory returned to the user by fitshdr(),
and fits_free_memory() to free allocated memory returned by fits_hdr2str().
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 6.2.1.2 2019/05/10 02:01:28 mcalabre Exp mcalabre $
d50 1
a51 2
#include <wcshdr.h>
#include <wcsutil.h>
d166 1
a166 1
  fits_free_memory(header, &status);
d284 1
a284 1
  wcsdealloc(keys);
@


6.1
log
@WCSLIB 6.1
@
text
@d3 1
a3 1
  WCSLIB 6.1 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.20.1.1 2018/10/05 05:33:33 mcalabre Exp mcalabre $
@


6.1.1.1
log
@WCSLIB 6.1 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 6.1 2018/10/19 08:35:17 mcalabre Exp $
@


5.20
log
@WCSLIB 5.20
@
text
@d3 1
a3 1
  WCSLIB 5.20 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.19.1.1 2018/07/26 15:41:41 mcalabre Exp mcalabre $
@


5.20.1.1
log
@WCSLIB 5.20 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.20 2018/10/05 05:32:41 mcalabre Exp $
@


5.19
log
@WCSLIB 5.19
@
text
@d3 1
a3 1
  WCSLIB 5.19 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.18.1.1 2018/01/10 08:33:04 mcalabre Exp mcalabre $
@


5.19.1.1
log
@WCSLIB 5.19 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.19 2018/07/26 15:37:05 mcalabre Exp $
@


5.18
log
@WCSLIB 5.18
@
text
@d3 1
a3 1
  WCSLIB 5.18 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.17.1.3 2018/01/10 08:26:04 mcalabre Exp mcalabre $
@


5.18.1.1
log
@WCSLIB 5.18 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.18 2018/01/10 08:32:14 mcalabre Exp $
@


5.17
log
@WCSLIB 5.17
@
text
@d3 2
a4 2
  WCSLIB 5.17 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2017, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 5.16.1.1 2017/01/15 04:29:01 mcalabre Exp mcalabre $
d137 1
@


5.17.1.1
log
@WCSLIB 5.17 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.17 2017/09/18 08:44:24 mcalabre Exp $
@


5.17.1.2
log
@Free memory allocated by wcspih() to defeat spurious reporting of memory
leaks by valgrind.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.17.1.1 2017/09/18 08:46:00 mcalabre Exp mcalabre $
a136 1
  wcsvfree(&nwcs, &wcs);
@


5.17.1.3
log
@Updated date in copyright notice.
@
text
@d4 1
a4 1
  Copyright (C) 1995-2018, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 5.17.1.2 2017/12/05 00:30:02 mcalabre Exp mcalabre $
@


5.16
log
@WCSLIB 5.16
@
text
@d3 1
a3 1
  WCSLIB 5.16 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.15.1.2 2017/01/15 04:14:22 mcalabre Exp mcalabre $
@


5.16.1.1
log
@WCSLIB 5.16 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.16 2017/01/15 04:25:02 mcalabre Exp $
@


5.15
log
@WCSLIB 5.15
@
text
@d3 2
a4 2
  WCSLIB 5.15 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2016, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 5.14.1.1 2016/02/07 10:52:46 mcalabre Exp mcalabre $
@


5.15.1.1
log
@WCSLIB 5.15 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.15 2016/04/05 12:55:11 mcalabre Exp $
@


5.15.1.2
log
@Updated date in copyright notice.
@
text
@d4 1
a4 1
  Copyright (C) 1995-2017, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 5.15.1.1 2016/04/05 12:58:37 mcalabre Exp mcalabre $
@


5.14
log
@WCSLIB 5.14
@
text
@d3 1
a3 1
  WCSLIB 5.14 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.13.1.1 2016/01/26 08:54:34 mcalabre Exp mcalabre $
@


5.14.1.1
log
@WCSLIB 5.14 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.14 2016/02/07 10:49:32 mcalabre Exp $
@


5.13
log
@WCSLIB 5.13
@
text
@d3 1
a3 1
  WCSLIB 5.13 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.12.1.2 2016/01/25 05:17:40 mcalabre Exp mcalabre $
@


5.13.1.1
log
@WCSLIB 5.13 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.13 2016/01/26 08:51:15 mcalabre Exp $
@


5.12
log
@WCSLIB 5.12
@
text
@d3 2
a4 2
  WCSLIB 5.12 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2015, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 5.11.1.1 2015/10/18 09:16:29 mcalabre Exp mcalabre $
@


5.12.1.1
log
@WCSLIB 5.12 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.12 2015/11/15 02:13:01 mcalabre Exp $
@


5.12.1.2
log
@Updated date in copyright notice.
@
text
@d4 1
a4 1
  Copyright (C) 1995-2016, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 5.12.1.1 2015/11/15 02:16:16 mcalabre Exp mcalabre $
@


5.11
log
@WCSLIB 5.11
@
text
@d3 1
a3 1
  WCSLIB 5.11 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.10.1.1 2015/10/09 08:22:37 mcalabre Exp mcalabre $
@


5.11.1.1
log
@WCSLIB 5.11 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.11 2015/10/18 09:13:06 mcalabre Exp $
@


5.10
log
@WCSLIB 5.10
@
text
@d3 1
a3 1
  WCSLIB 5.10 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.9.1.1 2015/07/21 09:28:10 mcalabre Exp mcalabre $
@


5.10.1.1
log
@WCSLIB 5.10 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.10 2015/10/09 08:19:16 mcalabre Exp $
@


5.9
log
@WCSLIB 5.9
@
text
@d3 1
a3 1
  WCSLIB 5.9 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.8.1.1 2015/07/08 11:07:20 mcalabre Exp mcalabre $
@


5.9.1.1
log
@WCSLIB 5.9 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.9 2015/07/21 09:20:03 mcalabre Exp $
@


5.8
log
@WCSLIB 5.8
@
text
@d3 1
a3 1
  WCSLIB 5.8 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.7.1.1 2015/06/29 02:47:25 mcalabre Exp mcalabre $
@


5.8.1.1
log
@WCSLIB 5.8 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.8 2015/07/08 11:04:01 mcalabre Exp $
@


5.7
log
@WCSLIB 5.7
@
text
@d3 1
a3 1
  WCSLIB 5.7 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.6.1.1 2015/06/14 07:14:46 mcalabre Exp mcalabre $
@


5.7.1.1
log
@WCSLIB 5.7 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.7 2015/06/29 02:44:17 mcalabre Exp $
@


5.6
log
@WCSLIB 5.6
@
text
@d3 1
a3 1
  WCSLIB 5.6 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.5.1.1 2015/05/05 13:21:02 mcalabre Exp mcalabre $
@


5.6.1.1
log
@WCSLIB 5.6 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.6 2015/06/14 07:11:25 mcalabre Exp $
@


5.5
log
@WCSLIB 5.5
@
text
@d3 1
a3 1
  WCSLIB 5.5 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.4.1.1 2015/04/21 14:44:29 mcalabre Exp mcalabre $
@


5.5.1.1
log
@WCSLIB 5.5 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.5 2015/05/05 13:16:32 mcalabre Exp $
@


5.4
log
@WCSLIB 5.4
@
text
@d3 1
a3 1
  WCSLIB 5.4 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.3.1.1 2015/04/21 02:54:03 mcalabre Exp mcalabre $
@


5.4.1.1
log
@WCSLIB 5.4 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.4 2015/04/21 14:41:06 mcalabre Exp $
@


5.3
log
@WCSLIB 5.3
@
text
@d3 1
a3 1
  WCSLIB 5.3 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.2.1.1 2015/04/15 12:39:16 mcalabre Exp mcalabre $
@


5.3.1.1
log
@WCSLIB 5.3 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.3 2015/04/21 02:50:52 mcalabre Exp $
@


5.2
log
@WCSLIB 5.2
@
text
@d3 1
a3 1
  WCSLIB 5.2 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.1.1.1 2015/04/07 11:01:11 mcalabre Exp mcalabre $
@


5.2.1.1
log
@WCSLIB 5.2 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.2 2015/04/15 12:35:08 mcalabre Exp $
@


5.1
log
@WCSLIB 5.1
@
text
@d3 1
a3 1
  WCSLIB 5.1 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 5.0.1.1 2015/04/05 12:28:02 mcalabre Exp mcalabre $
@


5.1.1.1
log
@WCSLIB 5.1 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.1 2015/04/07 10:56:38 mcalabre Exp $
@


5.0
log
@WCSLIB 5.0
@
text
@d3 1
a3 1
  WCSLIB 5.0 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 4.25.1.4 2015/04/03 07:09:34 mcalabre Exp mcalabre $
@


5.0.1.1
log
@WCSLIB 5.0 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 5.0 2015/04/05 12:25:01 mcalabre Exp $
@


4.25
log
@WCSLIB 4.25
@
text
@d3 2
a4 2
  WCSLIB 4.25 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2014, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 4.24.1.1 2014/09/18 15:28:11 mcalabre Exp mcalabre $
d31 3
a33 3
* Input comes from file 'pih.fits' using either fits_hdr2str() from CFITSIO
* if the DO_CFITSIO preprocessor is defined, or read directly using fgets()
* otherwise.
d35 2
a36 3
* If the DO_WCSHDR preprocessor macro is defined, wcshdr() will be called
* first to extract all WCS-related keyrecords from the input header before
* passing it on to fitshdr().
a49 1
#ifdef DO_WCSHDR
a50 2
#endif

d56 1
a56 1
  char infile[] = "pih.fits";
a69 1
#ifdef DO_WCSHDR
a71 1
#endif
d115 1
a115 1
      if (strncmp(keyrec, "END     ", 8) == 0) {
a128 1
#ifdef DO_WCSHDR
a139 1
#endif
@


4.25.1.1
log
@WCSLIB 4.25 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 4.25 2014/12/14 14:29:37 mcalabre Exp $
@


4.25.1.2
log
@Updated date in copyright notice.
@
text
@d4 1
a4 1
  Copyright (C) 1995-2015, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 4.25.1.1 2014/12/14 14:32:46 mcalabre Exp mcalabre $
@


4.25.1.3
log
@Input is now taken from a special-purpose header in fitshdr.fits.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 4.25.1.2 2015/01/06 01:01:52 mcalabre Exp mcalabre $
d31 3
a33 3
* Input comes from file 'fitshdr.fits' using either fits_hdr2str() from
* CFITSIO if the DO_CFITSIO preprocessor is defined, or read directly using
* fgets() otherwise.
d60 1
a60 1
  char infile[] = "fitshdr.fits";
d121 1
a121 1
      if (strncmp(keyrec, "END       ", 10) == 0) {
@


4.25.1.4
log
@To bring it in line with the Fortran test program, now invokes wcspih()
unconditionally to cull all WCS-related keyrecords from the input header
before passing it on to fitshdr().
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 4.25.1.3 2015/03/13 06:48:43 mcalabre Exp mcalabre $
d35 3
a37 2
* wcshdr() is called first to extract all WCS-related keyrecords from the
* input header before passing it on to fitshdr().
d51 1
d53 2
d74 1
d77 1
d135 1
d147 1
@


4.24
log
@WCSLIB 4.24
@
text
@d3 1
a3 1
  WCSLIB 4.24 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 4.23.1.1 2014/05/13 05:53:51 mcalabre Exp mcalabre $
@


4.24.1.1
log
@WCSLIB 4.24 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 4.24 2014/09/18 15:25:01 mcalabre Exp $
@


4.23
log
@WCSLIB 4.23
@
text
@d3 1
a3 1
  WCSLIB 4.23 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 4.22.1.1 2014/04/12 15:06:33 mcalabre Exp mcalabre $
@


4.23.1.1
log
@WCSLIB 4.23 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 4.23 2014/05/13 05:50:52 mcalabre Exp $
@


4.22
log
@WCSLIB 4.22
@
text
@d3 1
a3 1
  WCSLIB 4.22 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 4.21.1.1 2014/03/24 05:15:29 mcalabre Exp mcalabre $
@


4.22.1.1
log
@WCSLIB 4.22 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 4.22 2014/04/12 15:03:53 mcalabre Exp $
@


4.21
log
@WCSLIB 4.21
@
text
@d3 1
a3 1
  WCSLIB 4.21 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 4.20.1.2 2014/03/21 06:26:03 mcalabre Exp mcalabre $
@


4.21.1.1
log
@WCSLIB 4.21 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 4.21 2014/03/24 05:12:28 mcalabre Exp $
@


4.20
log
@WCSLIB 4.20
@
text
@d3 2
a4 2
  WCSLIB 4.20 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2013, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 4.19.1.1 2013/09/29 14:20:40 mcalabre Exp mcalabre $
@


4.20.1.1
log
@WCSLIB 4.20 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 4.20 2013/12/18 05:42:50 mcalabre Exp $
@


4.20.1.2
log
@Updated date in copyright notice.
@
text
@d4 1
a4 1
  Copyright (C) 1995-2014, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 4.20.1.1 2013/12/18 05:46:56 mcalabre Exp mcalabre $
@


4.19
log
@WCSLIB 4.19
@
text
@d3 1
a3 1
  WCSLIB 4.19 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 4.18.1.1 2013/07/13 10:02:38 mcalabre Exp mcalabre $
@


4.19.1.1
log
@WCSLIB 4.19 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 4.19 2013/09/29 14:17:52 mcalabre Exp $
@


4.18
log
@WCSLIB 4.18
@
text
@d3 1
a3 1
  WCSLIB 4.18 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 4.17.1.1 2013/01/29 05:32:33 cal103 Exp cal103 $
@


4.18.1.1
log
@WCSLIB 4.18 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 4.18 2013/07/13 10:00:05 mcalabre Exp $
@


4.17
log
@WCSLIB 4.17
@
text
@d3 1
a3 1
  WCSLIB 4.17 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 4.16.1.2 2013/01/29 05:10:40 cal103 Exp cal103 $
@


4.17.1.1
log
@WCSLIB 4.17 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 4.17 2013/01/29 05:29:21 cal103 Exp $
@


4.16
log
@WCSLIB 4.16
@
text
@d3 2
a4 2
  WCSLIB 4.16 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2012, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 4.15.1.1 2012/09/26 14:27:52 cal103 Exp cal103 $
@


4.16.1.1
log
@WCSLIB 4.16 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 4.16 2012/11/07 04:42:45 cal103 Exp $
@


4.16.1.2
log
@Updated date in copyright notice.
@
text
@d4 1
a4 1
  Copyright (C) 1995-2013, Mark Calabretta
d25 1
a25 1
  $Id: tfitshdr.c,v 4.16.1.1 2012/11/07 04:45:57 cal103 Exp cal103 $
@


4.15
log
@WCSLIB 4.15
@
text
@d3 1
a3 1
  WCSLIB 4.15 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 4.14.1.1 2012/07/13 10:04:50 cal103 Exp cal103 $
@


4.15.1.1
log
@WCSLIB 4.15 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 4.15 2012/09/26 14:26:06 cal103 Exp $
@


4.14
log
@WCSLIB 4.14
@
text
@d3 1
a3 1
  WCSLIB 4.14 - an implementation of the FITS WCS standard.
d25 1
a25 1
  $Id: tfitshdr.c,v 4.13.1.2 2012/07/13 03:37:00 cal103 Exp cal103 $
@


4.14.1.1
log
@WCSLIB 4.14 development branch.
@
text
@d25 1
a25 1
  $Id: tfitshdr.c,v 4.14 2012/07/13 10:02:32 cal103 Exp $
@


4.13
log
@WCSLIB 4.13
@
text
@d3 1
a3 1
  WCSLIB 4.13 - an implementation of the FITS WCS standard.
d19 1
a19 1
  along with WCSLIB.  If not, see <http://www.gnu.org/licenses/>.
d21 5
a25 11
  Correspondence concerning WCSLIB may be directed to:
    Internet email: mcalabre@@atnf.csiro.au
    Postal address: Dr. Mark Calabretta
                    Australia Telescope National Facility, CSIRO
                    PO Box 76
                    Epping NSW 1710
                    AUSTRALIA

  Author: Mark Calabretta, Australia Telescope National Facility
  http://www.atnf.csiro.au/~mcalabre/index.html
  $Id: tfitshdr.c,v 4.12.1.1 2012/02/29 07:59:11 cal103 Exp cal103 $
@


4.13.1.1
log
@WCSLIB 4.13 development branch.
@
text
@d31 1
a31 1
  $Id: tfitshdr.c,v 4.13 2012/03/14 07:39:30 cal103 Exp $
@


4.13.1.2
log
@Changed contact details.
@
text
@d19 1
a19 1
  along with WCSLIB.  If not, see http://www.gnu.org/licenses.
d21 11
a31 5
  Direct correspondence concerning WCSLIB to mark@@calabretta.id.au

  Author: Mark Calabretta, Australia Telescope National Facility, CSIRO.
  http://www.atnf.csiro.au/people/Mark.Calabretta
  $Id: tfitshdr.c,v 4.13.1.1 2012/03/14 07:40:38 cal103 Exp cal103 $
@


4.12
log
@WCSLIB 4.12
@
text
@d3 1
a3 1
  WCSLIB 4.12 - an implementation of the FITS WCS standard.
d31 1
a31 1
  $Id: tfitshdr.c,v 4.11.1.1 2012/02/20 23:31:13 cal103 Exp cal103 $
@


4.12.1.1
log
@WCSLIB 4.12 development branch.
@
text
@d31 1
a31 1
  $Id: tfitshdr.c,v 4.12 2012/02/29 07:57:57 cal103 Exp $
@


4.11
log
@WCSLIB 4.11
@
text
@d3 1
a3 1
  WCSLIB 4.11 - an implementation of the FITS WCS standard.
d31 1
a31 1
  $Id: tfitshdr.c,v 4.10.1.1 2012/02/05 23:42:47 cal103 Exp cal103 $
@


4.11.1.1
log
@WCSLIB 4.11 development branch.
@
text
@d31 1
a31 1
  $Id: tfitshdr.c,v 4.11 2012/02/20 23:30:02 cal103 Exp $
@


4.10
log
@WCSLIB 4.10
@
text
@d3 1
a3 1
  WCSLIB 4.10 - an implementation of the FITS WCS standard.
d31 1
a31 1
  $Id: tfitshdr.c,v 4.9.1.1 2012/01/24 05:41:46 cal103 Exp cal103 $
@


4.10.1.1
log
@WCSLIB 4.10 development branch.
@
text
@d31 1
a31 1
  $Id: tfitshdr.c,v 4.10 2012/02/05 23:41:44 cal103 Exp $
@


4.9
log
@WCSLIB 4.9
@
text
@d3 1
a3 1
  WCSLIB 4.9 - an implementation of the FITS WCS standard.
d31 1
a31 1
  $Id: tfitshdr.c,v 4.8.1.2 2012/01/24 05:23:30 cal103 Exp cal103 $
@


4.9.1.1
log
@WCSLIB 4.9 development branch.
@
text
@d31 1
a31 1
  $Id: tfitshdr.c,v 4.9 2012/01/24 05:40:29 cal103 Exp $
@


4.8
log
@WCSLIB 4.8
@
text
@d3 2
a4 2
  WCSLIB 4.8 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2011, Mark Calabretta
d31 1
a31 1
  $Id: tfitshdr.c,v 4.7.1.2 2011/08/12 05:36:41 cal103 Exp cal103 $
@


4.8.1.1
log
@WCSLIB 4.8 development branch.
@
text
@d31 1
a31 1
  $Id: tfitshdr.c,v 4.8 2011/08/15 08:05:54 cal103 Exp $
@


4.8.1.2
log
@Updated date in copyright notice.
@
text
@d4 1
a4 1
  Copyright (C) 1995-2012, Mark Calabretta
d31 1
a31 1
  $Id: tfitshdr.c,v 4.8.1.1 2011/08/15 08:07:06 cal103 Exp cal103 $
@


4.7
log
@WCSLIB 4.7
@
text
@d3 1
a3 1
  WCSLIB 4.7 - an implementation of the FITS WCS standard.
d31 1
a31 1
  $Id: tfitshdr.c,v 4.6.1.2 2011/01/14 06:33:44 cal103 Exp cal103 $
d237 1
a237 1
      sprintf(text, "%+13.6E", kptr->keyvalue.f);
d246 1
a246 1
      sprintf(text, "%+13.6E  %+13.6E", kptr->keyvalue.c[0],
@


4.7.1.1
log
@WCSLIB 4.7 development branch.
@
text
@d31 1
a31 1
  $Id: tfitshdr.c,v 4.7 2011/02/07 07:03:42 cal103 Exp $
@


4.7.1.2
log
@Use lower-case 'e' in exponential notation for legibility.
@
text
@d31 1
a31 1
  $Id: tfitshdr.c,v 4.7.1.1 2011/02/07 07:04:23 cal103 Exp cal103 $
d237 1
a237 1
      sprintf(text, "%+13.6e", kptr->keyvalue.f);
d246 1
a246 1
      sprintf(text, "%+13.6e  %+13.6e", kptr->keyvalue.c[0],
@


4.6
log
@WCSLIB 4.6
@
text
@d3 2
a4 2
  WCSLIB 4.6 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2010, Mark Calabretta
d31 1
a31 1
  $Id: tfitshdr.c,v 4.5.1.1 2010/07/16 07:05:32 cal103 Exp cal103 $
@


4.6.1.1
log
@WCSLIB 4.6 development branch.
@
text
@d31 1
a31 1
  $Id: tfitshdr.c,v 4.6 2010/11/16 06:15:31 cal103 Exp $
@


4.6.1.2
log
@Updated date in copyright notice.
@
text
@d4 1
a4 1
  Copyright (C) 1995-2011, Mark Calabretta
d31 1
a31 1
  $Id: tfitshdr.c,v 4.6.1.1 2010/11/16 06:16:19 cal103 Exp cal103 $
@


4.5
log
@WCSLIB 4.5
@
text
@d3 1
a3 1
  WCSLIB 4.5 - an implementation of the FITS WCS standard.
d31 1
a31 1
  $Id: tfitshdr.c,v 4.4.1.2 2010/01/19 03:44:00 cal103 Exp cal103 $
@


4.5.1.1
log
@WCSLIB 4.5 development branch.
@
text
@d31 1
a31 1
  $Id: tfitshdr.c,v 4.5 2010/07/16 07:01:26 cal103 Exp $
@


4.4
log
@WCSLIB 4.4
@
text
@d3 2
a4 2
  WCSLIB 4.4 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2009, Mark Calabretta
d31 1
a31 1
  $Id: tfitshdr.c,v 4.3.1.2 2009/07/22 06:37:43 cal103 Exp cal103 $
@


4.4.1.1
log
@WCSLIB 4.4 development branch.
@
text
@d31 1
a31 1
  $Id: tfitshdr.c,v 4.4 2009/08/06 07:45:31 cal103 Exp $
@


4.4.1.2
log
@Updated date in copyright notice.
@
text
@d4 1
a4 1
  Copyright (C) 1995-2010, Mark Calabretta
d31 1
a31 1
  $Id: tfitshdr.c,v 4.4.1.1 2009/08/10 08:54:26 cal103 Exp cal103 $
@


4.3
log
@WCSLIB 4.3
@
text
@d3 2
a4 2
    WCSLIB 4.3 - an implementation of the FITS WCS standard.
    Copyright (C) 1995-2007, Mark Calabretta
d6 1
a6 1
    This file is part of WCSLIB.
d8 24
a31 24
    WCSLIB 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 3 of the License, or (at your
    option) any later version.

    WCSLIB 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 WCSLIB.  If not, see <http://www.gnu.org/licenses/>.

    Correspondence concerning WCSLIB may be directed to:
       Internet email: mcalabre@@atnf.csiro.au
       Postal address: Dr. Mark Calabretta
                       Australia Telescope National Facility, CSIRO
                       PO Box 76
                       Epping NSW 1710
                       AUSTRALIA

    Author: Mark Calabretta, Australia Telescope National Facility
    http://www.atnf.csiro.au/~mcalabre/index.html
    $Id: tfitshdr.c,v 4.2.1.10 2007/12/03 05:12:59 cal103 Exp $
d34 2
a35 2
*   tfitshdr tests fitshdr(), the FITS parser for image headers, by reading a
*   test header and printing the resulting fitskey structs.
d37 3
a39 3
*   Input comes from file 'pih.fits' using either fits_hdr2str() from CFITSIO
*   if the DO_CFITSIO preprocessor is defined, or read directly using fgets()
*   otherwise.
d41 3
a43 3
*   If the DO_WCSHDR preprocessor macro is defined, wcshdr() will be called
*   first to extract all WCS-related keyrecords from the input header before
*   passing it on to fitshdr().
d66 5
a70 5
   char infile[] = "pih.fits";
   char text[80];
   int  i, j, k, nkeyrec, nkeyids, nreject, status;
   struct fitskey *keys, *kptr;
   struct fitskeyid keyids[8];
d72 2
a73 2
   char *header;
   fitsfile *fptr;
d75 3
a77 3
   char keyrec[81], header[288001];
   int  end;
   FILE *fptr;
d81 2
a82 2
   struct wcsprm *wcs;
   int  ctrl, nwcs, relax;
d86 3
a88 3
   /* Set line buffering in case stdout is redirected to a file, otherwise
    * stdout and stderr messages will be jumbled (stderr is unbuffered). */
   setvbuf(stdout, NULL, _IOLBF, 0);
d90 2
a91 2
   printf("Testing FITS image header parser (tfitshdr.c)\n"
          "---------------------------------------------\n\n");
d93 1
a93 1
   /* Read in the FITS header. */
d95 1
a95 1
   status = 0;
d97 9
a105 9
   if (fits_open_file(&fptr, infile, READONLY, &status)) {
      fits_report_error(stderr, status);
      return 1;
   }

   if (fits_hdr2str(fptr, 0, NULL, 0, &header, &nkeyrec, &status)) {
      fits_report_error(stderr, status);
      return 1;
   }
d107 1
a107 1
   fits_close_file(fptr, &status);
d109 13
a121 13
   if ((fptr = fopen(infile, "r")) == 0) {
      printf("ERROR opening %s\n", infile);
      return 1;
   }

   k = 0;
   end = 0;
   nkeyrec = 0;
   for (j = 0; j < 100; j++) {
      for (i = 0; i < 36; i++) {
         if (fgets(keyrec, 81, fptr) == 0) {
            break;
         }
d123 7
a129 8
         strncpy(header+k, keyrec, 80);
         k += 80;
         nkeyrec++;

         if (strncmp(keyrec, "END     ", 8) == 0) {
            /* An END keyrecord was read, but read the rest of the block. */
            end = 1;
         }
d131 1
d133 3
a135 3
      if (end) break;
   }
   fclose(fptr);
d138 1
a138 1
   printf("Found %d header keyrecords.\n", nkeyrec);
d142 8
a149 7
   /* Cull recognized, syntactically valid WCS keyrecords from the header. */
   relax = WCSHDR_all;
   ctrl = -1;
   if (status = wcspih(header, nkeyrec, relax, ctrl, &nreject, &nwcs, &wcs)) {
      fprintf(stderr, "wcspih ERROR %d: %s.\n", status, wcs_errmsg[status]);
      return 1;
   }
d151 2
a152 2
   /* Number remaining. */
   nkeyrec = strlen(header) / 80;
d156 22
a177 23
   /* Specific keywords to be located or culled. */
   strcpy(keyids[0].name, "SIMPLE  ");
   strcpy(keyids[1].name, "BITPIX  ");
   strcpy(keyids[2].name, "NAXIS   ");
   strcpy(keyids[3].name, "COMMENT ");
   strcpy(keyids[4].name, "HISTORY ");
   strcpy(keyids[5].name, "        ");
   strcpy(keyids[6].name, "END     ");
   nkeyids = 7;

   if (nkeyids) {
      printf("\nThe following keyrecords will not be listed:\n");
      for (i = 0; i < nkeyids; i++) {
         printf("  \"%8s\"\n", keyids[i].name);
      }
   }


   /* Parse the header. */
   if ((status = fitshdr(header, nkeyrec, nkeyids, keyids, &nreject,
                         &keys))) {
      printf("fitskey ERROR %d: %s.\n", status, fitshdr_errmsg[status]);
   }
d179 1
a179 1
   free(header);
d182 24
a205 24
   /* Report the results. */
   printf("\n%d header keyrecords parsed by fitshdr(), %d rejected:\n\n",
      nkeyrec, nreject);
   kptr = keys;
   for (i = 0; i < nkeyrec; i++, kptr++) {
      /* Skip syntactically valid keyrecords that were indexed. */
      if (kptr->keyno < 0 && !kptr->status) continue;

      /* Basic keyrecord info. */
      printf("%4d%5d  %-8s%3d", kptr->keyno, kptr->status, kptr->keyword,
                               kptr->type);

      /* Format the keyvalue for output. */
      switch (abs(kptr->type)%10) {
      case 1:
         /* Logical. */
         sprintf(text, "%c", kptr->keyvalue.i?'T':'F');
         break;
      case 2:
         /* 32-bit signed integer. */
         sprintf(text, "%d", kptr->keyvalue.i);
         break;
      case 3:
         /* 64-bit signed integer. */
d207 1
a207 1
            sprintf(text, "%+lld", kptr->keyvalue.k);
d209 8
a216 8
            if (kptr->keyvalue.k[2]) {
               sprintf(text, "%+d%09d%09d", kptr->keyvalue.k[2],
                                        abs(kptr->keyvalue.k[1]),
                                        abs(kptr->keyvalue.k[0]));
            } else {
               sprintf(text, "%+d%09d",     kptr->keyvalue.k[1],
                                        abs(kptr->keyvalue.k[0]));
            }
d218 9
a226 39
         break;
      case 4:
         /* Very long integer. */
         k = 0;
         for (j = 7; j > 0; j--) {
            if (kptr->keyvalue.l[j]) {
               k = j;
               break;
            }
         }

         sprintf(text, "%+d", kptr->keyvalue.l[k]);
         for (j = k-1; j >= 0; j--) {
            sprintf(text+strlen(text), "%09d", abs(kptr->keyvalue.l[j]));
         }

         break;
      case 5:
         /* Float. */
         sprintf(text, "%+13.6E", kptr->keyvalue.f);
         break;
      case 6:
         /* Int complex. */
         sprintf(text, "%.0f  %.0f", kptr->keyvalue.c[0],
                                     kptr->keyvalue.c[1]);
         break;
      case 7:
         /* Float complex. */
         sprintf(text, "%+13.6E  %+13.6E", kptr->keyvalue.c[0],
                                         kptr->keyvalue.c[1]);
         break;
      case 8:
         /* String. */
         sprintf(text, "\"%s\"", kptr->keyvalue.s);
         break;
      default:
         /* No value. */
         *text = '\0';
         break;
d229 3
a231 6
      if (kptr->type > 0) {
         /* Keyvalue successfully extracted. */
         printf("  %s", text);
      } else if (kptr->type < 0) {
         /* Syntax error of some type while extracting the keyvalue. */
         printf("  (%s)", text);
d234 58
a291 26
      /* Units? */
      if (kptr->ulen) {
         printf(" %.*s", kptr->ulen-2, kptr->comment+1);
      }

      /* Comment text or reject keyrecord. */
      printf("\n%s\n", kptr->comment);
   }


   /* Print indexes. */
   printf("\n\nIndexes of selected keywords:\n");
   for (i = 0; i < nkeyids; i++) {
      printf("%-8s%5d%5d%5d", keyids[i].name, keyids[i].count,
         keyids[i].idx[0], keyids[i].idx[1]);

      /* Print logical (SIMPLE) and integer (BITPIX, NAXIS) values. */
      if (keyids[i].count) {
         kptr = keys + keyids[i].idx[0];
         printf("%4d", kptr->type);

         if (kptr->type == 1) {
            printf("%5c", kptr->keyvalue.i?'T':'F');
         } else if (kptr->type == 2) {
            printf("%5d", kptr->keyvalue.i);
         }
d293 3
a295 2
      printf("\n");
   }
d297 1
a297 1
   free(keys);
d299 1
a299 1
   return 0;
@


4.3.1.1
log
@WCSLIB 4.3 development branch.
@
text
@d3 2
a4 2
    WCSLIB 4.4 - an implementation of the FITS WCS standard.
    Copyright (C) 1995-2008, Mark Calabretta
d31 1
a31 1
    $Id: tfitshdr.c,v 4.3 2007/12/27 05:35:51 cal103 Exp cal103 $
@


4.3.1.2
log
@Changed indentation.
@
text
@d3 2
a4 2
  WCSLIB 4.4 - an implementation of the FITS WCS standard.
  Copyright (C) 1995-2009, Mark Calabretta
d6 1
a6 1
  This file is part of WCSLIB.
d8 24
a31 24
  WCSLIB 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 3 of the License, or (at your option)
  any later version.

  WCSLIB 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 WCSLIB.  If not, see <http://www.gnu.org/licenses/>.

  Correspondence concerning WCSLIB may be directed to:
    Internet email: mcalabre@@atnf.csiro.au
    Postal address: Dr. Mark Calabretta
                    Australia Telescope National Facility, CSIRO
                    PO Box 76
                    Epping NSW 1710
                    AUSTRALIA

  Author: Mark Calabretta, Australia Telescope National Facility
  http://www.atnf.csiro.au/~mcalabre/index.html
  $Id: tfitshdr.c,v 4.3.1.1 2007/12/27 13:24:32 cal103 Exp cal103 $
d34 2
a35 2
* tfitshdr tests fitshdr(), the FITS parser for image headers, by reading a
* test header and printing the resulting fitskey structs.
d37 3
a39 3
* Input comes from file 'pih.fits' using either fits_hdr2str() from CFITSIO
* if the DO_CFITSIO preprocessor is defined, or read directly using fgets()
* otherwise.
d41 3
a43 3
* If the DO_WCSHDR preprocessor macro is defined, wcshdr() will be called
* first to extract all WCS-related keyrecords from the input header before
* passing it on to fitshdr().
d66 5
a70 5
  char infile[] = "pih.fits";
  char text[80];
  int  i, j, k, nkeyrec, nkeyids, nreject, status;
  struct fitskey *keys, *kptr;
  struct fitskeyid keyids[8];
d72 2
a73 2
  char *header;
  fitsfile *fptr;
d75 3
a77 3
  char keyrec[81], header[288001];
  int  end;
  FILE *fptr;
d81 2
a82 2
  struct wcsprm *wcs;
  int  ctrl, nwcs, relax;
d86 3
a88 3
  /* Set line buffering in case stdout is redirected to a file, otherwise
   * stdout and stderr messages will be jumbled (stderr is unbuffered). */
  setvbuf(stdout, NULL, _IOLBF, 0);
d90 2
a91 2
  printf("Testing FITS image header parser (tfitshdr.c)\n"
         "---------------------------------------------\n\n");
d93 1
a93 1
  /* Read in the FITS header. */
d95 1
a95 1
  status = 0;
d97 9
a105 9
  if (fits_open_file(&fptr, infile, READONLY, &status)) {
    fits_report_error(stderr, status);
    return 1;
  }

  if (fits_hdr2str(fptr, 0, NULL, 0, &header, &nkeyrec, &status)) {
    fits_report_error(stderr, status);
    return 1;
  }
d107 1
a107 1
  fits_close_file(fptr, &status);
d109 13
a121 13
  if ((fptr = fopen(infile, "r")) == 0) {
    printf("ERROR opening %s\n", infile);
    return 1;
  }

  k = 0;
  end = 0;
  nkeyrec = 0;
  for (j = 0; j < 100; j++) {
    for (i = 0; i < 36; i++) {
      if (fgets(keyrec, 81, fptr) == 0) {
        break;
      }
d123 8
a130 7
      strncpy(header+k, keyrec, 80);
      k += 80;
      nkeyrec++;

      if (strncmp(keyrec, "END     ", 8) == 0) {
        /* An END keyrecord was read, but read the rest of the block. */
        end = 1;
a131 1
    }
d133 3
a135 3
    if (end) break;
  }
  fclose(fptr);
d138 1
a138 1
  printf("Found %d header keyrecords.\n", nkeyrec);
d142 7
a148 8
  /* Cull recognized, syntactically valid WCS keyrecords from the header. */
  relax = WCSHDR_all;
  ctrl = -1;
  if ((status = wcspih(header, nkeyrec, relax, ctrl, &nreject, &nwcs,
                       &wcs))) {
    fprintf(stderr, "wcspih ERROR %d: %s.\n", status, wcs_errmsg[status]);
    return 1;
  }
d150 2
a151 2
  /* Number remaining. */
  nkeyrec = strlen(header) / 80;
d155 23
a177 22
  /* Specific keywords to be located or culled. */
  strcpy(keyids[0].name, "SIMPLE  ");
  strcpy(keyids[1].name, "BITPIX  ");
  strcpy(keyids[2].name, "NAXIS   ");
  strcpy(keyids[3].name, "COMMENT ");
  strcpy(keyids[4].name, "HISTORY ");
  strcpy(keyids[5].name, "        ");
  strcpy(keyids[6].name, "END     ");
  nkeyids = 7;

  if (nkeyids) {
    printf("\nThe following keyrecords will not be listed:\n");
    for (i = 0; i < nkeyids; i++) {
      printf("  \"%8s\"\n", keyids[i].name);
    }
  }


  /* Parse the header. */
  if ((status = fitshdr(header, nkeyrec, nkeyids, keyids, &nreject, &keys))) {
    printf("fitskey ERROR %d: %s.\n", status, fitshdr_errmsg[status]);
  }
d179 1
a179 1
  free(header);
d182 24
a205 24
  /* Report the results. */
  printf("\n%d header keyrecords parsed by fitshdr(), %d rejected:\n\n",
    nkeyrec, nreject);
  kptr = keys;
  for (i = 0; i < nkeyrec; i++, kptr++) {
    /* Skip syntactically valid keyrecords that were indexed. */
    if (kptr->keyno < 0 && !kptr->status) continue;

    /* Basic keyrecord info. */
    printf("%4d%5d  %-8s%3d", kptr->keyno, kptr->status, kptr->keyword,
                              kptr->type);

    /* Format the keyvalue for output. */
    switch (abs(kptr->type)%10) {
    case 1:
      /* Logical. */
      sprintf(text, "%c", kptr->keyvalue.i?'T':'F');
      break;
    case 2:
      /* 32-bit signed integer. */
      sprintf(text, "%d", kptr->keyvalue.i);
      break;
    case 3:
      /* 64-bit signed integer. */
d207 1
a207 1
         sprintf(text, "%+lld", kptr->keyvalue.k);
d209 18
a226 7
         if (kptr->keyvalue.k[2]) {
           sprintf(text, "%+d%09d%09d", kptr->keyvalue.k[2],
                                    abs(kptr->keyvalue.k[1]),
                                    abs(kptr->keyvalue.k[0]));
         } else {
           sprintf(text, "%+d%09d",     kptr->keyvalue.k[1],
                                    abs(kptr->keyvalue.k[0]));
d228 37
a264 10
#endif
       break;
    case 4:
      /* Very long integer. */
      k = 0;
      for (j = 7; j > 0; j--) {
        if (kptr->keyvalue.l[j]) {
          k = j;
          break;
        }
d267 3
a269 3
      sprintf(text, "%+d", kptr->keyvalue.l[k]);
      for (j = k-1; j >= 0; j--) {
        sprintf(text+strlen(text), "%09d", abs(kptr->keyvalue.l[j]));
d272 21
a292 58
      break;
    case 5:
      /* Float. */
      sprintf(text, "%+13.6E", kptr->keyvalue.f);
      break;
    case 6:
      /* Int complex. */
      sprintf(text, "%.0f  %.0f", kptr->keyvalue.c[0],
                                  kptr->keyvalue.c[1]);
      break;
    case 7:
      /* Float complex. */
      sprintf(text, "%+13.6E  %+13.6E", kptr->keyvalue.c[0],
                                        kptr->keyvalue.c[1]);
      break;
    case 8:
      /* String. */
      sprintf(text, "\"%s\"", kptr->keyvalue.s);
      break;
    default:
      /* No value. */
      *text = '\0';
      break;
    }

    if (kptr->type > 0) {
      /* Keyvalue successfully extracted. */
      printf("  %s", text);
    } else if (kptr->type < 0) {
      /* Syntax error of some type while extracting the keyvalue. */
      printf("  (%s)", text);
    }

    /* Units? */
    if (kptr->ulen) {
      printf(" %.*s", kptr->ulen-2, kptr->comment+1);
    }

    /* Comment text or reject keyrecord. */
    printf("\n%s\n", kptr->comment);
  }


  /* Print indexes. */
  printf("\n\nIndexes of selected keywords:\n");
  for (i = 0; i < nkeyids; i++) {
    printf("%-8s%5d%5d%5d", keyids[i].name, keyids[i].count, keyids[i].idx[0],
      keyids[i].idx[1]);

    /* Print logical (SIMPLE) and integer (BITPIX, NAXIS) values. */
    if (keyids[i].count) {
      kptr = keys + keyids[i].idx[0];
      printf("%4d", kptr->type);

      if (kptr->type == 1) {
        printf("%5c", kptr->keyvalue.i?'T':'F');
      } else if (kptr->type == 2) {
        printf("%5d", kptr->keyvalue.i);
d294 2
a295 3
    }
    printf("\n");
  }
d297 1
a297 1
  free(keys);
d299 1
a299 1
  return 0;
@


4.2
log
@WCSLIB 4.2: identify the name of the program in the output; check HAVE_CFITSIO
as well as DO_CFITSIO.
@
text
@d2 30
a31 29
*
*   WCSLIB 4.2 - an implementation of the FITS WCS convention.
*   Copyright (C) 1995-2005, Mark Calabretta
*
*   WCSLIB is free software; you can redistribute it and/or modify it under
*   the terms of the GNU General Public License as published by the Free
*   Software Foundation; either version 2 of the License, or (at your option)
*   any later version.
*
*   WCSLIB 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 General Public License for more
*   details.
*
*   You should have received a copy of the GNU General Public License along
*   with WCSLIB; if not, write to the Free Software Foundation, Inc.,
*   59 Temple Place, Suite 330, Boston, MA  02111-1307, USA
*
*   Correspondence concerning WCSLIB may be directed to:
*      Internet email: mcalabre@@atnf.csiro.au
*      Postal address: Dr. Mark Calabretta
*                      Australia Telescope National Facility, CSIRO
*                      PO Box 76
*                      Epping NSW 1710
*                      AUSTRALIA
*
*   Author: Mark Calabretta, Australia Telescope National Facility
*   http://www.atnf.csiro.au/~mcalabre/index.html
*   $Id: tfitshdr.c,v 4.1 2005/08/25 06:25:16 cal103 Exp cal103 $
d37 1
a37 1
*   Input comes from file 'test.fits' using either fits_hdr2str() from CFITSIO
d42 1
a42 1
*   first to extract all WCS-related cards from the input header before
d47 2
d54 1
a54 1
   #include <fitsio.h>
d58 1
a58 1
   #include <wcshdr.h>
d66 1
a66 1
   char infile[] = "test.fits";
d68 1
a68 1
   int  i, j, k, ncards, nkeyids, nreject, status;
d75 1
a75 1
   char card[81], header[288001];
d85 5
d102 1
a102 1
   if (fits_hdr2str(fptr, 0, NULL, 0, &header, &ncards, &status)) {
d116 1
a116 1
   ncards = 0;
d119 1
a119 1
         if (fgets(card, 81, fptr) == 0) {
d123 1
a123 1
         strncpy(header+k, card, 80);
d125 1
a125 1
         ncards++;
d127 2
a128 2
         if (strncmp(card, "END     ", 8) == 0) {
            /* An END card was read, but read the rest of the block. */
d138 1
a138 1
   printf("Found %d header cards.\n", ncards);
d142 1
a142 1
   /* Cull all recognized, syntactically valid WCS cards from the header. */
d145 1
a145 1
   if (status = wcspih(header, ncards, relax, ctrl, &nreject, &nwcs, &wcs)) {
d151 1
a151 1
   ncards = strlen(header) / 80;
d166 1
a166 1
      printf("\nThe following cards will not be listed:\n");
d174 2
a175 1
   if (status = fitshdr(header, ncards, nkeyids, keyids, &nreject, &keys)) {
d183 2
a184 2
   printf("\n%d header cards parsed by fitshdr(), %d rejected:\n\n", ncards,
      nreject);
d186 2
a187 2
   for (i = 0; i < ncards; i++, kptr++) {
      /* Skip syntactically valid cards that were indexed. */
d190 1
a190 1
      /* Basic card info. */
d206 3
a208 3
         #ifdef WCS_INT64
            sprintf(text, "%+Ld", kptr->keyvalue.k);
         #else
d217 1
a217 1
         #endif
d272 1
a272 1
      /* Comment text or reject card. */
@


4.2.1.1
log
@WCSLIB 4.2 development branch.
@
text
@d3 1
a3 1
*   WCSLIB 4.3 - an implementation of the FITS WCS convention.
d30 1
a30 1
*   $Id: tfitshdr.c,v 4.2 2005/09/23 03:09:34 cal103 Exp cal103 $
@


4.2.1.2
log
@Removed whitespace preceding preprocessor directives for broken OSF C compiler.
@
text
@d30 1
a30 1
*   $Id: tfitshdr.c,v 4.2.1.1 2005/12/05 01:39:15 cal103 Exp cal103 $
d51 1
a51 1
#include <fitsio.h>
d55 1
a55 1
#include <wcshdr.h>
d197 1
a197 1
#ifdef WCS_INT64
d199 1
a199 1
#else
d208 1
a208 1
#endif
@


4.2.1.3
log
@Input now comes from file 'pih.fits'; set line buffering on stdout in case
it is redirected to a file; parenthesised assignments used as truth values.
@
text
@d4 1
a4 1
*   Copyright (C) 1995-2007, Mark Calabretta
d30 1
a30 1
*   $Id: tfitshdr.c,v 4.2.1.2 2005/12/16 03:55:23 cal103 Exp cal103 $
d36 1
a36 1
*   Input comes from file 'pih.fits' using either fits_hdr2str() from CFITSIO
d63 1
a63 1
   char infile[] = "pih.fits";
a81 5

   /* Set line buffering in case stdout is redirected to a file, otherwise
    * stdout and stderr messages will be jumbled (stderr is unbuffered). */
   setlinebuf(stdout);

d166 1
a166 1
   if ((status = fitshdr(header, ncards, nkeyids, keyids, &nreject, &keys))) {
@


4.2.1.4
log
@Include config_tests.h to get the definition of HAVE_CFITSIO.
@
text
@d30 1
a30 1
*   $Id: tfitshdr.c,v 4.2.1.3 2007/06/29 06:36:49 cal103 Exp cal103 $
a45 2
#include <config_tests.h>

@


4.2.1.5
log
@Use setvbuf(), which is ANSI C89 compliant, in place of setlinebuf() which
is a BSDism.
@
text
@d30 1
a30 1
*   $Id: tfitshdr.c,v 4.2.1.4 2007/07/11 08:02:44 cal103 Exp cal103 $
d87 1
a87 1
   setvbuf(stdout, NULL, _IOLBF, 0);
@


4.2.1.6
log
@Replaced the non-ANSI compliant %Ld format specification in sscanf() with
%lld.
@
text
@d30 1
a30 1
*   $Id: tfitshdr.c,v 4.2.1.5 2007/07/12 02:35:59 cal103 Exp cal103 $
d205 1
a205 1
            sprintf(text, "%+lld", kptr->keyvalue.k);
@


4.2.1.7
log
@Replaced use of the obsolete term "card".
@
text
@d30 1
a30 1
*   $Id: tfitshdr.c,v 4.2.1.6 2007/07/12 03:54:38 cal103 Exp cal103 $
d41 1
a41 1
*   first to extract all WCS-related keyrecords from the input header before
d67 1
a67 1
   int  i, j, k, nkeyrec, nkeyids, nreject, status;
d74 1
a74 1
   char keyrec[81], header[288001];
d101 1
a101 1
   if (fits_hdr2str(fptr, 0, NULL, 0, &header, &nkeyrec, &status)) {
d115 1
a115 1
   nkeyrec = 0;
d118 1
a118 1
         if (fgets(keyrec, 81, fptr) == 0) {
d122 1
a122 1
         strncpy(header+k, keyrec, 80);
d124 1
a124 1
         nkeyrec++;
d126 2
a127 2
         if (strncmp(keyrec, "END     ", 8) == 0) {
            /* An END keyrecord was read, but read the rest of the block. */
d137 1
a137 1
   printf("Found %d header keyrecords.\n", nkeyrec);
d141 1
a141 1
   /* Cull recognized, syntactically valid WCS keyrecords from the header. */
d144 1
a144 1
   if (status = wcspih(header, nkeyrec, relax, ctrl, &nreject, &nwcs, &wcs)) {
d150 1
a150 1
   nkeyrec = strlen(header) / 80;
d165 1
a165 1
      printf("\nThe following keyrecords will not be listed:\n");
d173 1
a173 2
   if ((status = fitshdr(header, nkeyrec, nkeyids, keyids, &nreject,
                         &keys))) {
d181 2
a182 2
   printf("\n%d header keyrecords parsed by fitshdr(), %d rejected:\n\n",
      nkeyrec, nreject);
d184 2
a185 2
   for (i = 0; i < nkeyrec; i++, kptr++) {
      /* Skip syntactically valid keyrecords that were indexed. */
d188 1
a188 1
      /* Basic keyrecord info. */
d270 1
a270 1
      /* Comment text or reject keyrecord. */
@


4.2.1.8
log
@Renamed WCS_INT64 -> WCSLIB_INT64.
@
text
@d30 1
a30 1
*   $Id: tfitshdr.c,v 4.2.1.7 2007/08/02 05:58:54 cal103 Exp cal103 $
d205 1
a205 1
#ifdef WCSLIB_INT64
@


4.2.1.9
log
@Renamed config_tests.h -> wcsconfig_tests.h.
@
text
@d30 1
a30 1
*   $Id: tfitshdr.c,v 4.2.1.8 2007/08/08 04:15:14 cal103 Exp cal103 $
d46 1
a46 1
#include <wcsconfig_tests.h>
@


4.2.1.10
log
@Switched to LGPL 3.0.
@
text
@d2 29
a30 30

    WCSLIB 4.3 - an implementation of the FITS WCS standard.
    Copyright (C) 1995-2007, Mark Calabretta

    This file is part of WCSLIB.

    WCSLIB 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 3 of the License, or (at your
    option) any later version.

    WCSLIB 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 WCSLIB.  If not, see <http://www.gnu.org/licenses/>.

    Correspondence concerning WCSLIB may be directed to:
       Internet email: mcalabre@@atnf.csiro.au
       Postal address: Dr. Mark Calabretta
                       Australia Telescope National Facility, CSIRO
                       PO Box 76
                       Epping NSW 1710
                       AUSTRALIA

    Author: Mark Calabretta, Australia Telescope National Facility
    http://www.atnf.csiro.au/~mcalabre/index.html
    $Id: tfitshdr.c,v 4.2.1.9 2007/08/08 04:28:57 cal103 Exp cal103 $
@


4.1
log
@WCSLIB 4.1: initial revision.
@
text
@d3 1
a3 1
*   WCSLIB 4.1 - an implementation of the FITS WCS convention.
d30 1
a30 1
*   $Id$
d50 1
a50 1
#ifdef DO_CFITSIO
d68 1
a68 1
#ifdef DO_CFITSIO
d82 2
a83 2
   printf("\nTesting FITS image header parser\n"
          "--------------------------------\n\n");
d86 1
a86 1
#ifdef DO_CFITSIO
d169 1
a169 1
#ifdef DO_CFITSIO
@


0.0
log
@Empty revision
@
text
@d1 291
@
