Edit file File name : rcs.slc Content :.#(�" 34 , Last_Comment+ �, Last_Comment,*�" 37 $ file+*�" 39 # dir+��" 40 $ file� . parse_filename�$ file�# dir���" 41 # dir # RCS� & dircat� $ file " ,v� & strcat� & dircatw�" 37�2 build_rcs_filename,*�" 44 $ file+*�" 46 # cmd # dir $ name+���" 48 2 Checking out %s... $ file� ' sprintf� % flush��" 50 $ file� . parse_filename�$ name�# dir��" 52 @ cd %s; co -l %s > /dev/null 2>&1 # dir $ name� ' sprintf�# cmd�" 53! 0� # cmd� & systemB.��" 54 6 Error checking out %s! $ file� & verror/c���" 56 7 Checki ng out %s...done. $ file� ' sprintf� % flush�" 44�( checkout,*�" 59 $ file # msg+*�" 61 # dir $ name # cmd+��" 63 $ file� , write_bufferP��" 64 $ file� . parse_filename�$ name�# dir��" 65 # msg , Last_Comment� ) read_mini�, Last_Comment��" 66 I cd %s; echo "%s" | ci %s > /dev/null 2>&1�" 67 # dir , Last_Comment $ name��" 66 ' sprintf�# cmd�" 68! 0� # cmd� & systemB.��" 69 5 Error checking in %s! $ file� & verror/c��" 71! 1� , set_readonly��" 72 + getbuf_info! 8J� + setbuf_info��" 73 > Note: file is write protected.� % flush�" 59�' checkin,*�" 78 ( rcs_file # dir $ file+��" 80 . RCS open file:� 3 read_file_from_mini�$ file���" 82" -3� $ file!�$ file��" 83 $ file� . parse_filename�$ file�# dir����" 84" -5� # dir! $ file� & dircat�$ file��" 85 $ file� ( checkout��" 86 $ file� ) find_fileP�" 76y- rcs_open_file,*�" 91 $ file # dir % flags+�" 94 + getbuf_info�% flagsP�# dir�$ file��" 95 # dir $ file� & dircat�$ file�" 98! 0�� $ file� 2 build_rcs_filename� + file_statusA.��" 99 # dir # RCS� & dirca t�# dir�# 100! 0� # dir� + file_statusA.�# 101! 0� # dir# 511� % mkdirB.��# 102 @ Error creating RCS directory %s! # dir� & verror/c/c��# 104 $ file 5 RCS file description:� ' checkinw/c�# 109 % flags! 1! 3GF.��# 110 $ file� ( checkout��# 111 ' whatb uf� & delbuf��# 112 $ file� ) find_filePw/c��# 117 $ file 7 Enter a change comment:� ' checkin�" 89y4 rcs_check_in_and_out(�# 120 ( rlog_buf+ & *rlog*�( rlog_buf,*�# 124 $ cbuf+ ' whatbuf�$ cbuf��# 125 ( rlog_buf� & setbuf��# 126! 0� 8 set_buffer_modifi ed_flag��# 127 $ cbuf� & setbuf��# 128 ( rlog_buf� & delbuf�# 122y1 close_rlog_buffer,*�# 133 ( rcs_file # dir $ file # cmd ( tmp_file+*�# 134 ( rlog_map+ ( rlog_map�( rlog_map��# 136 1 rlog of RCS file:� 3 read_file_from_mini�$ file���# 137" -3� $ fil e!�$ file��# 138 $ file� . parse_filename�$ file�# dir����# 139" -5� # dir! $ file� & dircat�$ file��# 141 , /tmp/jedrlog� - make_tmp_file�( tmp_file��# 142 , rlog %s > %s $ file ( tmp_file� ' sprintf�# cmd�# 143! 0� # cmd� & systemB.��# 144 2 Error rl ogging %s! $ file� & verror/c��# 146 ( rlog_buf� & sw2buf��# 147 ( tmp_file� + insert_file��# 148 ( tmp_file� + delete_file�# 149 ) most_mode��# 150 ( rlog_map� ( keymap_p.��# 151 ( rlog_map� + make_keymap��# 152 1 close_rlog_buffer ! q ( rlog_map� ) defi nekey/b��# 154 ( rlog_map� * use_keymap��# 155! 1� , set_readonly�# 131y, rcs_read_log��# 158 # rcs� ' provide Save