File: echo.c

package info (click to toggle)
perl 5.8.4-8sarge6
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 58,128 kB
  • ctags: 31,422
  • sloc: perl: 224,262; ansic: 155,398; sh: 32,253; pascal: 7,747; lisp: 6,121; makefile: 2,341; cpp: 2,035; yacc: 1,019; java: 23
file content (31 lines) | stat: -rw-r--r-- 780 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
/**********************************************************************
*
*	C Source:		echo.c
*	Instance:		idc_rads_2
*	Description:	DOS echo Emulation
*	%created_by:	smscm %
*	%date_created:	Fri Apr 20 19:05:31 2001 %
*
**********************************************************************/
#ifndef lint
static char *_csrc = "@(#) %filespec: echo.c~1 %  (%full_filespec: echo.c~1:csrc:idc_rads#3 %)";
#endif

#include <stdio.h>
//#include <process.h>
#include "clibstuf.h"

void main (int argc, char** argv)
{
  fnInitGpfGlobals();
  if (argc>1 && argv[1]!=NULL && strcmp(argv[1],"-d")==0) {
    int n;
    for (n=0; n < argc; n++) {
      printf("%2d: '%s'\n", n, argv[n]);
    }
  } else {
    while (--argc) {
      printf("%s%c", *++argv, argc==1 ? '\n' : ' ');
    }
  }
}