# Some quickie hooks for NEdit to use SCCS version control.
# See http://www.bolthole.com/solaris/nedit.html for details
#

define SCCSCheckIn
{

        save()
        inMessage = "Check in: " $file_name " with comment"
        theMessage = string_dialog( inMessage, "Ok", "Cancel" )
        if ( $string_dialog_button == 1 )
        {
                shell_command ( "sccs delget -y\"" theMessage "\" " $file_name, "" )
                if ( $shell_cmd_status == 0 )
                {
                        revert_to_saved()
                }
                else
                {
                        dialog ( "Error Checking In " $file_name ": " $shell_cmd_status, "Ok" )
                }
        }
}
define SCCSCheckOut
{
        save()
        shell_command ( "sccs edit " $file_name, "" )
        if ( $shell_cmd_status == 0 )
        {
                revert_to_saved()
        }
        else
        {
                dialog ( "Error Checking Out " $file_name ": " $shell_cmd_status, "Ok" )
        }
}