The R Project SVN
R
(root)/branches/R-1-2-Mac/src/macintosh/RIntf.h – Rev 12525
Blame | Last modification | View Log | Download | RSS feed
/*WASTE Demo Project:Demo HeaderCopyright © 1993-1998 Marco PiovanelliAll Rights ReservedC port by John C. Daub*//*Due to differences between Pascal and C, this file (nothing like it originally existedin the original Pascal code) was neccessary to create. In it contains various macros,constants, type and class declarations, function prototypes, etc.. From the originalcode, some of this material would be spread amongst the source files, but a goodmajority of this file comes from the WEDemoIntf.p file (the declarations, constants, etc).There still is a WEDemoIntf.c file in the project tho since the .p file had a fewutility functions declared and defined in it.*//*#ifndef __CONDITIONALMACROS__#include <ConditionalMacros.h>#endif*//* make sure TARGET_API_MAC_CARBON is #defined*/#ifndef TARGET_API_MAC_CARBON#define TARGET_API_MAC_CARBON 0#endif/* Check the version number of the Universal Interfaces we're using*/#if TARGET_API_MAC_CARBON#if ((!defined(UNIVERSAL_INTERFACES_VERSION))||(UNIVERSAL_INTERFACES_VERSION<0x330))#error "You need Universal Headers version 3.3 or newer to compile the R for Carbon"#endif#else#if ((!defined(UNIVERSAL_INTERFACES_VERSION))||(UNIVERSAL_INTERFACES_VERSION<0x320))#error "You need Universal Headers version 3.2 or newer to compile the R"#endif#endif#include <stdio.h>#include <string.h>#include <stdlib.h>#include <Balloons.h>#include <Dialogs.h>#include <Scrap.h>#include <Sound.h>#include <Appearance.h>#include <AERegistry.h>#include <Devices.h>#include <Folders.h>#include <Fonts.h>#include <LowMem.h>#include <Processes.h>#include <Resources.h>#include <StandardFile.h>#include <TextUtils.h>#include <ToolUtils.h>#include "dirent.h"#ifndef __WEDEMOAPP__#define __WEDEMOAPP__#ifndef __TYPES__#include <Types.h>#endif#ifndef __RESOURCES__#include <Resources.h>#endif#ifndef __QUICKDRAW__#include <QuickDraw.h>#endif#ifndef __MENUS__#include <Menus.h>#endif#ifndef __WINDOWS__#include <Windows.h>#endif#ifndef __CONTROLS__#include <Controls.h>#endif#ifndef __STANDARDFILE__#include <StandardFile.h>#endif#ifndef _WASTE_#include "WASTE.h"#endif#ifndef _LIMITS#include "limits.h"#endif#ifndef __MACTYPES__#include <MacTypes.h>#endif#ifndef __RESOURCES__#include <Resources.h>#endif#ifndef __QUICKDRAW__#include <QuickDraw.h>#endif#ifndef __MENUS__#include <Menus.h>#endif#ifndef __MACWINDOWS__#include <MacWindows.h>#endif#ifndef __CONTROLS__#include <Controls.h>#endif#if (UNIVERSAL_INTERFACES_VERSION > 0x320)#ifndef __CONTROLDEFINITIONS__#include <ControlDefinitions.h>#endif#endif#ifndef __NAVIGATION__#include <Navigation.h>#endif#if TARGET_API_MAC_CARBON#ifndef __PMAPPLICATION__#include <PMApplication.h>#endif#else#ifndef __PRINTING__#include <Printing.h>#endif#endif#ifndef __CARBONCOMPATIBILITY__#include "CarbonCompatibility.h"#endif#include <R_ext/Boolean.h>#include "Startup.h"enum{/* WASTE Demo signature*/sigWASTEDemo = FOUR_CHAR_CODE ( 'OEDE' ),/* resource types, clipboard types, and file types*/kTypeMenuColorTable = FOUR_CHAR_CODE ( 'mctb' ),kTypeDeskAccessory = FOUR_CHAR_CODE ( 'DRVR' ),kTypeDialogItemList = FOUR_CHAR_CODE ( 'DITL' ),kTypeFont = FOUR_CHAR_CODE ( 'FONT' ),kTypePicture = FOUR_CHAR_CODE ( 'PICT' ),kTypePrintRecord = FOUR_CHAR_CODE ( 'PREC' ),kTypePageFormat = FOUR_CHAR_CODE ( 'WEpg' ), /* Carbon PMPageFormat object */kTypePageMargins = FOUR_CHAR_CODE ( 'MARG' ), /* page margins */kTypeSound = FOUR_CHAR_CODE ( 'snd ' )} ;enum{/* user tags used in association with WEGetUserInfo / WESetUserInfo*/kWindowTag = FOUR_CHAR_CODE ( 'WIND' ), /* reference to owner window */kPrintRecordTag = kTypePrintRecord,kPageFormatTag = kTypePageFormat,kPageMarginsTag = kTypePageMargins} ;/* a PageMarginRec is a structure defining the margins to usewhen printing a document page. Margins are expressed in Fixed (16:16) points.*/struct PageMarginRec{Fixed top ;Fixed bottom ;Fixed left ;Fixed right ;} ;typedef struct PageMarginRec PageMarginRec, *PageMarginRecPtr, **PageMarginRecHandle ;/*#include "mac graphics.h"*//** Some utility macros.*/#define kMaxRowBytes 0x3FFE /* Maximum number of bytes in a row of pixels */#define kDefaultRes 0x00480000 /* Default resolution is 72 DPI; Fixed type */#define kITabRes 4 /* Inverse-table resolution */#define kOffDepth 32 /* Number of bits per pixel in off-screen environment */#define rGrayClut 1600 /* Resource ID of gray-scale clut */#define rColorClut 32 /* Resource ID of full-color clut */#define rTypePrefs 'PrFn'#define kPrefsID 128#define mWindows 131#define kMaxWindows 10/* "Originally," these are things built into the Pascal languagebut since C doesn't have anything like them, and in an attempt to keep the code readableand similar to the original Pascal source, these #define macros work nice.*/#define BTST( FLAGS, BIT ) ((FLAGS) & (1UL << (BIT)))#define BSET( FLAGS, BIT ) ((FLAGS) |= (1UL << (BIT)))#define BCLR( FLAGS, BIT ) ((FLAGS) &= ~(1UL << (BIT)))#define BCHG( FLAGS, BIT ) ((FLAGS) ^= (1UL << (BIT)))#define ABS(A) ((A) > 0 ? (A) : -(A))#define BSL(A, B) (((long) (A)) << (B))#define BSR(A, B) (((long) (A)) >> (B))#define BOR(A, B) ((A) | (B))#define BAND(A, B) ((A) & (B))#ifndef HiWrd#define HiWrd(aLong) (((aLong) >> 16) & 0xFFFF )#endif#ifndef LoWrd#define LoWrd(aLong) ((aLong) & 0xFFFF )#endifenum {/* R signature*/R_ID = 'OFFF',/* resource types, clipboard types, and file types*//* kTypeDeskAccessory = 'DRVR',kTypeFont = 'FONT',kTypeFontTable = 'FISH',kTypePicture = 'PICT', JagokTypeSound = 'snd ',kTypeSoup = 'SOUP',kTypeStyles = 'styl',kTypeText = 'TEXT'*/};enum {/* virtual key codes for navigation keys found on extended keyboards*/keyPgUp = 0x74,keyPgDn = 0x79,keyHome = 0x73,keyEnd = 0x77,/* virtual key codes generated by some function keys*/keyF1 = 0x7A,keyF2 = 0x78,keyF3 = 0x63,keyF4 = 0x76};/* possible values for HandleOpenDocument refCon parameter*/enum {kDoOpen = 0,kDoPrint = 1};/* other commonly used constants*/#define kBarWidth 16 /* width of a scroll bar*/#define kTitleHeight 20 /* usual height of a window title bar */#define kTextMargin 3 /* indent of text rect from a window port rectr */#define kScrollDelta 11 /* pixels to scroll when the scroll bar arrow is clickedr */#define kStandardTranslucencyThreshold 16384 /* 16K sq pixels*/#define kDel 0x7F#define kBs 0x08#define kReturn 0x0D#define kMinSystemVersion 0x0700 /* MacOS 7.0r */#define kMinWASTEVersion 0x01308000 /* WASTE 1.3fr */#define kScrapThreshold 4 * 1024 /* 4 KBr */#define ALLOW_INPUT_LENGTH 5000#define kWindows 131#define MAX_NUM_G_WIN 50#define MAX_NUM_E_WIN 50#define MAX_NUM_H_WIN 50/* enumeration types used for closing a window and/or quitting the application*/typedef enum {closingWindow, closingApplication} ClosingOption;typedef enum {savingYes, savingNo, savingAsk} SavingOption;/* enumeration for orientation (vertical/horizontal)*/typedef enum {kVertical, kHorizontal} Orientation;/** Resource ID numbers*//* menu IDs*/enum {kMenuApple = 1,kMenuFile,kMenuEdit,kMenuFont,kMenuSize,kMenuStyle,kMenuColor,kMenuFeatures,kMenuAlignment,kMenuDirection};/* Apple Menu items*/enum {kItemAbout = 1};/* File menu items*/enum {kItemNew = 1,kItemOpen = 2,kItemEditObject = 4,kItemLoad = 5,kItemClose = 7,kItemSave = 8,kItemSaveAs = 9,kItemPageSetup = 11,kItemPrint = 12,kItemQuit = 14};/* Edit menu items*/enum {kItemUndo = 1,kItemCut = 3,kItemCopy = 4,kItemPaste = 5,kItemCopyPaste = 6,kItemClear = 7,kItemSelectAll = 8,kItemLineTo = 9,kItemPreference = 11};/* Size menu items*/enum {kItemLastSize = 6,kItemSmaller = 8,kItemLarger = 9,kItemOtherSize = 11};/* Style menu items*/enum {kItemPlainText = 1,kItemBold,kItemItalic,kItemUnderline,kItemOutline,kItemShadow,kItemCondensed,kItemExtended};/* Color menu items*/enum {kItemLastColor = 7,kItemOtherColor = 9};/* Alignment menu items*/enum {kItemAlignDefault = 1,kItemAlignLeft = 3,kItemCenter,kItemAlignRight,kItemJustify};/* Direction menu items*/enum{kItemDirectionDefault = 1 ,kItemDirectionLR = 3 ,kItemDirectionRL} ;/* Features menu items*/enum {kItemAlignment = 1,kItemDirection = 2,kItemTabHooks = 3,kItemAutoScroll = 5,kItemOutlineHilite = 6,kItemReadOnly = 7,kItemIntCutAndPaste = 8,kItemDragAndDrop = 9,kItemTranslucentDrags = 10,kItemOffscreenDrawing = 11};/* Alert & dialog template resource IDs*/enum {kAlertNeedSys7 = 128,kAlertNeedNewerWASTE = 129,kAlertGenError = 130,kAlertSaveChanges = 131,kDialogAboutBox = 256,kLineTo = 257,kEditObject = 258,kError = 259,kPreferneces = 260,kAbout = 261};/* String list resource IDs*/enum {kUndoStringsID = 128,kClosingQuittingStringsID = 129,kMiscStringsID = 130};/* miscellaneous resource IDs*/enum {kMenuBarID = 128,kWindowTemplateID = 128,kScrollBarTemplateID = 128,kPromptStringID = 128};/* a DocumentRecord is a structure associated with each windowa handle to this structure is kept in the window refCon*/struct DocumentRecord{WindowPtr owner; /* the window */ControlHandle scrollBars [ 2 ]; /* its scroll bars */WEReference we; /* its WASTE instance */Handle fileAlias; /* alias to associated file */}; /* DocumentRec */typedef struct DocumentRecord DocumentRecord, *DocumentPtr, **DocumentHandle;struct History_Entries{SInt16 commandType;SInt16 para1;SInt16 para2;};typedef struct History_Entries History_Entries, *History_EntriesPtr, **History_EntriesHandle;struct Graphic_Ref{Handle History;SInt16 size;SInt16 MenuIndex; /* You may use this to remeber the Menu Item position.I use it as Boolean in this moment. */SInt32 cur_size;SInt16 fileRefNum;FSSpec fileFSSpec;GWorldPtr offScreen2;GWorldPtr offScreen;PixMapHandle offPixMapHandle;Ptr devdesc;CGrafPtr colorPort;GDHandle colorDevice;GrafPtr savedPort; /* Pointer to the saved graphics environment */GDHandle savedDevice; /* Handle to the saved color environment */};typedef struct Graphic_Ref Graphic_Ref, *Graphic_RefPtr, **Graphic_RefHandle;/** The external declaration of some global variables.*//* These are defined in WEDemoIntf.c*/extern Boolean gHasColorQD; /* true if Color QuickDraw is available */extern Boolean gHasDragAndDrop; /* true if Drag Manager is available */extern Boolean gHasTextServices; /* true is the Text Services Manager is available */extern Boolean gExiting; /* set this variable to drop out of the event loop and quit *//** Function Prototypes*//* From DialogUtils.c*/ModalFilterUPP GetMyStandardDialogFilter(void);short GetDialogItemType(DialogPtr, short);Handle GetDialogItemHandle(DialogPtr, short);void GetDialogItemRect(DialogPtr, short, Rect *);void SetDialogItemProc(DialogPtr, short, UserItemUPP);void FlashButton(DialogPtr, short);/* From LongControls.c*/OSErr LCAttach( ControlHandle );void LCDetach( ControlHandle );void LCSetValue( ControlHandle, long );void LCSetMin( ControlHandle, long );void LCSetMax( ControlHandle, long );long LCGetValue( ControlHandle );long LCGetMin( ControlHandle );long LCGetMax( ControlHandle );void LCSynch( ControlHandle );/* From WEDemoIntf.c*/DocumentHandle GetWindowDocument(WindowPtr);#if __cplusplusinline WEReference GetWindowWE(WindowPtr window) { return (* GetWindowDocument(window))->we; }#else#define GetWindowWE(window) (* GetWindowDocument(window))->we#endifvoid ErrorAlert( OSErr );void ForgetHandle( Handle * );void ForgetResource( Handle * );void BlockClr ( void *, Size ) ;OSErr NewHandleTemp( Size, Handle * );void PStringCopy( ConstStr255Param, Str255 );/* From WEDemoAbout.c*/OSErr WETextBox( short, const Rect *, WEAlignment );void DoPreference( short );/* From WEDemoDrags.c*/OSErr InstallDragHandlers( void );OSErr RemoveDragHandlers( void );/* From WEDemoEvents.c*/void AdjustCursor( Point, RgnHandle );void DoMouseDown( const EventRecord * );void DoKeyDown( const EventRecord * );void DoDiskEvent( const EventRecord * );void DoOSEvent( const EventRecord * );void DoHighLevelEvent( const EventRecord * );void DoNullEvent( const EventRecord * );void DoWindowEvent( const EventRecord *);void ProcessEvent( void );OSErr GotRequiredParams( const AppleEvent * );OSErr InitializeEvents( void );/* from WEDemoFiles.c*/OSStatus ReadTextFile( const FSSpec *, WEReference ); /*Jago */OSStatus WriteTextFile( const FSSpec *, WEReference ); /* Jago */OSStatus ReadUnicodeTextFile ( const FSSpec *, WEReference ) ; /* Jago */OSErr WritePictFile( const FSSpec *, PicHandle );pascal OSErr TranslateDrag( DragReference, ItemReference, FlavorType, Handle );pascal OSErr CheckObjectLock( short, long, StringPtr );OSStatus FSpCheckObjectLock( const FSSpec * ); /* Jago *//* from WEDemoInit.c*/OSErr Initialize( void );void Finalize( void );/* from WEDemoMenus.c*/void SetDefaultDirectory( const FSSpec * );short FindMenuItemText( MenuHandle, ConstStr255Param );Boolean EqualColor( const RGBColor *, const RGBColor * );void PrepareMenus( void );void DoDeskAcc( short );OSErr DoNew( void );OSErr DoOpen( void );OSErr SaveWindow( const FSSpec *, WindowPtr );OSErr DoSaveAs( const FSSpec *, WindowPtr );OSErr DoSave( WindowPtr );OSErr DoClose( ClosingOption, SavingOption, WindowPtr );OSErr DoQuit( SavingOption );void DoAppleChoice( short );void DoFileChoice( short );void DoEditChoice( short );/*void DoFontChoice( short, EventModifiers );*//*void DoSizeChoice( short );*/void DoStyleChoice( short );void DoColorChoice( short );void DoAlignmentChoice( short );void DoDirectionChoice ( short ) ;void DoFeatureChoice( short );void DoMenuChoice( long, EventModifiers );OSErr InitializeMenus( void );/* from WEDemoScripting.c*/OSStatus InstallCoreHandlers ( void ) ;OSStatus GetContentsOfSelection ( DescType, AEDesc *, WEReference ) ;OSStatus SetContentsOfSelection ( const AEDesc *, WEReference ) ;OSStatus GetAEDescDataAsHandle ( const AEDesc *, Handle * ) ;/* from WEDemoWindows.c*/void DoDrag( Point, WindowPtr );void DoGrow( Point, WindowPtr );void DoZoom( short, WindowPtr );Boolean DoContent( Point, const EventRecord *, WindowPtr );void DoKey( short, const EventRecord * );void DoUpdate( WindowPtr );void DoActivate( Boolean, WindowPtr );OSErr CreateWindow( const FSSpec * );void DestroyWindow( WindowPtr );void Resize( Point, WindowPtr );/* R Editor*/void RWrite(char*);void DRWrite(long);void eventLoop(void);void free_History(void);void maintain_cmd_History(char*);void do_Down_Array (void);void R_WriteConsole1 (Ptr, SInt32);void R_ReadConsole1 (char* , char* , int, int);Boolean inRange (int start, int end , int back, int length);void Change_Color_Range (SInt32, SInt32,long, long, long, WEReference);void Change_Color(long , long , long , WEReference);/* ************************************************************************************************print related functions************************************************************************************************ */void do_Print (void);void do_PageSetup (void);#endif /* __WEDEMOAPP__ *//* ************************************************************************************************extern Function (plug in function) (printing1.c, printing2.c, print.h)************************************************************************************************ */void doPrinting(void);void doPrStyleDialog(void);void R_ResetConsole(void);void R_FlushConsole(void);void R_ClearerrConsole(void);void R_Suicide(char *msg);void R_Busy(int which);/* void R_CleanUp(int ask); *//*void R_CleanUp(int, int, int);*/void R_CleanUp(SA_TYPE, int, int);char *R_ExpandFileName(char *s);void R_RestoreGlobalEnv(void);void R_SaveGlobalEnv(void);/*SEXP do_interactive(SEXP call, SEXP op, SEXP args, SEXP rho);SEXP do_machine(SEXP call, SEXP op, SEXP args, SEXP rho);SEXP do_proctime(SEXP call, SEXP op, SEXP args, SEXP rho);SEXP do_quit(SEXP call, SEXP op, SEXP args, SEXP rho);SEXP do_system(SEXP call, SEXP op, SEXP args, SEXP rho);*/void doCopyPString(Str255 sourceString,Str255 destinationString);FILE* R_OpenLibraryFile1(char *file);FILE* R_OpenSysInitFile1(void);void lineTo(SInt16, SInt16);void moveTo(SInt16, SInt16);void lineToWindow(SInt16, SInt16, SInt16);void moveToWindow(SInt16, SInt16, SInt16);WindowPtr CreateGraphicWindow(int wid, int h);OSErr newWindow( const FSSpec* , int);Boolean isTextWindow(WindowPtr window);void LineFromToWindow(SInt16, SInt16, SInt16, SInt16,WindowPtr);WindowPtr Get_Graphic_Window(int);int isGraphicWindow(WindowPtr);void New_G_History(SInt16);void Kill_G_History(SInt16);Boolean RedrawWindow(SInt16);void AddToHistory( SInt16, History_Entries*);void GraUpdate(WindowPtr);void GraResize(WindowPtr);char* RevertString(char*);void GdrawString(char*, double);void FRWrite(double in);double toRadian(int angle);void RnWrite(char* buf, SInt16 len);void GWdoErrorAlert(SInt16 errorType);void GWdoConcatPStrings(Str255,Str255);void changeGWinPtr(WindowPtr , Str255);FILE* R_OpenFile(char *file);void changeSize(WindowPtr window, SInt16 newSize);static void CalcBigTextRect( WindowPtr window, Rect *textRect );void GraphicCopy(WindowPtr window);PicHandle getWPict(WindowPtr);OSErr doSaveGraCommand(void);OSErr doSaveAsGraCommand(void);OSErr doRSave(Boolean *);/*OSErr OpenGraphicFile(FSSpec fileSpec, WindowPtr window);*/void do_Up_Array(void);void Mac_Dev_Kill(WindowPtr window);OSErr doRSaveAs(Boolean *);int isEditWindow(WindowPtr window);int isHelpWindow(WindowPtr window);/* int R_ShowFiles(int nfile, char **fileName, char **title ,char *WinTitle);*//*int R_ShowFiles(int, char **, char **, char *, int, char *);*/int R_ShowFiles(int, char **, char **, char *, Rboolean, char *);void LoadEditEnvironment();int ggetc();int gungetc(int c);void ParseIncomplete();void ParseError();void ErrorDia(char* errorMessage);void Do_StandardAlert(Str255 LabelText);OSErr CreateOffScreen(Rect *bounds, /* Bounding rectangle of off-screen */short depth, /* Desired number of bits per pixel in off-screen*/CTabHandle colors, /* Color table to assign to off-screen */CGrafPtr *retPort, /* Returns a pointer to the new CGrafPort */GDHandle *retGDevice); /* Returns a handle to the new GDevice */OSErr SetUpPixMap(short depth, /* Desired number of bits/pixel in off-screen*/Rect *bounds, /* Bounding rectangle of off-screen */CTabHandle colors, /* Color table to assign to off-screen */short bytesPerRow, /* Number of bytes per row in the PixMap */PixMapHandle aPixMap) ; /* Handle to the PixMap being initialized */OSErr CreateGDevice(PixMapHandle basePixMap, /* Handle to the PixMap to base GDevice on */GDHandle *retGDevice) ;/* Returns a handle to the new GDevice */OSErr UpdateOffScreen(Rect *newBounds, /* New bounding rectangle of off-screen */short newDepth, /* New number of bits per pixel in off-screen */CTabHandle newColors, /* New color table to assign to off-screen */CGrafPtr updPort, /* Returns a pointer to the updated CGrafPort */GDHandle updGDevice) ;/* Returns a handle to the updated GDevice */void DisposeOffScreen(CGrafPtr doomedPort, /* Pointer to the CGrafPort to be disposed of */GDHandle doomedGDevice); /* Handle to the GDevice to be disposed of */