File: scot_main.c

package info (click to toggle)
csound 1%3A6.18.1%2Bdfsg-4
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 63,220 kB
  • sloc: ansic: 192,643; cpp: 14,149; javascript: 9,654; objc: 9,181; python: 3,376; java: 3,337; sh: 1,840; yacc: 1,255; xml: 985; perl: 635; lisp: 411; tcl: 341; lex: 217; makefile: 128
file content (39 lines) | stat: -rw-r--r-- 878 bytes parent folder | download | duplicates (9)
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
32
33
34
35
36
37
38
39

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

extern int scot(FILE *inf, FILE *outf, char *fil);

int main(int argc, char **argv)
{
    FILE    *infile = NULL, *outfile = NULL;
    char    *name = NULL,   *outname = "score";

    if (argc == 2 || argc == 3) {
      if (argc == 3) outname = argv[2];
      if (!(infile = fopen(argv[1], "r"))) {
        fprintf(stderr, "Can't open input file \"%s\"\n", argv[1]);
        return -1;
      }
      name = argv[1];
    }
    else if (argc == 1) {
      infile = stdin;
      name = "";
    }
    else {
      fprintf(stderr, "Usage:  scot [<infile> [<outfile>]]\n");
      return -1;
    }
    if (!(outfile = fopen(outname, "w"))) {
      fprintf(stderr, "Can't open output file \"%s\"\n", outname);
      return -1;
    }
    scot(infile, outfile, name);
    fclose(infile);
    fclose(outfile);

    return 0;
}