File: //usr/share/jed/lib/sccs.slc
.#(�" 29 , Last_Comment+ �, Last_Comment,*�" 32 $ file+*�" 34 # dir+��" 35 $ file� . parse_filename�$ file�# dir���" 36 # dir$ SCCS� & dircat�" s. $ file� & strcat� & dircatw�" 32�3 build_sccs_filename,*�" 40 # cmd+*�" 42 $ cbuf # buf+�" 44. *SCCS
Message*�# buf�" 45 ' whatbuf�$ cbuf��" 46 # buf� & setbuf�" 47 , erase_buffer�" 48! 0� # cmd� - run_shell_cmdB.��" 50 # buf� ' pop2buf�" 51" -1w/c��" 53 # buf� + bury_buffer��" 54 $ cbuf� & setbuf�" 55! 0w�" 40�0 execute_sccs_cmd,*�" 58 $ file+*�" 60
# cmd+*�" 61 # dir+*�" 62 $ name+���" 642 Checking out %s... $ file� ' sprintf� % flush��" 66 $ file� . parse_filename�$ name�# dir��" 688 cd %s; sccs edit %s 2>&1 # dir $ name� ' sprintf�# cmd�" 69! 0� # cmd� 0 execute_sccs_cmdB.��" 706 Error checki
ng out %s! $ file� & verror/c���" 727 Checking out %s...done. $ file� ' sprintf� % flush�" 58�( checkout,*�" 75 $ file+*�" 77 # dir $ name # cmd+��" 79 $ file� , write_bufferP��" 81 $ file� . parse_filename�$ name�# dir��" 827 Enter a change comment:
, Last_Comment� ) read_mini�, Last_Comment��" 84R cd %s; echo "%s" | sccs delget %s > /dev/null 2>&1�" 85 # dir , Last_Comment $ name��" 84 ' sprintf�# cmd�" 86! 0� # cmd� 0 execute_sccs_cmdB.��" 875 Error checking in %s! $ file� & verror/c��" 89! 1
� , set_readonly��" 90> Note: file is write protected.� % flush�" 75�' checkin,*�" 95 $ file+*�" 97 # dir $ name # cmd+��" 99 $ file� , write_bufferP���# 101. Creating %s... $ file� ' sprintf� % flush��# 103 $ file� . parse_filename�$ name�# dir��# 105
F cd %s; sccs create %s > /dev/null 2>&1�# 106 # dir $ name��# 105 ' sprintf�# cmd�# 107! 0� # cmd� 0 execute_sccs_cmdB.��# 108G Error doing initial sccs-create for %s! $ file� & verrorw/c��# 112! 1� , set_readonly��# 113> Note: file is write protect
ed.� % flush�" 95�+ sccs_create,*�# 120 # dir $ file+�# 123 + getbuf_infoPP�# dir�$ file��# 124 # dir $ file� & dircat�$ file�# 128! 0�� $ file� 3 build_sccs_filename� + file_statusA.��# 130 $ file� + sccs_createw/c�# 136 + is_readonly.��# 138 $ file� (
checkout��# 139 ' whatbuf� & delbuf��# 140 $ file� ) find_filePw/c��# 145 $ file� ' checkin�# 118y5 sccs_check_in_and_out,*�# 152 ) sccs_file $ file+��# 154/ SCCS open file:� 3 read_file_from_mini�$ file�# 159! 1� $ file� + file_statusA.��# 161 $ file
� ) find_fileP�# 162 + is_readonly.�# 163 5 sccs_check_in_and_out/cw/c��# 168 $ file� 3 build_sccs_filename�) sccs_file�# 171! 0� ) sccs_file� + file_statusA.��# 1727 SCCS file %s not found. ) sccs_file� & verrorw/c��# 176 $ file� ( checkout��# 177 $ fi
le� ) find_fileP�# 150y. sccs_open_file