TweetFollow Us on Twitter

Text Display
Volume Number:2
Issue Number:11
Column Tag:ABC's of C

Text Display from Quickdraw

By Bob Gordon, Apropos Publications, MacTutor Contributing Editor

Text Display on the Mac

Like last month's, this month's column deals with using QuickDraw routines for writing text to a window. Last month we only needed a couple of routines to get printw() working; this time I tried to use as many of the QuickDraw text functions as I could. [Note that Quickdraw is the only way text can be drawn to the screen. Ultimately, all programs no matter how sophisticated must use Quickdraw to get text on the screen. -Ed]

Those who have been reading along since the ABC's of C started will realize we have almost covered all of C. This does not mean we are done, but does reflect the nature of C as a language. C is a relatively small language. If you count keywords, for example, it has fewer than many dialects of Basic. On the other hand, much of the language's capabilities are not in the language itself but are in one or another libraries. Many capabilities included in other languages (such as file access and I/O) are in libraries. In learning to use C on the Macintosh, the main part of the problem is to learn to use the various Toolbox functions. We have done menus and started windows. The plan is to now follow the chapters in Using the Macintosh Toolbox with C and focus on the Toolbox. This will result in a distorted view of C, in that we will not generally discuss the standard C functions if there is an analogous Macintosh function.

Short Personal Digression

You may have noticed the note in the September issue. I came down with an exotic, flu-like disease that lasted about two weeks and had me bedridden for one of them. It must have been reasonably serious because my doctor threatened to stick an IV in my arm and put me in the hospital. I convinced her that such measures were not necessary and seem to have survived.

But then over Labor Day weekend, my Mac died. I stepped out of the room to check on the state of the children, and when I returned the screen was dark and there was the unmistakeable smell of fried electrons. I quickly turned everything off, but it was clear that some component had expired. My diagnosis was that the analog board had failed. I called around to get estimates for replacing the analog board. These ranged from just over $100 to over $200. If you are unlucky enough to have your Mac fail, be sure to get estimates. I figure I saved $90.00 to $100.00 just by spending some time on the phone.

Fig. 1 Text from Quickdraw

Text on the Macintosh

Anyone who has ever seen a Mac realizes that unlike conventional computers, the Macintosh displays text in different sizes, styles, and fonts. While the Macintosh Toolbox contains a set of text-editing functions (TextEdit), they are limited to displaying only one font/size/style at a time. By directly calling the QuickDraw functions, we can display text almost any way we want. In order to do this, I first set up menus to allow user control over the font, style, and size, and then placed a routine in the event loop to capture keys and write them to a window. That is all this month's program does. It does not word wrap, scroll, backspace, or do any other useful editing operation.

Text Menus

Like the Desk Accessories, the font menu is acquired with AddResMenu(). AddResMenu() searches resource files for resources of the type specified and appends them to the menu. So only two lines are needed to create the font menu:

 menuFont = NewMenu(Mfont), CtoPstr("Font"));
 AddResMenu (menuFont, 'FONT');

This creates the menu, but a program cannot use the information directly. The program needs to be able to use the font number that identifies the font. When a user pulls down a menu and selects an item, the program receives a number indicating which menu and which item. Since the program has no idea of the available fonts or their position in the menus, we need a way to determine the font number from the item number. Two functions accomplish this. The first supplies the item text given the number, and the second supplies the font number given the font name. These functions are called in dofont():

 GetItem(menuFont,item,&itemS);
 GetFNum(&itemS,&cfont);

The parameter itemS is a Pascal string. There is no need to call CtoPstr() because both routines are from the Toolbox and both expect Pascal strings. cfont receives the font number which is passed to the editor routines with ed_cset(). (I am taking the liberty of calling them editor routines even though they do no editing. Perhaps someday they will.)

The operation of the size menu is simpler. The sizes displayed in the menu are 9, 10, 12, 14, 18, 24, 28, and 36 points. To get the correct size from the menu item, a global array called sizes is initialized to those values. In C, all arrays start at zero so the zero element is not used, at least not directly from the menu. You will note it is initialized to 8 points. One of the styles supported is “Small Caps,” and the 8 point size is used to make small caps for the 9 point size.

One of the features of size menus is that they let the user know which sizes are available and which must be scaled. This varies with the font and so is included in dofont(). A function from the font manager, RealFont() returns a true value if the font in a given size actually exists. The following little loop provides this feature.

 for (i = 1; i < Nsize; i++)
 if (RealFont(cfont, sizes[i]))
     SetItemStyle(menuSize,i,OutlineStye);
 else
 SetItemStyle(menuSize,i,0);

This also shows a for loop. The statement consists of five components:

 for ( initialize ; test ; increment ) 
 statement;
  

This directly translates into the following while loop:

 initialize;
 while ( test )
 {
 statement;
 increment;
 }

This translation shows how the loop is constructed. The initialization takes place once before the loop begins. The test occurs at the top of the loop, and the increment at the bottom. The primary advantage of using a for over a while is that all the loop components are available on one line. You may omit any of the components on the for line but the semicolons must be there as place holders.

It is also possible to have several statements in the for:

 for (i = 0, j = 0; i < 10; i++, j++)
 statement;

