From c982ef2df6af4c89151ba4d8f624a479f7ff0775 Mon Sep 17 00:00:00 2001 From: Jack Jansen Date: Thu, 15 Feb 2001 22:56:41 +0000 Subject: Waste 1.3 extra's modified for waste 2.0 (and missing from MW's distribution of 2.0). --- Mac/Wastemods/WEObjectHandlers.c | 111 ++++++++++++++++ Mac/Wastemods/WEObjectHandlers.h | 29 ++++ Mac/Wastemods/WETabHooks.c | 281 +++++++++++++++++++++++++++++++++++++++ Mac/Wastemods/WETabHooks.h | 32 +++++ Mac/Wastemods/WETabs.c | 116 ++++++++++++++++ Mac/Wastemods/WETabs.h | 37 ++++++ Mac/Wastemods/readme.txt | 11 ++ 7 files changed, 617 insertions(+) create mode 100644 Mac/Wastemods/WEObjectHandlers.c create mode 100644 Mac/Wastemods/WEObjectHandlers.h create mode 100644 Mac/Wastemods/WETabHooks.c create mode 100644 Mac/Wastemods/WETabHooks.h create mode 100644 Mac/Wastemods/WETabs.c create mode 100644 Mac/Wastemods/WETabs.h create mode 100644 Mac/Wastemods/readme.txt diff --git a/Mac/Wastemods/WEObjectHandlers.c b/Mac/Wastemods/WEObjectHandlers.c new file mode 100644 index 0000000..f1dd5af --- /dev/null +++ b/Mac/Wastemods/WEObjectHandlers.c @@ -0,0 +1,111 @@ +/* + WASTE Demo Project: + Sample WASTE Object Handlers + + Copyright © 1993-1998 Marco Piovanelli + All Rights Reserved +*/ + +#include "WEObjectHandlers.h" + +#ifndef __ICONS__ +#include +#endif + +#ifndef __SOUND__ +#include +#endif + +/* PICTURES */ + +pascal OSErr HandleNewPicture(Point *defaultObjectSize, WEObjectReference objectRef) +{ + PicHandle thePicture; + Rect frame; + + /* get handle to object data (in this case, a picture handle) */ + thePicture = (PicHandle) WEGetObjectDataHandle(objectRef); + + /* figure out the default object size by looking at the picFrame record */ + frame = (*thePicture)->picFrame; + OffsetRect(&frame, -frame.left, -frame.top); + defaultObjectSize->v = frame.bottom; + defaultObjectSize->h = frame.right; + + return noErr; +} + +pascal OSErr HandleDisposePicture(WEObjectReference objectRef) +{ + PicHandle thePicture; + + /* get handle to object data (in this case, a picture handle) */ + thePicture = (PicHandle) WEGetObjectDataHandle(objectRef); + + /* kill the picture */ + KillPicture(thePicture); + + return MemError(); +} + +pascal OSErr HandleDrawPicture(const Rect *destRect, WEObjectReference objectRef) +{ + PicHandle thePicture; + + /* get handle to object data (in this case, a picture handle) */ + thePicture = (PicHandle) WEGetObjectDataHandle(objectRef); + + /* draw the picture */ + DrawPicture(thePicture, destRect); + + return noErr; +} + + +/* SOUND */ + +pascal OSErr HandleNewSound(Point *defaultObjectSize, WEObjectReference objectRef) +{ +#pragma unused(objectRef) + + /* sounds are drawn as standard 32x32 icons */ + defaultObjectSize->v = 32; + defaultObjectSize->h = 32; + + return noErr; +} + +pascal OSErr HandleDrawSound(const Rect *destRect, WEObjectReference objectRef) +{ +#pragma unused(objectRef) + + /* draw the sound icon */ + return PlotIconID(destRect, kAlignNone, kTransformNone, kSoundIconID); +} + +pascal Boolean HandleClickSound(Point hitPt, EventModifiers modifiers, + UInt32 clickTime, WEObjectReference objectRef) +{ +#pragma unused(hitPt, clickTime) + + SndListHandle theSound; + + /* WASTE sets the low bit of modifiers on double (multiple) clicks */ + if (modifiers & 0x0001) + { + + /* get a handle to the object data (in this case, a sound handle) */ + theSound = (SndListHandle) WEGetObjectDataHandle(objectRef); + + /* play the sound */ + SndPlay(nil, theSound, false); + + /* return TRUE so WASTE knows we handled the click */ + return true; + } + else + { + /* not a double click: let WASTE handle the mouse-down */ + return false; + } +} diff --git a/Mac/Wastemods/WEObjectHandlers.h b/Mac/Wastemods/WEObjectHandlers.h new file mode 100644 index 0000000..d73a490 --- /dev/null +++ b/Mac/Wastemods/WEObjectHandlers.h @@ -0,0 +1,29 @@ +/* + WASTE Demo Project: + Sample WASTE Object Handlers + + Copyright © 1993-1998 Marco Piovanelli + All Rights Reserved +*/ + +#ifndef _WASTE_ +#include "WASTE.h" +#endif + + +// PICTURES + +pascal OSErr HandleNewPicture(Point *defaultObjectSize, WEObjectReference objectRef); +pascal OSErr HandleDisposePicture(WEObjectReference objectRef); +pascal OSErr HandleDrawPicture(const Rect *destRect, WEObjectReference objectRef); + +// SOUNDS + +enum { + kSoundIconID = 550 +}; + +pascal OSErr HandleNewSound(Point *defaultObjectSize, WEObjectReference objectRef); +pascal OSErr HandleDrawSound(const Rect *destRect, WEObjectReference objectRef); +pascal Boolean HandleClickSound(Point hitPt, EventModifiers modifiers, + UInt32 clickTime, WEObjectReference objectRef); diff --git a/Mac/Wastemods/WETabHooks.c b/Mac/Wastemods/WETabHooks.c new file mode 100644 index 0000000..9595daf --- /dev/null +++ b/Mac/Wastemods/WETabHooks.c @@ -0,0 +1,281 @@ +/* + * WETabHooks.c + * + * WASTE TABS PACKAGE + * Hooks for adding tab support to WASTE + * + * Written by: + * Mark Alldritt (original code) + * Dan Crevier (line breaks) + * John Daub (maintenance) + * Jonathan Kew (variable-width tabs) + * Marco Piovanelli (?) + * Bert Seltzer (horizontal scrolling) + * + */ + +#include "WETabs.h" +#include "WETabHooks.h" + +#define FIXROUND(f) ((SInt16) (((f) + 0x00008000) >> 16)) +#define BSL(A, B) (((SInt32) (A)) << (B)) + +static const Point kOneToOneScaling = { 1, 1 } ; + +pascal void _WETabDrawText + ( + const char * pText, + SInt32 textLength, + Fixed slop, + JustStyleCode styleRunPosition, + WEReference we + ) +{ +#pragma unused ( slop, styleRunPosition ) + + LongRect destRect; + SInt32 beginChar = 0; + SInt32 ii; + SInt16 tabWidth; + SInt16 destLeft; + Point penPos; + SInt16 tabSize = WEGetTabSize(we); + + WEGetDestRect(&destRect, we); + destLeft = (SInt16) destRect.left; + + for ( ii = 0; ii < textLength; ii++ ) + { + if (pText[ii] == '\t') + { + DrawText(pText, beginChar, ii - beginChar); + + /* advance the pen to the next tab stop */ + GetPen(&penPos); + tabWidth = tabSize - (penPos.h - destLeft) % tabSize; + MoveTo(penPos.h + tabWidth, penPos.v); + beginChar = ii + 1; + } + } /* for */ + + DrawText(pText, beginChar, textLength - beginChar); +} + +pascal SInt32 _WETabPixelToChar + ( + const char * pText, + SInt32 textLength, + Fixed slop, + Fixed *width, + WEEdge *edge, + JustStyleCode styleRunPosition, + Fixed hPos, + WEReference we + ) +{ + SInt32 beginChar = 0; + SInt32 offset = 0; + SInt32 ii; + Fixed lastWidth; + Fixed tabWidth; + SInt16 tabSize = WEGetTabSize(we); + + /* loop through every character in the segment looking for tabs */ + for ( ii = 0; ii < textLength; ii++ ) + { + /* exit now if width has gone negative */ + /* (i.e., if we have found which glyph was hit) */ + if (*width <= 0) + { + break; + } + + /* tab found? */ + if (pText[ii] == '\t') + { + /* calculate the width of the sub-segment preceding the tab */ + lastWidth = *width; + offset += PixelToChar((char *)pText + beginChar, ii - beginChar, slop, + lastWidth, (Boolean *) edge, width, styleRunPosition, + kOneToOneScaling, kOneToOneScaling); + beginChar = ii + 1; + + /* hit point past sub-segment? */ + if (*width >= 0) + { + /* increment hPos by width of sub-segment preceding the tab */ + hPos += (lastWidth - *width); + + /* calculate the width of the tab "glyph" (as a Fixed value) */ + tabWidth = BSL(tabSize - FIXROUND(hPos) % tabSize, 16); + + /* increment hPos by width of tab character */ + hPos += tabWidth; + + /* hit point within tab glyph? */ + if (*width < tabWidth) + { + /* yes: determine which half of tab glyph was hit */ + if (*width > (tabWidth >> 1)) + { + *edge = kTrailingEdge; /* second (trailing) edge of tab */ + offset++; + } + else + { + *edge = kLeadingEdge; /* first (leading) edge of tab */ + } + + /* returning -1 (as Fixed) in width means we're finished */ + *width = 0xFFFF0000; + } + else + { + /* hit point is past tab: keep looping */ + offset++; + *width -= tabWidth; + } + } /* if (*width >= 0) */ + } /* if tab found */ + } /* for */ + + /* no more tabs in this segment: process the last sub-segment */ + if (*width >= 0) + { + lastWidth = *width; + offset += PixelToChar((char *)pText + beginChar, textLength - beginChar, slop, + lastWidth, (Boolean *) edge, width, styleRunPosition, + kOneToOneScaling, kOneToOneScaling); + } + + /* round width to nearest integer value */ + /* this is supposed to fix an incompatibility with the WorldScript Power Adapter */ + *width = (*width + 0x00008000) & 0xFFFF0000; + + return offset; +} + +pascal SInt16 _WETabCharToPixel + ( + const char * pText, + SInt32 textLength, + Fixed slop, + SInt32 offset, + SInt16 direction, + JustStyleCode styleRunPosition, + SInt16 hPos, + WEReference we + ) +{ + LongRect destRect; + SInt32 beginChar = 0; + SInt32 ii; + SInt16 width; + SInt16 destLeft; + SInt16 totalWidth = 0; + SInt16 tabSize = WEGetTabSize(we); + + WEGetDestRect(&destRect, we); + destLeft = (SInt16) destRect.left; + + /* measure text up to offset, if offset is within this segment, + otherwise to textLength */ + if (offset > textLength) + { + offset = textLength; + } + + for ( ii = 0; ii < offset; ii++ ) + { + if (pText[ii] == '\t') + { + /* calculate the pixel width of the subsegment preceding the tab */ + width = TextWidth(pText, beginChar, ii - beginChar); + totalWidth += width; + hPos += width; + + /* calculate tab width */ + width = tabSize - (hPos - destLeft) % tabSize; + totalWidth += width; + hPos += width; + + /* go to next subsegment */ + beginChar = ii + 1; + } + } /* for */ + + /* calculate width of remaining characters */ + width = CharToPixel((char *)pText + beginChar, textLength - beginChar, slop, + offset - beginChar, direction, styleRunPosition, + kOneToOneScaling, kOneToOneScaling); + totalWidth += width; + + return totalWidth; +} + +pascal StyledLineBreakCode _WETabLineBreak + ( + const char * pText, + SInt32 textLength, + SInt32 textStart, + SInt32 textEnd, + Fixed *textWidth, + SInt32 *textOffset, + WEReference we + ) +{ + LongRect destRect; + SInt32 beginChar = textStart; + SInt32 ii; + Fixed tabWidth; + SInt16 destWidth; + StyledLineBreakCode breakCode = smBreakOverflow; + SInt16 tabSize = WEGetTabSize(we); + + WEGetDestRect(&destRect, we); + destWidth = (SInt16) (destRect.right - destRect.left); + + for ( ii = textStart; ii < textEnd; ii++ ) + { + if (pText[ii] == 0x0D) + { + /* found a , so stop looking ahead for tabs */ + ii++; + break; + } + if (pText[ii] == '\t') + { + /* do previous "segment" */ + breakCode = StyledLineBreak((char *)pText, textLength, beginChar, ii, 0, textWidth, textOffset); + if ((breakCode != smBreakOverflow) || (ii >= textLength)) + { + break; + } + beginChar = ii + 1; + + /* calculate tab width (as a Fixed value) */ + tabWidth = BSL(tabSize - (destWidth - FIXROUND(*textWidth)) % tabSize, 16); + + /* if tabWidth > pixelWidth we break in tab */ + /* don't move tab to next line */ + if (tabWidth > *textWidth) + { + breakCode = smBreakWord; + *textOffset = ii + 1; + break; + } + else + { + *textWidth -= tabWidth; + } + } + } /* for */ + + /* do last sub-segment */ + if ((ii - beginChar >= 0) && (breakCode == smBreakOverflow)) + { + breakCode = StyledLineBreak((char *)pText, textLength, beginChar, ii, 0, textWidth, textOffset); + } + + return breakCode; +} diff --git a/Mac/Wastemods/WETabHooks.h b/Mac/Wastemods/WETabHooks.h new file mode 100644 index 0000000..6405426 --- /dev/null +++ b/Mac/Wastemods/WETabHooks.h @@ -0,0 +1,32 @@ +/* + * WETabHooks.h + * + * WASTE TABS PACKAGE + * Private (internal) interface + * + * Copyright (c) 1993-1998 Marco Piovanelli + * All Rights Reserved + * + */ + + +#ifndef _WASTE_ +#include "WASTE.h" +#endif + +enum { + kTabSizeTag = 'tbsz' +}; + +#ifdef __cplusplus +extern "C" { +#endif + +pascal void _WETabDrawText(const char *, SInt32, Fixed, JustStyleCode, WEReference); +pascal SInt32 _WETabPixelToChar(const char *, SInt32, Fixed, Fixed *, WEEdge *, JustStyleCode, Fixed, WEReference); +pascal SInt16 _WETabCharToPixel(const char *, SInt32, Fixed, SInt32, SInt16, JustStyleCode, SInt16, WEReference); +pascal StyledLineBreakCode _WETabLineBreak(const char *, SInt32, SInt32, SInt32, Fixed *, SInt32 *, WEReference); + +#ifdef __cplusplus +} +#endif diff --git a/Mac/Wastemods/WETabs.c b/Mac/Wastemods/WETabs.c new file mode 100644 index 0000000..6f59e37 --- /dev/null +++ b/Mac/Wastemods/WETabs.c @@ -0,0 +1,116 @@ +/* + * WETabs.c + * + * WASTE TABS PACKAGE + * Routines for installing/removing tab hooks; accessors + * + */ + + +#include "WETabs.h" +#include "WETabHooks.h" + +#ifndef __ERRORS__ +#include +#endif + +/* static UPP's */ +static WEDrawTextUPP _weTabDrawTextProc = nil; +static WEPixelToCharUPP _weTabPixelToCharProc = nil; +static WECharToPixelUPP _weTabCharToPixelProc = nil; +static WELineBreakUPP _weTabLineBreakProc = nil; + +pascal OSErr WEInstallTabHooks(WEReference we) +{ + OSErr err; + + /* if first time, create routine descriptors */ + if (_weTabDrawTextProc == nil) + { + _weTabDrawTextProc = NewWEDrawTextProc(_WETabDrawText); + _weTabPixelToCharProc = NewWEPixelToCharProc(_WETabPixelToChar); + _weTabCharToPixelProc = NewWECharToPixelProc(_WETabCharToPixel); + _weTabLineBreakProc = NewWELineBreakProc(_WETabLineBreak); + } + + if ((err = WESetInfo( weDrawTextHook, &_weTabDrawTextProc, we )) != noErr) + { + goto cleanup; + } + if ((err = WESetInfo( wePixelToCharHook, &_weTabPixelToCharProc, we )) != noErr) + { + goto cleanup; + } + if ((err = WESetInfo( weCharToPixelHook, &_weTabCharToPixelProc, we )) != noErr) + { + goto cleanup; + } + if ((err = WESetInfo( weLineBreakHook, &_weTabLineBreakProc, we )) != noErr) + { + goto cleanup; + } + +cleanup: + return err; +} + +pascal OSErr WERemoveTabHooks(WEReference we) +{ + UniversalProcPtr nullHook = nil; + OSErr err; + + if ((err = WESetInfo( weDrawTextHook, &nullHook, we )) != noErr) + { + goto cleanup; + } + if ((err = WESetInfo( wePixelToCharHook, &nullHook, we )) != noErr) + { + goto cleanup; + } + if ((err = WESetInfo( weCharToPixelHook, &nullHook, we )) != noErr) + { + goto cleanup; + } + if ((err = WESetInfo( weLineBreakHook, &nullHook, we )) != noErr) + { + goto cleanup; + } + +cleanup: + return err; +} + +pascal Boolean WEIsTabHooks(WEReference we) +{ + WEPixelToCharUPP hook = nil; + + /* return true if our tab hooks are installed */ + + return ( _weTabPixelToCharProc != nil ) && + ( WEGetInfo( wePixelToCharHook, &hook, we ) == noErr) && + ( _weTabPixelToCharProc == hook ); +} + +pascal SInt16 WEGetTabSize(WEReference we) +{ + SInt32 result; + + if (WEGetUserInfo( kTabSizeTag, &result, we ) != noErr) + { + result = kDefaultTabSize; + } + return result; +} + +pascal OSErr WESetTabSize(SInt16 tabSize, WEReference we) +{ + // make sure tabSize is a reasonable size + if ((tabSize < kMinTabSize) || (tabSize > kMaxTabSize)) + { + return paramErr; + } + else + { + return WESetUserInfo( kTabSizeTag, tabSize, we ); + } +} diff --git a/Mac/Wastemods/WETabs.h b/Mac/Wastemods/WETabs.h new file mode 100644 index 0000000..4a91d7c --- /dev/null +++ b/Mac/Wastemods/WETabs.h @@ -0,0 +1,37 @@ +/* + * WETabs.h + * + * WASTE TABS PACKAGE + * Public C/C++ interface + * + * version 1.3.2 (August 1996) + * + * Copyright (c) 1993-1998 Marco Piovanelli + * All Rights Reserved + * + */ + + +#ifndef _WASTE_ +#include "WASTE.h" +#endif + +enum { + kMinTabSize = 1, // must be greater than zero + kDefaultTabSize = 32, + kMaxTabSize = 1024 // arbitrary value +}; + +#ifdef __cplusplus +extern "C" { +#endif + +pascal OSErr WEInstallTabHooks(WEReference we); +pascal OSErr WERemoveTabHooks(WEReference we); +pascal Boolean WEIsTabHooks(WEReference we); +pascal SInt16 WEGetTabSize(WEReference we); +pascal OSErr WESetTabSize(SInt16 tabWidth, WEReference we); + +#ifdef __cplusplus +} +#endif diff --git a/Mac/Wastemods/readme.txt b/Mac/Wastemods/readme.txt new file mode 100644 index 0000000..7f7c16e --- /dev/null +++ b/Mac/Wastemods/readme.txt @@ -0,0 +1,11 @@ +These files were in the Waste 1.3 distribution, but they are missing from the +Waste 2.0 distribution. At least: from the 2.0 distribution as included with +MetroWerks CodeWarrior. As the Python Waste module needs them I have included them +here. There were a few minor changes (in function signatures) to accomodate +slight changes in the Waste 2.0 headers. + +All the copyright notices in the files and in Waste 1.3 seem to indicate that it +is fine to redistribute these files. If I am mistaken in this please let me know +and I will rectify the situation immedeately. + +Jack Jansen, jack@cwi.nl, 31-Jan-01. -- cgit v0.12