web2c/tiedir/tie.w

619 {register input_description *inp_desc=input_organization[i];
620     if (inp_desc->mode==ignore) return;
621     if (feof(inp_desc->the_file))
632   inp_desc->mode=ignore;
633   inp_desc->limit=-1;  /* mark end-of-file */
634   if (inp_desc->type_of_file==master) input_has_ended=true;
660  inp_desc->limit=final_limit=0;
661  while (inp_desc->limit<buf_size) {
662    c=fgetc(inp_desc->the_file);
665    inp_desc->buffer[inp_desc->limit++]=c=map_xord(c);
668       final_limit=inp_desc->limit;
671  inp_desc->limit=final_limit;
680 incr(inp_desc->line);
681 if (inp_desc->type_of_file==master && inp_desc->line % 100==0) {
682    if (inp_desc->line % 500 == 0)  print2("%ld",inp_desc->line);
698     if (inp_desc->limit<=0) {
699        inp_desc->mode=ignore;
700        inp_desc->limit=-1;  /* mark end-of-file */
701        if (inp_desc->type_of_file==master) input_has_ended=true;
716    while ( (c=fgetc(inp_desc->the_file)) != EOF  &&  map_xord(c) != nl_mark )
874 {register input_description *inp_desc=input_organization[i];
888   if (inp_desc->mode==ignore) return;
889   if (inp_desc->limit<2) continue;
890   if (inp_desc->buffer[0] != @'@@') continue;
891   c=inp_desc->buffer[1];
907   if (inp_desc->mode==ignore) {
912 } while (inp_desc->limit<=0);
937 {register input_description *inp_desc=input_organization[i];
938     if (inp_desc->limit<0) {
944     } else if (inp_desc->limit>=2)  if (inp_desc->buffer[0]==@'@@' &&
945 	    (inp_desc->buffer[1]==@'Z' || inp_desc->buffer[1]==@'z'))
957 {register input_description *inp_desc=input_organization[i];
958     if (inp_desc->limit>=2 && inp_desc->buffer[0]==@'@@')
959       if (inp_desc->buffer[1]==@'Y'||inp_desc->buffer[1]==@'y') return(true);
986 {register input_description *inp_desc;
988   inp_desc=input_organization[actual_input];
989   if (inp_desc->type_of_file==master) {
994   inp_desc->mode=search;
1214     } else { register input_description *inp_desc;
1215 	inp_desc=(input_description *)
1217 	if (inp_desc==NULL)
1220 	inp_desc->mode=search;
1221 	inp_desc->line=0;
1222 	inp_desc->type_of_file=chf;
1223 	inp_desc->limit=0;
1224 	inp_desc->name_of_file=argv[act_arg];
1225 	input_organization[no_ch]=inp_desc;