DataMuseum.dk

top - download

    Length: 2853 (0xb25)
    Types: TextFile
    Notes: R1k Text-file segment

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦55b1a8769⟧ 
            └─⟦this⟧ 

TextFile

class Remote_File (2) is

    
    type Edit_Action (1) is
        (Ws_Only, Ws_Else_Local, Ws_Else_Message, Local, Message_Only);

    Create.Initial_Subobjects : string (Constant; Non_Display; Default =>
        "Local  :  Text");
    Create.Directory_Subclass : string (Constant; Non_Display; Default =>
        "Remote_Text");

    Edit.Display_Action : Edit_Action (Non_Display; Default => Local);
    Edit.Object : string (Constant; Non_Display; Default =>
        "Local");
    Edit.Banner : string (Constant; Non_Display; Default =>
        "Text");
        
    Edit.Allow_Edit : boolean (Default => True);

    Connected : boolean (Editable; Default => True);
        
    Parent_Name : string (Editable);
        
    Connect_Date : Date (Non_Display);
    Disconnect_Date : Date (Non_Display);
        
    Data.Host : string (Editable; Default => "soleil");
    Data.Context : string (Editable; Default => "/usr/home/cbh/Dtia_Objects");
    Data.Name : string (Editable; Default => "hello");
    Data.Context_Separator : string (Constant; Non_Display; Default => "/");
    Data.Suffix : string (Constant; Non_Display; Default => ".c");
    
    Shell.Timeout : string (Editable; Default => "60");

    Promot.Command1 : string (Editable; Default => "cd $D; make $N");
    Promot.Command2 : string (Editable; Default => "cd $D; $N");
    Semanticize.Command : string (Editable; Default => "cd $D; lint $N.c");
    Format.Command : string (Editable; Default => "cd $D; ./beautiful $N.c");

    Data.Substitution_Pattern : string (Editable);
    Data.Substitution_Value : string (Editable);

    Data.Last_Ws_Stamp:string (Editable; Default => "0");
    
    Dispatch.Map : string (Non_Display; Constant; Default =>
        "Image_Name => Default;" &
        "Build_Image => External;" &
        "Post_Commit => External;" &
        "Semanticize => External;" &
        "Complete => Not_Supported;" &
        "Edit => Default;" &
        "Definition => not_supported;" &
        "Enclosing => Default;" &
        "Elide => Null;" &
        "Expand => Null;" &
        "Undo => Not_Supported;" &
        "Redo => Not_Supported;" &
        "Promote => external;" &
        "Demote => Null;" &
        "Format => External;" &
        "Revert => Default;" &
        "Sort_Image => Not_Supported;" &
        "Delete => Not_Supported;" &
        "Pre_Check_In => Null;" &
        "Pre_Check_Out => Null;" &
        "Post_Check_Out => Null;" &
        "Pre_Cmvc_Copy => Null;" &
        "Post_Cmvc_Copy => Null;" &
        "Pre_Make_Controlled => Default;" &
        "Output => Default;" &
        "Input => Default;");

    Io.Form_Map : string (Constant; Non_Display; Default =>
        "others => Divert (""Local"");");

     Activation.Session_Server_Name : string (Constant; non_display; Default =>
        "Remote_File_Server");
end Remote_File