Commas separate statements within each line section.

The final text menu handles the style. I have included all the styles I have seen, which include:

Plain

Bold

Italic

Underline

Outline

Shadow

Condensed

Extended

Small Caps

Superscript

Subscript

The first eight are standard Macintosh styles; the others are in MacWrite or Word. As anyone familiar with the Mac is aware, the styles generally may be combined. I assumed that it makes no sense to combine Condensed and Extended or Superscript and Subscript. This complicates the menu arrangement a bit, as selection of an item does not mean just setting or removing a check mark. The total style is collected in a short, in which each bit represents one style. Since only ten bits are in use so far (Plain is all bits off) suggestions for additional styles are open (would it, for example, be nice to set a block of text to all upper case or lower case as in MacDraw?). Where possible, the style menu illustrates the style through the use of the menu meta-characters.

Getting the Text

The eventloop() detects keyDown events. If the command key is not down, it calls ed_key() to send the character to the window. The event loop does not call ed_key() unless the window has been opened to prevent writing to an unopened window. At the moment it does not detect auto-key events. This would be something to add.

The Edit Functions

There are several Edit functions, but only two of them are of real importance. Two, ed_init() and ed_new() do some simple initialization. For this program they probably could have been combined. The most important thing that ed_new() does is to call each of the text-setting functions, dofont(), dosize(), and dostyle(), to establish initial conditions and set the menus accordingly. Each of those functions contains special code to handle the situation where the item equals zero. Since the item cannot equal zero when it is the result of mouse input, I used it for initialization.

Any time there is a change in font, size, or style, the relevant function calls ed_cset() where the change is noted and stored. ed_cset does not effect the change; it just keeps it around. This allows users to change their minds by making repeated changes through the menu without affecting anything. The change is put into effect when ed_key() is called from the event loop.

The function ed_key() does most of the work. It calls the various QuickDraw routines for changing font, size, and style, uses DrawChar() to write the character. For each kind of change it checks the flag in edbuf.cesc, and if the flag is set, it gets the value and does the change.

The styles not built into QuickDraw require special handling. To deal with the super and subscripts, ed_key() retrieves the pen position and adjusts it vertically. It does this for every character written. It probably could be done only when the the styles involved changed, but this logic is simpler.

Prior to writing each character, ed_key() checks if small caps is on. If it is, and the character is a lower case letter, it sets the size to the next smaller size (in the menu), converts the character to upper case, draws it and sets the size back to the original size. The actual character itself is not affected. Two library functions, islower() and toupper(), provide the test of lower case and change to upper case. These are part of a set of character functions that most C compilers include. I have not used the library, but included the functions right in the program. This is not due to any aversion to using libraries, but because the functions in the Lightspeed library use a C construct we have not used before:

 toupper(c)
 char c;
 {
 return( c>='a')&&(c<='z') ? (c-32) : c);
 }

This construction may be read:

 test ? do if true : do if false

As can be seen in toupper(), this form can be rather cryptic at first. toupper() simply asks if the character, c, is greater or equal to 'a' and less than or equal to 'z.' If it is, subtract 32 (converts to upper case in ASCII) and return that value; if not, return c unchanged.

Organization of the Program

The edit functions are in a separate file, and there is a separate header file, ed.h, that is included in the main program and in ed.c.

You will notice several lines in ed_key() that serve no apparent purpose. The structure edbuf contains a buffer in all characters and font/size/style changes are written (though the line that writes to the buffer is commented out). This is to allow eventual updating of the window.

printw()

There have been two changes to printw(). First, I fixed a bug. Previously it determined the line size on each call from the Grafport that was open when it was called. This resulted in rather odd interaction between the window being written by ed_key(), the printw() window and the menus. At one time I had menus with text in one or two point type. I moved the determination of line size inside the if-statement that is done the first time printw() is called.

The other change is the addition of code to print strings. This prints only C strings. We probably should add the ability to print Pascal strings and points and rectangles. Some of these changes may happen for next month.

Next Month

I hope to get my Mac upgraded with the 128K ROMs and the 800K drive. I also hope to stay healthy. We will continue to explore QuickDraw. I intend to draw various shapes on the screen.


