head     56.3;
access   ;
symbols  ;
locks    ; strict;
comment  @# @;


56.3
date     93.01.27.13.23.22;  author jwh;  state Exp;
branches ;
next     56.2;

56.2
date     93.01.27.12.03.23;  author jwh;  state Exp;
branches ;
next     56.1;

56.1
date     91.11.05.09.59.25;  author jwh;  state Exp;
branches ;
next     55.1;

55.1
date     91.08.25.10.34.22;  author jwh;  state Exp;
branches ;
next     54.1;

54.1
date     91.03.18.15.34.40;  author jwh;  state Exp;
branches ;
next     53.1;

53.1
date     91.03.11.19.34.24;  author jwh;  state Exp;
branches ;
next     52.1;

52.1
date     91.02.19.09.20.32;  author jwh;  state Exp;
branches ;
next     51.1;

51.1
date     91.01.30.16.19.00;  author jwh;  state Exp;
branches ;
next     50.1;

50.1
date     90.10.29.16.32.55;  author jwh;  state Exp;
branches ;
next     49.1;

49.1
date     90.08.14.14.16.41;  author jwh;  state Exp;
branches ;
next     48.1;

48.1
date     90.07.26.11.23.14;  author jwh;  state Exp;
branches ;
next     47.1;

47.1
date     90.05.14.11.09.16;  author dew;  state Exp;
branches ;
next     46.1;

46.1
date     90.05.07.08.56.11;  author jwh;  state Exp;
branches ;
next     45.1;

45.1
date     90.04.19.16.04.24;  author jwh;  state Exp;
branches ;
next     44.1;

44.1
date     90.04.01.22.21.38;  author jwh;  state Exp;
branches ;
next     43.1;

43.1
date     90.03.20.14.14.14;  author jwh;  state Exp;
branches ;
next     42.1;

42.1
date     90.01.23.17.58.15;  author jwh;  state Exp;
branches ;
next     41.1;

41.1
date     89.12.22.11.40.08;  author jwh;  state Exp;
branches ;
next     40.1;

40.1
date     89.09.29.12.01.15;  author jwh;  state Exp;
branches ;
next     39.1;

39.1
date     89.09.26.16.46.09;  author dew;  state Exp;
branches ;
next     1.1;

1.1
date     89.09.21.09.06.21;  author jwh;  state Exp;
branches ;
next     ;


desc
@

             This file, MKVER, is a source stripper program
        intended to be used to remove SRM-UX unique code from
        the 3.23 source. An exact description of what to do will
        appear in the turnlog.
@


