/***********************************************************/
/*                                                         */
/*  System dependent miscellaneous routines (unix, x11)    */
/*                                                         */
/***********************************************************/
#include <apricot.h>
#include "unix/guts.h"
/* Component-related functions */
Bool
apc_component_create( Handle self)
{
        if ( !PComponent( self)-> sysData) {
                if ( !( PComponent( self)-> sysData = malloc( sizeof( UnixSysData))))
                        return false;
                bzero( PComponent( self)-> sysData, sizeof( UnixSysData));
                ((PUnixSysData)(PComponent(self)->sysData))->component. self = self;
        }
        return true;
}
Bool
apc_component_destroy( Handle self)
{
        DEFXX;
        if ( XX-> q_instance_name) {
                free( XX-> q_instance_name);
                XX-> q_instance_name = NULL;
        }
        if ( XX-> q_class_name) {
                free( XX-> q_class_name);
                XX-> q_class_name = NULL;
        }
        free( PComponent( self)-> sysData);
        PComponent( self)-> sysData = NULL;
        X_WINDOW = NULL_HANDLE;
        return true;
}
Bool
apc_component_fullname_changed_notify( Handle self)
{
        Handle *list;
        PComponent me = PComponent( self);
        int i, n;
        if ( self == NULL_HANDLE) return false;
        if (!prima_update_quarks_cache( self)) return false;
        if ( me-> components && (n = me-> components-> count) > 0) {
                if ( !( list = allocn( Handle, n))) return false;
                memcpy( list, me-> components-> items, sizeof( Handle) * n);
                for ( i = 0; i < n; i++) {
                        apc_component_fullname_changed_notify( list[i]);
                }
                free( list);
        }
        return true;
}
int
apc_kbd_get_state( Handle self)
{
        XWindow foo;
        int bar;
        unsigned int mask;
        XQueryPointer( DISP, guts.root, &foo, &foo, &bar, &bar, &bar, &bar, &mask);
        return
                (( mask & ShiftMask)   ? kmShift : 0) |
                (( mask & ControlMask) ? kmCtrl  : 0) |
                (( mask & Mod1Mask)    ? kmAlt   : 0);
}
static void
close_msgdlg( struct MsgDlg * md)
{
        md-> active  = false;
        md-> pressed = false;
        if ( md-> grab)
                XUngrabPointer( DISP, CurrentTime);
        md-> grab    = false;
        XUnmapWindow( DISP, md-> w);
        XFlush( DISP);
        if ( md-> next == NULL) {
                XSetInputFocus( DISP, md-> focus, md-> focus_revertTo, CurrentTime);
                XCHECKPOINT;
        }
}
void
prima_msgdlg_event( XEvent * ev, struct MsgDlg * md)
{
        XWindow w = ev-> xany. window;
        switch ( ev-> type) {
        case ConfigureNotify:
                md-> winSz. x = ev-> xconfigure. width;
                md-> winSz. y = ev-> xconfigure. height;
                break;
        case Expose:
                {
                        int i, y = md-> textPos. y;
                        int d = md-> pressed ? 2 : 0;
                        XSetForeground( DISP, md-> gc, md-> bg. primary);
                        if ( md-> bg. balance > 0) {
                                Pixmap p = prima_get_hatch( &guts. ditherPatterns[ md-> bg. balance]);
                                if ( p) {
                                        XSetStipple( DISP, md-> gc, p);
                                        XSetFillStyle( DISP, md-> gc, FillOpaqueStippled);
                                        XSetBackground( DISP, md-> gc, md-> bg. secondary);
                                }
                        }
                        XFillRectangle( DISP, w, md-> gc, 0, 0, md-> winSz.x, md-> winSz.y);
                        if ( md-> bg. balance > 0)
                                XSetFillStyle( DISP, md-> gc, FillSolid);
                        XSetForeground( DISP, md-> gc, md-> fg);
                        for ( i = 0; i < md-> wrappedCount; i++) {
                                if ( md-> wide)
                                        XDrawString16( DISP, w, md-> gc,
                                        ( md-> winSz.x - md-> widths[i]) / 2, y,
                                                ( XChar2b*) md-> wrapped[i], md-> lengths[i]);
                                else
                                        XDrawString( DISP, w, md-> gc,
                                        ( md-> winSz.x - md-> widths[i]) / 2, y,
                                                md-> wrapped[i], md-> lengths[i]);
                                y += md-> font-> height + md-> font-> externalLeading;
                        }
                        XDrawRectangle( DISP, w, md-> gc,
                                md-> btnPos.x-1, md-> btnPos.y-1, md-> btnSz.x+2, md-> btnSz.y+2);
                        XDrawString( DISP, w, md-> gc,
                                md-> btnPos.x + ( md-> btnSz.x - md-> OKwidth) / 2 + d,
                                md-> btnPos.y + md-> font-> height + md-> font-> externalLeading +
                                ( md-> btnSz.y - md-> font-> height - md-> font-> externalLeading) / 2 - 2 + d,
                                "OK", 2);
                        XSetForeground( DISP, md-> gc,
                                md-> pressed ? md-> d3d : md-> l3d);
                        XDrawLine( DISP, w, md-> gc,
                                md-> btnPos.x, md-> btnPos.y + md-> btnSz.y - 1,
                                md-> btnPos.x, md-> btnPos. y);
                        XDrawLine( DISP, w, md-> gc,
                                md-> btnPos.x + 1, md-> btnPos. y,
                                md-> btnPos.x + md-> btnSz.x - 1, md-> btnPos. y);
                        XSetForeground( DISP, md-> gc,
                                md-> pressed ? md-> l3d : md-> d3d);
                        XDrawLine( DISP, w, md-> gc,
                                md-> btnPos.x, md-> btnPos.y + md-> btnSz.y,
                                md-> btnPos.x + md-> btnSz.x, md-> btnPos.y + md-> btnSz.y);
                        XDrawLine( DISP, w, md-> gc,
                                md-> btnPos.x + md-> btnSz.x, md-> btnPos.y + md-> btnSz.y - 1,
                                md-> btnPos.x + md-> btnSz.x, md-> btnPos.y + 1);
                }
                break;
        case ButtonPress:
                if ( !md-> grab &&
                        ( ev-> xbutton. button == Button1) &&
                        ( ev-> xbutton. x >= md-> btnPos. x ) &&
                        ( ev-> xbutton. x < md-> btnPos. x + md-> btnSz.x) &&
                        ( ev-> xbutton. y >= md-> btnPos. y ) &&
                        ( ev-> xbutton. y < md-> btnPos. y + md-> btnSz.y)) {
                        md-> pressed = true;
                        md-> grab = true;
                        XClearArea( DISP, w, md-> btnPos.x, md-> btnPos.y,
                                md-> btnSz.x, md-> btnSz.y, true);
                        XGrabPointer( DISP, w, false,
                                ButtonReleaseMask | PointerMotionMask | ButtonMotionMask,
                                GrabModeAsync, GrabModeAsync, None, None, CurrentTime);
                }
                break;
        case MotionNotify:
                if ( md-> grab) {
                        Bool np =
                        (( ev-> xmotion. x >= md-> btnPos. x ) &&
                                ( ev-> xmotion. x < md-> btnPos. x + md-> btnSz.x) &&
                                ( ev-> xmotion. y >= md-> btnPos. y ) &&
                                ( ev-> xmotion. y < md-> btnPos. y + md-> btnSz.y));
                        if ( np != md-> pressed) {
                                md-> pressed = np;
                                XClearArea( DISP, w, md-> btnPos.x, md-> btnPos.y,
                                        md-> btnSz.x, md-> btnSz.y, true);
                        }
                }
                break;
        case KeyPress:
                {
                        char str_buf[256];
                        KeySym keysym;
                        int str_len = XLookupString( &ev-> xkey, str_buf, 256, &keysym, NULL);
                        if (
                                ( keysym == XK_Return) ||
                                ( keysym == XK_Escape) ||
                                ( keysym == XK_KP_Enter) ||
                                ( keysym == XK_KP_Space) ||
                                (( str_len == 1) && ( str_buf[0] == ' '))
                                )
                                close_msgdlg( md);
                }
                break;
        case ButtonRelease:
                if ( md-> grab &&
                        ( ev-> xbutton. button == Button1)) {
                        md-> grab = false;
                        XUngrabPointer( DISP, CurrentTime);
                        if ( md-> pressed) close_msgdlg( md);
                }
                break;
        case ClientMessage:
                if (( ev-> xclient. message_type == WM_PROTOCOLS) &&
                        (( Atom) ev-> xclient. data. l[0] == WM_DELETE_WINDOW))
                        close_msgdlg( md);
                break;
        }
}
Bool
apc_show_message( const char * message, Bool utf8)
{
        int * wrapped;
        Font f;
        Point appSz, appPos;
        Point textSz;
        Point winSz;
        TextWrapRec twr;
        int i, j;
        struct MsgDlg md, **storage;
        Bool ret = false;
        PList font_abc_unicode = NULL;
        PFontABC font_abc_ascii = NULL;
        XFontStruct *fs = NULL;
        if ( !DISP) {
                warn( "%s", message);
                return true;
        }
        if ( guts. grab_widget)
                apc_widget_set_capture( guts. grab_widget, 0, 0);
        appSz = apc_application_get_size( NULL_HANDLE);
        appPos.x = 0;
        appPos.y = 0;
        /* multi-monitor centering */
        {
                int i, nrects = 0;
                Box *best = NULL, *rects = apc_application_get_monitor_rects( prima_guts.application, &nrects);
                for ( i = 0; i < nrects; i++) {
                                Box * curr = rects + i;
                                if ( best == NULL || best-> x > curr->x || best->y > curr->y)
                                                best = curr;
                }
                if ( best ) {
                        appPos.x = best->x;
                        appPos.y = best->y;
                        appSz.x  = best->width;
                        appSz.y  = best->height;
                }
        }
        /* acquiring message font and wrapping message text */
        {
                PCachedFont cf;
                int max;
                apc_sys_get_msg_font( &f);
                f. pitch = fpDefault;
#define DEBUG_FONT(font) font.height,font.width,font.size,font.name,font.encoding
                if ( !( cf = prima_font_pick( &f, NULL, NULL, FONTKEY_CORE))) {
                        warn( "%s", message);
                        return false;
                }
                fs = XQueryFont( DISP, cf-> id);
                if (!fs) {
                        warn( "%s", message);
                        return false;
                }
                bzero(&twr, sizeof(twr));
                twr. text         = ( char *) message;
                twr. utf8_text    = utf8;
                twr. textLen      = strlen( message);
                twr. utf8_textLen = utf8 ? prima_utf8_length( message, -1) : twr. textLen;
                twr. width        = appSz. x * 2 / 3;
                twr. tabIndent    = 3;
                twr. options      = twNewLineBreak | twWordBreak | twReturnLines;
                twr. ascii        = &font_abc_ascii;
                twr. unicode      = &font_abc_unicode;
                guts. font_abc_nil_hack = fs;
                wrapped = CDrawable->do_text_wrap( NULL_HANDLE, &twr, NULL, NULL);
                if ( font_abc_ascii) free( font_abc_ascii);
                if ( font_abc_unicode) {
                        for ( i = 0; i < font_abc_unicode-> count; i += 2)
                                free(( void*) font_abc_unicode-> items[ i + 1]);
                        plist_destroy( font_abc_unicode);
                }
                md.wrappedCount = md.count = twr.count / 4;
                if ( !( md.widths  = malloc( md.count * sizeof(int))))
                        goto EXIT;
                if ( !( md.lengths = malloc( md.count * sizeof(int))))
                        goto EXIT;
                if ( !( md.wrapped = malloc( md.count * sizeof(char*))))
                        goto EXIT;
                bzero(md.wrapped, md.count * sizeof(char*));
                /* find text extensions */
                max = 0;
                for ( i = j = 0; i < md.count; i++, j += 4) {
                        md.lengths[i] = wrapped[j+3];
                        if (utf8) {
                                if (!(md.wrapped[i] = (char*)prima_alloc_utf8_to_wchar( message + wrapped[j], md.lengths[i])))
                                        goto EXIT;
                                md.widths[i] = XTextWidth16( fs, (XChar2b*) md.wrapped[i], md.lengths[i]);
                        } else {
                                if (!(md.wrapped[i] = malloc( md.lengths[i] + 1)))
                                        goto EXIT;
                                memcpy(md.wrapped[i], message + wrapped[j], md.lengths[i]);
                                md.wrapped[i][md.lengths[i]] = 0;
                                md. widths[i] = XTextWidth( fs, md.wrapped[i], md.lengths[i]);
                        }
                        if ( md. widths[i] > max) max = md. widths[i];
                }
                textSz. x = max;
                textSz. y = md.count * ( f. height + f. externalLeading);
                md. font          = &f;
                md. fontId        = cf-> id;
                md. OKwidth       = XTextWidth( fs, "OK", 2);
                md. btnSz.x       = md. OKwidth + 2 + 10;
                if ( md. btnSz. x < 56) md. btnSz. x = 56;
                md. btnSz.y       = f. height + f. externalLeading + 2 + 12;
                winSz. x = textSz. x + 4;
                if ( winSz. x < md. btnSz. x + 2) winSz. x = md. btnSz.x + 2;
                winSz. x += f. width * 4;
                winSz. y = textSz. y + 2 + 12 + md. btnSz. y + f. height;
                while ( winSz. y + 12 >= appSz.y) {
                        winSz. y -= f. height + f. externalLeading;
                        md. wrappedCount--;
                }
                md. btnPos. x = ( winSz. x - md. btnSz. x) / 2;
                md. btnPos. y = winSz. y - 2 - md. btnSz. y - f. height / 2;
                md. textPos. x = 2;
                md. textPos. y = f. height * 3 / 2 + 2;
                md. winSz = winSz;
        }
        md. wide    = utf8;
        md. active  = true;
        md. next    = NULL;
        md. pressed = false;
        md. grab    = false;
        XGetInputFocus( DISP, &md. focus, &md. focus_revertTo);
        XCHECKPOINT;
        {
                char * prima = "Prima";
                XTextProperty p;
                XSizeHints xs;
                XSetWindowAttributes attrs;
                Atom net_data[2];
                attrs. event_mask = 0
                        | KeyPressMask
                        | ButtonPressMask
                        | ButtonReleaseMask
                        | ButtonMotionMask
                        | PointerMotionMask
                        | StructureNotifyMask
                        | ExposureMask;
                attrs. override_redirect = false;
                attrs. do_not_propagate_mask = attrs. event_mask;
                md. w = XCreateWindow( DISP, guts. root,
                        appPos.x + ( appSz.x - winSz.x) / 2, appPos.y + ( appSz.y - winSz.y) / 2,
                        winSz.x, winSz.y, 0, CopyFromParent, InputOutput,
                        CopyFromParent, CWEventMask | CWOverrideRedirect, &attrs);
                XCHECKPOINT;
                if ( !md. w) goto EXIT;
                XSetWMProtocols( DISP, md. w, &WM_DELETE_WINDOW, 1);
                XCHECKPOINT;
                xs. flags = PMinSize | PMaxSize | USPosition;
                xs. min_width  = xs. max_width  = winSz.x;
                xs. min_height = xs. max_height = winSz. y;
                xs. x = appPos.x + ( appSz.x - winSz.x) / 2;
                xs. y = appPos.y + ( appSz.y - winSz.y) / 2;
                XSetWMNormalHints( DISP, md. w, &xs);
                if ( XStringListToTextProperty( &prima, 1, &p) != 0) {
                        XSetWMIconName( DISP, md. w, &p);
                        XSetWMName( DISP, md. w, &p);
                        XFree( p. value);
                }
                net_data[0] = NET_WM_STATE_SKIP_TASKBAR;
                net_data[1] = NET_WM_STATE_MODAL;
                XChangeProperty( DISP, md. w, NET_WM_STATE, XA_ATOM, 32,
                        PropModeReplace, ( unsigned char *) net_data, 2);
        }
        storage = &guts. message_boxes;
        while ( *storage) storage = &((*storage)-> next);
        *storage = &md;
        {
#define CLR(x) prima_allocate_color( NULL_HANDLE,prima_map_color(x,NULL),NULL)
                XGCValues gcv;
                gcv. font = md. fontId;
                gcv. cap_style = CapProjecting;
                md. gc = XCreateGC( DISP, md. w, GCFont | GCCapStyle, &gcv);
                md. fg  = CLR(clFore | wcDialog);
                prima_allocate_color( NULL_HANDLE, prima_map_color(clBack | wcDialog,NULL), &md. bg);
                md. l3d = CLR(clLight3DColor | wcDialog);
                md. d3d = CLR(clDark3DColor  | wcDialog);
#undef CLR
        }
        XMapWindow( DISP, md. w);
        XMoveResizeWindow( DISP, md. w,
                appPos.x + ( appSz.x - winSz.x) / 2, appPos.y + ( appSz.y - winSz.y) / 2, winSz.x, winSz.y);
        XNoOp( DISP);
        while ( md. active && !guts. applicationClose) {
                XFlush( DISP);
                prima_one_loop_round( WAIT_ALWAYS, false);
        }
        XFreeGC( DISP, md. gc);
        XDestroyWindow( DISP, md. w);
        *storage = md. next;
        ret = true;
EXIT:
        XFreeFontInfo( NULL, fs, 1);
        if ( md.widths ) free( md.widths);
        if ( md.lengths) free( md.lengths);
        if ( md.wrapped ) {
                for ( i = 0; i < md.count; i++) 
                        free(md.wrapped[i]);
                free(md.wrapped);
        }
        md.wrappedCount = 0;
        return ret;
}
/* system metrics */
Bool
apc_sys_get_insert_mode( void)
{
        return guts. insert;
}
PFont
apc_sys_get_msg_font( PFont f)
{
        memcpy( f, &guts. default_msg_font, sizeof( Font));
        return f;
}
PFont
apc_sys_get_caption_font( PFont f)
{
        memcpy( f, &guts. default_caption_font, sizeof( Font));
        return f;
}
static int
is_composite_display(void)
{
        if ( guts. argb_visual. visual == NULL ) return false;
#ifndef HAVE_X11_EXTENSIONS_XCOMPOSITE_H
        return -1;
#else
        /* try to become a compmgr */
        XCHECKPOINT;
        guts. composite_error_triggered = false;
        XCompositeRedirectSubwindows( DISP, guts.root, CompositeRedirectManual);
        XCHECKPOINT;
        XSync(DISP, false);
        if ( guts. composite_error_triggered )
                return true;
        XCompositeUnredirectSubwindows( DISP, guts.root, CompositeRedirectManual);
        XCHECKPOINT;
        XSync(DISP, false);
        if ( guts. composite_error_triggered )
                return true;
        return false;
#endif
}
int
apc_sys_get_value( int v)  /* XXX one big XXX */
{
        switch ( v) {
        case svYMenu: {
                Font f;
                apc_menu_default_font( &f);
                return f. height + MENU_ITEM_GAP * 2;
        }
        case svYTitleBar:    /* XXX */ return 20;
        case svMousePresent:  return guts. mouse_buttons > 0;
        case svMouseButtons:  return guts. mouse_buttons;
        case svSubmenuDelay: /* XXX ? */ return guts. menu_timeout;
        case svFullDrag:     /* XXX ? */ return false;
        case svWheelPresent: return guts.mouse_wheel_up || guts.mouse_wheel_down;
        case svXIcon:
        case svYIcon:
        case svXSmallIcon:
        case svYSmallIcon:
                {
                        int ret[4], n;
                        XIconSize * sz = NULL;
                        if ( XGetIconSizes( DISP, guts.root, &sz, &n) && ( n > 0) && (sz != NULL)) {
                                ret[0] = sz-> max_width;
                                ret[1] = sz-> max_height;
                                ret[2] = sz-> min_width;
                                ret[3] = sz-> min_height;
                        } else {
                                ret[0] = ret[1] = 64;
                                ret[2] = ret[3] = 20;
                        }
                        if ( sz) XFree( sz);
                        return ret[v - svXIcon];
                }
                break;
        case svXPointer:        return guts. cursor_width;
        case svYPointer:        return guts. cursor_height;
        case svXScrollbar:      return 19;
        case svYScrollbar:      return 19;
        case svXCursor:         return 1;
        case svAutoScrollFirst: return guts. scroll_first;
        case svAutoScrollNext:  return guts. scroll_next;
        case svXbsNone:         return 0;
        case svYbsNone:         return 0;
        case svXbsSizeable:     return 3; /* XXX */
        case svYbsSizeable:     return 3; /* XXX */
        case svXbsSingle:       return 1; /* XXX */
        case svYbsSingle:       return 1; /* XXX */
        case svXbsDialog:       return 2; /* XXX */
        case svYbsDialog:       return 2; /* XXX */
        case svShapeExtension:  return guts. shape_extension;
        case svDblClickDelay:   return guts. double_click_time_frame;
        case svColorPointer:    return 
#ifdef HAVE_X11_XCURSOR_XCURSOR_H
                1
#else
                0
#endif
                ;
        case svCanUTF8_Input:        return 1;
        case svCanUTF8_Output:       return 1;
        case svCompositeDisplay:     return is_composite_display();
        case svLayeredWidgets:       return guts. argb_visual. visual != NULL;
        case svFixedPointerSize:     return
#ifdef HAVE_X11_XCURSOR_XCURSOR_H
                0
#else
                1
#endif
;
        case svMenuCheckSize   : return MENU_CHECK_XOFFSET;
        case svFriBidi         : return prima_guts.use_fribidi;
        case svLibThai         : return prima_guts.use_libthai;
        case svAntialias       : return guts. argb_visual. visual != NULL;
        default:
                return -1;
        }
}
Bool
apc_sys_set_insert_mode( Bool insMode)
{
        guts. insert = !!insMode;
        return true;
}
/* etc */
Bool
apc_beep( int style)
{
        /* XXX - mbError, mbQuestion, mbInformation, mbWarning */
        if ( DISP)
                XBell( DISP, 0);
        return true;
}
Bool
apc_beep_tone( int freq, int duration)
{
        XKeyboardControl xkc;
        XKeyboardState   xks;
        struct timeval timeout;
        if ( !DISP) return false;
        XGetKeyboardControl( DISP, &xks);
        xkc. bell_pitch    = freq;
        xkc. bell_duration = duration;
        XChangeKeyboardControl( DISP, KBBellPitch | KBBellDuration, &xkc);
        XBell( DISP, 100);
        XFlush( DISP);
        xkc. bell_pitch    = xks. bell_pitch;
        xkc. bell_duration = xks. bell_duration;
        XChangeKeyboardControl( DISP, KBBellPitch | KBBellDuration, &xkc);
        timeout. tv_sec  = duration / 1000;
        timeout. tv_usec = 1000 * (duration % 1000);
        select( 0, NULL, NULL, NULL, &timeout);
        return true;
}
char *
apc_system_action( const char *s)
{
        int l = strlen( s);
        switch (*s) {
        case 'b':
                if ( l == 7 && strcmp( s, "browser") == 0)
                        return duplicate_string("netscape");
                break;
        case 'c':
                if ( l == 19 && strcmp( s, "can.shape.extension") == 0 && guts.shape_extension)
                        return duplicate_string( "yes");
                else if ( l == 26 && strcmp( s, "can.shared.image.extension") == 0 && guts.shared_image_extension)
                        return duplicate_string( "yes");
                break;
        case 'D':
                if ( l == 7 && ( strcmp( s, "Display") == 0)) {
                        char * c = malloc(19);
                        if ( c) snprintf( c, 18, "0x%p", DISP);
                        return c;
                }
                break;
        case 'g':
                if ( l > 15 && strncmp( "get.frame.info ", s, 15) == 0) {
                        char *end;
                        XWindow w = strtoul( s + 15, &end, 0);
                        Handle self;
                        Rect r;
                        char buf[ 80];
                        if (*end == '\0' &&
                                ( self = prima_xw2h( w)) &&
                                prima_get_frame_info( self, &r) &&
                                snprintf( buf, sizeof(buf), "%d %d %d %d", r.left, r.bottom, r.right, r.top) < sizeof(buf))
                                return duplicate_string( buf);
                        return duplicate_string("");
                } else if ( strncmp( s, "gtk.OpenFile.", 13) == 0) {
                        s += 13;
#ifdef WITH_GTK
                        if ( guts. use_gtk )
                                return prima_gtk_openfile(( char*) s);
#endif
                        return NULL;
                }
                break;
        case 'l':
                if ( strncmp( s, "local_display", strlen("local_display")) == 0) {
                        return guts.x11_local ? duplicate_string("1") : NULL;
                }
                break;
        case 'r':
                if ( strncmp( s, "resolution", 10) == 0) {
                        int dx, dy;
                        int i = sscanf( s + 10, "%u %u", &dx, &dy);
                        if ( i != 2 || (dx < 1 || dy < 1)) {
                                warn("Bad resolution\n");
                                return 0;
                        }
                        guts. resolution. x = dx;
                        guts. resolution. y = dy;
                        return NULL;
                }
                break;
        case 's':
                if ( strcmp( "synchronize", s) == 0) {
                        XSynchronize( DISP, true);
                        return NULL;
                }
                if ( strncmp( "setfont ", s, 8) == 0) {
                        Handle self = NULL_HANDLE;
                        char font[1024];
                        XWindow win;
                        int i = sscanf( s + 8, "%lu %s", &win, font);
                        if ( i != 2 || !(self = prima_xw2h( win)))  {
                                warn( "Bad parameters to sysaction setfont");
                                return 0;
                        }
                        if ( !opt_InPaint) return 0;
                        XSetFont( DISP, X(self)-> gc, XLoadFont( DISP, font));
                        return NULL;
                }
                if ( strcmp( "shaper", s) == 0) {
                        char shaper[64] = "";
#ifdef USE_XFT
                        if ( guts. use_xft ) strcat(shaper, "xft ");
#endif
#ifdef WITH_HARFBUZZ
                        if ( guts. use_harfbuzz ) strcat(shaper, "harfbuzz ");
#endif
#ifdef WITH_FREETYPE
                        if ( guts. use_freetype ) strcat(shaper, "freetype ");
#endif
                        shaper[strlen(shaper)-1] = 0;
                        return duplicate_string(shaper);
                }
                break;
        case 't':
                if ( strncmp( "textout16 ", s, 10) == 0) {
                        Handle self = NULL_HANDLE;
                        unsigned char text[1024];
                        XWindow win;
                        int x, y, len;
                        int i = sscanf( s + 10, "%lu %d %d %s", &win, &x, &y, text);
                        if ( i != 4 || !(self = prima_xw2h( win)))  {
                                warn( "Bad parameters to sysaction textout16");
                                return 0;
                        }
                        if ( !opt_InPaint) return 0;
                        len = strlen((char*) text);
                        for ( i = 0; i < len; i++) if ( text[i]==255) text[i] = 0;
                        XDrawString16( DISP, win, X(self)-> gc, x, y, ( XChar2b *) text, len / 2);
                        return NULL;
                }
                break;
        case 'u':
                if ( strcmp( s, "unix_guts") == 0)
                        return (char*) &guts;
                break;
        case 'x':
                if ( strncmp(s, "xquartz.", 8) == 0) {
                        s += 8;
#ifdef WITH_COCOA
                        if ( guts. use_quartz )
                                return prima_cocoa_system_action(( char*) s);
#endif
                        return NULL;
                }
                break;
        case 'X':
                if ( strcmp( s, "XOpenDisplay") == 0) {
                        char err_buf[512];
                        if ( DISP)
                                return duplicate_string( "X display already opened");
                        window_subsystem_set_option( "yes-x11", NULL);
                        if ( !window_subsystem_init( err_buf))
                                return duplicate_string( err_buf);
                        return NULL;
                }
                break;
        }
        warn("Unknown sysaction:%s", s);
        return NULL;
}
Bool
apc_query_drives_map( const char* firstDrive, char *result, int len)
{
        if ( !result || len <= 0) return true;
        *result = 0;
        return true;
}
int
apc_query_drive_type( const char *drive)
{
        return dtNone;
}
char *
apc_get_user_name( void)
{
        char * c = getlogin();
        return c ? c : "";
}
Bool
apc_dl_export(char *path)
{
        /* XXX */
        return true;
}
void
prima_rect_union( XRectangle *t, const XRectangle *s)
{
        XRectangle r;
        if ( t-> x < s-> x) r. x = t-> x; else r. x = s-> x;
        if ( t-> y < s-> y) r. y = t-> y; else r. y = s-> y;
        if ( t-> x + t-> width > s-> x + s-> width)
                r. width = t-> x + t-> width - r. x;
        else
                r. width = s-> x + s-> width - r. x;
        if ( t-> y + t-> height > s-> y + s-> height)
                r. height = t-> y + t-> height - r. y;
        else
                r. height = s-> y + s-> height - r. y;
        *t = r;
}
void
prima_rect_intersect( XRectangle *t, const XRectangle *s)
{
        XRectangle r;
        int w, h;
        if ( t-> x > s-> x) r. x = t-> x; else r. x = s-> x;
        if ( t-> y > s-> y) r. y = t-> y; else r. y = s-> y;
        if ( t-> x + t-> width < s-> x + s-> width)
                w = t-> x + (int)t-> width - r. x;
        else
                w = s-> x + (int)s-> width - r. x;
        if ( t-> y + t-> height < s-> y + s-> height)
                h = t-> y + (int)t-> height - r. y;
        else
                h = s-> y + (int)s-> height - r. y;
        if ( w < 0 || h < 0) {
                r. x = 0; r. y = 0; r. width = 0; r. height = 0;
        } else {
                r. width = w; r. height = h;
        }
        *t = r;
}
void
prima_utf8_to_wchar( const char * utf8, XChar2b * u16, int src_len_bytes, int target_len_xchars )
{
        unsigned int charlen;
        while ( target_len_xchars--) {
                register UV u = prima_utf8_uvchr(utf8, src_len_bytes, &charlen);
                if ( u < 0x10000) {
                        u16-> byte1 = u >> 8;
                        u16-> byte2 = u & 0xff;
                } else
                        u16-> byte1 = u16-> byte2 = 0xff;
                u16++;
                utf8 += charlen;
                src_len_bytes -= charlen;
                if ( src_len_bytes <= 0 || charlen == 0) break;
        }
}
XChar2b *
prima_alloc_utf8_to_wchar( const char * utf8, int length_chars)
{
        XChar2b * ret;
        if ( length_chars < 0) length_chars = prima_utf8_length( utf8, -1) + 1;
        if ( !( ret = malloc( length_chars * sizeof( XChar2b)))) return NULL;
        prima_utf8_to_wchar( utf8, ret, strlen(utf8), length_chars);
        return ret;
}
void
prima_wchar2char( char * dest, XChar2b * src, int lim)
{
        if ( lim < 1) return;
        while ( lim-- && src-> byte1 && src-> byte2) *(dest++) = (src++)-> byte2;
        if ( lim < 0) dest--;
        *dest = 0;
}
void
prima_char2wchar( XChar2b * dest, char * src, int lim)
{
        int l = strlen( src) + 1;
        if ( lim < 1) return;
        if ( lim > l) lim = l;
        src  += lim - 2;
        dest += lim - 1;
        dest-> byte1 = dest-> byte2 = 0;
        dest--;
        while ( lim--) {
                dest-> byte2 = *(src--);
                dest-> byte1 = 0;
                dest--;
        }
}
/* printer stubs */
Bool   apc_prn_create( Handle self) { return false; }
Bool   apc_prn_destroy( Handle self) { return true; }
Bool   apc_prn_select( Handle self, const char* printer) { return false; }
char * apc_prn_get_selected( Handle self) { return NULL; }
Point  apc_prn_get_size( Handle self) { Point r = {0,0}; return r; }
Point  apc_prn_get_resolution( Handle self) { Point r = {0,0}; return r; }
char * apc_prn_get_default( Handle self) { return NULL; }
Bool   apc_prn_setup( Handle self) { return false; }
Bool   apc_prn_begin_doc( Handle self, const char* docName) { return false; }
Bool   apc_prn_begin_paint_info( Handle self) { return false; }
Bool   apc_prn_end_doc( Handle self) { return true; }
Bool   apc_prn_end_paint_info( Handle self) { return true; }
Bool   apc_prn_new_page( Handle self) { return true; }
Bool   apc_prn_abort_doc( Handle self) { return true; }
ApiHandle   apc_prn_get_handle( Handle self) { return ( ApiHandle) 0; }
Bool   apc_prn_set_option( Handle self, char * option, char * value) { return false; }
Bool apc_prn_get_option( Handle self, char * option, char ** value)
{
        *value = NULL;
        return false;
}
Bool apc_prn_enum_options( Handle self, int * count, char *** options)
{
        *count = 0;
        return false;
}
PrinterInfo *
apc_prn_enumerate( Handle self, int * count)
{
        *count = 0;
        return NULL;
}
char *
apc_last_error( void )
{
        return NULL;
}