/* QD1.C
 *    Sending text to window with
 *    function that accepts a variable
 * number of parameters
 *
 * Compiled with LightspeedC
 *
 * Important note for Mac C users:
 * Every place you see event->where,
 * replace it with &event->where
 */
 
 
 #include "abc.h"
 #include "Quickdraw.h"
 #include "EventMgr.h"
 #include "WindowMgr.h"
 #include "MenuMgr.h"
 #include "FontMgr.h"
 #include "ed.h" 
 
 /* defines for menu ID's */
 
 #defineMdesk    100
 #defineMfile    101
 #defineMedit    102
 #defineMfont    103
 #defineMstyl    104
 #defineMsize    105
 
 /* Window items */
 /* File */
 #defineiNew1
 #defineiClose 2
 #defineiQuit  3
 
 /* Edit */
 #defineiUndo  1
 #defineiCut3
 #defineiCopy  4
 #defineiPaste 5
 
 /* Style */
 #defineiPlain 1
 #defineiBold  2
 #defineiItalic  3
 #defineiUline 4
 #defineiOline 5
 #defineiShado 6
 #defineiCon7
 #defineiExt8
 #defineiScaps 9
 #defineiSuper 10
 #defineiSub11
 
 #definePlainStyle 0
 #defineBoldStyle1
 #defineItalicStyle2
 #defineUnderStyle 4
 #defineOutlineStyle 8
 #defineShadowStyle16
 #defineCondStyle32
 #defineExtStyle 64
 
 
 
 /* Global variables */
 
 MenuHandle menuDesk;/* menu handles */
 MenuHandle menuFile;
 MenuHandle menuEdit;
 MenuHandle menuFont;
 MenuHandle menuStyl;
 MenuHandle menuSize;
 
 
 WindowPtrtheWindow;
 WindowRecord    windowRec;
 Rect   dragbound;
 Rect   limitRect;
 
 #defineNsize  9
 
 uchar  sizes[Nsize] = {8,9,10,12,14,18,24,28,36};
 
 
main()
{
 initsys(); /* system initialization */
 initapp(); /* application initialization */
 eventloop();
}


/* system initialization 
 * note use of hard coded screen sizes
 * with LightspeedC.  This will work
 * with other compilers but is not
 * good practice
 */
initsys() 
{
 InitGraf(&thePort); /* these two lines done */
 InitFonts();    /* automatically by Mac C */
 InitWindows();
 InitCursor();
 InitMenus();
 theWindow = Nil;/*indicates no window */
 SetRect(&dragbound,0,0,512,250);
 SetRect(&limitRect,60,40,508,244);
}


/*
 * application initialization
 * Sets up menus.
 * Initialize ed
 */
initapp()
{
 setupmenu();
 ed_init();
}

/*
 * set up application's menus
 * Each menu is a separate group
 * of lines.  
 */
setupmenu()
{
 menuDesk = NewMenu(Mdesk,CtoPstr("\24"));
 AddResMenu (menuDesk, 'DRVR');
 InsertMenu (menuDesk, 0);
 
 menuFile = NewMenu(Mfile, CtoPstr("File"));
 AppendMenu (menuFile, CtoPstr("New;Close;Quit/Q"));
 InsertMenu (menuFile, 0);
 
 menuEdit = NewMenu(Medit, CtoPstr("Edit"));
 AppendMenu (menuEdit, CtoPstr( "(Undo/Z;(-;(Cut/X;(Copy/C;(Paste/V;(Clear"));
 InsertMenu (menuEdit, 0);
 
 menuFont = NewMenu(Mfont, CtoPstr("Font"));
 AddResMenu (menuFont, 'FONT');
 InsertMenu (menuFont, 0);
 
 menuStyl = NewMenu(Mstyl, CtoPstr("Style"));
 AppendMenu (menuStyl, 
 CtoPstr("Plain/P;<BBold/B;<IItalic/I;<UUnderline/U;"));
 AppendMenu (menuStyl,CtoPstr( "<OOutline/O;<SShadow/S;Condensed;Extended"));
 AppendMenu (menuStyl,CtoPstr( "SmallCaps;Superscript/H;Subscript/L"));
 InsertMenu (menuStyl, 0);
 
 menuSize = NewMenu(Msize, CtoPstr("Size"));
 AppendMenu (menuSize,CtoPstr( "09 Point;10 Point;12 Point;14 Point"));
 AppendMenu (menuSize,CtoPstr( "18 Point;24 Point;28 Point;36 Point"));
 InsertMenu (menuSize, 0);
 
 DrawMenuBar();
}
 
 
/* Event Loop 
 * Loop forever until Quit
 */
eventloop()
{
 EventRecordtheEvent;
 char   c;
 short  windowcode;
 WindowPtrww;
 
 while(True)
 {
 if (theWindow)      /* this code is here to */
 { /* prevent closing an already */
 EnableItem(menuFile,2);  /* closed window */
 DisableItem(menuFile,1);
 }
 else   
 { 
 EnableItem(menuFile,1);
 DisableItem(menuFile,2);
 }
 if (GetNextEvent(everyEvent,&theEvent))
 switch(theEvent.what)    
 { /* only check key and */
 case keyDown:   /* mouse down events */
 c = theEvent.message & charCodeMask;
 if (theEvent.modifiers & cmdKey)
 domenu(MenuKey(c));
 else if (theWindow)
 ed_key(c);
 break;
 case mouseDown:
 domouse(&theEvent);
 break;
 default:
 break;
 }
 }
}


/* domouse
 * handle mouse down events
 */
domouse(er)
 EventRecord*er;
{
 short  windowcode;
 WindowPtrwhichWindow;
 short  ingo;
 long   size;
 long   newsize;
 
 
 windowcode = FindWindow(er->where, 
 &whichWindow);
 switch (windowcode)
 {
 case inDesk:
 if (theWindow notequal 0)
 {
 HiliteWindow(theWindow, False);
 DrawGrowIcon(theWindow);
 }
 break;
 case inMenuBar:
 domenu(MenuSelect(er->where));
 break;
 case inSysWindow:
 SysBeep(1);
 break;
 case inContent:
 if (whichWindow equals theWindow)
 {
 HiliteWindow(whichWindow,True);
 DrawGrowIcon(theWindow);
 }
 break;
 case inDrag:
 DragWindow(whichWindow, 
   er->where, &dragbound);
 DrawGrowIcon(theWindow);
 break;
 case inGrow:
 break;
 case inGoAway:
 ingo = TrackGoAway(whichWindow,er->where);
 if (ingo)
 {
 CloseWindow(whichWindow);
 theWindow = Nil;
 }
 break;
 }
}

