This is sys_kcl.c in view mode; [Download] [Up]
Changes file for /usr/local/src/kcl/unixport/sys_kcl.c
Created on Sun Apr 21 07:15:29 1991
Usage \n@s[Original text\n@s|Replacement Text\n@s]
See the file rascal.ics.utexas.edu:/usr2/ftp/merge.c
for a program to merge change files. Anything not between
"\n@s[" and "\n@s]" is a simply a comment.
This file was constructed using emacs and merge.el
Enhancements Copyright (c) W. Schelter All rights reserved.
by (Bill Schelter) wfs@carl.ma.utexas.edu
****Change:(orig (3 3 c))
@s[static object fasl_data;
@s|extern void user_init();
@s]
****Change:(orig (4 4 a))
@s[
@s|
void init_or_load1 ();
#define init_or_load(fn,file) do {extern int fn(); init_or_load1(fn,file);} \
while(0)
static load1(x)
char *x;
{printf("loading %s\n",x);
fflush(stdout);
load(x);}
@s]
****Change:(orig (7 8 d))
@s[ enter_mark_origin(&fasl_data);
fasl_data = Cnil;
@s|
@s]
****Change:(orig (10 19 c))
@s[ load("../lsp/export.lsp");
fasl_data = read_fasl_data("../lsp/defmacro.o");
init_defmacro(NULL, 0, fasl_data);
fasl_data = read_fasl_data("../lsp/evalmacros.o");
@s, load("../lsp/autoload.lsp");
@s| load1("../lsp/export.lsp");
init_or_load(init_defmacro,"../lsp/defmacro.o");
init_or_load(init_evalmacros,"../lsp/evalmacros.o");
init_or_load(init_top,"../lsp/top.o");
init_or_load(init_module,"../lsp/module.o");
load1("../lsp/autoload.lsp");
@s]
****Change:(orig (24 79 c))
@s[ printf("Initializing predlib... "); fflush(stdout);
fasl_data = read_fasl_data("../lsp/predlib.o");
init_predlib(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
@s, init_trace(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
@s| init_or_load(init_predlib,"../lsp/predlib.o");
init_or_load(init_setf,"../lsp/setf.o");
init_or_load(init_arraylib,"../lsp/arraylib.o");
init_or_load(init_assert,"../lsp/assert.o");
init_or_load(init_defstruct,"../lsp/defstruct.o");
init_or_load(init_describe,"../lsp/describe.o");
init_or_load(init_iolib,"../lsp/iolib.o");
init_or_load(init_listlib,"../lsp/listlib.o");
init_or_load(init_mislib,"../lsp/mislib.o");
init_or_load(init_numlib,"../lsp/numlib.o");
init_or_load(init_packlib,"../lsp/packlib.o");
init_or_load(init_seq,"../lsp/seq.o");
init_or_load(init_seqlib,"../lsp/seqlib.o");
init_or_load(init_trace,"../lsp/trace.o");
init_or_load(init_sloop,"../lsp/sloop.o");
init_or_load(init_cmpinline,"../cmpnew/cmpinline.o");
init_or_load(init_cmputil,"../cmpnew/cmputil.o");
@s]
****Change:(orig (81 200 c))
@s[ printf("Initializing cmpinline... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpinline.o");
init_cmpinline(NULL, 0, fasl_data);
@s, init_cmpwt(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
@s| init_or_load(init_debug,"../lsp/debug.o");
@s]
****Change:(orig (202 202 c))
@s[ Vpackage->s.s_dbind = user_package;
@s| init_or_load(init_cmptype,"../cmpnew/cmptype.o");
init_or_load(init_cmpbind,"../cmpnew/cmpbind.o");
init_or_load(init_cmpblock,"../cmpnew/cmpblock.o");
init_or_load(init_cmpcall,"../cmpnew/cmpcall.o");
init_or_load(init_cmpcatch,"../cmpnew/cmpcatch.o");
init_or_load(init_cmpenv,"../cmpnew/cmpenv.o");
init_or_load(init_cmpeval,"../cmpnew/cmpeval.o");
init_or_load(init_cmpflet,"../cmpnew/cmpflet.o");
init_or_load(init_cmpfun,"../cmpnew/cmpfun.o");
init_or_load(init_cmpif,"../cmpnew/cmpif.o");
init_or_load(init_cmplabel,"../cmpnew/cmplabel.o");
init_or_load(init_cmplam,"../cmpnew/cmplam.o");
init_or_load(init_cmplet,"../cmpnew/cmplet.o");
init_or_load(init_cmploc,"../cmpnew/cmploc.o");
init_or_load(init_cmpmap,"../cmpnew/cmpmap.o");
init_or_load(init_cmpmulti,"../cmpnew/cmpmulti.o");
init_or_load(init_cmpspecial,"../cmpnew/cmpspecial.o");
init_or_load(init_cmptag,"../cmpnew/cmptag.o");
init_or_load(init_cmptop,"../cmpnew/cmptop.o");
init_or_load(init_cmpvar,"../cmpnew/cmpvar.o");
init_or_load(init_cmpvs,"../cmpnew/cmpvs.o");
init_or_load(init_cmpwt,"../cmpnew/cmpwt.o");
Vpackage->s.s_dbind = user_package;
user_init();
@s]
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.