https://github.com/jrincayc/ucblogo-code
Tip revision: 91f307bf5a2820657281457f48cee2ee0073df6f authored by Barak A. Pearlmutter on 16 January 2021, 09:16:31 UTC
oops forgot a dependency
oops forgot a dependency
Tip revision: 91f307b
macterm.c
/*
* macterm.c macintosh screen module mak
*
* Copyright (C) 1993 by the Regents of the University of California
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <https://www.gnu.org/licenses/>.
*
*/
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include "logo.h"
#include "globals.h"
#include "macterm.h"
#include <console.h>
#include <math.h>
#include <Sound.h>
#include <Types.h>
#include <GestaltEqu.h>
#include <Palettes.h>
#include <Files.h>
#include <Fonts.h>
char *LogoPlatformName="MacOS-Classic";
char windowtitle[100];
FILE *graphics, *console;
WindowPtr graphics_window, listener_window;
GrafPtr savePort;
extern WindowPtr myWindow; /* the editor window */
FIXNUM pen_color = 7, back_ground = 0;
/************************************************************/
void nop() {
}
int can_do_color = 0, want_color = 0;
PaletteHandle the_palette;
void get_can_do_color(void) {
long ans;
if (!Gestalt(gestaltQuickdrawVersion, &ans))
can_do_color = (ans != 0);
}
void init_mac_memory(void) {
unsigned long AZ, AL;
/* SetApplLimit((Ptr)(GetApplLimit() - 150000L)); MaxApplZone(); */
AL = (unsigned long)GetApplLimit(); AZ = (unsigned long)ApplicZone();
/* SetApplLimit((Ptr) ( (AZ + ((AL-AZ)*3)/4) & 0x00fffffe )); */
/* SetApplLimit((Ptr)(AZ + 300000L)); */
SetApplLimit((Ptr)((AZ + ((AL-AZ)*3)/4) & -2L)); /* PCB */
MaxApplZone();
}
BOOLEAN check_mac_stop(void) {
char the_key_map[16];
static int full = 400;
static int gotkey = 0;
extern void ProcessEvent(void);
if (FreeMem() < 3000) {
err_logo(STACK_OVERFLOW, NIL);
return(1);
}
GetKeys((unsigned long *)&the_key_map);
if (the_key_map[5] & 128 && the_key_map[6] & 128) {
/* period and command are down */
if (!gotkey) {
gotkey = 1;
FlushEvents(everyEvent, 0);
#ifdef SIG_TAKES_ARG
logo_stop(0);
#else
logo_stop();
#endif
return 1;
}
} else if (the_key_map[5] & 8 && the_key_map[6] & 128) {
/* comma and command are down */
if (!gotkey) {
gotkey = 1;
FlushEvents(everyEvent, 0);
#ifdef SIG_TAKES_ARG
logo_pause(0);
#else
logo_pause();
#endif
}
} else
gotkey = 0;
if (--full == 0) {
ProcessEvent();
full = 400;
}
return(0);
}
void term_init_mac(void) {
MenuHandle menu_handle;
get_can_do_color();
tty_charmode = 0;
x_max = 80;
y_max = 24;
console_options.title = (unsigned char *)windowtitle;
console_options.top-= 5;
console_options.left-= 5;
strncpy((char *)console_options.title, (char const *)"\pGraphics", 9);
want_color = 1;
graphics = fopenc();
want_color = 0;
cgotoxy(1, 1, graphics);
graphics_window = FrontWindow();
if (can_do_color) {
the_palette = GetNewPalette(131);
SetPalette(graphics_window, the_palette, 1);
ActivatePalette(graphics_window);
}
SizeWindow(graphics_window, graphics_window->portRect.right,
graphics_window->portRect.bottom - 1, 0);
cs_helper(TRUE);
console_options.top+= 10;
console_options.left+= 10;
strncpy((char *)console_options.title, (char const *)"\pBerkeley Logo", 14);
console = fopenc();
lregulartext(NIL);
cinverse(1,stdout);
listener_window = FrontWindow();
console_options.title[0] = 0;
menu_handle = GetMHandle(3);
AppendMenu(menu_handle,
"\p(-;(Accept Editor Changes/A;(Cancel Editor Changes");
AppendMenu(menu_handle, "\p(-;(Page Setup;(Print/P");
SetUpWindows();
prepare_to_draw;
mac_set_bg(0L);
mac_set_pc(7L);
save_color();
done_drawing;
x_coord = y_coord = 0;
so_arr[0] = '\1'; so_arr[1] = '\0';
se_arr[0] = '\2'; se_arr[1] = '\0';
}
void mac_gotoxy(int x, int y) {
/* 4.4
if (x_coord < 0) x_coord = 0;
if (x_coord >= console_options.ncols) x_coord = console_options.ncols - 1;
if (y_coord < 0) y_coord = 0;
if (y_coord >= console_options.nrows) y_coord = console_options.nrows - 1;
*/
cgotoxy(x_coord + 1, y_coord + 1, stdout);
}
/************************************************************/
/* These are primitives that can only exist on the mac and/or are ad hoc
things Michael invented that we probably don't want to keep around in Berkeley Logo. */
NODE *lsetwindowtitle(NODE *arg) {
NODE *name;
name = string_arg(arg);
if (name != UNBOUND) {
noparity_strnzcpy((char *)(windowtitle + 1), getstrptr(name), (int)getstrlen(name));
windowtitle[0] = (char)getstrlen(name);
}
return(UNBOUND);
}
void option_helper(short* var, NODE *arg) {
NODE *val;
val = integer_arg(arg);
if (NOT_THROWING)
*var = (short)getint(val);
}
NODE *lsettextfont(NODE *arg) {
option_helper(&console_options.txFont, arg);
return(UNBOUND);
}
NODE *lsettextsize(NODE *arg) {
option_helper(&console_options.txSize, arg);
return(UNBOUND);
}
NODE *lsettextstyle(NODE *arg) {
option_helper(&console_options.txFace, arg);
return(UNBOUND);
}
NODE *lsetwindowsize(NODE *args) {
NODE *xnode, *ynode = UNBOUND, *arg;
arg = pos_int_vector_arg(args);
if (NOT_THROWING) {
xnode = car(arg);
ynode = cadr(arg);
console_options.ncols = max((int)getint(xnode), 40);
console_options.nrows = max((int)getint(ynode), 5);
}
return(UNBOUND);
}
NODE *lsetwindowxy(NODE *args) {
NODE *xnode, *ynode = UNBOUND, *arg;
arg = pos_int_vector_arg(args);
if (NOT_THROWING) {
xnode = car(arg);
ynode = cadr(arg);
console_options.left = (int)getint(xnode);
console_options.top = (int)getint(ynode);
}
return(UNBOUND);
}
NODE *lnewconsole(NODE *args) {
FILE *c, *old;
int was_graphics;
was_graphics = (FrontWindow() == graphics_window);
chide(stdin);
fclose(stdin);
fclose(stdout);
fclose(stderr);
c = fopenc();
fclose(stdin);
fclose(stdout);
freopenc(c, stdin);
freopenc(c, stdout);
freopenc(c, stderr);
lcleartext(NIL);
cinverse(1,stdout);
if (was_graphics) {
graphics_window = FrontWindow();
graphics = c;
} else {
listener_window = FrontWindow();
console = c;
x_max = console_options.ncols;
y_max = console_options.nrows;
}
return(UNBOUND);
}
NODE *lgraphtext(NODE *args) {
freopenc(graphics, stdin);
freopenc(graphics, stdout);
freopenc(graphics, stderr);
return(UNBOUND);
}
NODE *lregulartext(NODE *args) {
freopenc(console, stdin);
freopenc(console, stdout);
freopenc(console, stderr);
return(UNBOUND);
}
NODE *lcaninverse(NODE *args) {
FIXNUM onoff = int_arg(args);
if (NOT_THROWING) cinverse(onoff, stdin);
return(UNBOUND);
}
/************************************************************/
/* These are the machine-specific graphics definitions. All versions must provide
a set of functions analogous to these. */
void save_pen(pen_info *p) {
GetPort(&savePort);
SetPort(graphics_window);
GetPenState(&(p->ps));
p->vis = graphics_window->pnVis;
// p->color = graphics_window->fgColor;
p->color = pen_color;
SetPort(savePort);
}
void restore_pen(pen_info *p) {
GetPort(&savePort);
SetPort(graphics_window);
SetPenState(&(p->ps));
graphics_window->pnVis = p->vis;
// graphics_window->fgColor = p->color;
mac_set_pc(p->color);
SetPort(savePort);
}
void plain_xor_pen(void) {
PenNormal();
PenMode(patXor);
}
FIXNUM color_table[8] = {33, 409, 341, 273, 205, 137, 69, 30};
FIXNUM hw_color(FIXNUM c) {
if (c >= 0 && c < 8) return color_table[c];
if (c < 0) return c;
return c-8;
}
int palette_color(FIXNUM c) {
if (c == 7) return 0;
if (c >= 0 && c < 7) return c+1;
return c;
}
void mac_set_pc(FIXNUM c) {
pen_color = c;
if (can_do_color)
PmForeColor(palette_color(c+2));
else
graphics_window->fgColor = hw_color(c);
}
void mac_set_bg(FIXNUM c) {
back_ground = c;
if (can_do_color)
PmBackColor(palette_color(c+2));
else
graphics_window->bkColor = hw_color(c);
redraw_graphics();
}
void set_palette(int slot, unsigned int r, unsigned int g, unsigned int b) {
RGBColor rgb;
if (can_do_color) {
slot+=2;
rgb.red = r;
rgb.green = g;
rgb.blue = b;
SetEntryColor(the_palette, slot, &rgb);
SetEntryUsage(the_palette, slot, pmTolerant, 2000);
ActivatePalette(graphics_window);
redraw_graphics();
}
}
void get_palette(int slot, unsigned int *r, unsigned int *g, unsigned int *b) {
RGBColor rgb;
if (can_do_color) {
slot+=2;
GetEntryColor(the_palette, palette_color((FIXNUM)slot), &rgb);
*r = rgb.red;
*g = rgb.green;
*b = rgb.blue;
} else {
*r = (slot&4 ? 65000 : 0);
*g = (slot&2 ? 65000 : 0);
*b = (slot&1 ? 65000 : 0);
}
}
void set_pen_pattern(char *pat) {
PenPat((struct Pattern *)pat);
}
void set_list_pen_pattern(NODE *arg) {
NODE *cur_num, *temp;
char p_arr[8];
int count;
cur_num = arg;
for (count = 0 ; count <= 7 && cur_num != NIL && NOT_THROWING ; count++) {
temp = cnv_node_to_numnode(car(cur_num));
p_arr[count] = (char)getint(temp);
cur_num = cdr(cur_num);
}
PenPat((struct Pattern *)p_arr);
}
#ifdef SYMANTEC_C
union myPattU {
char patt_ch[8];
struct Pattern patt_p;
};
typedef union myPattU myPatt;
void get_pen_pattern(char *pat) {
PenState oil;
int count;
myPatt my_patt;
GetPenState(&oil);
my_patt.patt_p = oil.pnPat;
for (count = 0; count < 8; count++)
*(char *)(pat + count) = my_patt.patt_ch[count];
}
NODE *Get_node_pen_pattern() {
PenState oil;
int count;
myPatt my_patt;
GetPenState(&oil);
my_patt.patt_p = oil.pnPat;
return(cons(make_intnode((FIXNUM)(my_patt.patt_ch[0])),
cons(make_intnode((FIXNUM)(my_patt.patt_ch[1])),
cons(make_intnode((FIXNUM)(my_patt.patt_ch[2])),
cons(make_intnode((FIXNUM)(my_patt.patt_ch[3])),
cons(make_intnode((FIXNUM)(my_patt.patt_ch[4])),
cons(make_intnode((FIXNUM)(my_patt.patt_ch[5])),
cons(make_intnode((FIXNUM)(my_patt.patt_ch[6])),
cons(make_intnode((FIXNUM)(my_patt.patt_ch[7])),
NIL)))))))));
}
#else
void get_pen_pattern(char *pat) {
PenState oil;
int count;
GetPenState(&oil);
for (count = 0; count < 8; count++)
*(char *)(pat + count) = oil.pnPat[count];
}
NODE *Get_node_pen_pattern() {
PenState oil;
int count;
GetPenState(&oil);
return(cons(make_intnode((FIXNUM)(oil.pnPat[0])),
cons(make_intnode((FIXNUM)(oil.pnPat[1])),
cons(make_intnode((FIXNUM)(oil.pnPat[2])),
cons(make_intnode((FIXNUM)(oil.pnPat[3])),
cons(make_intnode((FIXNUM)(oil.pnPat[4])),
cons(make_intnode((FIXNUM)(oil.pnPat[5])),
cons(make_intnode((FIXNUM)(oil.pnPat[6])),
cons(make_intnode((FIXNUM)(oil.pnPat[7])),
NIL)))))))));
}
#endif
void label(char *s) {
short tmode;
GetPort(&savePort);
SetPort(graphics_window);
MoveTo(g_round(graphics_window->portRect.right/2.0 + turtle_x),
g_round(graphics_window->portRect.bottom/2.0 - turtle_y));
switch(pen_mode) {
case patCopy : tmode = srcOr; break;
case patBic : tmode = srcBic; break;
case patXor : tmode = srcXor; break;
default : tmode = srcCopy; break; /* can't happen */
}
TextFont(monaco); TextSize(9); TextMode(tmode);
DrawString((unsigned char const *)s);
SetPort(savePort);
}
void logofill(void) {
BitMap mask;
if (can_do_color) {
prepare_to_draw;
mask.bounds = (*(graphics_window->visRgn))->rgnBBox;
mask.bounds.right = mask.bounds.right - mask.bounds.left;
mask.bounds.left = 0;
mask.bounds.bottom = mask.bounds.bottom - mask.bounds.top;
mask.bounds.top = 0;
mask.rowBytes = ((mask.bounds.right + 15) / 8) & ~1;
mask.baseAddr = malloc(mask.rowBytes * mask.bounds.bottom);
if (mask.baseAddr == NULL) {
err_logo(OUT_OF_MEM, NIL);
done_drawing;
return;
}
SeedCFill(&(graphics_window->portBits), &mask,
&((*(graphics_window->visRgn))->rgnBBox),
&(mask.bounds),
graphics_window->pnLoc.h, graphics_window->pnLoc.v,
0, 0L);
CopyMask(&mask, &mask, &(graphics_window->portBits),
&(mask.bounds), &(mask.bounds),
&((*(graphics_window->visRgn))->rgnBBox));
free(mask.baseAddr);
done_drawing;
}
}
void erase_screen(void) {
int old_vis;
GetPort(&savePort);
SetPort(graphics_window);
old_vis = graphics_window->pnVis;
graphics_window->pnVis = 0;
EraseRect(&graphics_window->portRect);
graphics_window->pnVis = old_vis;
SetPort(savePort);
}
void t_screen(void) {
SelectWindow(listener_window);
console_options.ncols = 80;
console_options.nrows = 25;
console_options.left = 15;
console_options.top = 55;
strncpy((char *)console_options.title, (char *)"\pBerkeley Logo", 14);
lnewconsole(NIL);
MoveWindow(myWindow, 15, 55, TRUE);
MySizeWindow(myWindow, 488, 283);
SelectWindow(listener_window);
myGrow(listener_window, (listener_window == FrontWindow()));
}
void s_screen(void) {
Rect bounds;
int v;
if (can_do_color)
v = ((*(((CGrafPtr)graphics_window)->portPixMap))->bounds.bottom -
(*(((CGrafPtr)graphics_window)->portPixMap))->bounds.top) - 84;
else
v = (graphics_window->portBits.bounds.bottom -
graphics_window->portBits.bounds.top) - 84;
SelectWindow(listener_window);
console_options.ncols = 80;
console_options.nrows = 6;
console_options.left = 5;
console_options.top = v + 6;
strncpy((char *)console_options.title, (char *)"\pBerkeley Logo", 14);
lnewconsole(NIL);
MoveWindow(myWindow, 5, v, TRUE);
MySizeWindow(myWindow, 488, 80);
SelectWindow(listener_window);
myGrow(listener_window, (listener_window == FrontWindow()));
}
void f_screen(void) {
Rect bounds;
int v;
if (can_do_color)
v = ((*(((CGrafPtr)graphics_window)->portPixMap))->bounds.bottom -
(*(((CGrafPtr)graphics_window)->portPixMap))->bounds.top) - 84;
else
v = (graphics_window->portBits.bounds.bottom -
graphics_window->portBits.bounds.top) - 84;
SelectWindow(listener_window);
console_options.ncols = 80;
console_options.nrows = 0;
console_options.left = 5;
console_options.top = v + 52;
strncpy((char *)console_options.title, (char *)"\pBerkeley Logo", 14);
lnewconsole(NIL);
MoveWindow(myWindow, 5, v, TRUE);
MySizeWindow(myWindow, 488, 80);
SelectWindow(graphics_window);
myGrow(graphics_window, (graphics_window == FrontWindow()));
}
int in_fscreen(void) {
return (console_options.nrows == 0);
}
FIXNUM mickey_x(void) {
Point the_mouse;
GetPort(&savePort);
SetPort(graphics_window);
GetMouse(&the_mouse);
SetPort(savePort);
return((FIXNUM)(the_mouse.h - graphics_window->portRect.right/2));
}
FIXNUM mickey_y(void) {
Point the_mouse;
GetPort(&savePort);
SetPort(graphics_window);
GetMouse(&the_mouse);
SetPort(savePort);
return((FIXNUM)(graphics_window->portRect.bottom/2 - the_mouse.v));
}
#ifdef SYMANTEC_C
SndChannelPtr SoundChannel = NIL;
#endif
/* see Inside Macintosh vol. 2 pp. 237-241 for pitch values */
void tone(FIXNUM pitch, FIXNUM duration) {
#ifndef SYMANTEC_C
struct { int mode;
int freq;
int amp;
int dur;
} sound_rec;
sound_rec.mode = -1;
sound_rec.freq = (int)(387205L/pitch);
sound_rec.amp = 200;
sound_rec.dur = (int)duration;
StartSound(&sound_rec, (long)8, (char *)(-1));
while (!SoundDone()) ;
#endif
#ifdef SYMANTEC_C
SndCommand MyCommand;
SCStatus ChannelStatus;
pitch = (int) 60+((log(pitch/261.625))/(log(twelfthRootTwo)));
duration *= 34; /* ticks to half-milliseconds */
if (duration>0 && duration<65536 && pitch >=0 && pitch<128) {
if (SoundChannel == NIL) {
SndNewChannel(&SoundChannel, squareWaveSynth,
initMono+initChanLeft, (ProcPtr)NIL);
}
if (SoundChannel != NIL) {
MyCommand.cmd = freqDurationCmd;
MyCommand.param1 = duration;
MyCommand.param2 = pitch;
SndDoImmediate(SoundChannel, &MyCommand);
ChannelStatus.scChannelBusy = true;
while (ChannelStatus.scChannelBusy == true)
SndChannelStatus(SoundChannel, sizeof(ChannelStatus),
&ChannelStatus);
}
}
#endif
}
/************************************************************/
void c_to_pascal_string(char *str, int len) {
int count = len;
char prev;
while (count > 0) {
prev = str[count - 1];
str[count] = clearparity(prev);
count--;
}
str[0] = len;
}
void fixMacType(NODE *arg) {
char *fnstr;
FSSpec theFSSpec;
arg = cnv_node_to_strnode(car(arg));
if (arg == UNBOUND) return;
fnstr = (char *) malloc((size_t)getstrlen(arg) + 1);
if (fnstr == NULL) {
err_logo(FILE_ERROR, make_static_strnode("Not enough memory"));
return;
}
noparity_strnzcpy(fnstr, getstrptr(arg), getstrlen(arg));
c_to_pascal_string(fnstr, getstrlen(arg));
FSMakeFSSpec(0, 0L, (unsigned char *)fnstr, &theFSSpec);
HCreate(theFSSpec.vRefNum, theFSSpec.parID, theFSSpec.name, '????', 'EPSF');
}