/* domenu
 * handles menu activity
 * simply a dispatcher for each
 * menu.
 */
domenu(mc)
 long   mc; /* menu result */
{
 short  menuId;
 short  menuitem;
 
 menuId = HiWord(mc);
 menuitem = LoWord(mc);
 
 switch (menuId)
 {
 case Mdesk : break; 
 /*apple menu not handling DA's */
 case Mfile : dofile(menuitem);
  break;
 case Medit : /* all disabled */
  break;
 case Mfont : dofont(menuitem);
  break;
 case Mstyl : dostyle(menuitem);
  break;
 case Msize : dosize(menuitem);
  break;
 }
 HiliteMenu(0);
}

/* dofont
 * marks selected font and obtains
 * font number.  modifies size 
 * menu to reflect available sizes
 * If item is zero, sets item to 3
 * (geneva, the application default)
 */
 
 dofont(item)
 short  item;
 {
 Str255 itemS;
 short  cfont; /* actual font number */
 short  i;
 static short  lastitem = 0;
 
 if (item equals 0)
 do
   {
   item++;
   GetItem(menuFont,item,&itemS);
   GetFNum(&itemS,&cfont);
   }
 while (cfont notequal 3);
 CheckItem (menuFont,lastitem,False);
 CheckItem (menuFont,item,True);
 lastitem = item;
 GetItem(menuFont,item,&itemS);
 GetFNum(&itemS,&cfont);
 for (i = 1; i < Nsize; i++)
 {
 if (RealFont(cfont,sizes[i]))
 SetItemStyle(menuSize,i,OutlineStyle);
 else
 SetItemStyle(menuSize,i,0);
 }
 ed_cset(edFont,cfont);
 }
 
 
 /*
  * sets size menu, if item
  * is 0, sets item to 3 (12pt)
  */
 dosize (item)
 short  item;
 {
 static short  lastitem = 0;
 
 if (item equals 0)
   item = 3;
 CheckItem (menuSize,lastitem,False);
 CheckItem (menuSize,item,True);
 lastitem = item;
 ed_cset(edSize,item);
 }
 
 dostyle(item)
 short  item;
 {
 static short  thestyle = 0;
 short  mitems;
 short  i;
 short  style;
 short  styleflag;
 short  offflag;
 
 if (item equals 0)
 item = 1;
 style = item - 1; /* move item to style range */
 if (style) /* if not plain */
 {
 styleflag = 1;
 styleflag = styleflag << (style - 1);
 CheckItem (menuStyl,1,False); /* unmark plain */
 if (thestyle & styleflag) /* if style is marked */
 { /* un mark it */
 CheckItem (menuStyl,item,False);
 thestyle = thestyle & ~styleflag;
 }
 else
 {
 offflag = 0;
 switch (item)
 {
 case iCon :
 CheckItem(menuStyl,iExt,False);
 offflag = 64;
 break;
 case iExt :
 CheckItem(menuStyl,iCon,False);
 offflag = 32;
 break;
 case iSuper :
 CheckItem(menuStyl,iSub,False);
 offflag = 512;
 break;
 case iSub :
 CheckItem(menuStyl,iSuper,False);
 offflag = 256;
 break;
 } 
 CheckItem (menuStyl,item,True);
 thestyle &= ~offflag;
 thestyle ^= styleflag;
 }
 }
 else
 {
 thestyle = 0;
 mitems = CountMItems(menuStyl);
 for (i = 2; i <= mitems; i++)
 CheckItem (menuStyl,i,False);
 CheckItem (menuStyl,1,True);
 }
 ed_cset(edStyle,thestyle);
 }
  

/* dofile
 * handles file menu
 */
dofile(item)
 short  item;
{
 char   *title1; /* first title for window */
 Rect   boundsRect;
 
 switch (item)
 {
 case iNew :/* open the window */
 title1 = "ABC Window";
 SetRect(&boundsRect,50,50,400,200);
 theWindow = NewWindow(&windowRec, &boundsRect,
 CtoPstr( title1),True,documentProc,
 (WindowPtr) -1, True, 0);
 DrawGrowIcon(theWindow);
 PtoCstr(title1);
 DisableItem(menuFile,1);
 EnableItem(menuFile,2);
 ed_new(theWindow);
 break;
 
 case iClose :   /* close the window */
 CloseWindow(theWindow);
 theWindow = Nil;
 DisableItem(menuFile,2);
 EnableItem(menuFile,1);
 break;
 
 case iQuit :    /* Quit */
 ExitToShell();
 break; 
 }
}


