Category : Files from Magazines
Archive   : CUJ9209.ZIP
Filename : 1009027A

 
Output of file : 1009027A contained in archive : CUJ9209.ZIP
STRING \"[^"]*
CHARC \'[^']*
AB "//"
CB "/*"
CE "*/"
ESC "\\"
BB "{"
BE "}"
SP [ \n\t]
STMNT .*";"
TRY "try"{SP}*{BB}
CATCH "catch"{SP}*"("{SP}*/.*")"{SP}*"{"
ELIPS "..."{SP}*")"{SP}*"{"
ARGU .*{SP}*")"{SP}*"{"
CEMPTY {SP}*")"{SP}*"{"
THROW "throw".*";"
THROWD ")"{SP}*"throw"{SP}*"(".*")"/{SP}*"{"
%START Try Catch CatchArg ThrowD End
%{
#include
int scope;
char *throwArgs[YYLMAX];
%}
%%
{STRING}|{CHARC} { /* Skip character or string constants */
if(yytext[yyleng-1] == '\\')
yymore();
else
printf("%s%c", yytext, input());
}
{AB}.*$ { /* C++ comment handling */ ECHO; }
{CB} { /* C comment handling */
int c;
ECHO;
while(1) {
output(c=input());
/* Check for end of comment */
if( c == '*' ) {
if((c=input()) == '/') {
output(c);
break;
}
unput(c);
}
}
}
{TRY} {
printf("if(setjmp(*ExH::stk++)==0) {");
scope=0;
BEGIN Try;
}
{BE} {
ECHO;
if(--scope < 0) {
printf("ExH::stk--; }"); /* Pop */
BEGIN Catch;
}
{CATCH} { scope = 0; BEGIN CatchArg; }
{ELIPS} {
printf("else {");
BEGIN 0;
}
{CEMPTY} {
fprintf(stderr, "ERROR: Catch must have an argument\n");
exit(1);
}
{ARGU} {
char *type, *ref, *var=0;

/* Looks for reference */
type = strtok(yytext, ")");
ref = strchr(type, '&');

/* Identifies the type */
type = strtok(yytext, " \t\n&");
printf("else if( ExH::ex()->type() == %s::stype()) {", type);

/* Looks for a variable declaration */
if(var = strtok(NULL, " \t\n)")) {
if(ref) ref = "&";
else ref = "";
printf(" %s%s %s = *((%s*)ExH::ex());", type, ref, var, type);
}
BEGIN Catch;
}
{BB} {ECHO; ++scope;}
{BE} {
ECHO;
if(--scope < 0) BEGIN End;
}
{STMNT} |
{BE} {
printf("else unexpected();");
ECHO;
BEGIN 0;
}
{THROW} { /* Normal throw */
char *p;

/* skip 'throw' and pass the rest of the sentence as argument */
p = strtok(yytext+5, ";");
if(!p) p = "";
printf("ExH::throw(%s);", p);
}
{THROWD} { /* Throw Declaration ( type f() throw (x1, x2, etc) ) */
char *p;
p = strstr(yytext, "throw");
*p = 0;

/* Save throw args for future catchs */
strcpy(throwArgs, p+5);

/* Prints function name and start with try */
printf("%s{ if(setjmp(*ExH::try_())==0)", yytext);

/* Prints the function body */
scope = 0;
BEGIN ThrowD;
}
{BE} {
ECHO;
if(--scope <= 0) {
char *p;

p = strchr(throwArgs, '(') + 1;
while(p=strtok(p, " ,)")) {
printf("else if( ExH::ex()->type() == %s::stype()) ", p);
printf("ExH::throw(*ExH::ex());");
p = 0;
}
printf("else unexpected(); }");
BEGIN 0;
}
}


  3 Responses to “Category : Files from Magazines
Archive   : CUJ9209.ZIP
Filename : 1009027A
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/