koreth%panarthea.ebay@sun.com (Steven Grimm) (07/21/89)
Submitted-by: uunet!unido!sbsvax!roeder (Edgar Roeder)
Posting-number: Volume 2, Issue 58
Archive-name: gccgem/part03
#!/bin/sh
# this is part 3 of a multipart archive
# do not concatenate these parts, unpack them in order with /bin/sh
# file aes_51.c continued
#
CurArch=3
if test ! -r s2_seq_.tmp
then echo "Please unpack part 1 first!"
exit 1; fi
( read Scheck
if test "$Scheck" != $CurArch
then echo "Please unpack part $Scheck next!"
exit 1;
else exit 0; fi
) < s2_seq_.tmp || exit 1
echo "x - Continuing file aes_51.c"
sed 's/^X//' << 'SHAR_EOF' >> aes_51.c
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD form_dial(WORD fo_diflag, WORD fo_dilittlx, WORD fo_dilittly, WORD fo_dilittlw, WORD fo_dilittlh, WORD fo_dibigx, WORD fo_dibigy, WORD fo_dibigw, WORD fo_dibigh)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = fo_diflag;
X *a_tmp++ = fo_dilittlx;
X *a_tmp++ = fo_dilittly;
X *a_tmp++ = fo_dilittlw;
X *a_tmp++ = fo_dilittlh;
X *a_tmp++ = fo_dibigx;
X *a_tmp++ = fo_dibigy;
X *a_tmp++ = fo_dibigw;
X *a_tmp = fo_dibigh;
X CONTROL(51,9,1,0,0);
X AES_CALL();
X return int_out[0];
X}
X
SHAR_EOF
echo "File aes_51.c is complete"
chmod 0644 aes_51.c || echo "restore of aes_51.c fails"
echo "x - extracting aes_52.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_52.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD form_alert(WORD fo_adefbttn, char *fo_astring)
X{
X int_in[0] = fo_adefbttn;
X addr_in[0] = (LONG) fo_astring;
X CONTROL(52,1,1,1,0);
X AES_CALL();
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_52.c || echo "restore of aes_52.c fails"
echo "x - extracting aes_53.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_53.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD form_error(WORD fo_enum)
X{
X int_in[0] = fo_enum;
X CONTROL(53,1,1,0,0);
X AES_CALL();
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_53.c || echo "restore of aes_53.c fails"
echo "x - extracting aes_54.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_54.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD form_center(OBJECT *fo_ctree, WORD *fo_cx, WORD *fo_cy, WORD *fo_cw, WORD *fo_ch)
X{
X WORD *a_tmp = int_out;
X addr_in[0] = (LONG) fo_ctree;
X CONTROL(54,0,5,1,0);
X AES_CALL();
X *fo_cx = *++a_tmp;
X *fo_cy = *++a_tmp;
X *fo_cw = *++a_tmp;
X *fo_ch = *++a_tmp;
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_54.c || echo "restore of aes_54.c fails"
echo "x - extracting aes_55.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_55.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD form_keybd(OBJECT *fo_ktree, WORD fo_kobject, WORD fo_kobnext, WORD fo_kchar, WORD *fo_knxtobject, WORD *fo_knxtchar)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = fo_kobject;
X *a_tmp++ = fo_kobnext;
X *a_tmp = fo_kchar;
X addr_in[0] = (LONG) fo_ktree;
X CONTROL(55,3,3,1,0);
X AES_CALL();
X a_tmp = int_out;
X *fo_knxtobject = *++a_tmp;
X *fo_knxtchar = *++a_tmp;
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_55.c || echo "restore of aes_55.c fails"
echo "x - extracting aes_56.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_56.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD form_button(OBJECT *fo_btree, WORD fo_bobject, WORD fo_bclicks, WORD *fo_bnxtobj)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = fo_bobject;
X *a_tmp = fo_bclicks;
X addr_in[0] = (LONG) fo_btree;
X CONTROL(56,2,2,1,0);
X AES_CALL();
X *fo_bnxtobj = int_out[1];
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_56.c || echo "restore of aes_56.c fails"
echo "x - extracting aes_70.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_70.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD graf_rubberbox(WORD gr_rx, WORD gr_ry, WORD gr_rminwidth, WORD gr_rminheight, WORD *gr_rlastwidth, WORD *gr_rlastheight)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = gr_rx;
X *a_tmp++ = gr_ry;
X *a_tmp++ = gr_rminwidth;
X *a_tmp = gr_rminheight;
X CONTROL(70,4,3,0,0);
X AES_CALL();
X a_tmp = int_out;
X *gr_rlastwidth = *++a_tmp;
X *gr_rlastheight = *++a_tmp;
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_70.c || echo "restore of aes_70.c fails"
echo "x - extracting aes_71.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_71.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD graf_dragbox( WORD gr_dwidth, WORD gr_dheight, WORD gr_dstartx, WORD gr_dstarty, WORD gr_dboundx, WORD gr_dboundy, WORD gr_dboundw, WORD gr_dboundh, WORD *gr_dfinishx, WORD *gr_dfinishy)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = gr_dwidth;
X *a_tmp++ = gr_dheight;
X *a_tmp++ = gr_dstartx;
X *a_tmp++ = gr_dstarty;
X *a_tmp++ = gr_dboundx;
X *a_tmp++ = gr_dboundy;
X *a_tmp++ = gr_dboundw;
X *a_tmp = gr_dboundh;
X CONTROL(71,8,3,0,0);
X AES_CALL();
X a_tmp = int_out;
X *gr_dfinishx = *++a_tmp;
X *gr_dfinishy = *++a_tmp;
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_71.c || echo "restore of aes_71.c fails"
echo "x - extracting aes_72.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_72.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD graf_movebox( WORD gr_mwidth, WORD gr_mheight, WORD gr_msourcex, WORD gr_msourcey, WORD gr_mdestx, WORD gr_mdesty)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = gr_mwidth;
X *a_tmp++ = gr_mheight;
X *a_tmp++ = gr_msourcex;
X *a_tmp++ = gr_msourcey;
X *a_tmp++ = gr_mdestx;
X *a_tmp = gr_mdesty;
X CONTROL(72,6,1,0,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_72.c || echo "restore of aes_72.c fails"
echo "x - extracting aes_73.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_73.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD graf_growbox( WORD gr_gstx, WORD gr_gsty, WORD gr_gstwidth, WORD gr_gstheight, WORD gr_gfinx, WORD gr_gfiny, WORD gr_gfinwidth, WORD gr_gfinheight)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = gr_gstx;
X *a_tmp++ = gr_gsty;
X *a_tmp++ = gr_gstwidth;
X *a_tmp++ = gr_gstheight;
X *a_tmp++ = gr_gfinx;
X *a_tmp++ = gr_gfiny;
X *a_tmp++ = gr_gfinwidth;
X *a_tmp = gr_gfinheight;
X CONTROL(73,8,1,0,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_73.c || echo "restore of aes_73.c fails"
echo "x - extracting aes_74.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_74.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD graf_shrinkbox( WORD gr_sfinx, WORD gr_sfiny, WORD gr_sfinwidth, WORD gr_sfinheight, WORD gr_sstx, WORD gr_ssty, WORD gr_sstwidth, WORD gr_sstheight)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = gr_sfinx;
X *a_tmp++ = gr_sfiny;
X *a_tmp++ = gr_sfinwidth;
X *a_tmp++ = gr_sfinheight;
X *a_tmp++ = gr_sstx;
X *a_tmp++ = gr_ssty;
X *a_tmp++ = gr_sstwidth;
X *a_tmp = gr_sstheight;
X CONTROL(74,8,1,0,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_74.c || echo "restore of aes_74.c fails"
echo "x - extracting aes_75.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_75.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD graf_watchbox( OBJECT *gr_wptree, WORD gr_wobject, WORD gr_winstate, WORD gr_woutstate)
X{
X WORD *a_tmp = int_in;
X *++a_tmp = gr_wobject;
X *++a_tmp = gr_winstate;
X *++a_tmp = gr_woutstate;
X addr_in[0] = (LONG) gr_wptree;
X CONTROL(75,4,1,1,0);
X AES_CALL();
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_75.c || echo "restore of aes_75.c fails"
echo "x - extracting aes_76.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_76.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD graf_slidebox( OBJECT *gr_slptree, WORD gr_slparent, WORD gr_slobject, WORD gr_slvh)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = gr_slparent;
X *a_tmp++ = gr_slobject;
X *a_tmp = gr_slvh;
X addr_in[0] = (LONG) gr_slptree;
X CONTROL(76,3,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_76.c || echo "restore of aes_76.c fails"
echo "x - extracting aes_77.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_77.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD graf_handle(WORD *gr_hwchar, WORD *gr_hhchar, WORD *gr_hwbox, WORD *gr_hhbox)
X{
X WORD *a_tmp = int_out;
X CONTROL(77,0,5,0,0);
X AES_CALL();
X *gr_hwchar = *++a_tmp;
X *gr_hhchar = *++a_tmp;
X *gr_hwbox = *++a_tmp;
X *gr_hhbox = *++a_tmp;
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_77.c || echo "restore of aes_77.c fails"
echo "x - extracting aes_78.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_78.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD graf_mouse(WORD gr_monumber, MFORM *gr_mofaddr)
X{
X int_in[0] = gr_monumber;
X addr_in[0]= (LONG) gr_mofaddr;
X CONTROL(78,1,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_78.c || echo "restore of aes_78.c fails"
echo "x - extracting aes_79.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_79.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD graf_mkstate( WORD *gr_mkmx, WORD *gr_mkmy, WORD *gr_mkmstate, WORD *gr_mkkstate)
X{
X WORD *a_tmp = int_out;
X CONTROL(79,0,5,0,0);
X AES_CALL();
X *gr_mkmx = *++a_tmp;
X *gr_mkmy = *++a_tmp;
X *gr_mkmstate = *++a_tmp;
X *gr_mkkstate = *++a_tmp;
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_79.c || echo "restore of aes_79.c fails"
echo "x - extracting aes_80.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_80.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD scrp_read( char *sc_rpscrap)
X{
X addr_in[0] = (LONG) sc_rpscrap;
X CONTROL(80,0,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_80.c || echo "restore of aes_80.c fails"
echo "x - extracting aes_81.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_81.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD scrp_write( char *sc_wpscrap)
X{
X addr_in[0] = (LONG) sc_wpscrap;
X CONTROL(81,0,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_81.c || echo "restore of aes_81.c fails"
echo "x - extracting aes_90.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_90.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD fsel_input(char *fs_iinpath, char *fs_iinsel, WORD *fs_iexbutton)
X{
X LONG *a_tmp = addr_in;
X *a_tmp++ = (LONG) fs_iinpath;
X *a_tmp = (LONG) fs_iinsel;
X CONTROL(90,0,2,2,0);
X AES_CALL();
X *fs_iexbutton = int_out[1];
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_90.c || echo "restore of aes_90.c fails"
echo "x - extracting aes_91.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_91.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include <osbind.h>
X#include "gem-guts.h"
X
Xstatic int old_tosversion = FALSE;
X
Xstatic VOID check_tos()
X{
X short ** _sys_base = (short **) 0x000004f2L;
X if (*(*_sys_base+1) < 0x0104) old_tosversion = TRUE;
X}
X
XWORD fsel_exinput(char *fs_iinpath, char *fs_iinsel, WORD *fs_iexbutton, char *fs_label)
X{
X LONG *a_tmp = addr_in;
X VOID check_tos();
X
X Supexec(check_tos);
X if (old_tosversion)
X return fsel_input(fs_iinpath, fs_iinsel, fs_iexbutton);
X else {
X *a_tmp++ = (LONG) fs_iinpath;
X *a_tmp++ = (LONG) fs_iinsel;
X *a_tmp = (LONG) fs_label;
X CONTROL(91,0,2,3,0);
X AES_CALL();
X *fs_iexbutton = int_out[1];
X return int_out[0];
X }
X}
SHAR_EOF
chmod 0644 aes_91.c || echo "restore of aes_91.c fails"
echo "x - extracting felder.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > felder.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include <portab.h>
X
XWORD contrl[128];
XWORD intin[128];
XWORD intout[128];
XWORD ptsin[128];
XWORD ptsout[128];
X
XLONG pblock[5];
X
XWORD global[15];
XWORD control[5];
XWORD int_in[16];
XWORD int_out[7];
XLONG addr_in[3];
XLONG addr_out[1];
SHAR_EOF
chmod 0644 felder.c || echo "restore of felder.c fails"
echo "x - extracting gem-guts.h (Text)"
sed 's/^X//' << 'SHAR_EOF' > gem-guts.h &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include <portab.h>
X
X/*
X * VDI
X */
X
Xextern WORD contrl[];
Xextern WORD intin[];
Xextern WORD intout[];
Xextern WORD ptsin[];
Xextern WORD ptsout[];
X
Xextern WORD *pblock[];
X
X#define VDI_CALL() { asm("moveml a0-a1,sp@-"); asm("movel #_pblock,d1"); asm("movew #115,d0"); asm("trap #2"); asm("moveml sp@+,a0-a1"); }
X
XVOID vdi_macro_a(WORD nummer, WORD handle);
XWORD vdi_macro_b(WORD nummer, WORD eingabe1, WORD eingabe2);
XVOID vdi_macro_c(WORD nummer, WORD eingabe1, WORD eingabe2, WORD eingabe3[]);
XVOID vdi_macro_d(WORD nummer, WORD handle, WORD eingabe);
X
Xtypedef struct {
X char *fd_addr;
X WORD fd_w;
X WORD fd_h;
X WORD fd_wdwidth;
X WORD fd_stand;
X WORD fd_nplanes;
X WORD fd_r1;
X WORD fd_r2;
X WORD fd_r3;
X } FDB;
X
X/*
X * AES
X */
X
Xextern WORD global[];
Xextern WORD control[];
Xextern WORD int_in[];
Xextern WORD int_out[];
Xextern LONG addr_in[];
Xextern LONG addr_out[];
X
Xtypedef struct {
X WORD *cb_pcontrol;
X WORD *cb_pglobal;
X WORD *cb_pintin;
X WORD *cb_pintout;
X LONG *cb_padrin;
X LONG *cb_padrout;
X } AESPB;
X
Xextern WORD ge_apid;
Xextern AESPB aesbp;
X
X#define CONTROL(_a,_b,_c,_d,_e) { WORD *c_tmp = control; *c_tmp++ = _a; *c_tmp++ = _b; *c_tmp++ = _c; *c_tmp = _d; /* control[4] ist immer 0 - appl_init() */ }
X
X#define AES_CALL() { asm("moveml a0-a3,sp@-"); asm("movel #_aespb,d1"); asm("movew #200,d0"); asm("trap #2"); asm("moveml sp@+,a0-a3"); }
X
Xtypedef struct {
X WORD ob_next;
X WORD ob_head;
X WORD ob_tail;
X unsigned WORD ob_type;
X unsigned WORD ob_flags;
X unsigned WORD ob_state;
X char *ob_spec;
X WORD ob_x;
X WORD ob_y;
X WORD ob_width;
X WORD ob_height;
X } OBJECT;
X
Xtypedef struct {
X char *te_ptext;
X char *te_ptmplt;
X char *te_pvalid;
X WORD te_font;
X WORD te_resvd1;
X WORD te_just;
X WORD te_color;
X WORD te_resvd2;
X WORD te_thickness;
X WORD te_txtlen;
X WORD te_tmplen;
X } TEDINFO;
X
Xtypedef struct {
X WORD *ib_pmask;
X WORD *ib_pdata;
X char *ib_ptext;
X WORD ib_char;
X WORD ib_xchar;
X WORD ib_ychar;
X WORD ib_xicon;
X WORD ib_yicon;
X WORD ib_wicon;
X WORD ib_hicon;
X WORD ib_xtext;
X WORD ib_ytext;
X WORD ib_wtext;
X WORD ib_htext;
X WORD ib_resvd;
X } ICONBLK;
X
Xtypedef struct {
X WORD *bi_pdata;
X WORD bi_wb;
X WORD bi_hl;
X WORD bi_x;
X WORD bi_y;
X WORD bi_color;
X } BITBLK;
X
Xtypedef struct {
X WORD (*ub_code)();
X LONG ub_parm;
X } USERBLK;
X
Xtypedef struct {
X OBJECT *pb_tree;
X WORD pb_obj;
X WORD pb_prevstate;
X WORD pb_currstate;
X WORD pb_x;
X WORD pb_y;
X WORD pb_w;
X WORD pb_h;
X WORD pb_xc;
X WORD pb_yc;
X WORD pb_wc;
X WORD pb_hc;
X LONG pb_parm;
X } PARMBLK;
X
Xtypedef struct {
X WORD mf_xhot;
X WORD mf_yhot;
X WORD mf_nplanes;
X WORD mf_fg;
X WORD mf_bg;
X WORD mf_mask[16];
X WORD mf_data[16];
X } MFORM;
SHAR_EOF
chmod 0644 gem-guts.h || echo "restore of gem-guts.h fails"
echo "x - extracting vdi.h (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi.h &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X/*
X * VDI.H - Headerfile fuer die VDI Bindings
X *
X * version 1.0 13.7.89 stefan brueck (sb)
X */
X
X#ifndef __VDI_H
X#define __VDI_H
X
X#include <portab.h>
X
Xextern WORD contrl[];
Xextern WORD intin[];
Xextern WORD intout[];
Xextern WORD ptsin[];
Xextern WORD ptsout[];
X
Xextern WORD *pblock[];
X
X/*
X * die einzelnen strukturen
X */
X
Xtypedef struct {
X char *fd_addr;
X WORD fd_w;
X WORD fd_h;
X WORD fd_wdwidth;
X WORD fd_stand;
X WORD fd_nplanes;
X WORD fd_r1;
X WORD fd_r2;
X WORD fd_r3;
X } FDB;
X
X/*
X * die einzelnen funtionen
X */
X
X/***************** kontrollfunktionen **********************/
X
XVOID v_opnwk(WORD work_in[], WORD *handle, WORD work_out[]);
XVOID v_clswk(WORD handle);
XVOID v_opnvwk(WORD work_in[], WORD *handle, WORD work_out[]);
XVOID v_clsvwk(WORD handle);
XVOID v_clrwk(WORD handle);
XVOID v_updwk(WORD handle);
XWORD vst_load_fonts(WORD handle, WORD select);
XVOID vst_unload_fonts(WORD handle, WORD select);
XVOID vs_clip(WORD handle, WORD clip_flag, WORD pxarray[]);
X
X/***************** ausgabefunktionen ***********************/
X
XVOID v_pline(WORD handle, WORD count, WORD pxyarray[]);
XVOID v_pmarker(WORD handle, WORD count, WORD pxyarray[]);
XVOID v_gtext(WORD handle, WORD x, WORD y, char *string);
XVOID v_fillarea(WORD handle, WORD count, WORD pxyarray[]);
XVOID v_cellarray(WORD handle, WORD pxyarray[], WORD row_length, WORD el_used, WORD num_rows, WORD wrt_mode, WORD colarray[]);
XVOID v_contourfill(WORD handle, WORD x, WORD y, WORD index);
XVOID vr_recfl(WORD handle, WORD pxyarray[]);
XVOID v_bar(WORD handle, WORD pxyarray[]);
XVOID v_arc(WORD handle, WORD x, WORD y, WORD radius, WORD begang, WORD endang);
XVOID v_pie(WORD handle, WORD x, WORD y, WORD radius, WORD begang, WORD endang);
XVOID v_circle(WORD handle, WORD x, WORD y, WORD radius);
XVOID v_ellipse(WORD handle, WORD x, WORD y, WORD xradius, WORD yradius);
XVOID v_ellarc(WORD handle, WORD x, WORD y, WORD xradius, WORD yradius, WORD begang, WORD endang);
XVOID v_ellpie(WORD handle, WORD x, WORD y, WORD xradius, WORD yradius, WORD begang, WORD endang);
XVOID v_rbox(WORD handle, WORD xyarray[]);
XVOID v_rfbox(WORD handle, WORD xyarray[]);
XVOID v_justified(WORD handle, WORD x, WORD y, char *string, WORD word_space, WORD char_space);
X
X/***************** attributfunktionen ******************/
X
XWORD vswr_mode(WORD handle, WORD mode);
XVOID vs_color(WORD handle, WORD index, WORD rgb_in[]);
XWORD vsl_type(WORD handle, WORD style);
XVOID vsl_udsty(WORD handle, WORD pattern);
XWORD vsl_width(WORD handle, WORD width);
XWORD vsl_color(WORD handle, WORD color_index);
XVOID vsl_ends(WORD handle, WORD beg_style, WORD end_style);
XWORD vsm_type(WORD handle, WORD symbol);
XWORD vsm_height(WORD handle, WORD height);
XWORD vsm_color(WORD handle, WORD color_index);
XVOID vst_height(WORD handle, WORD height, WORD *char_width, WORD *char_height, WORD *cell_width, WORD *cell_height);
XWORD vst_point(WORD handle, WORD point, WORD *char_width, WORD *char_height, WORD *cell_width, WORD *cell_height);
XWORD vst_rotation(WORD handle, WORD angle);
XWORD vst_font(WORD handle, WORD font);
XWORD vst_color(WORD handle, WORD color_index);
XWORD vst_effects(WORD handle, WORD effect);
XVOID vst_alignment(WORD handle, WORD hor_in, WORD vert_in, WORD *hor_out, WORD *vert_out);
XWORD vsf_interior(WORD handle, WORD style);
XWORD vsf_style(WORD handle, WORD style_index);
XWORD vsf_color(WORD handle, WORD color_index);
XWORD vsf_perimeter(WORD handle, WORD per_vis);
XVOID vsf_updat(WORD handle, WORD pfill_pat[], WORD planes);
X
X/********************* rasteroperationen ******************/
X
XVOID vro_cpyfm(WORD handle, WORD wr_mode, WORD pxyarray[], FDB *psrcMFDB, FDB *pdesMFDB);
XVOID vrt_cpyfm(WORD handle, WORD wr_mode, WORD pxyarray[], FDB *psrcMFDB, FDB *pdesMFDB, WORD color_index[]);
XVOID vr_trnfm(WORD handle, FDB *psrcMFDB, FDB *pdesMFDB);
XVOID v_get_pixel(WORD handle, WORD x, WORD y, WORD *pel, WORD *index);
X
X/******************** eingabefunktionen *******************/
X
XWORD vsin_mode(WORD handle, WORD dev_type, WORD mode);
XVOID vrq_locator(WORD handle, WORD x, WORD y, WORD *xout, WORD *yout, WORD *term);
XWORD vsm_locator(WORD handle, WORD x, WORD y, WORD *xout, WORD *yout, WORD *term);
XVOID vrq_valuator(WORD handle, WORD valuator_in, WORD *valuator_out, WORD *terminator);
XVOID vsm_valuator(WORD handle, WORD valuator_in, WORD *valuator_out, WORD *terminator, WORD *status);
XVOID vrq_choice(WORD handle, WORD ch_in, WORD *ch_out);
XWORD vsm_choice(WORD handle, WORD *choice);
XVOID vrq_string(WORD handle, WORD max_length, WORD echo_mode, WORD echo_xy[], char *string);
XWORD vsm_string(WORD handle, WORD max_length, WORD echo_mode, WORD echo_xy[], char *string);
XVOID vsc_form(WORD handle, WORD pcur_form[]);
XVOID vex_timv(WORD handle, LONG tim_addr, LONG *otim_addr, WORD *tim_conv);
XWORD v_show_c(WORD handle, WORD reset);
XWORD v_hide_c(WORD handle);
XVOID vq_mouse(WORD handle, WORD *pstatus, WORD *x, WORD *y);
XVOID vex_butv(WORD handle, LONG pusrcode, LONG *psavcode);
XVOID vex_motv(WORD handle, LONG pusrcode, LONG *psavcode);
XVOID vex_curv(WORD handle, LONG pusrcode, LONG *psavcode);
XWORD vq_key_s(WORD handle, WORD *pstatus);
X
X/******************* auskunftsfunktionen ********************/
X
XVOID vq_extnd(WORD handle, WORD owflag, WORD work_out[]);
XVOID vq_color(WORD handle, WORD color_index, WORD set_flag, WORD rgb[]);
XVOID vql_attributes( WORD handle, WORD attrib[]);
XVOID vqm_attributes( WORD handle, WORD attrib[]);
XVOID vqf_attributes( WORD handle, WORD attrib[]);
XVOID vqt_attributes( WORD handle, WORD attrib[]);
XVOID vqt_extent( WORD handle, char *string, WORD extent[]);
XWORD vqt_width( WORD handle, WORD character, WORD *cell_width, WORD *left_delta, WORD *right_delta);
XWORD vqt_name( WORD handle, WORD element_num, WORD name[]);
XVOID vq_cellarray( WORD handle, WORD pxyarray[], WORD row_length, WORD num_rows, WORD *el_used, WORD *rows_used, WORD *status, WORD colarray[]);
XVOID vqin_mode( WORD handle, WORD dev_type, WORD *input_mode);
XVOID vqt_fontinfo( WORD handle, WORD *minADE, WORD *maxADE, WORD distances[], WORD *maxwidth, WORD effects[]);
XVOID vq_chcells( WORD handle, WORD *rows, WORD *colums);
XVOID v_exit_cur( WORD handle);
XVOID v_enter_cur( WORD handle);
XVOID v_curup( WORD handle);
XVOID v_curdown( WORD handle);
XVOID v_curright( WORD handle);
XVOID v_curleft( WORD handle);
XVOID v_curhome( WORD handle);
XVOID v_eeos( WORD handle);
XVOID v_eeol( WORD handle);
XVOID v_curaddress( WORD handle, WORD row, WORD column);
XVOID v_curtext( WORD handle, char *string);
XVOID v_rvon( WORD handle);
XVOID v_rvoff( WORD handle);
XVOID vq_curaddress( WORD handle, WORD *row, WORD *column);
XWORD vq_tabstatus( WORD handle);
XVOID v_hardcopy( WORD handle);
XVOID v_dspcur( WORD handle, WORD x, WORD y);
XVOID v_rmcur( WORD handle);
XVOID v_form_adv( WORD handle);
XVOID v_output_window( WORD handle, WORD xyarray[]);
XVOID v_clear_disp_list( WORD handle);
XVOID v_bit_image( WORD handle, char *filename, WORD aspect, WORD scaling, WORD num_pts, WORD xyarray[]);
X
X/*
X * not yet implemented!
X VOID vs_palette( WORD handle, WORD palette);
X VOID vqp_films( WORD handle, char film_names[]);
X VOID vqp_state( WORD handle, WORD *port, WORD *film_name, WORD *lightness, WORD *interlace, WORD *planes, WORD *indexes);
X VOID vsp_state( WORD handle, WORD port, WORD film_name, WORD lightness, WORD interlace, WORD planes, WORD indexes[]);
X VOID vsp_save( WORD handle);
X VOID vsp_message( WORD handle);
X VOID vsp_error( WORD handle);
X*/
XVOID v_meta_extents( WORD handle, WORD min_x, WORD min_y, WORD max_x, WORD max_y);
XVOID v_write_meta( WORD handle, WORD num_intin, WORD a_intin[], WORD num_ptsin, WORD a_ptsin[]);
XVOID vm_filename( WORD handle, char *filename);
XVOID v_offset( WORD handle, WORD offset);
XVOID v_fontinit( WORD handle, WORD fh_high, WORD fh_low);
X
X#endif /* not __VDI_H */
SHAR_EOF
chmod 0644 vdi.h || echo "restore of vdi.h fails"
echo "x - extracting vdi11_10.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi11_10.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_justified(WORD handle, WORD x, WORD y, char *string, WORD length, WORD word_space, WORD char_space)
X{
X WORD *tmp;
X
X ptsin[0] = x;
X ptsin[1] = y;
X ptsin[2] = length;
X ptsin[3] = 0;
X intin[0] = word_space;
X intin[1] = char_space;
X tmp = &intin[2];
X while(*tmp++ = *string++);
X contrl[0] = 11;
X contrl[1] = 2;
X contrl[3] = strlen(string);
X contrl[5] = 10;
X contrl[6] = handle;
X VDI_CALL();
X}
X
SHAR_EOF
chmod 0644 vdi11_10.c || echo "restore of vdi11_10.c fails"
echo "x - extracting vdi5_1.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_1.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vq_chcells( WORD handle, WORD *rows, WORD *columns)
X{
X contrl[5] = 1;
X vdi_macro_a(5, handle);
X *rows = intout[0];
X *columns = intout[1];
X}
SHAR_EOF
chmod 0644 vdi5_1.c || echo "restore of vdi5_1.c fails"
echo "x - extracting vdi5_10.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_10.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_eeol( WORD handle)
X{
X contrl[5] = 10;
X vdi_macro_a(5, handle);
X}
X
X
SHAR_EOF
chmod 0644 vdi5_10.c || echo "restore of vdi5_10.c fails"
echo "x - extracting vdi5_100.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_100.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vm_filename( WORD handle, char *filename)
X{
X int i = 0;
X while (intin[i++] = *filename++);
X contrl[0] = 5;
X contrl[1] = 0;
X contrl[3] = --i;
X contrl[5] = 100;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
chmod 0644 vdi5_100.c || echo "restore of vdi5_100.c fails"
echo "x - extracting vdi5_101.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi5_101.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
SHAR_EOF
echo "End of part 3"
echo "File vdi5_101.c is continued in part 4"
echo "4" > s2_seq_.tmp
exit 0