/* printw()
 *
 * Displays strings and numbers in a 
 * special window
 *
 * This function is designed to receive
 * a variable number of parameters. The 
 * number is computed by the number of
 * percent signs in the control string.
 * If the number of parameters following the 
 * control string does not match the 
 * number of percent signs, expect 
 * the unexpected.
 */
printw(cs)
 char   *cs;/* the control string */
{
#define Bufsz  14/* size of buffer to hold */
 /* converted numbers */  

 static RectboundsRect; /* variables for */
 static RectwindowRect; /* defining printw */
 static WindowRecord wrc; /* window, pw is */
 static WindowPtrpw = 0;  /* initialized to 0 */
 static short    linesz;  /* size of line */
 
 WindowPtroldport; /* save grafport here */
 FontInfo info;  
 short  nl;
 Point  pt;
 RgnHandleupdrgn;/* needed for scrolling */
 char   numAsStr[Bufsz];  /* number conversion */
 short  nsz;/* size of numbers (2 or 4) */
 char   **ts;  /* ptr to ptr to ctrl string */
 char   *ps;/* ptr to parameters */
 ulong  num;/* for number conversion */
 short  convchar;/* found conversion char */
 short  islong;  /* number is a long */
 char   c;/* char parameter */
 char   *s; /* string pointer parameter */
 long   tcs;
 char   *tps;
 
/* Window rectancgle coordinates */

#define wl0
#define wr512
#define wt250
#define wb342
 
 
 GetPort(&oldport);/* save current graph port */
 if (pw equals 0)/* if window does not exist, */
 { /*  open it */
 SetRect(&boundsRect,wl,wt,wr,wb);
 pw = NewWindow(&wrc, &boundsRect,
 CtoPstr(""),True,plainDBox,
 (WindowPtr) -1, True, 0);
 GetFontInfo(&info); /* compute line height */
 linesz = info.ascent + info.descent;
 nl = linesz;    /* move down one line as */
 } /*  writing will be above */
 else   /*  boundary.  No need to  */
 nl = 0;/*  move line if already open */
 SetPort(pw);    /* Set graf port to this window */
 Move(0,nl);/* Move (relative) */
 
 ts = &cs;/* get address of control string ptr */
 ps = (char *)ts;/* convert to pointer to params */
 ps += sizeof(long); /* skip over control string ptr */
 tcs = (long)cs;
 tps = ps;
 while (*cs)/* loop until end of control string */
 {
 switch (*cs)    /* check each character */
 {
 case '%' : /* percent sign: check conversion */
 cs++;  /* point to next char */
 convchar = False; /* init for conv loop */
 islong = False;
 do {   /* loop til reach conversion char */
 switch (*cs)
 {
 case 'l' : /* indicates a long */
 islong = True;
 cs++;
 break;
 case 'u' : /* unsigned decimal */
 case 'd' : /* signed decimal */
 if (islong)   /* extract numb */
 {
 num = *(ulong*)ps;
 nsz = sizeof(long);
 }
 else
 {
 num = *(ushort*)ps;
 nsz = sizeof(short);
 }
 ps += nsz; /* point to next */
 ntoa(num,nsz,'u' - *cs,numAsStr); /* convert & write number */
 DrawString(CtoPstr(numAsStr));
 convchar = True;
 break;
 case 's' :
 num = *(ulong*)ps;
 DrawString(CtoPstr(num));
 PtoCstr(num);
 ps += sizeof(char*);
 convchar = True;
 break; 
 case 'c' :
 c = *(ushort*)ps;
 DrawChar(c);
 nsz = sizeof(short);
 convchar = True;
 ps += nsz;
 break;
 default: /* all other char */
 DrawChar(*cs); /* write char */
 convchar = True;
 } 
 } while (not convchar);
 break;
 case '\n' :/* newline ('\n') control string */
 GetPen(&pt);  /* find current pen position */
 if (pt.v+linesz > wb-wt)
 /* if it goes off window, */
 { /* scroll the window */
 updrgn = NewRgn();
 ScrollRect(&(pw->portRect), 0,-linesz,updrgn);
 DisposeRgn(updrgn); /* no update */
 Move(0,-linesz);/* move onto window */
 }
 Move(-pt.h,linesz); /* move beg of next line */
 break;
 default :/* any other character just gets */
 DrawChar(*cs);  /*  written on the window */
 }
 cs++;  /* move pointer to next char */
 } /*  in control string and continue */
 
 SetPort(oldport); /* restore orignal graf port */
}

/* Convert numbers to ascii strings
 * Handles signed and unsigned
 * short and long values
 * Note:Length of string returned 
 * must be large enough to 
 * hold -2G (12 bytes)
 */
