//##ex mcpp:cppc -d __IGNORE_NOT_SUPPORTED__ -gs -o cliptext p:pLib/StartCode.o -pc cliptext.c p:pLib/StdIO.o -l pOSxAsupported -l pOSStub -l pOS -l List /*\ *** 29.01.1997, Michael Christoph, proDAD *** Example: *** Tag WA_SmartRefresh, FSF_TAGGED *** Funktion WaitBlit() *** wird von pOS noch nicht unterstützt \*/ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include BOOL pOS_CmpDoubleClick(_R_A0 const struct pOS_DoubleKlick* just,_R_A1 const struct pOS_DoubleKlick*) {return(FALSE);} #ifdef LATTICE int CXBRK(void) { return(0); } /* Disable Lattice CTRL/C handling */ int chkabort(void) { return(0); } #endif UBYTE *vers = "$VER: cliptext 1.0 (29.01.1997) (proDAD, Michael Christoph)"; #define BUFSIZE 4096 #define FONT_NAME 0 #define FONT_SIZE 1 #define FILE_NAME 2 #define JAM_MODE 3 #define XASP 4 #define YASP 5 #define NUM_ARGS 6 #define DEFAULTFONTSIZE 11L #define DEFAULTJAMMODE 0L #define DEFAULTXASP 0L #define DEFAULTYASP 0L void MainLoop(void); #ifdef __pOS__ /*** unter pOS sofortige Installierung mit den Defaultwerten ***/ LONG args[NUM_ARGS]={ (LONG)"topaz.font",11,(LONG)"s:StBootShell.scp",0,0,0 }; #else LONG args[NUM_ARGS]; #endif struct TagItem tagitem[2]; UBYTE buffer[BUFSIZE]; BPTR myfile; #ifdef __pOS__ struct pOS_IntuiDevice *gb_IntuiBase; struct pOS_GfxBase *gb_GfxBase; struct pOS_LayerBase *gb_LayerBase; struct pOS_DiskFontBase *gb_DiskFontBase; struct pOS_UtilityBase *gb_UtilityBase; /*** für zusätzlich benötigt ***/ #else struct Library *DiskfontBase, *IntuitionBase, *LayersBase, *GfxBase; #endif struct IntuiMessage *mymsg; struct DrawInfo *mydrawinfo; struct Window *mywin; struct RastPort *myrp; struct TTextAttr myta; struct TextFont *myfont; struct Rectangle myrectangle; struct Region *new_region; void main(int argc, char **argv) { extern struct Library *DOSBase; struct RDArgs *myrda; struct DisplayInfo mydi; ULONG mymodeid; LONG mydefaultfontsize = DEFAULTFONTSIZE; LONG mydefaultJAMMode = DEFAULTJAMMODE; LONG mydefaultXASP = 0L; LONG mydefaultYASP = 0L; #ifdef __pOS__ /*** Defaultwerte wurden bereits bei Deklaration gesetzt ***/ /*** die Zwischenfariablen bei /N-Argumenten ist nicht notwendig ***/ /*** das Auslesen erfolgt über den Zeiger auf den Zahlenwert ***/ /*** wurde ein Vorgabewert definiert (alles außer 0) und der ***/ /*** Benutzer macht keine Eingabe, erhalten Sie einen Zeiger, ***/ /*** der auf die Zahl zeigt ***/ #else args[FONT_NAME] = (LONG)"topaz.font"; args[FONT_SIZE] = (LONG)&mydefaultfontsize; args[FILE_NAME] = (LONG)"s:startup-sequence"; args[JAM_MODE] = (LONG)&mydefaultJAMMode; args[XASP] = (LONG)&mydefaultXASP; args[YASP] = (LONG)&mydefaultYASP; #endif #ifdef __pOS__ #else if (DOSBase->lib_Version >35) /* Run only on 2.0 machines */ #endif { /* dos.library standard command line parsing--See the dos.library Autodoc for details */ if (myrda = ReadArgs("FontName,FontSize/N,FileName,Jam/N,XASP/N,YASP/N\n", args, NULL)) { if (myfile = Open((UBYTE *)args[FILE_NAME], MODE_OLDFILE) ) /* Open the file to display. */ { #ifdef __pOS__ if(gb_UtilityBase=(struct pOS_UtilityBase *) pOS_OpenLibrary("pUtility.library",0)) { #endif #ifdef __pOS__ if(gb_DiskFontBase=(struct pOS_DiskFontBase *)pOS_OpenLibrary("pDiskFont.library",0)) #else if (DiskfontBase = OpenLibrary("diskfont.library", 36L)) /* Open the libraries. */ #endif { #ifdef __pOS__ if(gb_IntuiBase=(struct pOS_IntuiDevice*) pOS_OpenLibrary("pIntui.library",0)) #else if (IntuitionBase = OpenLibrary("intuition.library", 36L)) #endif { #ifdef __pOS__ if(gb_GfxBase=(struct pOS_GfxBase*) pOS_OpenLibrary("pGraphics.library",0)) #else if (GfxBase = OpenLibrary("graphics.library", 36L)) #endif { #ifdef __pOS__ if(gb_LayerBase=(pOS_LayerBase*) pOS_OpenLibrary("pLayer.library",0)) #else if (LayersBase = OpenLibrary("layers.library", 36L)) #endif { if (mywin = OpenWindowTags(NULL, /* Open that window. */ WA_MinWidth, 100, /* This application wants to hear about three */ WA_MinHeight, 100, /* things: 1) When the user clicks the window's */ WA_SmartRefresh, TRUE, /* close gadget, 2) when the user starts to */ WA_SizeGadget, TRUE, /* resize the window, 3) and when the user has */ WA_CloseGadget, TRUE, /* finished resizing the window. */ WA_IDCMP, IDCMP_CLOSEWINDOW | IDCMP_NEWSIZE | IDCMP_SIZEVERIFY, WA_DragBar, TRUE, WA_DepthGadget, TRUE, WA_Title, (ULONG)args[FILE_NAME], TAG_END)) { tagitem[0].ti_Tag = OT_DeviceDPI; /* see if there is a non-zero value in the XASP or YASP fields. Diskfont.library */ /* will get a divide by zero GURU if you give it a zero XDPI or YDPI value. */ #ifdef __pOS__ /*** wird 0 als Defaultwert übergeben, so wird kein Zeiger auf die ***/ /*** diese 0 erzeugt !! Deshalb muß zusätzlich auf NULL-Zeiger geprüft werden ***/ /*** Bsp: xasp=args[XASP] ? *(ULONG *)args[XASP] : 0 ***/ if ( ( args[XASP]==NULL || args[YASP]==NULL ) || ( (*(ULONG *)args[XASP]) == 0) || ( (*(ULONG *)args[YASP]) == 0) ) #else /* if there is a zero value in one of them... */ if ( ( (*(ULONG *)args[XASP]) == 0) || ( (*(ULONG *)args[YASP]) == 0) ) #endif { #ifdef __pOS__ /*** ViewPort in Screen-Struktur ist unter pOS ein Zeiger ***/ mymodeid = GetVPModeID(mywin->WScreen->ViewPort); #else /* ...use the aspect ratio of the current display as a default... */ mymodeid = GetVPModeID(&(mywin->WScreen->ViewPort)); #endif if (GetDisplayInfoData( NULL, (UBYTE *)&mydi, sizeof(struct DisplayInfo), DTAG_DISP, mymodeid)) { mydefaultXASP = mydi.Resolution.x; mydefaultYASP = mydi.Resolution.y; printf("XAsp = %ld YAsp = %ld\n", mydefaultXASP, mydefaultYASP); /* notice that the X and Y get _swapped_ to keep the look of the font glyphs the same using screens with different aspect ratios. */ args[YASP] = (LONG)&mydefaultXASP; args[XASP] = (LONG)&mydefaultYASP; } else /* ...unless something is preventing us from getting the */ /* screens resolution. In that case, forget about the DPI tag. */ tagitem[0].ti_Tag = TAG_END; } /* Here we have to put the X and Y DPI into the OT_DeviceDPI tags data field. */ /* THESE ARE NOT REAL X AND Y DPI VALUES FOR THIS FONT OR THE DISPLAY. They only */ /* serve to supply the diskfont.library with values to calculate the aspect */ /* ratio. The X value gets stored in the upper word of the tag value and the Y */ /* DPI gets stored in the lower word. Because ReadArgs() stores the _address_ */ /* of integers it gets from the command line, you have to dereference the */ /* pointer it puts into the argument array, which results in some ugly casting. */ tagitem[0].ti_Data = (ULONG)( ( (UWORD) *( (ULONG *)args[XASP] ) << 16) | ((UWORD) *( (ULONG *)args[YASP]) ) ); tagitem[1].ti_Tag = TAG_END; myta.tta_Name = (STRPTR)args[FONT_NAME]; /* Set up the TTextAttr */ myta.tta_YSize = *((LONG *)args[FONT_SIZE]); /* structure to match the */ myta.tta_Style = FSF_TAGGED; /* font the user requested. */ myta.tta_Flags = 0L; myta.tta_Tags = tagitem; if (myfont = OpenDiskFont((struct TextAttr *)&myta)) /* open that font */ { /* This is for the layers.library */ /* clipping region that gets attached to */ /* the window. This prevents the */ /* application from unnecessarily */ myrectangle.MinX = mywin->BorderLeft; /* rendering beyond the bounds of the */ myrectangle.MinY = mywin->BorderTop; /* inner part of the window. For now, */ myrectangle.MaxX = mywin->Width - /* you can ignore the layers stuff if you */ (mywin->BorderRight + 1); /* are just interested in learning about */ myrectangle.MaxY = mywin->Height - /* using text. For more information on */ (mywin->BorderBottom + 1); /* clipping regions and layers, see the */ /* Layers chapter of this manual. */ if (new_region = NewRegion()) /* more layers stuff */ { if (OrRectRegion(new_region, &myrectangle)); /* Even more layers stuff */ { InstallClipRegion(mywin->WLayer, new_region); /* obtain a pointer to the window's rastport and */ myrp = mywin->RPort; /* set up some of the rastport attributes. This */ SetFont(myrp, myfont); /* example obtains the text pen for the window's */ if (mydrawinfo = GetScreenDrawInfo(mywin->WScreen)) /* screen using */ { /* GetScreenDrawInfo() */ SetAPen(myrp, mydrawinfo->dri_Pens[TEXTPEN]); FreeScreenDrawInfo(mywin->WScreen, mydrawinfo); } SetDrMd(myrp, (BYTE)(*((LONG *)args[JAM_MODE]))); MainLoop(); } DisposeRegion(new_region); } CloseFont(myfont); } else printf("ERROR: can't open font '%s' size %ld\n",myta.tta_Name,myta.tta_YSize); CloseWindow(mywin); } #ifdef __pOS__ pOS_CloseLibrary((struct pOS_Library*)gb_LayerBase); #else CloseLibrary(LayersBase); #endif } #ifdef __pOS__ pOS_CloseLibrary((struct pOS_Library*)gb_GfxBase); #else CloseLibrary(GfxBase); #endif } #ifdef __pOS__ pOS_CloseLibrary((struct pOS_Library*)gb_IntuiBase); #else CloseLibrary(IntuitionBase); #endif } #ifdef __pOS__ pOS_CloseLibrary((struct pOS_Library*)gb_DiskFontBase); #else CloseLibrary(DiskfontBase); #endif } #ifdef __pOS__ pOS_CloseLibrary((struct pOS_Library*)gb_UtilityBase); } #endif Close(myfile); } else printf("ERROR: can't open file '%s'\n",args[FILE_NAME]); FreeArgs(myrda); } else printf("Error parsing arguments\n"); } } void MainLoop(void) { LONG count, actual, position; BOOL aok = TRUE, waitfornewsize = FALSE; struct Task *mytask; mytask = FindTask(NULL); Move(myrp, mywin->BorderLeft + 1, mywin->BorderTop + myfont->tf_YSize + 1); while (((actual = Read(myfile, buffer, BUFSIZE)) > 0) && aok) /* While there's something */ { /* to read, fill the buffer. */ position = 0; count = 0; while (position <= actual) { if (!(waitfornewsize)) { while ( ((buffer[count] >= myfont->tf_LoChar) && (buffer[count] <= myfont->tf_HiChar)) && (count <= actual) ) count++; Text(myrp, &(buffer[position]), (count)-position); while ( ((buffer[count] < myfont->tf_LoChar) || (buffer[count] > myfont->tf_HiChar)) && (count <= actual) ) { if (buffer[count] == 0x0A) Move(myrp, mywin->BorderLeft, myrp->cp_y + myfont->tf_YSize + 1); count++; } position = count; } else WaitPort(mywin->UserPort); while (mymsg = (struct IntuiMessage *)GetMsg(mywin->UserPort)) { if (mymsg->Class == IDCMP_CLOSEWINDOW) /* The user clicked the close gadget */ { aok = FALSE; position = actual + 1; ReplyMsg((struct Message *)mymsg); } /* The user picked up the */ else if (mymsg->Class == IDCMP_SIZEVERIFY) /* window's sizing gadget */ { /* When the user has picked up the window's sizing gadget when the */ /* IDCMP_SIZEVERIFY flag is set, the application has to reply to this message */ /* to tell Intuition to allow the user to move the sizing gadget and resize */ /* the window. The reason for using this here is because the user can resize */ /* the window while cliptext.c is rendering text to the window. Cliptext.c has */ /* to stop rendering text when it receives an IDCMP_SIZEVERIFY message. */ /* */ /* if this example had instead asked to hear about IDCMP events that could */ /* take place between SIZEVERIFY and NEWSIZE events (especially INTUITICKS), */ /* it should turn off those events here using ModifyIDCMP(). */ /* */ /* After we allow the user to resize the window, we cannot write into the */ /* window until the user has finished resizing it because we need the */ /* window's new size to adjust the clipping area. Specifically, we have */ /* to wait for an IDCMP_NEWSIZE message which Intuition will send when the */ /* user lets go of the resize gadget. For now, we set the waitfornewsize */ /* flag to stop rendering until we get that NEWSIZE message. */ waitfornewsize = TRUE; WaitBlit(); ReplyMsg((struct Message *)mymsg); /* The blitter is done, let the */ } /* user resize the window. */ else { ReplyMsg((struct Message *)mymsg); waitfornewsize = FALSE; /* The user has resized the window, so get the new window dimensions */ myrectangle.MinX = mywin->BorderLeft; /* and readjust the layers */ myrectangle.MinY = mywin->BorderTop; /* clipping region accordingly. */ myrectangle.MaxX = mywin->Width - (mywin->BorderRight + 1); myrectangle.MaxY = mywin->Height - (mywin->BorderBottom + 1); InstallClipRegion(mywin->WLayer, NULL); ClearRegion(new_region); if (OrRectRegion(new_region, &myrectangle)) InstallClipRegion(mywin->WLayer, new_region); else { aok = FALSE; position = actual + 1; } } } if (mytask->tc_SigRecvd & SIGBREAKF_CTRL_C) /* Check for user break. */ { aok = FALSE; position = actual + 1; } if (myrp->cp_y > (mywin->Height - (mywin->BorderBottom + 2))) /* if we reached the */ { /* bottom of the page, clear the */ Delay(25); /* rastport and move back to the top */ SetRast(myrp, 0); /* Set the entire rastport to color zero. This will not */ Move(myrp, /* the window borders because of the layers clipping. */ mywin->BorderLeft + 1, mywin->BorderTop + myfont->tf_YSize + 1); } } } if (actual < 0) printf("Error while reading\n"); }