This is typespec.c in view mode; [Download] [Up]
Changes file for /usr/local/src/kcl/./c/typespec.c
Created on Mon Feb 4 23:25:31 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 (13 13 a))
@s[*/
#include "include.h"
@s|*/
#include "include.h"
#include "mp.h"
@s]
****Change:(orig (15 28 c))
@s[object
St, Snil, Scommon,
Snull, Scons, Slist, Ssymbol,
Sarray, Svector, Sbit_vector, Sstring,
@s,Sbit, Sreadtable, Slong_float, Shash_table;
@s|object Sfat_string;
@s]
****Change:(orig (32 32 d))
@s[object Skeyword;
object Sstructure;
@s|object Skeyword;
@s]
****Change:(orig (34 61 d))
@s[object Ssatisfies;
object Smember;
object Snot;
@s,object TSor_pathname_string_symbol_stream;
@s|
@s]
****Change:(orig (82 82 c))
@s[ if (big_sign((struct bignum *)(*p)) >= 0)
@s| if (big_sign((*p)) >= 0)
@s]
****Change:(orig (306 306 a))
@s[ *p = wrong_type_argument(Svector, *p);
goto BEGIN;
}
}
@s| *p = wrong_type_argument(Svector, *p);
goto BEGIN;
}
}
void
check_type(x,t)
object x;
int t;
{if (type_of(x) !=t)
FEerror("~s is not a ~a",2,
x,make_simple_string(tm_table[t].tm_name +1));
}
@s]
****Change:(orig (317 317 c))
@s[ vs_base[0] = Sfixnum;
break;
@s| vs_base[0] = Sfixnum;
break;
case t_fat_string:
vs_base[0] = Sfat_string;
break;
@s]
****Change:(orig (407 407 c))
@s[ vs_base[0] = vs_base[0]->str.str_name;
@s|
vs_base[0] = S_DATA(vs_base[0]->str.str_def)->name;
@s]
****Change:(orig (410 410 a))
@s[ break;
case t_stream:
@s| break;
case t_stream:
#ifdef USER_DEFINED_STREAMS
if (vs_base[0]->sm.sm_mode == (int)smm_user_defined)
vs_base[0]= vs_base[0]->sm.sm_object1->str.str_self[8];
else
#endif
@s]
****Change:(orig (425 425 a))
@s[ vs_base[0] = Srandom_state;
break;
@s| vs_base[0] = Srandom_state;
break;
case t_sfun:
case t_gfun:
@s]
****Change:(orig (426 426 a))
@s[ case t_cfun:
@s| case t_cfun:
case t_vfun:
@s]
****Change:(orig (427 427 a))
@s[ case t_cclosure:
@s| case t_cclosure:
case t_dclosure:
@s]
****Change:(orig (546 546 c))
@s[ enter_mark_origin(&Sunsigned_byte);
@s| enter_mark_origin(&Sunsigned_byte);
Ssigned_char = make_ordinary("SIGNED-CHAR");
enter_mark_origin(&Ssigned_char);
Sunsigned_char = make_ordinary("UNSIGNED-CHAR");
enter_mark_origin(&Sunsigned_char);
Ssigned_short = make_ordinary("SIGNED-SHORT");
enter_mark_origin(&Ssigned_short);
Sunsigned_short = make_ordinary("UNSIGNED-SHORT");
enter_mark_origin(&Sunsigned_short);
Sfat_string = make_ordinary("FAT-STRING");
enter_mark_origin(&Sfat_string);
@s]
****Change:(orig (548 548 a))
@s[ enter_mark_origin(&SA);
@s| enter_mark_origin(&SA);
Splusp = make_ordinary("PLUSP");
enter_mark_origin(&Splusp);
@s]
****Change:(orig (569 569 a))
@s[ enter_mark_origin(&TSnon_negative_integer);
@s| enter_mark_origin(&TSnon_negative_integer);
TSpositive_number = make_cons(Ssatisfies, make_cons(Splusp, Cnil));
enter_mark_origin(&TSpositive_number);
@s]
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.