diff options
| author | Paul Green <Paul.Green@stratus.com> | 2002-08-13 06:25:00 -0400 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-18 02:11:49 +0000 |
| commit | 3fd80bd61943d0f83ebe1ce9c42b05023a1b7a18 (patch) | |
| tree | da7d148f694b9e506e7e0ab08b87ada0a1549bfd /vos/vos_dummies.c | |
| parent | bc9a1b2c5e2f12d01588e919e960d711341d5416 (diff) | |
| download | perl-3fd80bd61943d0f83ebe1ce9c42b05023a1b7a18.tar.gz | |
Remove old VOS build methods
Message-id: <200208131426.KAA01012@mailhub1.stratus.com>
p4raw-id: //depot/perl@17732
Diffstat (limited to 'vos/vos_dummies.c')
| -rw-r--r-- | vos/vos_dummies.c | 99 |
1 files changed, 0 insertions, 99 deletions
diff --git a/vos/vos_dummies.c b/vos/vos_dummies.c deleted file mode 100644 index ec4964574e..0000000000 --- a/vos/vos_dummies.c +++ /dev/null @@ -1,99 +0,0 @@ -/* +++begin copyright+++ ******************************************* */ -/* */ -/* COPYRIGHT (c) 1997, 1998, 1999, 2000 Stratus Computer (DE), Inc. */ -/* */ -/* This program is free software; you can redistribute it and/or */ -/* modify it under the terms of either: */ -/* */ -/* a) the GNU General Public License as published by the Free */ -/* Software Foundation; either version 1, or (at your option) any */ -/* later version, or */ -/* */ -/* b) the "Artistic License" which comes with this Kit. */ -/* */ -/* 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 either */ -/* the GNU General Public License or the Artistic License for more */ -/* details. */ -/* */ -/* You should have received a copy of the Artistic License with this */ -/* Kit, in the file named "Artistic". If not, you can get one from */ -/* the Perl distribution. */ -/* */ -/* You should also have received a copy of the GNU General Public */ -/* License along with this program; if not, you can get one from */ -/* the Perl distribution or else write to the Free Software */ -/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA */ -/* 02111-1307, USA. */ -/* */ -/* +++end copyright+++ ********************************************* */ - -#define _POSIX_C_SOURCE 199309L - -#include <stdio.h> -#include <string.h> -#include <sys/types.h> - -extern void s$stop_program (char_varying (256) *command_line, - short int *error_code); -extern void s$write_code (char_varying *record_buffer, - short int *error_code); -extern int vos_call_debug (); - -#pragma page -static void bomb (char *p_name) -{ -char_varying(256) msgvs; - - strcpy_vstr_nstr (&msgvs, "FATAL ERROR: Call to unimplemented function '"); - strcat_vstr_nstr (&msgvs, p_name); - strcat_vstr_nstr (&msgvs, "'. Entering debugger."); - s$write_code (&msgvs, &0); - - strcpy_vstr_nstr (&msgvs, "Please capture the output of the 'trace' request and mail it to Paul_Green@stratus.com."); - s$write_code (&msgvs, &0); - - vos_call_debug (); - - strcpy_vstr_nstr (&msgvs, "Return from debugger. Stopping program. Sorry but this error is unrecoverable."); - s$write_code (&msgvs, &0); - s$stop_program (&"", &1); -} - -extern int dup (int _fildes) -{ - bomb ("dup"); -} - -extern int do_aspawn () -{ - bomb ("do_aspawn"); -} - -extern int do_spawn () -{ - bomb ("do_spawn"); -} - -extern pid_t fork (void) -{ - bomb ("fork"); -} - -extern void Perl_dump_mstats (char *s) -{ - bomb ("Perl_dump_mstats"); -} - -extern int Perl_get_mstats (struct perl_mstats *buf, int buflen, int level) -{ - bomb ("Perl_get_mstats"); -} - -extern pid_t waitpid (pid_t pid, int *stat_loc, int options) -{ - - bomb ("waitpid"); -} - |