#! /usr/bin/perl

# ----------------------------------------------------------------
# John Kerl
# kerl at emtek dot com
# 1996/04
#
# Prints input twice, on the same line.  Useful in the following
# context:
#
# Given a C struct of the form
# struct {
# 	int    attr1;
# 	int    attr2;
# 	char * name_field;
# 	float  scale_factor;
# } my_type_t;
#
# one can run the struct through this routine as one step in creating
# a dump routine, e.g.
#
# void dump_my_type(
#	struct my_type_t * ps)
# {
# 	printf("my_type structure at %p:\n", ps);
# 	printf("attr1        = %08x\n",   ps->attr1);
# 	printf("attr2        = %08x\n",   ps->attr2);
# 	printf("name_field   = <<%s>>\n", ps->name_field);
# 	printf("scale_factor = %7.4f\n",  ps->scale_factor);
# }
# ----------------------------------------------------------------

while ($line = <>) {
	chomp $line;
	print "$line $line\n";
}