koreth%panarthea.ebay@sun.com (Steven Grimm) (07/21/89)
Submitted-by: uunet!unido!sbsvax!roeder (Edgar Roeder)
Posting-number: Volume 2, Issue 61
Archive-name: gccgem/part06
#!/bin/sh
# this is part 6 of a multipart archive
# do not concatenate these parts, unpack them in order with /bin/sh
# file vdi_18.c continued
#
CurArch=6
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 vdi_18.c"
sed 's/^X//' << 'SHAR_EOF' >> vdi_18.c
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 vsm_type(WORD handle, WORD symbol)
X{ return vdi_macro_b(18, handle, symbol); }
SHAR_EOF
echo "File vdi_18.c is complete"
chmod 0644 vdi_18.c || echo "restore of vdi_18.c fails"
echo "x - extracting vdi_19.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_19.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 vsm_height(WORD handle, WORD height)
X{
X ptsin[0] = 0;
X ptsin[1] = height;
X contrl[0] = 19;
X contrl[1] = 1;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X return ptsout[1];
X}
X
SHAR_EOF
chmod 0644 vdi_19.c || echo "restore of vdi_19.c fails"
echo "x - extracting vdi_2.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_2.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_clswk(WORD handle) { vdi_macro_a(2, handle); }
SHAR_EOF
chmod 0644 vdi_2.c || echo "restore of vdi_2.c fails"
echo "x - extracting vdi_20.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_20.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 vsm_color(WORD handle, WORD color_index)
X{ return vdi_macro_b(20, handle, color_index); }
X
SHAR_EOF
chmod 0644 vdi_20.c || echo "restore of vdi_20.c fails"
echo "x - extracting vdi_21.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_21.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 vst_font(WORD handle, WORD font)
X{ return vdi_macro_b(21, handle, font); }
SHAR_EOF
chmod 0644 vdi_21.c || echo "restore of vdi_21.c fails"
echo "x - extracting vdi_22.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_22.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 vst_color(WORD handle, WORD color_index)
X{ return vdi_macro_b(22, handle, color_index); }
SHAR_EOF
chmod 0644 vdi_22.c || echo "restore of vdi_22.c fails"
echo "x - extracting vdi_23.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_23.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 vsf_interior(WORD handle, WORD style)
X{ return vdi_macro_b(23, handle, style); }
SHAR_EOF
chmod 0644 vdi_23.c || echo "restore of vdi_23.c fails"
echo "x - extracting vdi_24.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_24.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 vsf_style(WORD handle, WORD style_index)
X{ return vdi_macro_b(24, handle, style_index); }
SHAR_EOF
chmod 0644 vdi_24.c || echo "restore of vdi_24.c fails"
echo "x - extracting vdi_25.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_25.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 vsf_color(WORD handle, WORD color_index)
X{ return vdi_macro_b(25, handle, color_index); }
SHAR_EOF
chmod 0644 vdi_25.c || echo "restore of vdi_25.c fails"
echo "x - extracting vdi_26.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_26.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_color(WORD handle, WORD color_index, WORD set_flag, WORD *rgb)
X{
X intin[0] = color_index;
X intin[1] = set_flag;
X contrl[0] = 26;
X contrl[1] = 0;
X contrl[3] = 2;
X contrl[6] = handle;
X VDI_CALL();
X *rgb++ = intout[1];
X *rgb++ = intout[2];
X *rgb = intout[3];
X}
SHAR_EOF
chmod 0644 vdi_26.c || echo "restore of vdi_26.c fails"
echo "x - extracting vdi_27.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_27.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_cellarray( WORD handle, WORD pxyarray[], WORD row_length, WORD num_rows, WORD *el_used, WORD *rows_used, WORD *status, WORD colarray[])
X{
X pblock[2] = pxyarray;
X pblock[3] = colarray;
X contrl[0] = 27;
X contrl[1] = 2;
X contrl[3] = 0;
X contrl[6] = handle;
X contrl[7] = row_length;
X contrl[8] = num_rows;
X VDI_CALL();
X *el_used = contrl[9];
X *rows_used = contrl[10];
X *status = contrl[11];
X pblock[2] = ptsin;
X pblock[3] = intout;
X}
X
SHAR_EOF
chmod 0644 vdi_27.c || echo "restore of vdi_27.c fails"
echo "x - extracting vdi_28.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_28.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 vrq_locator(WORD handle, WORD x, WORD y, WORD *xout, WORD *yout, WORD *term)
X{
X ptsin[0] = x;
X ptsin[0] = x;
X contrl[0] = 28;
X contrl[1] = 1;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X *xout = ptsout[0];
X *yout = ptsout[1];
X *term = intout[0];
X}
X
XWORD vsm_locator(WORD handle, WORD x, WORD y, WORD *xout, WORD *yout, WORD *term)
X{
X vrq_locator(handle, x, y, xout, yout, term);
X return (contrl[4]<<1|contrl[2]);
X}
SHAR_EOF
chmod 0644 vdi_28.c || echo "restore of vdi_28.c fails"
echo "x - extracting vdi_29.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_29.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 vrq_valuator(WORD handle, WORD valuator_in, WORD *valuator_out, WORD *terminator)
X{
X intin[0] = valuator_in;
X contrl[0] = 29;
X contrl[1] = 0;
X contrl[3] = 1;
X contrl[6] = handle;
X VDI_CALL();
X *valuator_out = intout[0];
X *terminator = intout[1];
X}
X
XVOID vsm_valuator(WORD handle, WORD val_in, WORD *val_out, WORD *term, WORD *status)
X{
X vrq_valuator(handle, val_in, val_out, term);
X *status = contrl[4];
X}
SHAR_EOF
chmod 0644 vdi_29.c || echo "restore of vdi_29.c fails"
echo "x - extracting vdi_3.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_3.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_clrwk(WORD handle) { vdi_macro_a(3, handle); }
SHAR_EOF
chmod 0644 vdi_3.c || echo "restore of vdi_3.c fails"
echo "x - extracting vdi_30.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_30.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 vrq_choice(WORD handle, WORD ch_in, WORD *ch_out)
X{
X intin[0] = ch_in;
X contrl[0] = 30;
X contrl[1] = 0;
X contrl[3] = 1;
X contrl[6] = handle;
X VDI_CALL();
X *ch_out = intout[0];
X}
X
XWORD vsm_choice(WORD handle, WORD *choice)
X{
X contrl[0] = 30;
X contrl[1] = 0;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X *choice = intout[0];
X return contrl[4];
X}
SHAR_EOF
chmod 0644 vdi_30.c || echo "restore of vdi_30.c fails"
echo "x - extracting vdi_31.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_31.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 vrq_string(WORD handle, WORD max_length, WORD echo_mode, WORD echo_xy[], char *string)
X{
X int i;
X intin[0] = max_length;
X intin[1] = echo_mode;
X pblock[2] = echo_xy;
X contrl[0] = 31;
X contrl[1] = echo_mode;
X contrl[3] = 2;
X contrl[6] = handle;
X VDI_CALL();
X for (i=0; i<contrl[4];i++)
X *string++ = intout[i];
X *string = '\0';
X pblock[2] = ptsin;
X}
X
XWORD vsm_string(WORD handle, WORD max_length, WORD echo_mode, WORD echo_xy[], char *string)
X{
X vrq_string(handle, max_length, echo_mode, echo_xy, string);
X return contrl[4];
X}
X
SHAR_EOF
chmod 0644 vdi_31.c || echo "restore of vdi_31.c fails"
echo "x - extracting vdi_32.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_32.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 vswr_mode(WORD handle, WORD mode)
X{ return vdi_macro_b(32, handle, mode); }
X
SHAR_EOF
chmod 0644 vdi_32.c || echo "restore of vdi_32.c fails"
echo "x - extracting vdi_33.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_33.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 vsin_mode(WORD handle, WORD dev_type, WORD mode)
X{
X intin[0] = dev_type;
X intin[1] = mode;
X contrl[0]= 33;
X contrl[2]= 0;
X contrl[3]= 2;
X contrl[6]= handle;
X VDI_CALL();
X return intout[0];
X}
SHAR_EOF
chmod 0644 vdi_33.c || echo "restore of vdi_33.c fails"
echo "x - extracting vdi_35.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_35.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 vql_attributes(WORD handle, WORD attrib[])
X{
X pblock[3] = attrib;
X contrl[0] = 35;
X contrl[1] = 0;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X pblock[3] = intout;
X attrib[5] = ptsout[0];
X}
SHAR_EOF
chmod 0644 vdi_35.c || echo "restore of vdi_35.c fails"
echo "x - extracting vdi_36.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_36.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 vqm_attributes(WORD handle, WORD attrib[])
X{
X pblock[3] = attrib;
X contrl[0] = 36;
X contrl[1] = 0;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X pblock[3] = intout;
X attrib[3] = ptsout[0];
X attrib[4] = ptsout[1];
X}
SHAR_EOF
chmod 0644 vdi_36.c || echo "restore of vdi_36.c fails"
echo "x - extracting vdi_37.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_37.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 vqf_attributes(WORD handle, WORD attrib[])
X{
X pblock[3] = attrib;
X contrl[0] = 37;
X contrl[1] = 0;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X pblock[3] = intout;
X}
SHAR_EOF
chmod 0644 vdi_37.c || echo "restore of vdi_37.c fails"
echo "x - extracting vdi_38.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_38.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 vqt_attributes(WORD handle, WORD attrib[])
X{
X pblock[3] = attrib;
X pblock[4] = attrib+6;
X contrl[0] = 38;
X contrl[1] = 0;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X pblock[3] = intout;
X pblock[4] = ptsout;
X}
SHAR_EOF
chmod 0644 vdi_38.c || echo "restore of vdi_38.c fails"
echo "x - extracting vdi_39.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_39.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 vst_alignment(WORD handle, WORD hor_in, WORD vert_in, WORD *hor_out, WORD *vert_out)
X{
X intin[0] = hor_in;
X intin[1] = vert_in;
X contrl[0] = 39;
X contrl[1] = 0;
X contrl[3] = 2;
X contrl[6] = handle;
X VDI_CALL();
X *hor_out = intout[0];
X *vert_out = intout[1];
X}
SHAR_EOF
chmod 0644 vdi_39.c || echo "restore of vdi_39.c fails"
echo "x - extracting vdi_4.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_4.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_updwk(WORD handle) { vdi_macro_a(4, handle); }
SHAR_EOF
chmod 0644 vdi_4.c || echo "restore of vdi_4.c fails"
echo "x - extracting vdi_6.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_6.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_pline(WORD handle, WORD count, WORD pxyarray[])
X{ vdi_macro_c(6, handle, count, pxyarray); }
SHAR_EOF
chmod 0644 vdi_6.c || echo "restore of vdi_6.c fails"
echo "x - extracting vdi_7.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_7.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_pmarker(WORD handle, WORD count, WORD pxyarray[])
X{ vdi_macro_c(7, handle, count, pxyarray); }
SHAR_EOF
chmod 0644 vdi_7.c || echo "restore of vdi_7.c fails"
echo "x - extracting vdi_8.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_8.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_gtext(WORD handle, WORD x, WORD y, char *string)
X{
X int i = 0;
X ptsin[0] = x;
X ptsin[1] = y;
X while (intin[i++] = *string++);
X contrl[0] = 8;
X contrl[1] = 1;
X contrl[3] = --i;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
chmod 0644 vdi_8.c || echo "restore of vdi_8.c fails"
echo "x - extracting vdi_9.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_9.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_fillarea(WORD handle, WORD count, WORD pxyarray[])
X{ vdi_macro_c(9, handle, count, pxyarray); }
SHAR_EOF
chmod 0644 vdi_9.c || echo "restore of vdi_9.c fails"
echo "x - extracting vdi_b.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_b.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 vdi_macro_b(WORD nummer, WORD eingabe1, WORD eingabe2)
X{
X contrl[0] = nummer;
X contrl[1] = 0;
X contrl[3] = 1;
X contrl[6] = eingabe1;
X intin[0] = eingabe2;
X VDI_CALL();
X return intout[0];
X}
X
SHAR_EOF
chmod 0644 vdi_b.c || echo "restore of vdi_b.c fails"
echo "x - extracting vdi_c.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_c.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 vdi_macro_c(WORD nummer, WORD eingabe1, WORD eingabe2, WORD eingabe3[])
X{
X contrl[0] = nummer;
X contrl[1] = eingabe2;
X contrl[3] = 0;
X contrl[6] = eingabe1;
X pblock[2] = eingabe3;
X VDI_CALL();
X pblock[2] = ptsin;
X}
X
X
SHAR_EOF
chmod 0644 vdi_c.c || echo "restore of vdi_c.c fails"
echo "x - extracting vdi_d.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_d.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 vdi_macro_d(WORD nummer, WORD handle, WORD eingabe)
X{
X contrl[0] = nummer;
X contrl[1] = 0;
X contrl[3] = 1;
X contrl[6] = handle;
X intin[0] = eingabe;
X VDI_CALL();
X}
X
X
SHAR_EOF
chmod 0644 vdi_d.c || echo "restore of vdi_d.c fails"
echo "x - extracting vdi_e.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_e.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 vdi_macro_e(WORD nummer, WORD handle, LONG pusrcode, LONG *psavcode)
X{
X *((LONG *) &contrl[7]) = pusrcode;
X contrl[0] = nummer;
X contrl[1] = 0;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X *psavcode = *((LONG *) &contrl[9]);
X}
X
SHAR_EOF
chmod 0644 vdi_e.c || echo "restore of vdi_e.c fails"
echo "x - extracting vdi_m_a.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_m_a.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 vdi_macro_a(WORD nummer, WORD handle)
X{
X contrl[0] = nummer;
X contrl[1] = 0;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
chmod 0644 vdi_m_a.c || echo "restore of vdi_m_a.c fails"
rm -f s2_seq_.tmp
echo "You have unpacked the last part"
exit 0