ntoa(n,len,issigned,s)
 ulong  n;/* number to convert */
 short  len;/* size of n (2 or 4)*/
 short  issigned;/* signed flag */
 char   *s; /* string to return */
{
 char   ts[12];  /* temporary string */
 int    i = 0; /* counter, initialized */
 ulong  m;/* working copy of */
 long   sm; /* to convert signed values */
 
 if (n equals 0) /* if n is zero, place '0' */
 ts[i++] = '0';  /*  in temporary string */
 else
 {
 if (issigned)   /* if sign flag is set, */
 { /*  convert to signed value */
 if (len equals sizeof(long))
 sm = (long)n;
 else
 sm = (short)n;
 if (issigned = sm < 0) /* Check if value is */
 n = -sm; /*  negative. If so, */
 } /*  keep the flag and */
 /*  get the absolute value */
 while (n)/* Convert number into ascii */
 { /*  by repeatedly taking mod */
 ts[i++] = n % 10 + '0';  /*  and dividing.  This */
 n /= 10; /*  gives a string in */
 } /*  reverse order */
 if (issigned)   /* If number was negative, */
 ts[i++] = '-';  /*  stick a minus sign in */
 } /*  the string.*/
 
 do{    /* Reverse the string */
 *s++ = ts[--i]; /*  to the correct direction*/
 } 
 while (i);

 *s = '\0'; /* Place null terminator on */
}/*  string */



/*
 *
 *  ed.c source
 * 
 */
#include"abc.h"
#include"ed.h"

extern  charsizes[];

edrec edbuf;

/*
 * Initialize some parts of the
 * edbuf structure.  This coulb
 * easily be combined with ed_new()
 */
ed_init()
{
 edbuf.cesc = 0;
 edbuf.cndx = 0;
 edbuf.supsub = 0;
 edbuf.chars[0] = 0;
 edbuf.linenum = 0;
}

/*
 * save grafport, moves to
 * top of port, initializes
 * font, style, and size.
 * Initialize edbuf values so
 * the calls to dofont will
 * find different values than
 * are being set.
 */
ed_new(aport)
 GrafPtraport;
{
 GrafPtrgp;
 
 edbuf.edport = aport;
 GetPort(&gp);
 SetPort(aport);
 MoveTo(0,0);
 edbuf.face[edFont] = -1;
 edbuf.face[edStyle] = -1;
 edbuf.face[edSize] = -1;
 dofont(0);
 dostyle(0);
 dosize(0);
 SetPort(gp);
}


/*
 * Allows setting or getting
 * a value (size,font,style).
 * Is not used.
 */
ed_set(what,value)
 short  what;
 short  value;
{
 if (value >= 0)
 edbuf.face[what] = value;
 return(edbuf.face[what]);
}

/*
 * Called by any routine wishing
 * to change the size, style or font.
 * The change is indicated in the
 * cesc element of the edbuf structure, 
 * and the value stored in the cface 
 * element.  The change is not applied
 * until a new character is written.
 */
ed_cset(what,value)
 short  what;
 short  value;
{
 char wbit = 1;
 
 wbit <<= what;
 if (edbuf.face[what] equals value)
 edbuf.cesc &= ~wbit;
 else
 {
 edbuf.cesc |= wbit;
 edbuf.cface[what] = value;
 }
}


/*
 * Writes the character c to the
 * window.  Before writing any 
 * character, it checks to see if 
 * size/font/style have changed and
 * effects the necessary changes.
 *
 * Since sub and super scripts and 
 * small caps styles are not supported
 * by quick draw, they are handled
 * here.
 *
 * Small Caps is implemented by using
 * the font size one smaller on the 
 * menu for the lower case letters.
 *
 * Sub and superscripts are generated
 * by shifting the position up or down
 * one third of a line of the the current
 * size.
 */
ed_key(c)
 char c;
{
 short  *sp;
 FontInfo info;
 static short  linesz;
 GrafPtrgp;
 Point  pt;
 short  lineinc;
 short  linedec;
 
 GetPort(&gp);
 SetPort(edbuf.edport);
 lineinc = linedec = 0;
 if (edbuf.cesc)
 {
 if (edbuf.face[edStyle] & Supbit + Subbit)
 linedec = -edbuf.supsub;
 edbuf.chars[edbuf.cndx++] = edbuf.cesc;
 sp = (short *)&edbuf.chars[edbuf.cndx];
 if (edbuf.cesc & 1) /* Font */
 {
 *sp = edbuf.cface[edFont];
 edbuf.face[edFont] = *sp;
 TextFont(*sp);
 sp++;
 edbuf.cndx +=2;
 }
 if (edbuf.cesc & 2) /* Size */
 {
 *sp = edbuf.cface[edSize];
 edbuf.face[edSize] = *sp;
 TextSize(sizes[*sp]);
 sp++;
 edbuf.cndx +=2;
 }
 if (edbuf.cesc & 4) /* Style */
 {
 *sp = edbuf.cface[edStyle];
 edbuf.face[edStyle] = *sp;
 TextFace((Style)*sp & 0x7F);
 sp++;
 edbuf.cndx += 2;
 }
 edbuf.chars[edbuf.cndx++] = edbuf.cesc;
 edbuf.cesc = 0;
 GetFontInfo(&info);
 linesz = info.ascent + info.descent;
 if (edbuf.face[edStyle] & Subbit)
 edbuf.supsub = linesz / 3;
 else if (edbuf.face[edStyle] & Supbit)
   edbuf.supsub = -linesz/3;
 else
 edbuf.supsub = 0;
 lineinc = edbuf.supsub;
 } 
 /*edbuf.chars[edbuf.cndx++] = c;*/
  if (c equals '\r')
   {
   GetPen(&pt);
   Move(-pt.h,linesz + lineinc + linedec);
   edbuf.linenum++;
   }
  else
   {
   GetPen(&pt);
   Move (0,linedec + lineinc);
   if (edbuf.face[edStyle] & Capbit and islower(c))
   {
   TextSize(sizes[edbuf.face[edSize] - 1]);
   DrawChar(toupper(c));
   TextSize(sizes[edbuf.face[edSize]]);
   }
   else
   DrawChar(c);
   }
 SetPort(gp);
}
 
