Print this page
3764 Semantic of nawk's print statement changed


  28 #
  29 # XCurses Library
  30 #
  31 # Copyright 1990, 1995 by Mortice Kern Systems Inc.  All rights reserved.
  32 #
  33 #  rcsid = $Header: /rd/src/libc/xcurses/rcs/mknames.awk 1.1 1995/05/11 15:12:57 ant Exp $
  34 #
  35 
  36 function header(file, array) {
  37 print "/*" > file
  38 printf " * %s\n", file > file
  39 print " *" > file
  40 print " * XCurses Library" > file
  41 print " *" > file
  42 print " * **** THIS FILE IS MACHINE GENERATED." > file
  43 print " * **** DO NOT EDIT THIS FILE." > file
  44 print " *" > file
  45 print " * Copyright 1990, 1995 by Mortice Kern Systems Inc.  All rights reserved." > file
  46 print " *" > file
  47 print " */" > file
  48 print > file
  49 print "#if M_RCSID" > file
  50 print "#ifndef lint" > file
  51 printf "static char rcsID[] = \"$Header%s\"\n", "$" > file
  52 print "#endif" > file
  53 print "#endif" > file
  54 print > file
  55 printf "char *__m_%s[] = {\n", array > file
  56 }
  57 
  58 function tail(file) {
  59         printf("\t0\n};\n\n") >file;
  60         close(file);
  61 }
  62 
  63 BEGIN {
  64         header("boolname.c", "boolnames");
  65         header("boolcode.c", "boolcodes");
  66         header("boolfnam.c", "boolfnames");
  67         header("numname.c", "numnames");
  68         header("numcode.c", "numcodes");
  69         header("numfnam.c", "numfnames");
  70         header("strname.c", "strnames");
  71         header("strcode.c", "strcodes");
  72         header("strfnam.c", "strfnames");
  73 }
  74 




  28 #
  29 # XCurses Library
  30 #
  31 # Copyright 1990, 1995 by Mortice Kern Systems Inc.  All rights reserved.
  32 #
  33 #  rcsid = $Header: /rd/src/libc/xcurses/rcs/mknames.awk 1.1 1995/05/11 15:12:57 ant Exp $
  34 #
  35 
  36 function header(file, array) {
  37 print "/*" > file
  38 printf " * %s\n", file > file
  39 print " *" > file
  40 print " * XCurses Library" > file
  41 print " *" > file
  42 print " * **** THIS FILE IS MACHINE GENERATED." > file
  43 print " * **** DO NOT EDIT THIS FILE." > file
  44 print " *" > file
  45 print " * Copyright 1990, 1995 by Mortice Kern Systems Inc.  All rights reserved." > file
  46 print " *" > file
  47 print " */" > file
  48 print "" > file
  49 print "#if M_RCSID" > file
  50 print "#ifndef lint" > file
  51 printf "static char rcsID[] = \"$Header%s\"\n", "$" > file
  52 print "#endif" > file
  53 print "#endif" > file
  54 print "" > file
  55 printf "char *__m_%s[] = {\n", array > file
  56 }
  57 
  58 function tail(file) {
  59         printf("\t0\n};\n\n") >file;
  60         close(file);
  61 }
  62 
  63 BEGIN {
  64         header("boolname.c", "boolnames");
  65         header("boolcode.c", "boolcodes");
  66         header("boolfnam.c", "boolfnames");
  67         header("numname.c", "numnames");
  68         header("numcode.c", "numcodes");
  69         header("numfnam.c", "numfnames");
  70         header("strname.c", "strnames");
  71         header("strcode.c", "strcodes");
  72         header("strfnam.c", "strfnames");
  73 }
  74