This is main.c in view mode; [Download] [Up]
/*********************************************************************** * * Main Module * * $Revision: 1.5 $ * $Date: 1995/07/18 06:25:09 $ * $Author: sbb $ * ***********************************************************************/ /*********************************************************************** * * Copyright (C) 1990, 1991, 1992, 1994, 1995 Free Software Foundation, Inc. * Written by Steve Byrne. * * This file is part of GNU Smalltalk. * * GNU Smalltalk 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 1, or (at your option) any later * version. * * GNU Smalltalk 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 * GNU Smalltalk; see the file COPYING. If not, write to the Free Software * Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. * ***********************************************************************/ /* * Change Log * ============================================================================ * Author Date Change * sbb 1 Jan 92 Created from old mstmain.c (now mstlib.c) * */ #include "lib.h" #include "gstpub.h" #if STDC_HEADERS #include <stdlib.h> /* for EXIT !!! */ #endif #ifdef atarist long _stksize = -1L; /* what does this do? */ #endif void main(argc, argv) int argc; char **argv; { smalltalkArgs(argc, argv); initSmalltalk(); topLevelLoop(); exit(0); } void testMain(argc, argv) int argc; char **argv; { /* char *str; OOP o; */ #ifdef out_temp /* Sat Feb 8 17:08:18 1992 */ /**/ o = msgEval("'foo on you' printNl!"); /**/ msgSendf(nil, "%s %o inspect", o); #endif /* out_temp Sat Feb 8 17:08:18 1992 */ #ifdef temp /* Thu Jan 2 22:23:07 1992 */ /**/ /**/ smalltalkArgs(argc, argv); /**/ initSmalltalk(); /**/ /**/ msgSendf(nil, "%s %s printNl", "This is a test"); /**/ msgSendf(&str, "%s %s , %s", "This is a test", " ok?"); /**/ msgSendf(nil, "%s %s printNl", str); #endif /* temp Thu Jan 2 22:23:07 1992 */ exit(0); }
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.