73. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 10/18/2017 11:37:29 AM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

73.1 Files compared

# Location File Last Modified
1 OSCIF_CPRS v32 Phase 2 Build 2OR3.0405_August_2017.zip\OR_30_405V36_SRC.zip\XE8\Broker\Source RpcbEdtr.pas Wed Oct 11 20:08:07 2017 UTC
2 OSCIF_CPRS v32 Phase 2 Build 2OR3.0405_August_2017.zip\OR_30_405V36_SRC.zip\XE8\Broker\Source RpcbEdtr.pas Tue Oct 17 19:58:08 2017 UTC

73.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 374
Changed 1 2
Inserted 0 0
Removed 0 0

73.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

73.4 Active regular expressions

No regular expressions were active.

73.5 Comparison detail

  1   { ******** ********** ********** ********** ********** ********** ****
  2           Pa ckage: XWB  - Kernel  RPCBroker
  3           Da te Created : Sept 18,  1997 (Ver sion 1.1)
  4           Si te Name: O akland, OI  Field Off ice, Dept  of Veteran  Affairs
  5           De velopers:  PII, PII,  PII
  6           De scription:  Property  Editors fo r TRPCBrok er compone nt.
  7     Unit: Rp cbEdtr
  8           Cu rrent Rele ase: Versi on 1.1 Pat ch 65
  9   ********** ********** ********** ********** ********** ********** *** }
  10  
  11   { ******** ********** ********** ********** ********** **
  12     Changes  in v1.1.65  (HGW 08/0 5/2015) XW B*1.1*65
  13     1. None.
  14  
  15     Changes  in v1.1.60  (HGW 03/2 7/2014) XW B*1.1*60
  16     1. None
  17  
  18     Changes  in v1.1.50  (JLI 09/0 1/2011) XW B*1.1*50
  19     1. None
  20   ********** ********** ********** ********** **********  }
  21   unit RpcbE dtr;
  22  
  23   {$I IISBas e.inc}
  24  
  25   interface
  26  
  27   uses
  28     {Delphi  standard}
  29     Classes,  Controls,  Dialogs,
  30     {$IFDEF  D6_OR_HIGH ER}
  31     DesignIn tf, Design Editors, D esignMenus ,
  32     {$ELSE}
  33     DsgnIntf ,
  34     {$ENDIF}
  35     Forms, G raphics, M essages, S ysUtils,
  36     WinProcs , WinTypes , Trpcb; / /P14 -- pa ck split
  37  
  38  
  39   type
  40  
  41   {------ TR emoteProc  property e ditor ---- --}
  42      {This p roperty ed itor gets  a list of  remote pro cedures fr om the API  file.}
  43  
  44   TRemotePro cProperty  = class(TS tringPrope rty)
  45   private
  46     { Privat e declarat ions }
  47   protected
  48     { Protec ted declar ations }
  49   public
  50     { Public  declarati ons }
  51     function  GetAttrib utes: TPro pertyAttri butes; ove rride;
  52     procedur e GetValue s(Proc: TG etStrProc) ; override ;
  53     procedur e SetValue (const Val ue: string ); overrid e;
  54   end;
  55  
  56  
  57   {------ TS erverPrope rty proper ty editor  ------}
  58      {This p roperty ed itor gets  a list of  servers fr om the C:\ WINDOWS\HO STS file}
  59  
  60   TServerPro perty = cl ass(TStrin gProperty)
  61   private
  62     { Privat e declarat ions }
  63   protected
  64     { Protec ted declar ations }
  65   public
  66     { Public  declarati ons }
  67     function  GetAttrib utes: TPro pertyAttri butes; ove rride;
  68     procedur e GetValue s(Proc: TG etStrProc) ; override ;
  69     function  GetValue:  string; o verride;
  70     procedur e SetValue (const Val ue: string ); overrid e;
  71   end;
  72  
  73  
  74   {------ TR pcVersion  property e ditor ---- --}
  75      {This p roperty ed itor check s to make  sure that  RpcVersion  is not em pty.
  76       If it  is, it stu ffs '0' (d efault).}
  77  
  78   TRpcVersio nProperty  = class(TS tringPrope rty)
  79   private
  80     { Privat e declarat ions }
  81   protected
  82     { Protec ted declar ations }
  83   public
  84     { Public  declarati ons }
  85     procedur e SetValue (const Val ue: string ); overrid e;
  86   end;
  87  
  88  
  89   procedure  Register;
  90  
  91  
  92   implementa tion
  93  
  94  
  95   uses
  96     XWBut1,  MFunStr, X WBHash, Rp cbErr;
  97  
  98   function T RemoteProc Property.G etAttribut es;
  99   begin
  100     Result : = [paAutoU pdate,paVa lueList];
  101   end;
  102  
  103   procedure  TRemotePro cProperty. GetValues( Proc: TGet StrProc);
  104   var
  105     RpcbEdit ed, RPCBTe mp: TRPCBr oker;
  106     I: integ er;
  107   begin
  108     RPCBTemp  := nil;
  109     RpcbEdit ed := GetC omponent(0 ) as TRPCB roker;
  110     try
  111       RPCBTe mp := TRPC Broker.Cre ate(RpcbEd ited);
  112       with R pcbTemp do  begin
  113         Show ErrorMsgs  := RpcbEdi ted.ShowEr rorMsgs;
  114         Serv er := Rpcb Edited.Ser ver;
  115         List enerPort : = RpcbEdit ed.Listene rPort;
  116         Clea rParameter s := True;
  117         Clea rResults : = True;
  118         Remo teProcedur e := 'XWB  RPC LIST';
  119         Para m[0].Value  := GetVal ue;
  120         Para m[0].PType  := litera l;
  121         Call ;
  122         for  I := 0 to  Results.Co unt - 1 do  Proc(Resu lts[I]);
  123       end;
  124     finally
  125       RPCBTe mp.Free;
  126     end;
  127   end;
  128  
  129   procedure  TRemotePro cProperty. SetValue(c onst Value : string);
  130   begin
  131     SetStrVa lue(UpperC ase(Piece( Value,'    [',1)));   {convert u ser entry  all to upp er case}
  132   end;
  133  
  134   function T ServerProp erty.GetAt tributes;
  135   begin
  136     Result : = [paAutoU pdate,paVa lueList];
  137   end;
  138  
  139   function T ServerProp erty.GetVa lue: strin g;
  140   begin
  141     Result : = Piece(Ge tStrValue, '   [',1);   {get jus t the  nam e}
  142   end;
  143  
  144   procedure  TServerPro perty.GetV alues(Proc : TGetStrP roc);
  145   var
  146     ServerLi st: TStrin gList;
  147     I: integ er;
  148   begin
  149     ServerLi st := TStr ingList.Cr eate;
  150     GetHostL ist(Server List);
  151     for I :=  0 to Serv erList.Cou nt - 1 do  Proc(Serve rList[I]);
  152     ServerLi st.Free;
  153   end;
  154  
  155   procedure  TServerPro perty.SetV alue(const  Value: st ring);
  156   begin
  157     SetStrVa lue(Piece( Value,'    [',1));  { get just t he  name}
  158   end;
  159  
  160   procedure  TRpcVersio nProperty. SetValue(c onst Value : string);
  161   begin
  162   {
  163     try
  164       if Val ue = '' th en NetErro r('Configu re',XWB_Nu llRpcVer)
  165       else S etStrValue (Value);
  166     except
  167       on E:  EBrokerErr or do begi n
  168         Show BrokerErro r(E);
  169         SetS trValue('0 ');
  170       end;
  171     end;
  172   }
  173     if Value  <> '' the n SetStrVa lue(Value)
  174     else beg in
  175       ShowMe ssage('RPC Version ca nnot be em pty.  Defa ult is 0 ( zero).');
  176       SetStr Value('0') ;
  177     end;
  178   end;
  179  
  180   procedure  Register;
  181   begin
  182     Register PropertyEd itor(TypeI nfo(TRemot eProc),nil ,'',TRemot eProcPrope rty);
  183     Register PropertyEd itor(TypeI nfo(TServe r),nil,'', TServerPro perty);
  184     Register PropertyEd itor(TypeI nfo(TRpcVe rsion),nil ,'',TRpcVe rsionPrope rty);
  185   end;
  186  
  187   end.
  188  

Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.