浏览器

开发平台：
Unix_Linux

vrml.l：源码内容
							W               [ trn]
Q               ["']
NQ              [^"']
F               [-a-z0-9$_.!*(),%;/?:@&=+~|]
FA              [-a-z0-9$_.!*()%;/?:@&=+~|]
PA              [[]
PE              []]
NP              [^]]
%x VRML1
%x VRML1NAME VRML1REF
%x VRML2
%x VRML2URL VRML2REF VRML2REFEND
%{
/***************************************
  $Header: /home/amb/wwwoffle/RCS/vrml.l 1.4 1999/07/11 10:16:23 amb Exp $
  WWWOFFLE - World Wide Web Offline Explorer - Version 2.5.
  Parse the VRML and look for the WWWInline, WWWanchor and other things.
  ******************/ /******************
  Written by Walter Pfannenmueller
  This file Copyright 1997,98,99 Andrew M. Bishop
  It may be distributed under the GNU Public License, version 2, or
  any higher version.  See section COPYING of the GNU Public license
  for conditions under which this file may be redistributed.
  ***************************************/
#include "wwwoffle.h"
#include "errors.h"
#include "document.h"
extern int vrml_yylex(void);
#define vrml_yywrap() 1
/*+ The file descriptor that we are reading from. +*/
static int vrml_yyfd=-1;
/*+ A RefType helper variable. +*/
static RefType type;
/*+ A [] indicator. +*/
static int more = 0;
/*++++++++++++++++++++++++++++++++++++++
  Parse the VRML and look for references.
  int fd The file descriptor of the file to parse.
  URL *Url The reference URL to use.
  ++++++++++++++++++++++++++++++++++++++*/
void ParseVRML(int fd,URL *Url)
{
 static int first=1;
 PrintMessage(Debug,"Parsing document using VRML parser.");
 more=0;
 vrml_yyfd=fd;
 if(!first)
   vrml_yyrestart(NULL);
 BEGIN(INITIAL);
 vrml_yylex();
 first=0;
}
/*+ A macro to read data that can be used by the lexer. +*/
#define YY_INPUT(buf,result,max_size) 
        if((result=read_data(vrml_yyfd,buf,max_size))==-1) 
           result=0;
%}
%%
 /* Handle comments and other angle brackets */
"#VRML V1.0"            { BEGIN(VRML1); }
 
"#VRML V2.0"            { BEGIN(VRML2); }
.|r|n                 { }
 /*
	VRML V1.0
 */
 /* Comments */
<VRML1>"#".*            { BEGIN(VRML1); }
 /* Strings */
<VRML1>{Q}{NQ}*{Q}      { BEGIN(VRML1); }
<VRML1>"WWWAnchor"      { type = RefLink;
                          BEGIN(VRML1NAME); }
<VRML1>"WWWInline"      { type = RefInlineObject;
                          BEGIN(VRML1NAME); }
 /* Texture2Transform exists as well. */
<VRML1>"Texture2"{W}    { type = RefInlineObject;
                          BEGIN(VRML1NAME); }
<VRML1>.|r|n          { BEGIN(VRML1); }
 /* VRML V1.0 Reference */
<VRML1NAME>"#".*        { BEGIN(VRML1NAME); }
<VRML1NAME>{Q}{NQ}*{Q}  { BEGIN(VRML1NAME); }
<VRML1NAME>"file"*"name"{W}*{Q} { BEGIN(VRML1REF); }
<VRML1NAME>.|r|n      { BEGIN(VRML1NAME); }
<VRML1REF>{F}+          { AddReference(vrml_yytext,type);
                          /* printf("AddReference %s %dn",vrml_yytext,type); */ 
                          BEGIN(VRML1REF); }
<VRML1REF>{Q}           { BEGIN(VRML1); }
 /*
	VRML V2.0
 */
 /* Comments */
<VRML2>"#".*            { BEGIN(VRML2); }
 /* Strings */
<VRML2>{Q}{NQ}*{Q}      { BEGIN(VRML2); }
<VRML2>"Anchor"         { type = RefLink;
                          BEGIN(VRML2); }
<VRML2>"AudioClip"|"BackGround"|"ImageTexture"|"Inline"|"MovieTexture"|"Script"                         { type = RefInlineObject;
                          BEGIN(VRML2); }
<VRML2>"url"|"backUrl"|"bottomUrl"|"frontUrl"|"leftUrl"|"rightUrl"|"topUrl"              { BEGIN(VRML2URL); }
<VRML2>"EXTERNPROTO"{NP}*"]" { type = RefInlineObject;
                          BEGIN(VRML2URL); }
<VRML2>.|r|n          { BEGIN(VRML2); }
 /* URLs */
<VRML2URL>{PE}         { more = 0; BEGIN(VRML2); }
<VRML2URL>"#".*        { BEGIN(VRML2URL); }
<VRML2URL>{W}+         { BEGIN(VRML2URL); }
<VRML2URL>{PA}         { more = 1; BEGIN(VRML2URL); }
<VRML2URL>{Q}          { BEGIN(VRML2REF); }
<VRML2URL>","          { BEGIN(VRML2URL); }
<VRML2URL>.            { unput(*vrml_yytext); BEGIN(VRML2); }
<VRML2REF>"javascript:"{F}* { /* not implemented yet */ 
                              /* LoadURL, GrabVrmlFromURL functions
                                 could add URLs 
                               */    
                              BEGIN(VRML2REFEND); }
<VRML2REF>"javabc:"{F}*     { /* not implemented yet */ 
                              /* parsing java bytecode */
                              BEGIN(VRML2REFEND); }
<VRML2REF>{F}+          { AddReference(vrml_yytext,type);
                          /* printf("AddReference %s %dn",vrml_yytext,type); */
                          BEGIN(VRML2REFEND); }
<VRML2REFEND>{NQ}*{Q}   { BEGIN(more ? VRML2URL : VRML2); }
%%

						