DataMuseum.dk

top - download

    Length: 2451 (0x993)
    Types: TextFile
    Names: »delete.c«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/euug-87hel/sec1/elm/src/delete.c« 

TextFile

/**		delete.c		**/

/**  Delete or undelete files: just set flag in header record! 
     Also tags specified message(s)...

     (C) Copyright 1985  Dave Taylor
**/

#include "headers.h"

delete_msg(real_del)
int real_del;
{
	/** Delete current message.  If real-del is false, then we're
	    actually requested to toggle the state of the current
	    message... **/

	if (real_del)
	  header_table[current-1].status |= DELETED;
	else if (ison(header_table[current-1].status, DELETED))
	  clearit(header_table[current-1].status, DELETED);
	else
	  setit(header_table[current-1].status, DELETED);

	show_msg_status(current-1);
}

undelete_msg()
{
	/** clear the deleted message flag **/

	clearit(header_table[current-1].status, DELETED);

	show_msg_status(current-1);
}

show_msg_status(msg)
int msg;
{
	/** show the status of the current message only.  **/

	if (on_page(msg)) {
	  MoveCursor((msg % headers_per_page) + 4, 3);
	  if (msg == current && !arrow_cursor) {
	    StartBold();
	    Writechar( ison(header_table[msg].status, DELETED)? 'D' : ' ');
	    EndBold();
	  }
	  else
	    Writechar( ison(header_table[msg].status, DELETED)? 'D' : ' ');
	}
}

tag_message()
{
	/** Tag current message.  If already tagged, untag it. **/

	if (ison(header_table[current-1].status, TAGGED))
	  clearit(header_table[current-1].status, TAGGED);
	else
	  setit(header_table[current-1].status, TAGGED);

	show_msg_tag(current-1);
}

show_msg_tag(msg)
int msg;
{
	/** show the tag status of the current message only.  **/

	if (on_page(msg)) {
	  MoveCursor((msg % headers_per_page) + 4, 4);
	  if (msg == current && !arrow_cursor) {
	    StartBold();
	    Writechar( ison(header_table[msg].status, TAGGED)? '+' : ' ');
	    EndBold();
	  }
	  else
	    Writechar( ison(header_table[msg].status, TAGGED)? '+' : ' ');
	}	
}

show_new_status(msg)
int msg;
{
	/** If the specified message is on this screen, show
	    the new status (could be marked for deletion now,
	    and could have tag removed...)
	**/

	if (on_page(msg)) 
	  if (msg == current && !arrow_cursor) {
	    StartBold();
	    PutLine2((msg % headers_per_page) + 4, 3, "%c%c",
		   ison(header_table[msg].status, DELETED)? 'D' : ' ',
		   ison(header_table[msg].status, TAGGED )? '+' : ' ');
	    EndBold();
	  }
	  else
	    PutLine2((msg % headers_per_page) + 4, 3, "%c%c",
		   ison(header_table[msg].status, DELETED)? 'D' : ' ',
		   ison(header_table[msg].status, TAGGED )? '+' : ' ');
}