source: git/libpolys/polys/prCopy.pl @ 83f55f

spielwiese
Last change on this file since 83f55f was 20b794, checked in by Oleksandr Motsak <motsak@…>, 13 years ago
FIX: first corrections of #include in polys
  • Property mode set to 100644
File size: 908 bytes
Line 
1#!/usr/bin/perl
2# generate prCopy.inc
3
4@defines = ("PR_DELETE_SRC",  "Move", "Copy",
5            "PR_RING_EQUAL",   "REqual", "NoREqual",
6            "PR_NUMBER_SIMPLE", "NSimple", "NoNSimple", 
7            "PR_NO_SORT", "NoSort", "Sort");
8
9@def = ("Move", "REqual", "NSimple", "NoSort");
10@notdef = ("Copy", "NoREqaul", "NoNSimple", "Sort");
11
12sub Generate
13{
14  my ($prefix, @args) = @_;
15
16  if (@args)
17  {
18    my $name = shift @args;
19    my $yes = shift @args;
20    my $no = shift @args;
21    print "#undef $name\n";
22    print "#define $name 0\n";
23    Generate($prefix."_".$no, @args);
24    print "#undef $name\n";
25    print "#define $name 1\n";
26    Generate($prefix."_".$yes, @args);
27  }
28  else
29  {
30    print "#undef PR_NAME\n";
31    print "#define PR_NAME $prefix\n";
32    print "#include <polys/prCopyMacros.h>\n";
33    print "#include <polys/prCopyTemplate.cc>\n";
34  }
35  print "\n";
36}
37
38Generate("pr", @defines);
Note: See TracBrowser for help on using the repository browser.