|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC759 "Piccoline" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 15488 (0x3c80)
Types: TextFile
Names: »HELLO.C«
└─⟦b301b5c1d⟧ Bits:30003931/GEM_Develop_disk_2_CDOS.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
└─⟦this⟧ »HELLO.C«
/************************************************************************/
/* File: hello.c */
/************************************************************************/
/* */
/* GGGGG EEEEEEEE MM MM */
/* GG EE MMMM MMMM */
/* GG GGG EEEEE MM MM MM */
/* GG GG EE MM MM */
/* GGGGG EEEEEEEE MM MM */
/* */
/************************************************************************/
/* */
/* +--------------------------+ */
/* ø Digital Research, Inc. ø */
/* ø 60 Garden Court ø */
/* ø Monterey, CA. 93940 ø */
/* +--------------------------+ */
/* */
/* The source code contained in this listing is a non-copyrighted */
/* work which can be freely used. In applications of this source */
/* code you are requested to acknowledge Digital Research, Inc. as */
/* the originator of this code. */
/* */
/* Author: Tom Rolander */
/* PRODUCT: GEM Sample Desk Top Accessory */
/* Module: HELLO */
/* Version: February 15, 1985 */
/* */
/************************************************************************/
/*
\f
Page*/
/*------------------------------*/
/* includes */
/*------------------------------*/
#include "deskacc.h" /* #define DESKACC x */
#include "portab.h" /* portable coding conv */
#include "machine.h" /* machine depndnt conv */
#include "obdefs.h" /* object definitions */
#include "gembind.h" /* gem binding structs */
/*------------------------------*/
/* defines */
/*------------------------------*/
#define ARROW 0
#define HOUR_GLASS 2
#define DESK 0
#define END_UPDATE 0
#define BEG_UPDATE 1
/*
\f
Page*/
/************************************************************************/
/************************************************************************/
/**** ****/
/**** Data Structures ****/
/**** ****/
/************************************************************************/
/************************************************************************/
/*------------------------------*/
/* Global */
/*------------------------------*/
GLOBAL WORD contrlÆ11Å; /* control inputs */
GLOBAL WORD intinÆ80Å; /* max string length */
GLOBAL WORD ptsinÆ256Å; /* polygon fill points */
GLOBAL WORD intoutÆ45Å; /* open workstation output */
GLOBAL WORD ptsoutÆ12Å;
/*------------------------------*/
/* Local */
/*------------------------------*/
WORD gl_wchar; /* character width */
WORD gl_hchar; /* character height */
WORD gl_wbox; /* box (cell) width */
WORD gl_hbox; /* box (cell) height */
WORD gem_handle; /* GEM vdi handle */
WORD vdi_handle; /* hello vdi handle */
WORD work_outÆ57Å; /* open virt workstation values */
GRECT work_area; /* current window work area */
WORD gl_apid; /* application ID */
WORD gl_rmsgÆ8Å; /* message buffer */
LONG ad_rmsg; /* LONG pointer to message bfr */
WORD gl_itemhello = 0; /* hello menu item */
WORD gl_xfull; /* full window 'x' */
WORD gl_yfull; /* full window 'y' */
WORD gl_wfull; /* full window 'w' width */
WORD gl_hfull; /* full window 'h' height */
WORD ev_which; /* event message returned value */
WORD hello_whndl = 0; /* hello window handle */
WORD type_size; /* system font cell size */
#define MESS_NLINES 2 /* maximum lines in message */
#define MESS_WIDTH 7 /* maximum width of message */
BYTE *messageÆÅ = /* message for window */
æ
" Hello ",
" World ",
0 /* null pointer terminates input*/
å;
BYTE *wdw_title = ""; /* blank window title */
/*
\f
Page*/
/************************************************************************/
/************************************************************************/
/**** ****/
/**** Local Procedures ****/
/**** ****/
/************************************************************************/
/************************************************************************/
/*------------------------------*/
/* min */
/*------------------------------*/
WORD
min(a, b) /* return min of two values */
WORD a, b;
æ
return( (a < b) ? a : b );
å
/*------------------------------*/
/* max */
/*------------------------------*/
WORD
max(a, b) /* return max of two values */
WORD a, b;
æ
return( (a > b) ? a : b );
å
/*------------------------------*/
/* rc_intersect */
/*------------------------------*/
WORD
rc_intersect(p1, p2) /* compute inter of two rectangles */
GRECT *p1, *p2;
æ
WORD tx, ty, tw, th;
tw = min(p2->g_x + p2->g_w, p1->g_x + p1->g_w);
th = min(p2->g_y + p2->g_h, p1->g_y + p1->g_h);
tx = max(p2->g_x, p1->g_x);
ty = max(p2->g_y, p1->g_y);
p2->g_x = tx;
p2->g_y = ty;
p2->g_w = tw - tx;
p2->g_h = th - ty;
return( (tw > tx) && (th > ty) );
å
/*------------------------------*/
/* grect_to_array */
/*------------------------------*/
VOID
grect_to_array(area, array) /* convert x,y,w,h to upr lt x,y and */
GRECT *area; /* lwr rt x,y */
WORD *array;
æ
*array++ = area->g_x;
*array++ = area->g_y;
*array++ = area->g_x + area->g_w - 1;
*array = area->g_y + area->g_h - 1;
å
/*------------------------------*/
/* do_open */
/*------------------------------*/
WORD
do_open(wh, org_x, org_y, x, y, w, h) /* grow and open specified wdw */
WORD wh;
WORD org_x, org_y;
WORD x, y, w, h;
æ
WORD ret_code;
graf_mouse(2,0x0L);
graf_growbox(org_x, org_y, 21, 21, x, y, w, h);
ret_code = wind_open(wh, x, y, w, h);
graf_mouse(ARROW,0x0L);
return(ret_code);
å
/*------------------------------*/
/* do_close */
/*------------------------------*/
VOID
do_close(wh, org_x, org_y) /* close and shrink specified window */
WORD wh;
WORD org_x, org_y;
æ
WORD x, y, w, h;
graf_mouse(2,0x0L);
wind_get(wh, WF_CXYWH, &x, &y, &w, &h);
wind_close(wh);
graf_shrinkbox(org_x, org_y, 21, 21, x, y, w, h);
graf_mouse(ARROW,0x0L);
å
/*------------------------------*/
/* set_clip */
/*------------------------------*/
VOID
set_clip(clip_flag, s_area) /* set clip to specified area */
WORD clip_flag;
GRECT *s_area;
æ
WORD pxyÆ4Å;
grect_to_array(s_area, pxy);
vs_clip(vdi_handle, clip_flag, pxy);
å
/*------------------------------*/
/* align_x */
/*------------------------------*/
WORD
align_x(x) /* forces word alignment for column positon, */
WORD x; /* rounding to nearest word */
æ
return((x & 0xfff0) + ((x & 0x000c) ? 0x0010 : 0));
å
/*------------------------------*/
/* wdw_size */
/*------------------------------*/
VOID
wdw_size(box, w, h) /* compute window size for given w * h chars */
GRECT *box;
WORD w, h;
æ
WORD pw, ph;
vst_height(vdi_handle, type_size,
&gl_wchar,&gl_hchar,&gl_wbox,&gl_hbox);
pw = w * gl_wbox + 1;
ph = h * gl_hbox + 1;
wind_calc(WC_BORDER, 0x000B, gl_wfull/2-pw/2, gl_hfull/2-ph/2, pw, ph, &box->g_x, &box->g_y, &box->g_w, &box->g_h);
box->g_x = align_x(box->g_x) - 1;
å
/*------------------------------*/
/* disp_message */
/*------------------------------*/
VOID
disp_mesag(strptr, clip_area) /* display message applying input clip */
BYTE **strptr;
GRECT *clip_area;
æ
WORD pxyÆ4Å;
WORD ycurr;
set_clip(TRUE, clip_area);
vsf_interior(vdi_handle, 1);
vsf_color(vdi_handle, WHITE);
grect_to_array(&work_area, pxy);
graf_mouse(M_OFF, 0x0L);
vr_recfl(vdi_handle, pxy); /* clear entire message area */
vsl_color(vdi_handle,BLACK);
vswr_mode(vdi_handle,MD_REPLACE);
vsl_type (vdi_handle,FIS_SOLID);
vswr_mode(vdi_handle, 1);
ycurr = work_area.g_y - 1;
while (*strptr) /* loop through text strings */
æ
ycurr += gl_hbox;
v_gtext(vdi_handle, work_area.g_x, ycurr, *strptr++);
å
graf_mouse(M_ON, 0x0L);
set_clip(FALSE, clip_area);
å
/*------------------------------*/
/* do_redraw */
/*------------------------------*/
VOID
do_redraw(wh, area) /* redraw message applying area clip */
WORD wh;
GRECT *area;
æ
GRECT box;
graf_mouse(M_OFF, 0x0L);
wind_get(wh, WF_FIRSTXYWH, &box.g_x, &box.g_y, &box.g_w, &box.g_h);
while ( box.g_w && box.g_h )
æ
if (rc_intersect(area, &box))
æ
if (wh == hello_whndl)
æ
disp_mesag(message, &box);
å
å
wind_get(wh, WF_NEXTXYWH, &box.g_x, &box.g_y, &box.g_w, &box.g_h);
å
graf_mouse(M_ON, 0x0L);
å
/*
\f
Page*/
/************************************************************************/
/************************************************************************/
/**** ****/
/**** Message Handling ****/
/**** ****/
/************************************************************************/
/************************************************************************/
/*------------------------------*/
/* hndl_mesag */
/*------------------------------*/
BOOLEAN hndl_mesag()
æ
GRECT box;
BOOLEAN done;
WORD wdw_hndl;
done = FALSE;
wdw_hndl = gl_rmsgÆ3Å; /* wdw handle of mesag */
switch( gl_rmsgÆ0Å ) /* switch on type of msg*/
æ
case AC_OPEN: /* do accessory open */
if ( (gl_rmsgÆ4Å == gl_itemhello) &&
(!hello_whndl) ) /* unless already open */
æ
graf_mouse(HOUR_GLASS, 0x0L);
/* 0x0B = NAME ø CLOSER ø MOVER */
hello_whndl = wind_create(0x000B, align_x(gl_xfull)-1, gl_yfull, gl_wfull, gl_hfull);
if (hello_whndl == -1)
æ
graf_mouse(ARROW, 0x0L);
form_alert(1,
ADDR("Æ3ÅÆFatal Error !øWindow not availableøfor Hello.ÅÆ Abort Å"));
hello_whndl = 0;
return(TRUE);
å
wind_set(hello_whndl, WF_NAME, ADDR(wdw_title), 0, 0);
wdw_size(&box, MESS_WIDTH, MESS_NLINES);
#if DESKACC /* open from menu area */
do_open(hello_whndl, gl_wbox*4, gl_hbox/2, box.g_x, box.g_y, box.g_w, box.g_h);
#else /* open from screen cntr*/
do_open(hello_whndl, gl_wfull/2, gl_hfull/2, box.g_x, box.g_y, box.g_w, box.g_h);
#endif
wind_get(hello_whndl, WF_WXYWH, &work_area.g_x, &work_area.g_y, &work_area.g_w, &work_area.g_h);
disp_mesag(message, &work_area);
graf_mouse(ARROW,0x0L);
å
else
æ
graf_mouse(ARROW, 0x0L);
wind_set(hello_whndl, WF_TOP, 0, 0, 0, 0);
å
break;
case AC_CLOSE: /* do accessory close */
if ( (gl_rmsgÆ3Å == gl_itemhello) &&
(hello_whndl) )
æ
hello_whndl = 0; /* reset window handle */
å
break;
case WM_REDRAW: /* do redraw wdw contnts*/
do_redraw(wdw_hndl, (GRECT *) &gl_rmsgÆ4Å);
break;
case WM_TOPPED: /* do window topped */
wind_set(wdw_hndl, WF_TOP, 0, 0, 0, 0);
break;
case WM_CLOSED: /* do window closed */
#if DESKACC /* close to menu bar */
do_close(hello_whndl, gl_wbox*4, gl_hbox/2);
#else /* close to screen cntr */
do_close(hello_whndl, gl_wfull/2, gl_hfull/2);
#endif
wind_delete(hello_whndl);
hello_whndl = 0;
done = TRUE;
break;
case WM_MOVED: /* do window move */
wind_set(wdw_hndl, WF_CXYWH, align_x(gl_rmsgÆ4Å)-1, gl_rmsgÆ5Å, gl_rmsgÆ6Å, gl_rmsgÆ7Å);
wind_get(hello_whndl, WF_WXYWH, &work_area.g_x, &work_area.g_y, &work_area.g_w, &work_area.g_h);
break;
default:
break;
å /* switch */
return(done);
å /* hndl_mesag */
/*
\f
Page*/
/************************************************************************/
/************************************************************************/
/**** ****/
/**** Hello Event Handler ****/
/**** ****/
/************************************************************************/
/************************************************************************/
/*------------------------------*/
/* hello */
/*------------------------------*/
hello()
æ
BOOLEAN done;
/**/ /* loop handling user */
/**/ /* input until done */
done = FALSE; /* -or- if DESKACC */
while( !done ) /* then forever */
æ
ev_which = evnt_mesag(ad_rmsg); /* wait for message */
wind_update(BEG_UPDATE); /* begin window update */
done = hndl_mesag(); /* handle event message */
wind_update(END_UPDATE); /* end window update */
#if DESKACC
done = FALSE; /* never exit loop for desk accessory */
#endif
å
å
/*
\f
Page*/
/************************************************************************/
/************************************************************************/
/**** ****/
/**** Termination ****/
/**** ****/
/************************************************************************/
/************************************************************************/
/*------------------------------*/
/* hello_term */
/*------------------------------*/
hello_term()
æ
#if DESKACC
return(FALSE); /* Desk Accessory never ends */
#else
v_clsvwk( vdi_handle ); /* close virtual work station */
appl_exit(); /* application exit */
#endif
å
/*
\f
Page*/
/************************************************************************/
/************************************************************************/
/**** ****/
/**** Initialization ****/
/**** ****/
/************************************************************************/
/************************************************************************/
/*------------------------------*/
/* hello_init */
/*------------------------------*/
WORD
hello_init()
æ
WORD i;
WORD work_inÆ11Å;
WORD attributesÆ10Å;
gl_apid = appl_init(); /* initialize libraries */
#if DESKACC
wind_update(BEG_UPDATE);
#endif
for (i=0; i<10; i++)
æ
work_inÆiÅ=1;
å
work_inÆ10Å=2;
gem_handle = graf_handle(&gl_wchar,&gl_hchar,&gl_wbox,&gl_hbox);
vdi_handle = gem_handle;
v_opnvwk(work_in,&vdi_handle,work_out); /* open virtual work stn*/
vqt_attributes(vdi_handle, attributes); /* get text attributes */
type_size = attributesÆ7Å; /* get system font hbox */
#if DESKACC /* enter hello in menu */
gl_itemhello = menu_register(gl_apid, ADDR(" Hello") );
#else
if (vdi_handle == 0)
return(FALSE);
#endif
/**/ /* init. message address*/
ad_rmsg = ADDR((BYTE *) &gl_rmsgÆ0Å);
wind_get(DESK, WF_WXYWH, &gl_xfull, &gl_yfull, &gl_wfull, &gl_hfull);
return(TRUE);
å
/*
\f
Page*/
/************************************************************************/
/************************************************************************/
/**** ****/
/**** Main Program ****/
/**** ****/
/************************************************************************/
/************************************************************************/
/*------------------------------*/
/* GEMAIN */
/*------------------------------*/
GEMAIN()
æ
if (hello_init()) /* initialization */
æ
#if DESKACC
wind_update(END_UPDATE);
hello();
#else /* simulate AC_OPEN */
gl_rmsgÆ0Å = AC_OPEN;
gl_rmsgÆ4Å = gl_itemhello;
hndl_mesag();
hello();
hello_term(); /* termination */
#endif
å
å
«eof»