56.3
log
@
pws2rcs automatic delta on Wed Jan 27 13:14:25 MST 1993
@
text
@$SYSPROG$
{ This program is similiar to, but not identical to,
{ MKCTBETA used by the turn system to create internal
{ and external versions of CTABLE.
{
{ This program recognizes (and no others) :
{
{       {INTERNAL ONLY BEGIN}
{       {INTERNAL ONLY END}
{       {EXTERNAL ONLY BEGIN}
{       {EXTERNAL ONLY END}
{
{       These directives must be the only item on a line,
{       the program throws away the whole line.
{
{ The user is queried as to whether an internal or external version
{ is desired. If internal, all source between
{EXTERNAL ONLY BEGIN}
{ and
{EXTERNAL ONLY END}
{  will be ignored. If external is selected,
{ all source between
{INTERNAL ONLY BEGIN}
{ and
{INTERNAL ONLY END}
{ will be ignored.}

program xxx(input, output);

var
    inline: string[255];
    inname: string[255];
    outname: string[255];
    infile, outfile: text;
    passing: boolean;
    internal: boolean;
    response: char;

begin
    write('internal (I) or external (E) version? ');
    readln(response);
    if ((response = 'i') or (response = 'I')) then
      internal := true
    else if ((response = 'e') or (response = 'E')) then
      internal := false
    else
      begin
       writeln('Bad Response - Later Gator !!!');
       escape(0);
      end;

    write('name of source input file? ');
    readln(inname);
    reset(infile, inname);

    write('name of output file? ');
    readln(outname);
    rewrite(outfile, outname);

    passing := true;

    if internal then
     begin { INTERNAL VERSION DESIRED }
       while not eof(infile) do begin
	readln(infile, inline);
	inline := strrtrim(inline);
	  if inline = '{EXTERNAL ONLY BEGIN}' then
	    passing := false
	  else
	  if inline = '{EXTERNAL ONLY END}' then
	    passing := true
	  else
	  if passing then
	    writeln(outfile, inline);
	end; { While }
     end { IF - INTERNAL VERSION }
    else
     begin { EXTERNAL VERSION DESIRED }
       while not eof(infile) do begin
	readln(infile, inline);
	inline := strrtrim(inline);
	  if inline = '{INTERNAL ONLY BEGIN}' then
	    passing := false
	  else
	  if inline = '{INTERNAL ONLY END}' then
	    passing := true
	  else
	  if passing then
	    writeln(outfile, inline);
	end; { While }
     end; { ELSE - EXTERNAL VERSION }


    close(outfile, 'save');
end.

@


56.2
log
@
pws2rcs automatic delta on Wed Jan 27 11:57:27 MST 1993
@
text
@d1 96
@


56.1
log
@Automatic bump of revision number for PWS version 3.25
@
text
@a0 96
$SYSPROG$
{ This program is similiar to, but not identical to,
{ MKCTBETA used by the turn system to create internal
{ and external versions of CTABLE.
{
{ This program recognizes (and no others) :
{
{       {INTERNAL ONLY BEGIN}
{       {INTERNAL ONLY END}
{       {EXTERNAL ONLY BEGIN}
{       {EXTERNAL ONLY END}
{
{       These directives must be the only item on a line,
{       the program throws away the whole line.
{
{ The user is queried as to whether an internal or external version
{ is desired. If internal, all source between
{EXTERNAL ONLY BEGIN}
{ and
{EXTERNAL ONLY END}
{  will be ignored. If external is selected,
{ all source between
{INTERNAL ONLY BEGIN}
{ and
{INTERNAL ONLY END}
{ will be ignored.}

program xxx(input, output);

var
    inline: string[255];
    inname: string[255];
    outname: string[255];
    infile, outfile: text;
    passing: boolean;
    internal: boolean;
    response: char;

begin
    write('internal (I) or external (E) version? ');
    readln(response);
    if ((response = 'i') or (response = 'I')) then
      internal := true
    else if ((response = 'e') or (response = 'E')) then
      internal := false
    else
      begin
       writeln('Bad Response - Later Gator !!!');
       escape(0);
      end;

    write('name of source input file? ');
    readln(inname);
    reset(infile, inname);

    write('name of output file? ');
    readln(outname);
    rewrite(outfile, outname);

    passing := true;

    if internal then
     begin { INTERNAL VERSION DESIRED }
       while not eof(infile) do begin
	readln(infile, inline);
	inline := strrtrim(inline);
	  if inline = '{EXTERNAL ONLY BEGIN}' then
	    passing := false
	  else
	  if inline = '{EXTERNAL ONLY END}' then
	    passing := true
	  else
	  if passing then
	    writeln(outfile, inline);
	end; { While }
     end { IF - INTERNAL VERSION }
    else
     begin { EXTERNAL VERSION DESIRED }
       while not eof(infile) do begin
	readln(infile, inline);
	inline := strrtrim(inline);
	  if inline = '{INTERNAL ONLY BEGIN}' then
	    passing := false
	  else
	  if inline = '{INTERNAL ONLY END}' then
	    passing := true
	  else
	  if passing then
	    writeln(outfile, inline);
	end; { While }
     end; { ELSE - EXTERNAL VERSION }


    close(outfile, 'save');
end.

@


55.1
log
@Automatic bump of revision number for PWS version 3.25A
@
text
@@


54.1
log
@Automatic bump of revision number for PWS version 3.24
@
text
@@


53.1
log
@Automatic bump of revision number for PWS version 3.24B
@
text
@@


52.1
log
@Automatic bump of revision number for PWS version 3.24A
@
text
@@


51.1
log
@Automatic bump of revision number for PWS version 3.24d
@
text
@@


50.1
log
@Automatic bump of revision number for PWS version 3.23c
@
text
@@


49.1
log
@Automatic bump of revision number for PWS version 3.24b
@
text
@@


48.1
log
@Automatic bump of revision number for PWS version 3.24a
@
text
@@


47.1
log
@Automatic bump of revision number for PWS version 3.23
@
text
@@


46.1
log
@Automatic bump of revision number for PWS version 3.23
@
text
@@


45.1
log
@Automatic bump of revision number for PWS version 3.23C
@
text
@@


44.1
log
@Automatic bump of revision number for PWS version 3.23B
@
text
@@


43.1
log
@Automatic bump of revision number for PWS version 3.23aA
@
text
@@


42.1
log
@Automatic bump of revision number for PWS version 3.23e
@
text
@@


41.1
log
@Automatic bump of revision number for PWS version 3.23d
@
text
@@


40.1
log
@Automatic bump of revision number for PWS version 3.23c
@
text
@@


39.1
log
@Automatic bump of revision number for PWS version 3.23b
@
text
@@


1.1
log
@Initial revision
@
text
@@
