home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997: The Complete Utilities Toolkit / macworld-complete-utilities-1997.iso / Programming / Little Smalltalk v3.1.5 / C Source / Sources / tclprim.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-06-20  |  19.7 KB  |  768 lines  |  [TEXT/KAHL]
  1. /*
  2.     Little Smalltalk, version 3
  3.     Written by Tim Budd, Oregon State University, June 1988
  4.  
  5.     TCL window primitives
  6.     based on winprim.c written by tim budd, january 1989
  7.     
  8.     Changes for use with Symantec(TM) Think Class Library
  9.     and sundry fixes and enhancements by Julian Barkway, 
  10.     ©August 1994, all rights reserved.
  11.     
  12.     (TCL interface largely call-compatible with StdWin.)
  13. */
  14.  
  15. # include <stdio.h>
  16. # include <stdlib.h>
  17. # include <string.h>
  18. # include "env.h"
  19.  
  20. # include "glue.h"
  21.  
  22. # include "memory.h"
  23. # include "names.h"
  24.  
  25. # include <time.h>
  26. # include "macio.h"
  27. # include "memory.proto.h"
  28. # include "names.proto.h"
  29. # include "news.proto.h"
  30. # include "tclprim.proto.h"
  31.  
  32. extern object trueobj, falseobj;
  33. extern boolean parseok;
  34. extern int initial;
  35.  
  36. /* report a fatal system error */
  37. noreturn sysError(char *s1, char *s2)
  38. {    char buffer[1024];
  39.  
  40.     if (initial) {
  41.         ignore fprintf(stderr,"%s\n%s\n", s1, s2);
  42.  
  43.         }
  44.     else {
  45.         ignore sprintf(buffer,"%s %s", s1, s2);
  46.         wperror(buffer);
  47.         }
  48.     ignore abort();
  49. }
  50.  
  51. /* report a fatal system error */
  52. noreturn sysWarn(char *s1, char *s2)
  53. {    char buffer[1024];
  54.  
  55.     if (initial) {
  56.         ignore fprintf(stderr,"%s\n%s\n", s1, s2);
  57.         }
  58.     else {
  59.         ignore sprintf(buffer,"%s %s", s1, s2);
  60.         wperror(buffer);
  61.         }
  62. }
  63.  
  64. void compilWarn(char *selector, char *str1, char *str2)
  65. {    char buffer[1024];
  66.  
  67.     if (initial) {
  68.         ignore fprintf(stderr,"compiler warning: Method %s : %s %s\n", 
  69.             selector, str1, str2);
  70.         }
  71.     else {
  72.         ignore sprintf(buffer,"warn: %s %s", str1, str2);
  73.         wmessage(buffer);
  74.         }
  75. }
  76.  
  77. void compilError(char *selector, char *str1, char *str2)
  78. {    char buffer[1024];
  79.  
  80.     if (initial) {
  81.         ignore fprintf(stderr,"compiler error: Method %s : %s %s\n", 
  82.             selector, str1, str2);
  83.         }
  84.     else {
  85.         ignore sprintf(buffer,"error: %s %s", str1, str2);
  86.         wmessage(buffer);
  87.         }
  88.     parseok = false;
  89. }
  90.  
  91. noreturn dspMethod(char *cp, char *mp)
  92. {
  93.     /*ignore fprintf(stderr,"%s %s\n", cp, mp);*/
  94. }
  95.  
  96. void givepause(void)
  97. {    char buffer[80];
  98.  
  99.     if (initial) {
  100.         ignore fprintf(stderr,"push return to continue\n");
  101.         ignore gets(buffer);
  102.         }
  103.     else
  104.         wmessage("wait to continue");
  105. }
  106.  
  107. static object newPoint(int x, int y)
  108. {    object newObj;
  109.  
  110.     newObj = allocObject(2);
  111.     setClass(newObj, globalSymbol("Point"));
  112.     basicAtPut(newObj, 1, newInteger(x));
  113.     basicAtPut(newObj, 2, newInteger(y));
  114.     return newObj;
  115. }
  116.  
  117. static object newRect (short l, short t, short r, short b)
  118. {    
  119.     object newObj;
  120.  
  121.     newObj = allocObject (4);
  122.     setClass    (newObj, globalSymbol ("Rectangle"));
  123.     basicAtPut    (newObj, 1, newInteger (t));
  124.     basicAtPut    (newObj, 2, newInteger (l));
  125.     basicAtPut    (newObj, 3, newInteger (b));
  126.     basicAtPut    (newObj, 4, newInteger (r));
  127.     return newObj;
  128. }
  129.  
  130.  
  131. /* windows and text edit buffers are maintained in
  132.    a single structure */
  133.  
  134. /*   - retained for compatibility purposes. TextEdit pointers are now  */
  135. /*   stored as Smalltalk strings. Window pointers are unaffected - JRB */
  136.  
  137. # define WINDOWMAX 15
  138. static struct {
  139.     WINDOW *w;
  140.     TEXTEDIT *tp;
  141. } ws[WINDOWMAX];
  142.  
  143. /* All menu pointers are now stored as a character string */
  144. /* in the Smalltalk object itself - JRB                   */
  145.  
  146. /* current event record */
  147. static EVENT evrec;
  148.  
  149. static short openWindCount = 0;        /* No. of windows currently open */
  150. #define NO_WINDOWS        -1
  151.  
  152.  
  153. //========================================================================
  154. // Return the index of the currently active window.
  155. //========================================================================
  156. static int findWindow(WINDOW *w)
  157. {    
  158.     int i;
  159.     
  160.     if (openWindCount == 0)
  161.         return (NO_WINDOWS);
  162.         
  163.     for (i = 0; i < WINDOWMAX; i++)
  164.         if (w == ws[i].w)
  165.             return(i);
  166.             
  167. //****sysError ("can't find window","");  /* Is this really a fatal error? */
  168.     return (0);
  169. }
  170.  
  171.  
  172. //========================================================================
  173. // drawproc () is redundant but retained for compatibility purposes.
  174. //========================================================================
  175. static void drawproc(WINDOW *w, int left, int top, int right, int bottom)
  176. {    
  177.     return;
  178. }
  179.  
  180.  
  181. //========================================================================
  182. // Perform a TCL primitive.
  183. //========================================================================
  184. object sysPrimitive(int primitiveNumber, object *arguments)
  185. {    int i, j, k;
  186.     int p1, p2, p3, p4;
  187.     char *c;
  188.     WINDOW *w;
  189.     object returnedObject = nilobj;
  190.  
  191. //    A union is used in order to store menu and pane pointers in a Smalltalk 
  192. //    string, removing the need for an array in the C code.
  193.     union {
  194.         char        *charPtr;
  195.         TEXTEDIT    **tedt;
  196.         MENU        **menuPtr;
  197.         WINDOW        **winPtr;    /* Currently unused */
  198.         CURSOR        **csr;
  199.     } uu;
  200.     
  201.     TEXTEDIT    *te;
  202.  
  203.  
  204.     switch(primitiveNumber) {
  205.     case 160:                            /* window open */
  206. //    Extensively modified to accomodate window opening with 
  207. //      sizing parameters
  208. // Amended for v3.1.5 to allow specification of non-closeable windows (using wopentosize() ).
  209.         {
  210.         short action, left, top, width, height, noClose;
  211.         i = intValue(arguments[0]);         /* win number */
  212.         if (ws[i].w)
  213.             break;                            /* already open */
  214.         action  = intValue (arguments [1]);    /* action */
  215.         c       = charPtr  (arguments[2]);  /* title */
  216.                                             /* win type (arguments[3]) not used */
  217.         switch (action) {
  218.             case 1:
  219.                 ws[i].w = w = wopen (c, NULL);
  220.                 break;
  221.             case 2:
  222.                 left    = intValue (arguments [4]);
  223.                 top     = intValue (arguments [5]);
  224.                 width   = intValue (arguments [6]);
  225.                 height  = intValue (arguments [7]);
  226.                 noClose = intValue (arguments [8]);
  227.                 ws[i].w = w = wopentosize (c, left, top, width, height, noClose);
  228.                 break;
  229.         }
  230.         ws[i].tp = 0;
  231.         openWindCount++;
  232.         }
  233.         break;
  234.         
  235.     case 161:    /* variety of simple window actions */
  236.         i = intValue(arguments[0]); /* win number */
  237.         if (! (w = ws[i].w)) break;    /* return if no open */
  238.         j = intValue(arguments[1]); /* action */
  239.         switch(j) {
  240.             case 1: 
  241.                 ws[i].w = NULL; 
  242.                 wclose (w);
  243.                 openWindCount--; 
  244.                 break;
  245. /***********case 2: wbegindrawing(w); break;***/ /* Moved to prim 168 */
  246. /***********case 3: wenddrawing(w); break;*****/
  247.             case 4: wsetactive(w); break;
  248.             case 5: if (ws[i].tp) tedraw(ws[i].tp); break;
  249.             case 6:        /* Return the current size of the window */ 
  250.                 wgetwinsize(w, &i, &j); 
  251.                 returnedObject = newPoint(i, j); 
  252.                 break;
  253.             case 7:        /* Return the window's position in the global scheme of things */ 
  254.                 wgetwinpos (w, &i, &j);
  255.                 returnedObject = newPoint(i, j); 
  256.                 break;
  257.             case 8:        /* Bring the window to the front */    
  258.                 windowToFront (w); 
  259.                 break;
  260.             case 9:
  261.                 if (docDirty (w))
  262.                     returnedObject = trueobj;
  263.                 else
  264.                     returnedObject = falseobj;
  265.                 break;
  266.             case 10:    /* Set window title */
  267.                 c = charPtr (arguments[2]);
  268.                 wsettitle (w, (unsigned char *)c);
  269.                 break;
  270.         }
  271.         break;
  272.  
  273.     case 162:    /* one int arg actions */
  274.         i = intValue(arguments[0]); /* win number */
  275.         if (! (w = ws[i].w)) break;    /* return if no open */
  276.         i = intValue(arguments[1]); /* action */
  277.         if (i > 1)
  278.             uu.charPtr = charPtr (arguments [2]);    /* menuPtr */
  279.         else
  280.             j = intValue (arguments [2]); /* x */
  281.         switch(i) {
  282.             case 1:  /* set timer */
  283.                 wsettimer(w, j); break;
  284.             case 2:    /* menu attach */
  285.                 wmenuattach (w, *(uu.menuPtr)); 
  286.                 break;
  287.             case 3:    /* menu detach */
  288.                 wmenudetach (w, *(uu.menuPtr)); 
  289.                 break;
  290.         }
  291.         break;
  292.  
  293.     case 163:    /* two int arg actions */
  294.         i = intValue(arguments[0]); /* win number */
  295.         if (! (w = ws[i].w)) break;    /* return if no open */
  296.         i = intValue(arguments[1]); /* action */
  297.         j = intValue(arguments[2]); /* x */
  298.         k = intValue(arguments[3]); /* y */
  299.         switch(i) {
  300.             case 2: wsetdocsize(w, j, k); break;
  301.             case 3: wsetorigin(w, j, k); break;
  302.         }
  303.         break;
  304.  
  305.     case 164:    /* Cursors */
  306.         i = intValue(arguments[0]); /* Action */
  307.         switch (i) {
  308.             case 1:        /* Fetch a named cursor */
  309.                 c = charPtr (arguments [1]);
  310.                 returnedObject = newStString ("xxxx"); /* Allocate a four-byte string */
  311.                 uu.charPtr     = charPtr (returnedObject);
  312.                 *(uu.csr)      = wfetchcursor (c);    
  313.                 break;
  314.             case 2:        /* Show cursor */
  315.                 uu.charPtr = charPtr (arguments [1]);            /* CursPtr */
  316.                 wsetwincursor (NULL, *(uu.csr));    /* Window not used */
  317.                 break;
  318.             case 3:        /* Reset to default cursor (arrow) */
  319.                 setArrowCursor ();
  320.                 break;
  321.         }
  322.         break;
  323.  
  324.     case 165:    /* Some text-related functions */
  325.         uu.charPtr = charPtr (arguments [0]);            /* panePtr */
  326.         te       = *(uu.tedt);
  327.         j        = intValue (arguments[1]);            /* action */
  328.         switch  (j) {
  329.             case 1:
  330.                 returnedObject = newStString (tegettext (te));
  331.                 break;
  332.             case 2:
  333.                 returnedObject = newStString (teGetSelectedText (te));
  334.                 break;
  335.             case 3:                                    /* Replace all text with given text */
  336.                 c = charPtr (arguments [2]);
  337.                 replaceAllText (te, c);
  338.                 break;
  339.             case 4:                                    /* Delete all text in a pane */
  340.                 deleteAllText (te);
  341.                 break;
  342.             case 5:                                    /* Change font */
  343.                 c = charPtr (arguments [2]);
  344.                 setFont (te, c);
  345.                 break;
  346.             case 6:                                    /* Change point size */
  347.                 k = intValue (arguments [2]);
  348.                 setFontSize (te, k);
  349.                 break;
  350.             case 7:                                    /* Change type face */
  351.                 k = intValue (arguments [2]);
  352.                 setTypeFace (te, k);
  353.                 break;
  354.             case 8:                    /* Set the text selection to the given range */
  355.             {
  356.                 short    start, end;
  357.                 start = intValue (arguments [2]);
  358.                 end   = intValue (arguments [3]);
  359.                 setTextSelection (te, (long)start, (long)end);
  360.                 break;
  361.             }
  362.             case 9:                /* Return the start and end positions of a selection */
  363.             {
  364.                 long    start, end;
  365.                 getTextSelection (te, &start, &end);
  366.                 returnedObject = newPoint ((short)start, (short)end); 
  367.                 break;
  368.             }
  369.             case 10:        /* Scroll the text so that the current selection is visible */
  370.                 scrollToSelection (te);
  371.                 break;
  372.         }
  373.         break;
  374.  
  375.     case 166:    /* replace text */
  376.         uu.charPtr = charPtr (arguments [0]);            /* panePtr */
  377.         te       = *(uu.tedt);
  378.         tereplace (te, charPtr (arguments [1]));
  379. /*******tereplace (te, "\n");***//* Leave it up to the user to add a new line as required */
  380.         break;
  381.         
  382.     case 167:    /* get max screen area */
  383.     {
  384.         short    l, t, r, b;
  385.         getMaxScreenArea (&l, &t, &r, &b);
  386.         returnedObject = newRect (l, t, r, b);
  387.         break;
  388.     }
  389.  
  390.     case 168:    /* Window panes */
  391.     {
  392.         short         action, l, t, r, b, sh, sv, paneType, lineLength, protection;
  393.         
  394.         action   = intValue (arguments [0]);            /* action */
  395.         if (action == 1)
  396.             i = intValue (arguments [1]);                 /* win number */
  397.         else {
  398.             uu.charPtr = charPtr (arguments [1]);        /* panePtr */
  399.             te       = *(uu.tedt);
  400.         }
  401.         switch (action) {
  402.             case 1:                /* Attach a pane to a window */
  403.                 paneType = intValue (arguments [2]);     /* 1 - text, 2 - select, 3 - graphics */
  404.                 l        = intValue (arguments [3]);
  405.                 t        = intValue (arguments [4]);
  406.                 r        = intValue (arguments [5]);
  407.                 b        = intValue (arguments [6]);
  408.                 sh       = intValue (arguments [7]);
  409.                 sv       = intValue (arguments [8]);
  410.                 lineLength = intValue (arguments [9]);    /* in pixels */
  411.                 switch (paneType) {
  412.                     case 1:          /* Standard text */
  413.                         te = addTextPane (ws[i].w, l, t, r, b, sh, sv, lineLength);
  414.                         break;
  415.                     case 2:            /* Text selection pane */
  416.                         protection = intValue (arguments [10]); /* 0/1 - off/on */
  417.                         te = addSelPane (ws[i].w, l, t, r, b, sh, sv, lineLength);
  418.                         break;
  419.                     case 3:            /* Graphics */
  420.                         te = addGraphicsPane (ws[i].w, l, t, r, b, sh, sv);
  421.                         break;
  422.                 }
  423.                 returnedObject = newStString ("xxxx"); /* Allocate a four-byte string */
  424.                 uu.charPtr       = charPtr (returnedObject);
  425.                 *(uu.tedt)     = te;    /* then insert the te ptr using a union */
  426.                 break;
  427.             case 2:                /* Return current size of pane */
  428.                 getPaneSize (te, (short *)&i, (short *)&j);
  429.                 returnedObject = newPoint (i, j);
  430.                 break;
  431.             case 3:                /* Draw pane */
  432.                 paneType = intValue (arguments [2]);
  433.                 if (paneType != 3)
  434.                     tedraw (te);
  435.                 else 
  436.                     ;            /* Drawing handled by Smalltalk */
  437.                 break; 
  438.             case 4:
  439.                 wbegindrawing (te);    /* Changed from StdWin prototype to allow   */
  440.                 break;                /* output to be directed to different panes */
  441.             case 5:
  442.                 wenddrawing (te);
  443.                 break; 
  444.         }
  445.     }
  446.     
  447.         break;
  448.  
  449.     case 170: getevent:    /* get next event */
  450.         wgetevent(&evrec);
  451.         i = findWindow (evrec.window);
  452.         if (i > 0) {
  453.             if (ws[i].tp && teevent (ws[i].tp, &evrec))
  454.                 goto getevent;
  455.         }
  456.         returnedObject = newInteger (evrec.type);
  457.         break;
  458.  
  459.     case 171:    /* integer event info */
  460.         i = intValue(arguments[0]);
  461.         switch(i) {
  462.         case 1:     /* event window */
  463.             j = findWindow (evrec.window); 
  464.             if (j == NO_WINDOWS)
  465.                 j = 0;
  466.             break;
  467.         case 2:        /* event menu */
  468.             j = evrec.u.m.id; 
  469.             break;
  470.         case 3:        /* menu item */
  471.             j = evrec.u.m.item;     /* Removed 'm.item + 1;' v3.1.5 */
  472.             break;
  473.         case 4:        /* char typed */
  474.             j = evrec.u.character; 
  475.             break;
  476.         case 5:        /* mouse y */
  477.             j = evrec.u.where.v; 
  478.             break;
  479.         case 6:        /* mouse button */
  480.             j = evrec.u.where.button; 
  481.             break;
  482.         case 7:        /* mouse click number */
  483.             j = evrec.u.where.clicks; 
  484.             break;
  485.         case 8:        /* char typed */
  486.             j = evrec.u.character; 
  487.             break;
  488.         case 9:        /* command typed */
  489.             j = evrec.u.command; 
  490.             break;
  491.         }
  492.         returnedObject = newInteger(j);
  493.         break;
  494.  
  495.     case 172:    /* more general event info */
  496.         i = intValue(arguments[0]);
  497.         switch(i) {
  498.         case 1:        /* mouse down point */
  499.             returnedObject = newPoint(evrec.u.where.h, 
  500.                 evrec.u.where.v); 
  501.             break;
  502.         }
  503.         break;
  504.  
  505.     case 180:    /* new menu */
  506.         i = intValue (arguments [0]);     /* menu number */
  507.         c = charPtr  (arguments [1]);     /* title */
  508.         j = intValue (arguments [2]);     /* Pop-up menu? */
  509.         returnedObject = newStString ("xxxx");             /* Allocate a four-byte string */
  510.         uu.charPtr    = charPtr (returnedObject);
  511.         if (j)
  512.             *(uu.menuPtr) = popUpMenuCreate (i);
  513.         else
  514.             *(uu.menuPtr) = wmenucreate (i, c);
  515.         break;
  516.  
  517.     case 181:    /* menu item */
  518.         uu.charPtr = charPtr (arguments [0]);    /* menuPtr */
  519.         c          = charPtr (arguments [1]);   /* title */
  520.         if (isInteger (arguments[2]))            /* shortcut */
  521.             j = intValue (arguments[2]);
  522.         else 
  523.             j = -1;
  524.         wmenuadditem (*(uu.menuPtr), c, j);
  525.         break;
  526.  
  527.     case 182:    /* check menu items */
  528.         uu.charPtr = charPtr  (arguments [0]);    /* menuPtr */
  529.         j           = intValue (arguments [1]); /* item number */
  530.         k           = intValue (arguments [2]); /* action */
  531.         p1          = intValue (arguments [3]); /* flag */
  532.         switch (k) {
  533.             case 1:    /* enable/disable */
  534.                 wmenuenable (*(uu.menuPtr), j - 1, p1); break;
  535.             case 2: /* check/no check */
  536.                 wmenucheck (*(uu.menuPtr), j - 1, p1); break;
  537.         }
  538.         break;
  539.  
  540.     case 183:    /* Select from a pop-up menu */
  541.     {
  542.         short    menu, item;
  543.         
  544.         uu.charPtr = charPtr (arguments [0]);    /* menuPtr */
  545.         j = intValue (arguments [1]);             /* top */
  546.         k = intValue (arguments [2]);             /* left */
  547.         selectFromPopUpMenu (*(uu.menuPtr), j, k, &menu, &item);
  548.         returnedObject = newInteger (item); 
  549.         break;
  550.     }
  551.         
  552.     case 184:    /* Menu/Menu Item disposal */
  553.         uu.charPtr = charPtr  (arguments [0]);    /* menuPtr */
  554.         i           = intValue (arguments [1]); /* action */
  555.         switch (i) {
  556.             case 1:
  557.                 wmenudelete (*(uu.menuPtr));
  558.                 break;
  559.             case 2:
  560.                 k = intValue (arguments [2]); /* menu item number */
  561.                 removeMenuItem (*(uu.menuPtr), k);
  562.                 break;
  563.         }
  564.         break;
  565.  
  566.     case 190:    /* print text graphics */
  567.         i = intValue(arguments[0]); /* x */
  568.         j = intValue(arguments[1]); /* y */
  569.         c = charPtr(arguments[2]); /* text */
  570.         wdrawtext(i, j, c, strlen(c));
  571.         break;
  572.  
  573.     case 192:    /* points */
  574.         i = intValue(arguments[0]); /* action */
  575.         p1 = intValue(arguments[1]);
  576.         p2 = intValue(arguments[2]);
  577.         switch(i) {
  578.             case 1:  /* draw line */
  579.                 drawLineTo (p1, p2); break;
  580.             case 2:     /* Move to the given point */
  581.                 moveTo (p1, p2); break;
  582.             case 3:     /* Draw a pixel at the given point */
  583.                 drawPixel (p1, p2); break;
  584.         }
  585.         break;
  586.  
  587.     case 193:    /* circles and the like */
  588.         i = intValue(arguments[0]); /* action */
  589.         p1 = intValue(arguments[1]);
  590.         p2 = intValue(arguments[2]);
  591.         p3 = intValue(arguments[3]);
  592.         switch(i) {
  593.             case 1:        /* draw circle */
  594.                 wdrawcircle(p1,p2,p3); break;
  595.             case 2:        /* draw char */
  596.                 wdrawchar(p1,p2,p3); break;
  597.         }
  598.         break;
  599.  
  600.     case 194:    /* rectangles */
  601.         i = intValue(arguments[0]); /* action */
  602.         p1 = intValue(arguments[1]);
  603.         p2 = intValue(arguments[2]);
  604.         p3 = intValue(arguments[3]);
  605.         p4 = intValue(arguments[4]);
  606.         switch(i) {
  607.             case 1:        /* draw box */
  608.                 wdrawbox(p1,p2,p3,p4); break;
  609.             case 2:     /* paint */
  610.                 wpaint(p1,p2,p3,p4); break;
  611.             case 3:        /* erase */
  612.                 werase(p1,p2,p3,p4); break;
  613.             case 4:        /* invert */
  614.                 winvert(p1,p2,p3,p4); break;
  615.         }
  616.         break;
  617.  
  618.     case 195:    /* shading */
  619.         i = intValue(arguments[0]); /* action */
  620.         p1 = intValue(arguments[1]);
  621.         p2 = intValue(arguments[2]);
  622.         p3 = intValue(arguments[3]);
  623.         p4 = intValue(arguments[4]);
  624.         j = intValue(arguments[5]);
  625.         switch(i) {
  626.             case 1:        /* shading */
  627.                 wshade(p1,p2,p3,p4,j); break;
  628.             }
  629.         break;
  630.  
  631.     case 200:    /* issue a message */
  632.         c = charPtr(arguments[0]);
  633.         wmessage(c);
  634.         break;
  635.  
  636.     case 201:    /* ask a question */
  637.         { 
  638.         char replybuffer[120];
  639.         
  640.         strcpy (replybuffer, charPtr (arguments[1]));
  641.         if ( waskstr (charPtr (arguments[0]), replybuffer, 120) )
  642.             returnedObject = newStString (replybuffer);
  643.         else
  644.             returnedObject = newStString ("\0");
  645.         }
  646.         break;
  647.     
  648.     case 202:    /* ask a binary question */
  649.         i = waskync(charPtr(arguments[0]), intValue(arguments[1]));
  650.         if (i == 1)
  651.             returnedObject = trueobj;
  652.         else if (i == 0) 
  653.             returnedObject = falseobj;
  654.         break;
  655.  
  656.     case 203:    /* ask for a file - changed to allow specification of one of three */
  657.         {         /* file types to use to mask out types that aren't required */
  658.         char replybuffer [120];
  659.         
  660.         strcpy (replybuffer, charPtr (arguments [1]));
  661.         if ( waskfile (charPtr  (arguments [0]), replybuffer, 120, 
  662.                        intValue (arguments [2]), intValue (arguments [3])) )
  663.             returnedObject = newStString (replybuffer);
  664.         else
  665.             returnedObject = nilobj;
  666.         }
  667.         break;
  668.  
  669.     case 204:    /* error message */
  670.         wperror(charPtr(arguments[0]));
  671.         break;
  672.         
  673.     case 205:    /* beep */
  674.         wfleep();
  675.         break;
  676.  
  677.     case 206:    /* Save/Load text pane contents */
  678.         {
  679.         short     action, fileNum;
  680.         
  681.         uu.charPtr = charPtr (arguments [0]);        /* panePtr */
  682.         te       = *(uu.tedt);
  683.         action   = intValue (arguments [1]);    /* action */
  684.         fileNum  = intValue (arguments [2]);    /* file number - file must be open */
  685.         if (action)
  686.             saveTE (te, fileNum);
  687.         else
  688.             loadTE (te, fileNum);
  689.         break;
  690.         }
  691.     
  692.     case 207:    /* Get file info after receipt of an Open Document event */
  693.                 /* Returns full path with Smalltalk file type prepended  */
  694.                 /* (for drag'n'drop support).                             */
  695.     {
  696.         char    fullPath [255], str [255];
  697.         long    fType;
  698.         short    ft;
  699.         
  700.         if (getFileInfo (fullPath, &fType)) {
  701.             macFileTypeToSt (fType, ft);
  702.             sprintf (str, "%d%s", ft, fullPath); 
  703.             returnedObject = newStString (str);
  704.         }
  705.         else
  706.             returnedObject = nilobj;
  707.     }
  708.         
  709.     case 210:    /* Date and time functions */
  710. //      Uses 'standard' C date'n'time functions but I've a feeling that Symantec/Think C
  711. //      goes its own way on this one so they may not be as standard as you'd think....
  712.     {
  713.         time_t        cDateTime;
  714.         struct tm    *theTime;
  715.         char        str [30];
  716.         
  717.         time (&cDateTime);
  718.         theTime = localtime (&cDateTime);
  719.         i = intValue(arguments[0]); /* action */
  720.         switch (i) {
  721.             case 1:            /* Current date and time (string) */
  722.                 returnedObject = newStString (asctime (theTime));
  723.                 break;
  724.             case 2:            /* Day of week (numeric) */
  725.                 strftime (str, 30, "%w", theTime);
  726.                 j = (atoi (str)) + 1;
  727.                 returnedObject = newInteger (j);
  728.                 break;
  729.             case 3:            /* Day of month numeric) */
  730.                 strftime (str, 30, "%d", theTime);
  731.                 returnedObject = newInteger (atoi (str));
  732.                 break;
  733.             case 4:            /* Month number */
  734.                 strftime (str, 30, "%m", theTime);
  735.                 returnedObject = newInteger (atoi (str));
  736.                 break;
  737.             case 5:            /* Year (4 digits) */
  738.                 strftime (str, 30, "%Y", theTime);
  739.                 returnedObject = newInteger (atoi (str));
  740.                 break;
  741.         }
  742.         break;
  743.     }
  744.  
  745.     case 254:
  746.     {
  747.         char    str [30];
  748.         getVersionNumber (str);        
  749.         returnedObject = newStString (str);
  750.         break;
  751.     }
  752.     
  753.     case 255:    /* set debug */
  754.         i = intValue(arguments[0]); /* action */
  755.         if (i)                        /* Changed to allow debugging to be switched */
  756.             debugging = true;        /* on and off as required */
  757.         else
  758.             debugging = false;
  759.         break;
  760.  
  761.     default:
  762.         fprintf (stderr, "primitive not implmented yet %d\n", primitiveNumber);
  763.         sysError("primitive not done","");
  764.     }
  765.     return returnedObject;
  766. }
  767.  
  768.