q[VAX-11 Librarian V2A.00 ~*UD*+U  |  ADD_TO_INDEXfCOMMANDSCRITICAL_SECTION GET_COMMAND GET_MESSNO>INDEXDEF INDEX_ACCESSLIB$DAYLIB$GET_FOREIGNLIB_DAY_TO_TIME LOCKED_RECORDREADTEXTREADTREE|  LOCKED_RECORDREADTEXTREADTREE  READ_DATE ^ READ_LINE READ_REPEAT_TYPE \REPTYPES h SCAN_INDEX SCAN_TREE , SET_CTRLC  TIME_LESS TREEDEF UPPER_CASE`݁$EDeclare Add_to_Index Entry(Pointer,Bit(64) Aligned,Fixed Binary(31));ww Z(%/* Commands */%Replace add_command By 1;%Replace delete_command By 2;%Replace show_command By 3;%Replace list_command By 4;%Replace stat_command By 5;%Replace edit_command By 6;%Replace help_command By 7;%Replace halt_command By 8;%Replace null_command By 9;%Replace invalid_command By 10;ww6CZ#<Declare (Start_Critical_Section,End_Critical_Section) Entry;wwm%*Declare Get_command Entry(Fixed Binary(7), Character(255) Varying, Fixed Binary(31));ww K>&0Declare get_messno Entry(Character(255) Varying, Fixed Binary(31), Fixed Binary(31),& Fixed Binary(31)) Returns(Bit(1));ww$Declare 1 index_entry Based, 2 (left,right) Pointer, 2 timestamp Bit(64) Aligned;ww`c#%=Declare index_access Entry(Pointer,Fixed Binary(31),Pointer);wwb#declare lib$day entry@ (fixed binary(31), bit(64) aligned, fixed binary(31)) Options(Variable);wwO+Declare Lib$Get_Foreign Entry  (1,& 2 Fixed Binary(15), /* length */% 2 Fixed Binary(7), /* class */% 2 Fixed Binary(7), /* type */ 2 Pointer) /* addr */$ Returns(Fixed Binary(31));"Declare 1 Command_line_descriptor,* 2 line_length Fixed Binary(15) Init(0),3 2 class Fixed Binary(7) Init(14), /* string */1 2 type Fixed Binary(7) Init(2), /* dynamic */ 2 address Pointer;CDeclare Command_line Character(Command_line_descriptor.line_length). Based(Command_line_descriptor.address);ww {+G%/Declare Lib_day_to_time Entry(Fixed Binary(31), Bit(64) Aligned, Fixed Binary(31)) Options(Variable);wwq$ODeclare Locked_Record Entry(Fixed Binary(31),Fixed Binary(31)) Returns(Bit(1));ww lm( Declare readtext Entry(Pointer), text_ptr Pointer,# 1 text_list_entry Based(text_ptr), 2 link pointer, 2 textf,! 3 timestamp Bit(64) Aligned,# 3 sequence_no Fixed Binary(7),$ 3 text_length Fixed Binary(15),9 3 text Character(text_list_entry.textf.text_length),$ 1 textf_key_record Based(text_ptr), 2 link pointer, 2 textfkey Character(9);ww`P""NDeclare readtree Entry(Character(*),Pointer,Fixed Binary(15),Fixed Binary(7));ww @Sd#>Declare Read_Date Entry(Character(*),Bit(1),Fixed Binary(31));wwtΟ""%Replace nocvt2upper By '0'b;%Replace cvt2upper By '1'b;DDeclare read_line Entry(Character(*),Character(255) Varying, Bit(1)) Returns(Bit(1));ww *%0Declare Read_Repeat_type Entry(Fixed Binary(7));wwd+%Replace rpt_once By 1;%Replace rpt_daily By 2;%Replace rpt_always By 3;'%Replace rpt_once_except_last_day By 4;(%Replace rpt_daily_excrLIB_DAY_TO_TIME SET_CTRLCET_TYPE WRITE_REQUEST ept_last_day By 5;&%Replace rpt_marked_for_delete By 127; %Replace rpt_remind_offset By 6;ww_B%!Declare Scan_index Entry(Pointer,$ Entry(Pointer,Fixed Binary(31)), Fixed Binary(31));wwq'"0Declare Scan_Tree Entry(Pointer,Entry(Pointer));wwx!2Declare Set_Ctrlc Entry Returns(Fixed Binary(31)),4 C_Interrupt Fixed Binary Static Readonly Init(555);ww`$IDeclare Time_less Entry(Bit(64) Aligned,Bit(64) Aligned) Returns(Bit(1));wwx&"Declare 1 nametree Based, 2 name Character(12) Varying, 2 (left,right) pointer;ww٦۲!>Declare Upper_case Entry(Character(*)) Returns (character(*));wwfe%IDeclare Write_list Entry((*) Character(*),Character(*),Fixed Binary(31));wwd(F%?Declare Write_Request Entry(Fixed Binary(31),Fixed Binary(31));ww  TIME_LESS TREEDEF UPPER_CASE WRITE_LIST H WRITE_REQUEST