Return to space.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / cip

Annotation of researchv9/jtools/src/cip/space.c, revision 1.1

1.1     ! root        1: /*
        !             2:        %Z%  %M%  version %I% %Q%of %H% %T%
        !             3:        Last Delta:  %G% %U% to %P%
        !             4: */
        !             5: 
        !             6: #define SETUP_OWN
        !             7: #include "cip.h"
        !             8: 
        !             9: extern short noSpace;
        !            10: extern Point PtCurrent;
        !            11: 
        !            12: #define INT long
        !            13: #define ALIGN int
        !            14: #define NALIGN 1
        !            15: #undef BUSY
        !            16: #define BUSY 1
        !            17: 
        !            18: /* This routine clears the message area and sets a pointer to */
        !            19: /* the beginning of it. */
        !            20: 
        !            21: void
        !            22: initMessage ()
        !            23: {
        !            24:   PtCurrent.x = Xtext+LW+1;
        !            25:   PtCurrent.y = Ytext+LW+1;
        !            26:   xtipple (&display, inset(Rect (Xmin, Ybut, XeditD-LW, Ymax),LW));
        !            27: }
        !            28: 
        !            29: /* This routine displays a string at 'PtCurrent'. */
        !            30: 
        !            31: void
        !            32: putMessage (str)
        !            33: char *str;
        !            34: {
        !            35:   char c;
        !            36: 
        !            37:   while (*str != '\0') {
        !            38:     jchar (*str++);
        !            39:     if ((PtCurrent.x) > XeditD-fontwidth(&defont)-LW-1) {
        !            40:       PtCurrent.x = Xtext+LW+1;
        !            41:       PtCurrent.y += fontheight(&defont);
        !            42:     }
        !            43:   }
        !            44: }
        !            45: 
        !            46: /* This routine displays a message at the bottom of the cip layer */
        !            47: 
        !            48: void
        !            49: message (str)
        !            50: char *str;
        !            51: {
        !            52:   initMessage ();
        !            53:   putMessage (str);
        !            54: }
        !            55: 
        !            56: /* This routine allocates memory and then displays the estimated */
        !            57: /* number of this that can be drawn. */
        !            58: 
        !            59: char *
        !            60: getSpace (numbytes)
        !            61: short numbytes;
        !            62: {
        !            63:   char *b;             /* Pointer to allocated memory */
        !            64: 
        !            65:   if ((b = alloc (numbytes)) == (char *) NULL)
        !            66:     outOfSpace ();
        !            67:   return (b);
        !            68: }
        !            69: 
        !            70: /* This routine prints an error message */
        !            71: /* telling the user cip is out of space. */
        !            72: 
        !            73: outOfSpace()
        !            74: {
        !            75:   beep();
        !            76:   message("Out of Storage - PUT and QUIT");
        !            77:   sleep(240);
        !            78:   noSpace = 1;
        !            79: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.