inttoupper(c)
 char c;
{
 return( (c>='a')&&(c<='z') ? (c-32) : c );
}
 
intislower(c)
 char c;
{
 return( (c >= 'a') and (c <= 'z') ? True : False);
}
 
 
/* abc.h 
 *
 * Local definitions to improve readability
 *
 */
 
#define True1
#define False  0
#define Nil 0
#define and &&
#define or||
#define not !
#define equals ==
#define notequal !=

/* unsigned longs and shorts
 * (unsigned longs may not be 
 *  available with all compilers
 */
#define ushort   unsigned short
#define ulong    unsigned long
#define uchar    unsigned char

/* General purpose external routines 
 * String conversion routines 
 * return a pointer to a char 
 */
extern  char*CtoPstr();
extern  char*PtoCstr(); 

/*
 * ed.h
 * definitions for edit functions
 */
 
#include"quickdraw.h"
 
#define edFont 0
#define edSize 1
#define edStyle  2

#define Capbit 128
#define Supbit 256
#define Subbit 512

struct edstruct
 {
 GrafPtredport;
 Rect   edrect;
 short  face[3];
 short  cface[3];
 short  supsub;
 short  linenum;
 char   cesc;
 char   chars[1000];
 short  cndx;
 };
 
typedef struct edstruct edrec;
typedef edrec *edpointer;
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Minecraft 795 - Popular sandbox building...
Minecraft allows players to build constructions out of textured cubes in a 3D procedurally generated world. Other activities in the game include exploration, gathering resources, crafting, and combat... Read more
djay Pro 3.0.5 - Transform your Mac into...
djay Pro provides a complete toolkit for performing DJs. Its unique modern interface is built around a sophisticated integration with iTunes and Spotify, giving you instant access to millions of... Read more
Unicorn HTTPS 1.5.54 - Change DNS quickl...
Unicorn HTTPS can change DNS quickly and easily. Every function is served free of charge, no advertisement. Your personal information is never collected by us. Please use it with confidence. Faster... Read more
MarsEdit 4.4.11 - Quick and convenient b...
MarsEdit is a blog editor for OS X that makes editing your blog like writing email, with spell-checking, drafts, multiple windows, and even AppleScript support. It works with with most blog services... Read more
Printopia 3.0.16 - Share Mac printers wi...
Run Printopia on your Mac to share its printers to any capable iPhone, iPad, or iPod Touch. Printopia will also add virtual printers, allowing you to save print-outs to your Mac and send to apps.... Read more
beaTunes 5.2.19 - Organize your music co...
beaTunes is a full-featured music player and organizational tool for music collections. How well organized is your music library? Are your artists always spelled the same way? Any R.E.M. vs REM?... Read more
Navicat Premium Essentials 15.0.25 - Pro...
Navicat Premium Essentials is a compact version of Navicat which provides basic and necessary features you will need to perform simple administration on a database. It supports the latest features... Read more
Apple Pages 10.3.9 - Apple's word p...
Apple Pages is a powerful word processor that gives you everything you need to create documents that look beautiful. And read beautifully. It lets you work seamlessly between Mac and iOS devices, and... Read more
Numbers 10.3.9 - Apple's spreadshee...
With Apple Numbers, sophisticated spreadsheets are just the start. The whole sheet is your canvas. Just add dramatic interactive charts, tables, and images that paint a revealing picture of your data... Read more
Suitcase Fusion 21.2.2 - Font management...
Suitcase Fusion is the creative professional's font manager. Every professional font manager should deliver the basics: spectacular previews, powerful search tools, and efficient font organization.... Read more

Latest Forum Discussions

See All

