Commit 2af1d3b5 authored by Erick Gallesio's avatar Erick Gallesio

Code adaptation for Win32

parent 9adf9f43
......@@ -13,8 +13,8 @@
m4_ifndef([AC_AUTOCONF_VERSION],
[m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl
m4_if(m4_defn([AC_AUTOCONF_VERSION]), [2.67],,
[m4_warning([this file was generated for autoconf 2.67.
m4_if(m4_defn([AC_AUTOCONF_VERSION]), [2.68],,
[m4_warning([this file was generated for autoconf 2.68.
You have another version of autoconf. It may work, but is not guaranteed to.
If you have problems, you may need to regenerate the build system entirely.
To do so, use the procedure documented by the package, typically `autoreconf'.])])
......
This diff is collapsed.
......@@ -42,7 +42,7 @@ subdir = doc
DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \
$(srcdir)/stklos-compile.1.in $(srcdir)/stklos-config.1.in \
$(srcdir)/stklos-genlex.1.in $(srcdir)/stklos-pkg.1.in \
$(srcdir)/stklos.1.in TODO
$(srcdir)/stklos.1.in
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
......
......@@ -18,21 +18,21 @@ SRC = ../lib/http.stk \
repository.stk rewrite.stk misc.stk tune.stk types.stk
SFLAGS =
RM = /bin/rm
SCC = ../utils/stklos-compile
COMP = ../utils/tmpcomp
GENLEX = ../utils/tmpgenlex
lang-bigloo.inc: lang-bigloo.l
stklos-genlex lang-bigloo.l lang-bigloo.inc lang-bigloo
$(GENLEX) lang-bigloo.l lang-bigloo.inc lang-bigloo
lang-chicken.inc: lang-chicken.l
stklos-genlex lang-chicken.l lang-chicken.inc lang-chicken
$(GENLEX) lang-chicken.l lang-chicken.inc lang-chicken
lang-mzscheme.inc: lang-mzscheme.l
stklos-genlex lang-mzscheme.l lang-mzscheme.inc lang-mzscheme
$(GENLEX) lang-mzscheme.l lang-mzscheme.inc lang-mzscheme
$(bin_SCRIPTS): $(LEXOBJS) $(SRC)
../utils/tmpcomp main.stk $(bin_SCRIPTS)
# $(SCC) $(SFLAGS) -o $(bin_SCRIPTS) main.stk
$(COMP) main.stk $(bin_SCRIPTS)
clean:
$(RM) -f $(bin_SCRIPTS) *~
......
......@@ -217,7 +217,8 @@ SRC = ../lib/http.stk \
SFLAGS =
RM = /bin/rm
SCC = ../utils/stklos-compile
COMP = ../utils/tmpcomp
GENLEX = ../utils/tmpgenlex
all: all-am
.SUFFIXES:
......@@ -452,17 +453,16 @@ uninstall-am: uninstall-binSCRIPTS uninstall-makefileDATA
lang-bigloo.inc: lang-bigloo.l
stklos-genlex lang-bigloo.l lang-bigloo.inc lang-bigloo
$(GENLEX) lang-bigloo.l lang-bigloo.inc lang-bigloo
lang-chicken.inc: lang-chicken.l
stklos-genlex lang-chicken.l lang-chicken.inc lang-chicken
$(GENLEX) lang-chicken.l lang-chicken.inc lang-chicken
lang-mzscheme.inc: lang-mzscheme.l
stklos-genlex lang-mzscheme.l lang-mzscheme.inc lang-mzscheme
$(GENLEX) lang-mzscheme.l lang-mzscheme.inc lang-mzscheme
$(bin_SCRIPTS): $(LEXOBJS) $(SRC)
../utils/tmpcomp main.stk $(bin_SCRIPTS)
# $(SCC) $(SFLAGS) -o $(bin_SCRIPTS) main.stk
$(COMP) main.stk $(bin_SCRIPTS)
clean:
$(RM) -f $(bin_SCRIPTS) *~
......
This diff is collapsed.
;; This file has been generated. (DON'T EDIT)
;; generated on Mon Aug 22 11:19:02 2011
(require "lex-rt")
(define lang-chicken
(lambda (%%input)
(letrec ((%%self
(make <lex>
:input
%%input
:table
(vector
'line
(lambda (yycontinue yygetc yyungetc)
(lambda (yytext yyline) 'eof))
(lambda (yycontinue yygetc yyungetc)
(lambda (yytext yyline)
(error 'chicken-preprocessor
"parse error ~S (line ~a)"
yytext
(lexer-get-line))))
(vector
#f
(lambda (yycontinue yygetc yyungetc)
(lambda (yyline) "#\\\""))
#t
(lambda (yycontinue yygetc yyungetc)
(lambda (yytext yyline) yytext))
#t
(lambda (yycontinue yygetc yyungetc)
(lambda (yytext yyline) yytext))
#f
(lambda (yycontinue yygetc yyungetc)
(lambda (yyline) "#eof"))
#t
(lambda (yycontinue yygetc yyungetc)
(lambda (yytext yyline) yytext))
#t
(lambda (yycontinue yygetc yyungetc)
(lambda (yytext yyline) yytext)))
'code
(lambda (<<eof>>-pre-action
<<error>>-pre-action
rules-pre-action
is)
(letrec ((user-action-<<eof>> #f)
(user-action-<<error>> #f)
(user-action-0 #f)
(user-action-1 #f)
(user-action-2 #f)
(user-action-3 #f)
(user-action-4 #f)
(user-action-5 #f)
(start-go-to-end
(cdr (assq 'start-go-to-end is)))
(end-go-to-point
(cdr (assq 'end-go-to-point is)))
(init-lexeme (cdr (assq 'init-lexeme is)))
(get-start-line
(cdr (assq 'get-start-line is)))
(get-start-column
(cdr (assq 'get-start-column is)))
(get-start-offset
(cdr (assq 'get-start-offset is)))
(peek-left-context
(cdr (assq 'peek-left-context is)))
(peek-char (cdr (assq 'peek-char is)))
(read-char (cdr (assq 'read-char is)))
(get-start-end-text
(cdr (assq 'get-start-end-text is)))
(user-getc (cdr (assq 'user-getc is)))
(user-ungetc (cdr (assq 'user-ungetc is)))
(action-<<eof>>
(lambda (yyline)
(user-action-<<eof>> "" yyline)))
(action-<<error>>
(lambda (yyline)
(user-action-<<error>> "" yyline)))
(action-0
(lambda (yyline)
(start-go-to-end)
(user-action-0 yyline)))
(action-1
(lambda (yyline)
(let ((yytext (get-start-end-text)))
(start-go-to-end)
(user-action-1 yytext yyline))))
(action-2
(lambda (yyline)
(let ((yytext (get-start-end-text)))
(start-go-to-end)
(user-action-2 yytext yyline))))
(action-3
(lambda (yyline)
(start-go-to-end)
(user-action-3 yyline)))
(action-4
(lambda (yyline)
(let ((yytext (get-start-end-text)))
(start-go-to-end)
(user-action-4 yytext yyline))))
(action-5
(lambda (yyline)
(let ((yytext (get-start-end-text)))
(start-go-to-end)
(user-action-5 yytext yyline))))
(state-0
(lambda (action)
(let ((c (read-char)))
(if c
(if (< c 36)
(if (< c 34)
(state-1 action)
(if (< c 35)
(state-3 action)
(state-4 action)))
(if (= c 59)
(state-2 action)
(state-1 action)))
action))))
(state-1
(lambda (action)
(end-go-to-point)
(let ((c (read-char)))
(if c
(if (< c 36)
(if (< c 34)
(state-1 action-4)
action-4)
(if (= c 59)
action-4
(state-1 action-4)))
action-4))))
(state-2
(lambda (action)
(end-go-to-point)
(let ((c (read-char)))
(if c
(if (= c 10)
action-2
(state-2 action-2))
action-2))))
(state-3
(lambda (action)
(let ((c (read-char)))
(if c
(if (< c 35)
(if (< c 34)
(state-3 action)
(state-6 action))
(if (= c 92)
(state-5 action)
(state-3 action)))
action))))
(state-4
(lambda (action)
(end-go-to-point)
(let ((c (read-char)))
(if c
(if (< c 34)
(if (< c 33)
action-5
(state-7 action-5))
(if (= c 92)
(state-8 action-5)
action-5))
action-5))))
(state-5
(lambda (action)
(let ((c (read-char)))
(if c
(if (= c 10) action (state-3 action))
action))))
(state-6
(lambda (action)
(end-go-to-point)
action-1))
(state-7
(lambda (action)
(let ((c (read-char)))
(if c
(if (= c 101)
(state-9 action)
action)
action))))
(state-8
(lambda (action)
(let ((c (read-char)))
(if c
(if (= c 34)
(state-10 action)
action)
action))))
(state-9
(lambda (action)
(let ((c (read-char)))
(if c
(if (= c 111)
(state-11 action)
action)
action))))
(state-10
(lambda (action)
(end-go-to-point)
action-0))
(state-11
(lambda (action)
(let ((c (read-char)))
(if c
(if (= c 102)
(state-12 action)
action)
action))))
(state-12
(lambda (action)
(end-go-to-point)
action-3))
(start-automaton
(lambda ()
(if (peek-char)
(state-0 action-<<error>>)
action-<<eof>>)))
(final-lexer
(lambda ()
(init-lexeme)
(let ((yyline (get-start-line)))
((start-automaton) yyline)))))
(set! user-action-<<eof>>
(<<eof>>-pre-action
final-lexer
user-getc
user-ungetc))
(set! user-action-<<error>>
(<<error>>-pre-action
final-lexer
user-getc
user-ungetc))
(set! user-action-0
((vector-ref rules-pre-action 1)
final-lexer
user-getc
user-ungetc))
(set! user-action-1
((vector-ref rules-pre-action 3)
final-lexer
user-getc
user-ungetc))
(set! user-action-2
((vector-ref rules-pre-action 5)
final-lexer
user-getc
user-ungetc))
(set! user-action-3
((vector-ref rules-pre-action 7)
final-lexer
user-getc
user-ungetc))
(set! user-action-4
((vector-ref rules-pre-action 9)
final-lexer
user-getc
user-ungetc))
(set! user-action-5
((vector-ref rules-pre-action 11)
final-lexer
user-getc
user-ungetc))
final-lexer)))))
(lexer-get-line #f)
(lexer-getc #f)
(lexer-ungetc #f))
(set! lexer-get-line (slot-ref %%self 'line))
(set! lexer-getc (slot-ref %%self 'line))
(set! lexer-ungetc (slot-ref %%self 'line))
%%self)))
This diff is collapsed.
......@@ -42,7 +42,7 @@ POST_UNINSTALL = :
bin_PROGRAMS = stklos$(EXEEXT)
subdir = src
DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \
$(srcdir)/extraconf.h.in $(srcdir)/stklosconf.h.in TODO
$(srcdir)/extraconf.h.in $(srcdir)/stklosconf.h.in
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
......
......@@ -24,7 +24,7 @@
;;;; Last file update: 2-Jun-2007 10:38 (eg)
;;;;
(require "pp")
(include "../lib/SILex.d/silex.scm")
(define *runtime-file* "lex-rt")
......
#!/bin/sh
#
# tmpgenlex -- A temporary script used when bootstraping the system
#
# Copyright © 2011 Erick Gallesio - I3S-CNRS/ESSI <[email protected]>
#
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
# USA.
#
# Author: Erick Gallesio [[email protected]]
# Creation date: 1-Jan-2002 18:57 (eg)
# Last file update: 26-Apr-2007 16:15 (eg)
#
STKLOS_LOAD_PATH="../lib"
export STKLOS_LOAD_PATH
../src/stklos -c -q -b ../src/boot.img -f ../utils/stklos-genlex -- $*
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment