epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

added the capability to define subsystem code in

Browse Source 
the subsystem header file
This commit is contained in:
Jeff Hill
1998-02-05 21:03:06 +00:00
parent cba017d4c9
commit 7a560d4795
2 changed files with 34 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/libCom/error/makeStatTbl.pl
View File

@@ -1,4 +1,4 @@
#!/usr/bin/perl
#!/usr/local/bin/perl
#
# makeStatTbl.pl - Create Error Symbol Table
#
@@ -37,6 +37,11 @@ while (<>)
chomp;
push @err_sym_line, $_;
}
if (m'^#[ \t]*define[ /t]+M_')
{
chomp;
push @err_facility_line, $_;
}
}
$out_name = "errSymTbl.c";
@@ -56,6 +61,17 @@ print OUT "#include \"errMdef.h\"\n";
print OUT "#include \"errSymTbl.h\"\n";
print OUT "\n";
foreach $line ( @err_facility_line )
{
if ($line =~ m'^#[ \t]*define[ \t]+(M_[A-Za-z0-9_]+)[ \t]+(.*)')
{
printf OUT "#ifndef %s\n", $1;
printf OUT "#define %s %s\n", $1, $2;
printf OUT "#endif /* ifdef %s */\n", $1;
}
}
$count = 0;
foreach $line ( @err_sym_line )
{

18
src/libCom/makeStatTbl.pl
View File

@@ -1,4 +1,4 @@
#!/usr/bin/perl
#!/usr/local/bin/perl
#
# makeStatTbl.pl - Create Error Symbol Table
#
@@ -37,6 +37,11 @@ while (<>)
chomp;
push @err_sym_line, $_;
}
if (m'^#[ \t]*define[ /t]+M_')
{
chomp;
push @err_facility_line, $_;
}
}
$out_name = "errSymTbl.c";
@@ -56,6 +61,17 @@ print OUT "#include \"errMdef.h\"\n";
print OUT "#include \"errSymTbl.h\"\n";
print OUT "\n";
foreach $line ( @err_facility_line )
{
if ($line =~ m'^#[ \t]*define[ \t]+(M_[A-Za-z0-9_]+)[ \t]+(.*)')
{
printf OUT "#ifndef %s\n", $1;
printf OUT "#define %s %s\n", $1, $2;
printf OUT "#endif /* ifdef %s */\n", $1;
}
}
$count = 0;
foreach $line ( @err_sym_line )
{