This is error.c in view mode; [Download] [Up]
Changes file for /usr/local/src/kcl/./c/error.c Created on Wed Jun 19 10:59:53 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 (15 15 c)) @s[*/ #include "include.h" @s|*/ #include "include.h" #include <varargs.h> @s] ****Change:(orig (43 43 c)) @s[ if (y == Slambda_block) { @s| if (y == Slambda_block || y == siSlambda_block_expanded) { @s] ****Change:(orig (63 63 a)) @s[ return(Slambda_block_closure); return(x->c.c_car); } @s| return(Slambda_block_closure); return(x->c.c_car); } /* a general special form */ if (y->s.s_sfdef != NOT_SPECIAL) return y; @s] ****Change:(orig (66 66 a)) @s[ return(Cnil); case t_cfun: @s| return(Cnil); case t_cfun: case t_sfun: case t_vfun: case t_cclosure: case t_gfun: @s] ****Change:(orig (69 71 d)) @s[ case t_cclosure: return(x->cc.cc_name); @s| @s] ****Change:(orig (142 142 c)) @s[ vs_push(make_simple_string("~S requires more than ~R argument~:p.")); @s| vs_push(make_simple_string("~S [or a callee] requires more than ~R argument~:p.")); @s] ****Change:(orig (171 171 c)) @s[ vs_push(make_simple_string("~S requires less than ~R argument~:p.")); @s| vs_push(make_simple_string("~S [or a callee] requires less than ~R argument~:p.")); @s] ****Change:(orig (536 537 c)) @s[ vs_push(make_simple_string("~S requires ~R argument~:p,~%\ but only ~R ~:*~[were~;was~:;were~] supplied.")); @s| vs_push(make_simple_string("~S [or a callee] requires ~R argument~:p,~%but only ~R ~:*~[were~;was~:;were~] supplied.")); @s] ****Change:(orig (539 540 c)) @s[ vs_push(make_simple_string("~S requires only ~R argument~:p,~%\ but ~R ~:*~[were~;was~:;were~] supplied.")); @s| vs_push(make_simple_string("~S [or a callee] requires only ~R argument~:p,~%but ~R ~:*~[were~;was~:;were~] supplied.")); @s] ****Change:(orig (624 624 a)) @s[ FEerror("~S is an illegal index to ~S.", 2, i, x); } @s| FEerror("~S is an illegal index to ~S.", 2, i, x); } @s] ****Change:(orig (635 635 c)) @s[ vs_push(ihs_function_name((ihs_top - 1)->ihs_function)); @s| vs_push( (ihs_top > ihs_org) ? ihs_function_name((ihs_top - 1)->ihs_function) : Cnil); @s] ****Change:(orig (641 641 a)) @s[ call_error_handler(); } @s| call_error_handler(); } object LVerror(va_alist) va_dcl {va_list ap; va_start(ap); fcall.fun= make_cfun(Lerror,Cnil,Cnil,0,0); fcalln_general(ap); va_end(ap); return Cnil; } @s] ****Change:(orig (658 658 c)) @s[ vs_base = vs_top; vs_push(Cnil); } @s| vs_base = vs_top; vs_push(Cnil); } int vfun_wrong_number_of_args(x) object x; {FEerror("Expected ~S args but received ~S args",2, x,make_fixnum(VFUN_NARGS)); } @s]
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.