Changeset 22


Ignore:
Timestamp:
Jan 19, 2000, 10:51:04 PM (21 years ago)
Author:
pooh
Message:

* empty log message *

Location:
to-imperative/trunk
Files:
5 added
12 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/rfp_err.rf

    r21 r22  
    1616// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
    1717//
    18 // $Version$
     18// $Source$ $Revision$ $Date$
    1919// Author: Andrey Slepuhin <pooh@msu.ru>
    2020
  • to-imperative/trunk/compiler/rfp_err.rfi

    r15 r22  
     1//
     2// Copyright (C) 1999, 2000 Refal+ Development Group
     3//
     4// Refal+ is free software; you can redistribute it and/or modify
     5// it under the terms of the GNU General Public License as published by
     6// the Free Software Foundation; either version 2 of the License, or
     7// (at your option) any later version.
     8//
     9// Refal+ is distributed in the hope that it will be useful,
     10// but WITHOUT ANY WARRANTY; without even the implied warranty of
     11// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     12// GNU General Public License for more details.
     13//
     14// You should have received a copy of the GNU General Public License
     15// along with Refal+; if not, write to the Free Software
     16// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
     17//
     18// $Source$
     19// $Revision$
     20// $Date$
     21// Author: Andrey Slepuhin <pooh@msu.ru>
     22
    123$func RFP-Error (e.pos) (e.message) = ;
    224$func RFP-Warning (e.pos) (e.message) = ;
  • to-imperative/trunk/compiler/rfp_lex.rf

    r20 r22  
    1616// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
    1717//
    18 // $Version: $
     18// $Source$
     19// $Revision$
     20// $Date$
    1921// Author: Andrey Slepuhin <pooh@msu.ru>
    2022
  • to-imperative/trunk/compiler/rfp_lex.rfi

    r15 r22  
     1//
     2// Copyright (C) 1999, 2000 Refal+ Development Group
     3//
     4// Refal+ is free software; you can redistribute it and/or modify
     5// it under the terms of the GNU General Public License as published by
     6// the Free Software Foundation; either version 2 of the License, or
     7// (at your option) any later version.
     8//
     9// Refal+ is distributed in the hope that it will be useful,
     10// but WITHOUT ANY WARRANTY; without even the implied warranty of
     11// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     12// GNU General Public License for more details.
     13//
     14// You should have received a copy of the GNU General Public License
     15// along with Refal+; if not, write to the Free Software
     16// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
     17//
     18// $Source$
     19// $Revision$
     20// $Date$
     21// Author: Andrey Slepuhin <pooh@msu.ru>
     22
    123$func RFP-Lexer e.filename = e.tokens ;
  • to-imperative/trunk/compiler/rfp_parse.rf

    r20 r22  
    1616// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
    1717//
    18 // $Version: $
     18// $Source$
     19// $Revision$
     20// $Date$
    1921// Author: Andrey Slepuhin <pooh@msu.ru>
    2022
  • to-imperative/trunk/compiler/rfp_parse.rfi

    r15 r22  
     1//
     2// Copyright (C) 1999, 2000 Refal+ Development Group
     3//
     4// Refal+ is free software; you can redistribute it and/or modify
     5// it under the terms of the GNU General Public License as published by
     6// the Free Software Foundation; either version 2 of the License, or
     7// (at your option) any later version.
     8//
     9// Refal+ is distributed in the hope that it will be useful,
     10// but WITHOUT ANY WARRANTY; without even the implied warranty of
     11// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     12// GNU General Public License for more details.
     13//
     14// You should have received a copy of the GNU General Public License
     15// along with Refal+; if not, write to the Free Software
     16// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
     17//
     18// $Source$
     19// $Revision$
     20// $Date$
     21// Author: Andrey Slepuhin <pooh@msu.ru>
     22
    123$func RFP-Parser e.tokens = t.as ;
  • to-imperative/trunk/compiler/rfp_src.rf

    r20 r22  
    1616// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
    1717//
    18 // $Version: $
     18// $Source$
     19// $Revision$
     20// $Date$
    1921// Author: Andrey Slepuhin <pooh@msu.ru>
    2022
  • to-imperative/trunk/compiler/rfp_src.rfi

    r15 r22  
     1//
     2// Copyright (C) 1999, 2000 Refal+ Development Group
     3//
     4// Refal+ is free software; you can redistribute it and/or modify
     5// it under the terms of the GNU General Public License as published by
     6// the Free Software Foundation; either version 2 of the License, or
     7// (at your option) any later version.
     8//
     9// Refal+ is distributed in the hope that it will be useful,
     10// but WITHOUT ANY WARRANTY; without even the implied warranty of
     11// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     12// GNU General Public License for more details.
     13//
     14// You should have received a copy of the GNU General Public License
     15// along with Refal+; if not, write to the Free Software
     16// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
     17//
     18// $Source$
     19// $Revision$
     20// $Date$
     21// Author: Andrey Slepuhin <pooh@msu.ru>
     22
    123$func? RFP-Src-Open-File e.filename = e.source ;
    224$func? RFP-Src-Open-StdIN = e.source ;
  • to-imperative/trunk/compiler/rfpc.rf

    r20 r22  
    1616// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
    1717//
    18 // $Version: $
     18// $Source$
     19// $Revision$
     20// $Date$
    1921// Author: Andrey Slepuhin <pooh@msu.ru>
    2022
  • to-imperative/trunk/compiler/rfpc.rfi

    r19 r22  
     1//
     2// Copyright (C) 1999, 2000 Refal+ Development Group
     3//
     4// Refal+ is free software; you can redistribute it and/or modify
     5// it under the terms of the GNU General Public License as published by
     6// the Free Software Foundation; either version 2 of the License, or
     7// (at your option) any later version.
     8//
     9// Refal+ is distributed in the hope that it will be useful,
     10// but WITHOUT ANY WARRANTY; without even the implied warranty of
     11// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     12// GNU General Public License for more details.
     13//
     14// You should have received a copy of the GNU General Public License
     15// along with Refal+; if not, write to the Free Software
     16// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
     17//
     18// $Source$
     19// $Revision$
     20// $Date$
     21// Author: Andrey Slepuhin <pooh@msu.ru>
     22
    123$const RFP-Dir-Separator = '/' ;
    224$const RFP-Root = '/usr' ;
  • to-imperative/trunk/configure

    r15 r22  
    11#!/bin/sh
     2
     3package=rfpc
     4version_major=0
     5version_minor=0
     6version_micro=0
     7version=$version_major.$version_minor.$version_micro
     8
     9install_dir=/usr/local
     10
     11help () {
     12  cat <<EOF
     13Usage: configure [options]
     14
     15Possible options are:
     16  -prefix <dir>         install directory (default /usr/local)
     17  -name                 shows package name
     18  -version              shows package version
     19EOF
     20  exit 1
     21}
     22
     23while true; do
     24  if [ -z "$1" ]; then break; fi
     25  case $1 in
     26  -prefix)
     27    shift
     28    if [ -z "$1" ]; then help; fi
     29    install_dir="$1"
     30    ;;
     31  -name)
     32    echo $package
     33    exit 0
     34    ;;
     35  -version)
     36    echo $version
     37    exit 0
     38    ;;
     39  -help|*)
     40    help
     41    ;;
     42  esac
     43  shift
     44done
     45
     46. ./config.functions
     47
     48config_mk=config.mk
     49subdirs_mk=subdirs.mk
     50
     51if [ -e "$config_mk" ] ; then
     52  rm $config_mk
     53fi
     54
     55if [ -e "$subdirs_mk" ] ; then
     56  rm $subdirs_mk
     57fi
     58
     59if [ -z "$RFP" ]; then RFP="rfp" ; fi
     60if [ -z "$RFPC" ]; then RFPC="rfpc" ; fi
     61
     62echon "Checking for working Refal+ compiler... "
     63cat <<EOF >cfgtest.rf
     64Main = ;
     65EOF
     66if $RFP -o cfgtest cfgtest.rf >/dev/null 2>&1; then
     67  echo "found"
     68  rm -f cfgtest cfgtest.rf
     69else
     70  echo "not found"
     71  rm -f cfgtest cfgtest.rf
     72  exit 1
     73fi
     74 
     75cat >>$config_mk <<EOF
     76RFP=$RFP
     77RFPC=$RFPC
     78EOF
     79
     80cat >>$subdirs_mk <<EOF
     81SUBDIRS+=src
     82EOF
     83
  • to-imperative/trunk/rules.mk

    r14 r22  
    1818
    1919%.o: %.rf
    20         $(RFPC) -c $@ $<
     20        $(RFPC) $<
    2121
    2222%.o: %.c
Note: See TracChangeset for help on using the changeset viewer.