UNIX — универсальная среда программирования

 #include <stdio.h>
 #define PAGESIZE 22
 char *progname; /* program name for error message */

 main(argc, argv)
  int argc;
  char *argv[];
 {
  FILE *fp, *efopen;
  int i, pagesize = PAGESIZE;
  char *p, *getenv;

  progname = argv[0];
  if ((p=getenv("PAGESIZE")) != NULL)
  pagesize = atoi(p);
  if (argc > 1 && argv[1][0] == '-') {
  pagesize = atoi(&argv[1][1]);
  argc--;
  argv++;
  }
  if (argc == 1)
  print(stdin, pagesize);
  else
  for (i = 1; i < argc; i++) {
  fp = efopen(argv[i], "r");
  print(fp, pagesize);
  fclose(fp);
  }
  exit(0);
 }

 print(fp, pagesize) /* print fp in pagesize chunks */
  FILE *fp;
  int pagesize;
 {
  static int lines = 0; /* number of lines so far */
  char buf[BUFSIZ];

  while (fgets(buf, sizeof buf, fp) != NULL)
  if (++lines < pagesize)
  fputs(buf, stdout);
  else {
  buf[strlen(buf)-1] = '\0';
  fputs(buf, stdout);
  fflush(stdout);
  ttyin;
  lines = 0;
  }
 }

 #include "ttyin2.c"
 #include "efopen.c"

3.8.41 p4.c

 /* p: print input in chunks (version 4) */

 #include <stdio.h>
 #define PAGESIZE 22
 char *progname; /* program name for error message */

 main(argc, argv)
  int argc;
  char *argv[];
 {
  FILE *fp, *efopen;
  int i, pagesize = PAGESIZE;
  char *p, *getenv, buf[BUFSIZ];

  progname = argv[0];
  if ((p=getenv("PAGESIZE")) != NULL)
  pagesize = atoi(p);
  if (argc > 1 && argv[1][0] == '-') {
  pagesize = atoi(&argv[1][1]);
  argc--;
  argv++;
  }
  if (argc == 1)
  print(stdin, pagesize);
  else
  for (i = 1; i < argc; i++)
  switch (spname(argv[i], buf)) {
  case -1: /* no match possible */
  fp = efopen(argv[i], "r");
  break;
  case 1: /* corrected */
  fprintf (stderr, "\"%s\"? ", buf);
  if (ttyin == 'n')
  break;
  argv[i] = buf;
  /* fall through... */
  case 0: /* exact match */
  fp = efopen(argv[i], "r");
  print(fp, pagesize);
  fclose(fp);
  }
  exit(0);
 }

 print(fp, pagesize) /* print fp in pagesize chunks */
  FILE *fp;
  int pagesize;
 {
  static int lines = 0; /* number of lines so far */
  char buf[BUFSIZ];

  while (fgets(buf, sizeof buf, fp) != NULL)
  if (++lines < pagesize) fputs(buf, stdout);
  else {
  buf[strlen(buf)-1] = '\0';
  fputs(buf, stdout);
  fflush(stdout);
  ttyin;
  lines = 0;
  }
 }

 #include "ttyin2.c"
 #include "efopen.c"
 #include "spname.c"

3.8.42 pick1

 # pick: select arguments

 PATH=/bin:/usr/bin

 for i # for each argument
 do
  echo -n "$i? " >/dev/tty
  read response
  case $response in
  y*) echo $i ;;
  q*) break
  esac
 done </dev/tty

3.8.43 pick.c

 /* pick: offer choice on each argument */

 #include <stdio.h>
 char *progname; /* program name for error message */

<