DataMuseum.dk

top - metrics - download

    Length: 2737 (0xab1)
    Types: TextFile
    Names: »list.c«

└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
    └─⟦this⟧ »./DVIware/laser-setters/quicspool/src/list.c« 
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦af5ba6c8e⟧ »unix3.0/DVIWARE.tar.Z« 
        └─⟦ca79c7339⟧ 
            └─⟦this⟧ »DVIware/laser-setters/quicspool/src/list.c« 

TextFile

#ifndef lint
static char *rcs = "$Header: list.c,v 1.1 88/01/15 13:04:23 simpson Rel $";
#endif
/*
$Log:	list.c,v $
 * Revision 1.1  88/01/15  13:04:23  simpson
 * initial release
 * 
 * Revision 0.1  87/12/11  18:31:00  simpson
 * beta test
 * 
*/

/* Routines for processing and returning information on font lists */

#include <stdio.h>
#include <local/qms.h>
#include "fontnode.h"


/* Returns a pointer to a font on the font list; NULL if not found */
struct FontNode *getfontnode(head, fontnumber, orientation)
struct FontNode	*head;
int 		fontnumber;
int 		orientation;
{
    struct FontNode	*p;

    for (p = head; p; p = p->next)
    	if (p->qmsnumber == fontnumber && (p->flags & PORT ? 'P' : 'L') ==
	orientation)
	    return p;
    return NULL;
}

/* Puts the node passed as an argument on the end of the list.  Fonts are 
 * deleted from the beginning of the list when making room in font memory
 * so put the current font on the end of the list.
 */
void endoflist(head, thenode)
struct FontNode	**head;
struct FontNode *thenode;
{
    struct FontNode	*prev = NULL, *p;

    if (!head || !thenode)
    	return;
    /* First delete it from the FontList */
    for (p = *head; p; prev = p, p = p->next)
    	if (p == thenode)
	    if (p == *head)
	    	*head = (*head)->next;
    	    else
	        prev->next = p->next;
    thenode->next = NULL;
    /* Tack it on the end */
    if (!*head)
        *head = thenode;
    else {
	for (p = *head; p->next; p = p->next)
	    ;
	p->next = thenode;
    }
}

/* Takes a list of fonts that are already loaded in the printer (i.e., the
 * two lists returned by qmsfnt()) and returns a single list of FontNode's.
 * We manipulate singly linked lists of FontNode's in each driver, not the
 * lists returned by qmsfnt().
 */
struct FontNode *createfontlist(fntinfo)
struct qmsfnt	*fntinfo;
{
    struct fontnode	*p;
    struct FontNode	*list = NULL, *new;
    char		*malloc();

    if (!fntinfo)
    	return NULL;
    for (p = fntinfo->rom; p; p = p->next) {
	bzero((char *)(new = (struct FontNode *)malloc(
	(unsigned)sizeof(struct FontNode))), sizeof(struct FontNode));
	new->next = list, list = new;	/* Put on front of list */
	list->flags = LOADED | PRELOADED;
	if (p->orientation == 'P')
	    list->flags |= PORT;
	list->qmsnumber = p->number;
	list->blocksize = CEILING(p->bytes / 1024.0);
    }
    for (p = fntinfo->ram; p; p = p->next) {
	bzero((char *)(new = (struct FontNode *)malloc(
	(unsigned)sizeof(struct FontNode))), sizeof(struct FontNode));
	new->next = list, list = new;
	list->flags = RAM | LOADED | PRELOADED;
	if (p->orientation == 'P')
	    list->flags |= PORT;
	list->qmsnumber = p->number;
	list->blocksize = CEILING(p->bytes / 1024);
    }
    return list;
}