DataMuseum.dk

top - download

    Length: 9935 (0x26cf)
    Types: TextFile
    Notes: UNIX file
    Names: »f2.c«

└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦2d53db1df⟧ UNIX V7 Filesystem
        └─ ⟦this⟧ »hr/src/desk/f2.c« 

TextFile

#include <stdio.h>
#include <smgr.h>

extern char   *malloc();
extern int    *bmialloc();

FONT_HEADER   *aftable[FM_MAXFONT];

/***********************************************************************
      Font_test.c  allows  application programs the use of a wide 
      variety of  fonts  using minimal  amounts of system memory.
      Accessing a font is done by using the following Font_Mgr.c
      functions:   FM_open, FM_close, FM_getch, SM_GetInfo
***********************************************************************/


FM_open(ff_name)
char *ff_name;
{  
   register FONT_HEADER *aft_entry;
   register int i;
   FILE *fp;
   int  tbl_entrs,       /* number of table entries */
	fwords;          /* number of words in entire
			    bitmap image            */

#ifdef DEBUG
printf("***  FM_open: %s  ****\n", ff_name);
#endif

   /* for a few minutes here, fwords will be used to determine
    * whether or not there is an index available
    */
   fwords = 0;

      /* allocate storage for font header */
   if(!(aft_entry = (FONT_HEADER *) malloc(sizeof(FONT_HEADER))))
   {
      printf("FM_open: **** ERROR ****");
      printf("     memory allocation ** failed (aft_entry)\n\n");
      return(MEM_ALLOC_FAIL);
   }


      if(!(fp = fopen(ff_name,"r"))) /* input file read only */
      {
         printf("FM_open: **** ERROR ****");
         printf("     input file open ** failed\n\n");
         free(aft_entry);
         return(FILE_OPEN_FAIL);
      }

   
         /* load the FONT_HEADER */
      aft_entry->ffirst_char  = (int) getc(fp);   /* first char of font */
      aft_entry->flast_char   = (int) getc(fp);   /* last char of font  */
      aft_entry->flast_char  &= 0xff;             /* possible sign extension*/
      aft_entry->font_ascent  = getc(fp);         /* font ascent        */
      aft_entry->font_descent = getc(fp);         /* font descent       */
      aft_entry->font_leading = getc(fp);         /* font leading       */
      aft_entry->fmax_width   = getc(fp);         /* maximum font width */
      aft_entry->fmin_width   = getc(fp);         /* minimum font width */
      for(i = 0; i < FM_MAXNLEN; i++)
         aft_entry->ffont_name[i]   = getc(fp);   /* font name          */
      aft_entry->unused1      = getc(fp);         /* unused area 1      */
      aft_entry->unused2      = getc(fp);         /* unused area 2      */
      aft_entry->unused3      = getc(fp);         /* unused area 3      */
      aft_entry->font_map.rect.origin.x = 0;
      aft_entry->font_map.rect.origin.y = 0;
      aft_entry->font_map.rect.corner.x = getw(fp);
      aft_entry->font_map.rect.corner.y = getw(fp);
      i = aft_entry->font_map.rect.corner.x;
      aft_entry->font_map.width = (i % 16)? (i/16+1): (i/16);
      (aft_entry->font_map.width) *= 16;


   for(i = 0; i < FM_MAXFONT; i++)
      if(aftable[i])        /* is aftable[i] <> 0 */
         if(strcmp(aft_entry->ffont_name,aftable[i]->ffont_name) == 0)
         {
	    if ( i != 0 )
	    	aftable[i]->fopen_count++;
#ifdef DEBUG
	printf("---- FONT ALREADY OPEN ---- increment open count\n");
	printf("  aftable[%d]->fopen_count = %d\n",i,aftable[i]->fopen_count);
#endif
	    return(i);
         }


      for(i = 0; i < FM_MAXFONT; i++)
         if(!(aftable[i]))   /* is aftable = 0 */
         {
	    fwords = 1;
	    break;
         }

      if ( fwords == 0 )
      {
       printf("FM_open: **** ERROR ****");
       printf("     maximum number of (8) fonts already loaded\n\n");
       return(TAB_FILLED);
      }

#ifdef DEBUG
       printf("---- FONT NOT CURRENTLY IN USE ----\n");
       printf("   aftable[%d]  * available *\n\n",i);
#endif
   
      aftable[i] = aft_entry;
   
      aft_entry->fopen_count = 1;
      tbl_entrs = (aft_entry->flast_char) - (aft_entry->ffirst_char) + 3;
   
#ifdef DEBUG
printf("HEADER COPY:\n");
printf("   first=%d, last=%d\n",aft_entry->ffirst_char,aft_entry->flast_char);
printf("   ascent=%d, descent=%d\n",aft_entry->font_ascent,aft_entry->font_descent);
printf("   leading=%d, maxwidth=%d\n",aft_entry->font_leading,aft_entry->fmax_width);
printf("   minwidth=%d, fid=%d, fontname=%s\n",aft_entry->fmin_width,i,aft_entry->ffont_name);
printf("   tbl_entrs = %d, open_count = %d\n\n",tbl_entrs,aft_entry->fopen_count);
#endif
   
            /* allocate storage for location table */
      if(!(aft_entry->loctable = (int *) malloc(tbl_entrs*2)))
      {
         fclose(fp);
         printf("FM_open: **** ERROR ****");
         printf("     memory allocation failed (loctable)\n\n");
         free(aft_entry);
         aftable[i] = (FONT_HEADER *) FONT_NULL;
         return(MEM_ALLOC_FAIL);
      }
   
            /* allocate storage for kern/width table */
      if(!(aft_entry->kwtable = (int *) malloc(tbl_entrs*2)))
      {
         fclose(fp);
         printf("FM_open: **** ERROR ****");
         printf("     memory allocation failed (kwtable)\n\n");
         free(aft_entry->loctable);
         free(aft_entry);
         aftable[i] = (FONT_HEADER *) FONT_NULL;
         return(MEM_ALLOC_FAIL);
      }
   
            /* allocate storage for bitmap */
      aft_entry->font_map.base = bmialloc(aft_entry->font_map.rect);
      if ( aft_entry->font_map.base == (int *)NULL )
	{
	fclose(fp);
	printf("FM_open: memory fail for bitmap\n");
	free(aft_entry->loctable);
	free(aft_entry->kwtable);
	free(aft_entry);
	aftable[i] = (FONT_HEADER *) NULL;
	return(MEM_ALLOC_FAIL);
	}
   
   
      if(aft_entry->font_map.base == (int*)NULL)
      {
         fclose(fp);
         printf("FM_open: **** ERROR ****");
         printf("     memory allocation ** failed (font_map.base)\n\n");
         free(aft_entry->loctable);
         free(aft_entry->kwtable);
         free(aft_entry);
         aftable[i] = (FONT_HEADER *) FONT_NULL;
         return(MEM_ALLOC_FAIL);
      }
   
         fwords = ((aft_entry->font_map.width) / 16) * 
		   (aft_entry->font_map.rect.corner.y);
   
	fread(aft_entry->loctable, sizeof(int), tbl_entrs, fp);
   	fread(aft_entry->kwtable, sizeof(int), tbl_entrs, fp);
	fread(aft_entry->font_map.base, sizeof(int), fwords, fp);

         fclose(fp);
         return(i);
}
   
   
FM_getch(fmptr)
register GETPTR  *fmptr;
{
	register FONT_HEADER *aft_entry;
int 
     pos,   /* pos of character in table        */
     npos,   /* pos of next character            */
     chr_entrs,  /* number of entries in table            */
     char_width, /* width of characters in pixels         */
     ffid;

#ifdef DEBUG
   printf("gfid = %d, gch = %d\n",fmptr->gfid,fmptr->gch);
   printf("gbmap = 0x%lx, gpoint = 0x%lx\n",fmptr->gbmap,fmptr->gpoint);
   printf("gascent = 0x%lx, gdescent = 0x%lx\n",fmptr->gascent,fmptr->gdescent);
   printf("gleading = 0x%lx, gawdth = 0x%lx\n\n",fmptr->gleading,fmptr->gawdth);
#endif

   ffid = fmptr->gfid;

   if( (ffid >=FM_MAXFONT) || (ffid < 0 ) || (!(aftable[ffid])) ) 
      return(FONT_NOT_OPEN);

   aft_entry = aftable[ffid];

#ifdef DEBUG
   printf("aftable[%d] = %lx\n\n",ffid,aft_entry);
#endif 

   chr_entrs = (aft_entry->flast_char) - (aft_entry->ffirst_char);
   pos = (fmptr->gch) - (aft_entry->ffirst_char);

   for(npos = pos+1; aft_entry->kwtable[npos] == FNOT_EXST; npos++)
	;
   if((pos < 0) || (pos > chr_entrs))
   {

#ifdef DEBUG
printf("FM_getch:  **** ERROR ****\n");
printf("         character does not exist in font\n\n");
#endif

      pos = (aft_entry->flast_char) - (aft_entry->ffirst_char) + 1;
      npos = pos + 1;
   }
   if(aft_entry->kwtable[pos] == FNOT_EXST)
   {

#ifdef DEBUG
printf("FM_getch:  **** ERROR ****\n");
printf("         character does not exist in font\n\n");
#endif

      
      pos = (aft_entry->flast_char) - (aft_entry->ffirst_char) + 1;
      npos = pos + 1;
   }

   fmptr->gbmap = aft_entry->font_map;
   fmptr->gpoint.x = aft_entry->loctable[pos];
   fmptr->gpoint.y = 0;
   fmptr->gkern = ((aft_entry->kwtable[pos]) >> 8) & (0x00FF);
   char_width = (aft_entry->kwtable[pos]) & (0x00FF);
   fmptr->gascent = aft_entry->font_ascent;
   fmptr->gdescent = aft_entry->font_descent;
   fmptr->gleading = aft_entry->font_leading;
   fmptr->gawdth = (aft_entry->loctable[npos]) - 
			       (aft_entry->loctable[pos]);

#ifdef DEBUG
   printf("!!!!  AFTER ASSIGNMENTS HAVE BEEN MADE !!!\n");
   printf("gfid = %d, gch = %d\n",fmptr->gfid,fmptr->gch);
   printf("gbmap = 0x%lx, gpoint = 0x%lx\n",fmptr->gbmap,fmptr->gpoint);
   printf("******* BITMAP ********\n");
   printf("bbase = 0x%lx, bwidth = %d\n",fmptr->gbmap.base,fmptr->gbmap.width);
   printf("boriginx = %d, boriginy = %d\n",fmptr->gbmap.rect.origin.x,fmptr->gbmap.rect.origin.y);
   printf("bcornerx = %d, bcornery = %d\n",fmptr->gbmap.rect.corner.x,fmptr->gbmap.rect.corner.y);
   printf("bpointx = %d, bpointy = %d\n",fmptr->gpoint.x,fmptr->gpoint.y);
   printf("gascent = 0x%lx, gdescent = 0x%lx\n",fmptr->gascent,fmptr->gdescent);
   printf("gleading = 0x%lx, gawdth = 0x%lx\n\n",fmptr->gleading,fmptr->gawdth);
   printf("character %d, pos = %d, char_width = %d\n",fmptr->gch,pos,char_width);
   printf("kern = %d, actual width = %d\n\n",fmptr->gkern,fmptr->gawdth);
#endif

   return(char_width);
}


FM_close(cfid)
register int cfid;                     /* font id number            */
{
register FONT_HEADER *aft_entry;

#ifdef DEBUG
printf("Font_close: %d\n", cfid);
#endif

	if ( cfid == 0 )
		return(FCLOSE_OK);
   
   	if ( (cfid < 0 ) || (cfid >= FM_MAXFONT) || (!(aftable[cfid])) ) 
   	{
      		return(FNOT_EXST);
   	}
   	else
   	{
      		aft_entry = aftable[cfid];
      		aft_entry->fopen_count--;
      		if(!(aft_entry->fopen_count))  /* is open count = 0  */
		{

#ifdef DEBUG
printf("FM_close:  dispose handle %d\n\n",aft_entry->font_map.base);
#endif

	    		free(aft_entry->font_map.base);
	    		free(aft_entry->kwtable);
	    		free(aft_entry->loctable);
	    		free(aft_entry);
	    		aftable[cfid] = (FONT_HEADER *) FONT_NULL;
		}
      	return(FCLOSE_OK);
   	}
}