Honkai Impact 3rd has revealed more deta...
Honkai Impact 3rd has now announced more details about its upcoming crossover with Neon Genesis Evangelion. This is set to arrive next week on January 22nd and will introduce an exclusive story, battlesuit and weapon to the popular action-RPG. [... | Read more »
Space Frog Intern, James Bolton's a...
James Bolton's arcade shooter Space Frog Intern is now available for Android devices following its release on iOS last year. It sees players taking control of the titular amphibian and blasting their way through various space beasties. [Read more... | Read more »
The 5 Best Mobile Ports
Ports or coversions of games from one platform to another can be quite tricky. This is especially true when porting games to phones and tablets, as these titles have to be designed with workable touch controls and account for smaller screen sizes... | Read more »
Erica, the PS4-exclusive FMV thriller, c...
London-based studio Flavourworks is bringing its FMV game Erica to iOS on Friday as a free trial, with a full release presumably following later. This is the second platform the game has launched on after its original release on PlayStation 4 two... | Read more »
Cute simulation game Dinosaur Park: Prim...
Dinosaur Park: Primeval Zoo is a cute zoo simulation game from upjers, and it sounds perfect for anyone who’s a dinosaur fan. It’s coming to Android in February, and is available right now for pre-registration. [Read more] | Read more »
Genshin Impact - Lost Riches Guide
| Read more »
Figment: Journey into the Mind, the surr...
Following its release on iOS devices last year, Bedtime Digital Games' surreal action-puzzler Figment: Journey into the mind will be heading for Android next Thursday, January 14th. If you're unfamiliar, it follows Dusty and his pal Piper as they... | Read more »
Skylanders Ring of Heroes' latest u...
Following the various game-changing updates made to Skylanders Ring of Heroes last year, the latest update to Activision and Com2uS' team-based RPG has introduced a new battle mode and they will celebrate its arrival with various in-game events... | Read more »
Distract Yourself With These Great Mobil...
There’s a lot going on right now, and I don’t really feel like trying to write some kind of pithy intro for it. All I’ll say is lots of people have been coming together and helping each other in small ways, and I’m choosing to focus on that as I... | Read more »
Genshin Impact - Combat Tips
Genshin Impact isn't a terribly difficult game, but its enemies get tougher the longer you play it and as your world level increases. This makes sense as a progression system, but it can also create gnarly difficulty spikes that are hard to... | Read more »

Price Scanner via MacPrices.net

At only $809, these are the cheapest MacBooks...
Apple has restocked at full line of Certified Refurbished 2020 13″ Intel-based MacBook Airs available starting at only $809 and up to $280 off original MSRP. Each MacBook features a new outer case,... Read more
Find the best price on an Apple iPhone MagSaf...
Looking for an Apple MagSafe Charger for your new iPhone 12, or perhaps an Apple MagSafe Duo Charger for your new iPhone and Apple Watch? Check out our new MagSafe Charger Price Tracker. We scan the... Read more
Save $67 on 13″ M1 MacBook Pros at Expercom,...
Apple reseller Expercom has 2020 13″ M1 MacBook Pros on sale for $67 off Apple’s MSRP with prices starting at $1232. In addition to their MacBook Pro sale prices, take $40 off AppleCare+ when... Read more
Back in stock! 16″ MacBook Pros starting at o...
After a long absence, Apple has restocked a full line of Certified Refurbished 16″ MacBook Pros for up to $420 off the cost of new models, starting at $2039. Each model features a new outer case,... Read more
Saturday Steal! Clearance 2020 Mac mini for o...
Other World Computing has clearance 2020 Intel-based 4-core Mac minis on sale for only $549 this weekend, $250 off Apple’s original MSRP. These are new, unopened, factory-sealed models: – 3.6GHz 4-... Read more
Save up to $112 on 13″ Intel-based MacBook Pr...
Apple reseller Expercom has 2020 13″ 2.0GHz Intel-based MacBook Pros on sale for $100-$112 off Apple’s MSRP with prices starting at $1699. In addition to their MacBook Pro sale prices, take $70 off... Read more
New sale at B&H: Apple’s hot new 13″ M1 M...
Apple’s new 2020 13″ MacBook Pros with M1 Apple Silicon CPUs are on sale at B&H Photo today for $50-$100 off MSRP, starting at $1239. Free expedited shipping is available for most addresses in... Read more
New at US Cellular: Your choice of free iPhon...
US Cellular has the 64GB Apple iPhone 12, 64GB iPhone 12 mini, and 64GB iPhone SE each available for free for new customers signing up for an Unlimited data plan. Cost of the phone is spread over a... Read more
Verizon offers $30 discount on Apple AirPods...
Verizon has Apple AirPods Pro on sale for $219.99 on their online store through January 22, 2021. Their price is $30 off Apple’s MSRP, and it’s among the lowest prices currently available for AirPods... Read more
Apple has clearance 2020 13″ 1.4GHz Intel-bas...
Apple has clearance, Certified Refurbished, 2020 13″ 1.4GHz 4-Core Intel-based MacBook Pros available starting at $1059 and up to $270 off original MSRP. These are the cheapest MacBook Pros for sale... Read more

Jobs Board

*Apple* Administrator - Freedom Mortgage (Un...
Apple Administrator + Job ID:8595 + Functional Area:Information Technology + Employment Type:Full Time + Location:Moorestown, NJ + Department:IT Conferencing & AV + Read more
Systems Architect, *Apple* Production Engin...
…package beginning on your first day? If so, we hope you'll keep reading! The Apple Sales Engineering and account team is looking for a stellar presales engineer with Read more
*Apple* /Mac Support Engineer - BRMi (United...
**Overview** BRMi Technology is currently seeking an Apple /Mac Support Engineer for a large client. The support engineer will research, evaluate, design, implement, Read more
Security Officer - Temporary - *Apple* Stor...
**Security Officer \- Temporary \- Apple Store** **Description** Summary The Security Officer provides services for a variety of large and small business clients Read more
Transition Into Practice (TIP) - April 2021-R...
…Academy-Transition into Practice (TIP) Residency program at **St Mary Medical Center in Apple Valley, CA.** **We are seeking Registered Nurses who are:** + New Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.