/* check line length */
static void linecheck(char *lbuff, char *tmpbuff)
{
if (line_length+strlen(tmpbuff)>line_max) {
SAPPENDF(lbuff,"\n%s%s",indent_space,tmpbuff);
line_length=indent_length+strlen(tmpbuff);
tmpbuff[0]='\0';
}
else {
SAPPENDF(lbuff,"%s",tmpbuff);
line_length+=strlen(tmpbuff);
tmpbuff[0]='\0';
}
}
static int range_check(struct index ind, int count, char *lbuff)
{
int i,j,k,cc1,cc2,start,force=0;
char tmpbuff[BUFFERLEN],errbuff[BUFFERLEN];
for (i=count;i<ind.num+1;i++) {
if (ind.p[i].enc[0]==range_close) {
SPRINTF(errbuff,"Warning: Unmatched range closing operator \'%c\',",range_close);
SAPPENDF(errbuff,"%s.",ind.idx[0]);
warn_printf(efp, "%s\n", errbuff);
ind.p[i].enc++;
}
if (ind.p[i].enc[0]==range_open) {
start=i;
ind.p[i].enc++;
for (j=i;j<ind.num+1;j++) {
if (strcmp(ind.p[start].enc,ind.p[j].enc)) {
if (ind.p[j].enc[0]==range_close) {
ind.p[j].enc++;
ind.p[j].enc[0]='\0';
force=1;
break;
}
else if (j!=i && ind.p[j].enc[0]==range_open) {
SPRINTF(errbuff,"Warning: Unmatched range opening operator \'%c\',",range_open);
for (k=0;k<ind.words;k++) SAPPENDF(errbuff,"%s.",ind.idx[k]);
warn_printf(efp, "%s\n", errbuff);
ind.p[j].enc++;
}
if (strlen(ind.p[j].enc)>0) {
SPRINTF(tmpbuff,"%s%s%s",encap_prefix,ind.p[j].enc,encap_infix);
SAPPENDF(tmpbuff,"%s%s%s",ind.p[j].page,encap_suffix,delim_n);
linecheck(lbuff,tmpbuff);
}
}
}
if (j==ind.num+1) {
SPRINTF(errbuff,"Warning: Unmatched range opening operator \'%c\',",range_open);
for (k=0;k<ind.words;k++) SAPPENDF(errbuff,"%s.",ind.idx[k]);
warn_printf(efp, "%s\n", errbuff);
}
i=j-1;
}
else if (prange && i<ind.num) {
if (chkcontinue(ind.p,i)
&& (!strcmp(ind.p[i].enc,ind.p[i+1].enc)
|| ind.p[i+1].enc[0]==range_open))
continue;
else {
i++;
break;
}
}
else {
i++;
break;
}
}
cc1=pnumconv(ind.p[i-1].page,ind.p[i-1].attr[0]);
cc2=pnumconv(ind.p[count].page,ind.p[count].attr[0]);
if (cc1>=cc2+2 || (cc1>=cc2+1 && strlen(suffix_2p)) || force) {
return i-1;
}
else return count;
}
/* write ind file */
void indwrite(char *filename, struct index *ind, int pagenum)
{
int i,j,hpoint=0;
char datama[2048],lbuff[BUFFERLEN];
FILE *fp;
int conv_euc_to_euc;
if (filename && kpse_out_name_ok(filename)) fp=fopen(filename,"wb");
else {
fp=stdout;
#ifdef WIN32
setmode(fileno(fp), _O_BINARY);
#endif
}
conv_euc_to_euc = is_internalUPTEX() ? 1 : 0;
if (conv_euc_to_euc) set_enc_string(NULL, "euc");
convert(atama,datama);
if (conv_euc_to_euc) set_enc_string(NULL, "uptex");
fputs(preamble,fp);
if (fpage>0) {
fprintf(fp,"%s%d%s",setpage_prefix,pagenum,setpage_suffix);
}
for (i=line_length=0;i<lines;i++) {
if (i==0) {
if (!((alphabet(ind[i].dic[0][0]))||(japanese(ind[i].dic[0])))) {
if (lethead_flag) {
if (symbol_flag && strlen(symbol)) {
fprintf(fp,"%s%s%s",lethead_prefix,symbol,lethead_suffix);
}
else if (lethead_flag>0) {
fprintf(fp,"%s%s%s",lethead_prefix,symhead_positive,lethead_suffix);
}
else if (lethead_flag<0) {
fprintf(fp,"%s%s%s",lethead_prefix,symhead_negative,lethead_suffix);
}
}
SPRINTF(lbuff,"%s%s",item_0,ind[i].idx[0]);
}
else if (alphabet(ind[i].dic[0][0])) {
if (lethead_flag>0) {
fprintf(fp,"%s%c%s",lethead_prefix,ind[i].dic[0][0],lethead_suffix);
}
else if (lethead_flag<0) {
fprintf(fp,"%s%c%s",lethead_prefix,ind[i].dic[0][0]+32,lethead_suffix);
}
SPRINTF(lbuff,"%s%s",item_0,ind[i].idx[0]);
}
else if (japanese(ind[i].dic[0])) {
if (lethead_flag) {
fputs(lethead_prefix,fp);
for (j=hpoint;j<(strlen(datama)/2);j++) {
if ((unsigned char)ind[i].dic[0][1]<(unsigned char)datama[j*2+1]) {
fprint_euc_char(fp,atama[(j-1)*2],atama[(j-1)*2+1]);
hpoint=j;
break;
}
}
if (j==(strlen(datama)/2)) {
fprint_euc_char(fp,atama[(j-1)*2],atama[(j-1)*2+1]);
}
fputs(lethead_suffix,fp);
}
SPRINTF(lbuff,"%s%s",item_0,ind[i].idx[0]);
for (hpoint=0;hpoint<(strlen(datama)/2);hpoint++) {
if ((unsigned char)ind[i].dic[0][1]<(unsigned char)datama[hpoint*2+1]) {
break;
}
}
}
switch (ind[i].words) {
case 1:
SAPPENDF(lbuff,"%s",delim_0);
break;
case 2:
SAPPENDF(lbuff,"%s%s",item_x1,ind[i].idx[1]);
SAPPENDF(lbuff,"%s",delim_1);
break;
case 3:
SAPPENDF(lbuff,"%s%s",item_x1,ind[i].idx[1]);
SAPPENDF(lbuff,"%s%s",item_x2,ind[i].idx[2]);
SAPPENDF(lbuff,"%s",delim_2);
break;
default:
break;
}
printpage(ind,fp,i,lbuff);
}
else {
if (!((alphabet(ind[i].dic[0][0]))||(japanese(ind[i].dic[0])))) {
if ((alphabet(ind[i-1].dic[0][0]))||(japanese(ind[i-1].dic[0]))){
fputs(group_skip,fp);
if (lethead_flag && symbol_flag) {
fprintf(fp,"%s%s%s",lethead_prefix,symbol,lethead_suffix);
}
}
}
else if (alphabet(ind[i].dic[0][0])) {
if (ind[i].dic[0][0]!=ind[i-1].dic[0][0]) {
fputs(group_skip,fp);
if (lethead_flag>0) {
fprintf(fp,"%s%c%s",lethead_prefix,ind[i].dic[0][0],lethead_suffix);
}
else if (lethead_flag<0) {
fprintf(fp,"%s%c%s",lethead_prefix,ind[i].dic[0][0]+32,lethead_suffix);
}
}
}
else if (japanese(ind[i].dic[0])) {
for (j=hpoint;j<(strlen(datama)/2);j++) {
if ((unsigned char)(ind[i].dic[0][0]<=(unsigned char)datama[j*2])&&((unsigned char)ind[i].dic[0][1]<(unsigned char)datama[j*2+1])) {
break;
}
}
if ((j!=hpoint)||(j==0)) {
hpoint=j;
fputs(group_skip,fp);
if (lethead_flag!=0) {
fputs(lethead_prefix,fp);
fprint_euc_char(fp,atama[(j-1)*2],atama[(j-1)*2+1]);
fputs(lethead_suffix,fp);
}
}
}
switch (ind[i].words) {
case 1:
SAPPENDF(lbuff,"%s%s%s",item_0,ind[i].idx[0],delim_0);
break;
case 2:
if (strcmp(ind[i-1].idx[0],ind[i].idx[0])!=0 || strcmp(ind[i-1].dic[0],ind[i].dic[0])!=0) {
SAPPENDF(lbuff,"%s%s%s",item_0,ind[i].idx[0],item_x1);
}
else {
if (ind[i-1].words==1) {
SAPPENDF(lbuff,"%s",item_01);
}
else {
SAPPENDF(lbuff,"%s",item_1);
}
}
SAPPENDF(lbuff,"%s",ind[i].idx[1]);
SAPPENDF(lbuff,"%s",delim_1);
break;
case 3:
if (strcmp(ind[i-1].idx[0],ind[i].idx[0])!=0 || strcmp(ind[i-1].dic[0],ind[i].dic[0])!=0) {
SAPPENDF(lbuff,"%s%s",item_0,ind[i].idx[0]);
SAPPENDF(lbuff,"%s%s%s",item_x1,ind[i].idx[1],item_x2);
}
else if (ind[i-1].words==1) {
SAPPENDF(lbuff,"%s%s%s",item_01,ind[i].idx[1],item_x2);
}
else if (strcmp(ind[i-1].idx[1],ind[i].idx[1])!=0 || strcmp(ind[i-1].dic[1],ind[i].dic[1])!=0) {
if (ind[i-1].words==2) SAPPENDF(lbuff,"%s%s%s",item_1,ind[i].idx[1],item_12);
else SAPPENDF(lbuff,"%s%s%s",item_1,ind[i].idx[1],item_x2);
}
else {
SAPPENDF(lbuff,"%s",item_2);
}
SAPPENDF(lbuff,"%s%s",ind[i].idx[2],delim_2);
break;
default:
break;
}
printpage(ind,fp,i,lbuff);
}
}
fputs(postamble,fp);
if (filename) fclose(fp);
}
/* write page block */
static void printpage(struct index *ind, FILE *fp, int num, char *lbuff)
{
int i,j,k,cc;
char buff[BUFFERLEN],tmpbuff[BUFFERLEN],errbuff[BUFFERLEN];
buff[0]=tmpbuff[0]='\0';
crcheck(lbuff,fp);
line_length=strlen(lbuff);
for(j=0;j<ind[num].num;j++) {
cc=range_check(ind[num],j,lbuff);
if (cc>j) {
if (pnumconv(ind[num].p[j].page,ind[num].p[j].attr[0])==pnumconv(ind[num].p[cc].page,ind[num].p[cc].attr[0])) {
j=cc-1;
continue;
}
/* range process */
if (ind[num].p[j].enc[0]==range_open
|| ind[num].p[j].enc[0]==range_close)
ind[num].p[j].enc++;
if (strlen(ind[num].p[j].enc)>0) {
SPRINTF(buff,"%s%s%s",encap_prefix,ind[num].p[j].enc,encap_infix);
}
if (strlen(suffix_3p)>0 && (pnumconv(ind[num].p[cc].page,ind[num].p[cc].attr[0])-pnumconv(ind[num].p[j].page,ind[num].p[j].attr[0]))==2) {
SAPPENDF(buff,"%s%s",ind[num].p[j].page,suffix_3p);
}
else if (strlen(suffix_mp)>0 && (pnumconv(ind[num].p[cc].page,ind[num].p[cc].attr[0])-pnumconv(ind[num].p[j].page,ind[num].p[j].attr[0]))>=2) {
SAPPENDF(buff,"%s%s",ind[num].p[j].page,suffix_mp);
}
else if (strlen(suffix_2p)>0 && (pnumconv(ind[num].p[cc].page,ind[num].p[cc].attr[0])-pnumconv(ind[num].p[j].page,ind[num].p[j].attr[0]))==1) {
SAPPENDF(buff,"%s%s",ind[num].p[j].page,suffix_2p);
}
else {
SAPPENDF(buff,"%s%s",ind[num].p[j].page,delim_r);
SAPPENDF(buff,"%s",ind[num].p[cc].page);
}
SAPPENDF(tmpbuff,"%s",buff);
buff[0]='\0';
if (strlen(ind[num].p[j].enc)>0) {
SAPPENDF(tmpbuff,"%s",encap_suffix);
}
linecheck(lbuff,tmpbuff);
j=cc;
if (j==ind[num].num) {
goto PRINT;
}
else {
SAPPENDF(tmpbuff,"%s",delim_n);
linecheck(lbuff,tmpbuff);
}
}
else if (strlen(ind[num].p[j].enc)>0) {
/* normal encap */
if (ind[num].p[j].enc[0]==range_close) {
SPRINTF(errbuff,"Warning: Unmatched range closing operator \'%c\',",range_close);
for (i=0;i<ind[num].words;i++) SAPPENDF(errbuff,"%s.",ind[num].idx[i]);
warn_printf(efp, "%s\n", errbuff);
ind[num].p[j].enc++;
}
if (strlen(ind[num].p[j].enc)>0) {
SAPPENDF(tmpbuff,"%s%s%s",encap_prefix,ind[num].p[j].enc,encap_infix);
SAPPENDF(tmpbuff,"%s%s%s",ind[num].p[j].page,encap_suffix,delim_n);
linecheck(lbuff,tmpbuff);
}
else {
SAPPENDF(tmpbuff,"%s%s",ind[num].p[j].page,delim_n);
linecheck(lbuff,tmpbuff);
}
}
else {
/* no encap */
SAPPENDF(tmpbuff,"%s%s",ind[num].p[j].page,delim_n);
linecheck(lbuff,tmpbuff);
}
}
if (ind[num].p[j].enc[0]==range_open) {
SPRINTF(errbuff,"Warning: Unmatched range opening operator \'%c\',",range_open);
for (k=0;k<ind[num].words;k++) SAPPENDF(errbuff,"%s.",ind[num].idx[k]);
warn_printf(efp, "%s\n", errbuff);
ind[num].p[j].enc++;
}
else if (ind[num].p[j].enc[0]==range_close) {
SPRINTF(errbuff,"Warning: Unmatched range closing operator \'%c\',",range_close);
for (k=0;k<ind[num].words;k++) SAPPENDF(errbuff,"%s.",ind[num].idx[k]);
warn_printf(efp, "%s\n", errbuff);
ind[num].p[j].enc++;
}
if (strlen(ind[num].p[j].enc)>0) {
SAPPENDF(tmpbuff,"%s%s%s",encap_prefix,ind[num].p[j].enc,encap_infix);
SAPPENDF(tmpbuff,"%s%s",ind[num].p[j].page,encap_suffix);
}
else {
SAPPENDF(tmpbuff,"%s",ind[num].p[j].page);
}
linecheck(lbuff,tmpbuff);
PRINT:
fputs(lbuff,fp);
fputs(delim_t,fp);
lbuff[0]='\0';
}
int board_remove_msg(struct char_data *ch, char *arg, int bnum) {
/* This should now be fixed so that low level chars can remove armor and such. */
int ind, tmessage;
char buf[256], number[MAX_INPUT_LENGTH];
one_argument(arg, number);
if (!*number || !isdigit(*number))
return (0);
if (!(tmessage = atoi(number)))
return (0);
if (bnum == -1) {
log_msg("Board special procedure called for non-board object.\r\n");
send_to_char("This board is not in operation at this time.\n\r", ch);
return 1;
}
curr_board = &boards[bnum];
if (get_max_level(ch) < min_remove_level[bnum]) {
send_to_char
("You try and grab one of the notes of the board but get a nasty\n\r",
ch);
send_to_char("shock. Maybe you'd better leave it alone.\n\r", ch);
return 1;
}
if (curr_board->number < 1) {
send_to_char("The board is empty!\n\r", ch);
return (1);
}
if (tmessage < 0 || tmessage > curr_board->number) {
send_to_char("That message exists only in your imagination..\n\r", ch);
return (1);
}
/* Check for board locks, return if lock is found */
if (board_check_locks(bnum, ch))
return (1);
ind = tmessage;
for (; ind < (curr_board->number); ind++)
curr_board->msg[ind] = curr_board->msg[ind + 1];
curr_board->number--;
send_to_char("Message removed.\n\r", ch);
SPRINTF(buf, "%s just removed message %d.", ch->player.name, tmessage);
/* Removal message also repaired */
act(buf, FALSE, ch, 0, 0, TO_ROOM);
buf[strlen(buf) - 1] = '\0';
SAPPENDF(buf, " from board %d.", bnum);
log_msg(buf); /* Message removals now logged. */
board_save_board(bnum);
return (1);
}
