Opensource.Platon.SK CVS: libco/utils/copp2 - diff

   Up to  [Platon] / libco / utils
Diff for libco/utils/copp2 between version 1.2 and 1.3


version 1.2, 2003/03/30 10:27:47
version 1.3, 2003/04/05 16:28:33



Line 2 




Line 2 




 IOTTA=/usr/bin/iotta
 IOTTA=/usr/bin/iotta


 mods=""
 mods=""


 # We need TEMP as the `eval set --' would nuke the return value of getopt.
 # We need TEMP as the `eval set --' would nuke the return value of getopt.


 TEMP=`getopt -o f:o: --long file:output: -n 'copp2' -- "$@"`
 TEMP=`getopt -o f:o:m:iC --long file:output:module:init -n 'copp2' -- "$@"`


 
 


 if [ $? != 0 ] ; then echo "Terminating..." >&2 ; exit 1 ; fi
 if [ $? != 0 ] ; then echo "terminating..." >&2 ; exit 1 ; fi


 
 


 # Note the quotes around `$TEMP': they are essential!
 # Note the quotes around `$TEMP': they are essential!


 eval set -- "$TEMP"
 eval set -- "$TEMP"


 
 


 
 out="-"


 
 sum="checksum;"


 
 


 while true ; do
 while true ; do


         case "$1" in
         case "$1" in


 
                 -m|--module)


 
                         files="$files,$2"


 
                         module="$2"


 
                         chain="copp"


 
                         echo "module: $2"


 
                         shift 2


 
                         ;;


 
                 -i|--init)


 
                         chain="init"


 
                         echo "init!"


 
                         shift


 
                         ;;


                 -f|--file)
                 -f|--file)


                         files="$files $2"
                         files="$files,$2"


                         echo "file: $2"
                         echo "file: $2"


                         shift 2
                         shift 2


                         ;;
                         ;;


 
                 -s|--suffix)


 
                         suff="$2"


 
                         echo "suffix: $2"


 
                         shift 2


 
                         ;;


 
                 -C|--no-checksum)


 
                         sum=""


 
                         shift


 
                         ;;


                 -o|--output)
                 -o|--output)


                         out="$2"
                         out="$2"


                         echo "out: $2"
                         echo "out: $2"


                         shift 2
                         shift 2


                         ;;
                         ;;


                 --) shift ; break ;;
                 --)


 
                         shift


 
                         for f in "$@"; do


 
                                 files="$files,$f"


 
                         done


 
                         break ;;


                 *) echo "Internal error!" ; exit 1 ;;
                 *) echo "Internal error!" ; exit 1 ;;


         esac
         esac


 done
 done


 #COPP_MODS=-I
 


 chain=copp
 perl -I../utils/ $IOTTA --conf "


 perl $COPP_MODS $IOTTA --conf "
 


 ctrl=Iotta::Ctrl::Chain
 ctrl=Iotta::Ctrl::Chain


 chain=$chain
 chain=$chain


 chain/copp=feed;initmeta;read;mko;ids;write
 chain/copp=feed;initmeta;read;cclean;${sum}p-objs;p-meth;p-ids;collect;cg-ids;cg-objs;cg-meth;templ;mko;write


 chain/ids=
 chain/init=feed;initmeta;read;cclean;${sum}cg-init;mko;write


 mod/feed=Iotta::Feeder::Files
 mod/feed=Iotta::Feeder::Files


 mod/feed/files=$files
 mod/feed/files=$files


 mod/initmeta=Iotta::Copp::InitMeta
 mod/initmeta=Iotta::Copp::InitMeta


 mod/cmdline=Ioota::Input::CmdLine
 mod/collect=Iotta::Copp::Collect


 mod/ids=Iotta::Copp::GetIDs
 mod/collect/module=$module


 
 


 
 mod/p-ids=Iotta::Copp::Parse::IDs


 
 mod/p-objs=Iotta::Copp::Parse::Objs


 
 mod/p-meth=Iotta::Copp::Parse::Meth


 
 


 
 mod/cg-ids=Iotta::Copp::CodeGen::IDs


 
 mod/cg-meth=Iotta::Copp::CodeGen::Meth


 
 mod/cg-objs=Iotta::Copp::CodeGen::Objs


 
 


 
 mod/cg-init=Iotta::Copp::CodeGen::InitFunc


 
 mod/cg-init/suffix=$suff


 
 


 
 mod/templ=Iotta::Copp::Template


 mod/read=Iotta::Input::File
 mod/read=Iotta::Input::File


 
 mod/cclean=Iotta::Copp::CClean


 
 mod/checksum=Iotta::Input::Checksum


 mod/write=Iotta::Output::File
 mod/write=Iotta::Output::File


 mod/mko=Iotta::Output::MkName
 mod/mko=Iotta::Output::MkName


 mod/mko/template=$out
 mod/mko/template=$out









Legend:


Removed from v.1.2
 


changed lines


 
Added in v.1.3


















Platon Group <platon@platon.org> http://platon.org/
  Up to  [Platon] / libco / utils
-version 1.2, 2003/03/30 10:27:47
+version 1.3, 2003/04/05 16:28:33
 Line 2
 Line 2
 Line 2
  IOTTA=/usr/bin/iotta
  mods=""
  # We need TEMP as the `eval set --' would nuke the return value of getopt.
- TEMP=`getopt -o f:o: --long file:output: -n 'copp2' -- "$@"`
+ TEMP=`getopt -o f:o:m:iC --long file:output:module:init -n 'copp2' -- "$@"`
- if [ $? != 0 ] ; then echo "Terminating..." >&2 ; exit 1 ; fi
+ if [ $? != 0 ] ; then echo "terminating..." >&2 ; exit 1 ; fi
  # Note the quotes around `$TEMP': they are essential!
  eval set -- "$TEMP"
+ out="-"
+ sum="checksum;"
  while true ; do
          case "$1" in
+                 -m|--module)
+                         files="$files,$2"
+                         module="$2"
+                         chain="copp"
+                         echo "module: $2"
+                         shift 2
+                         ;;
+                 -i|--init)
+                         chain="init"
+                         echo "init!"
+                         shift
+                         ;;
                  -f|--file)
-                         files="$files $2"
+                         files="$files,$2"
                          echo "file: $2"
                          shift 2
                          ;;
+                 -s|--suffix)
+                         suff="$2"
+                         echo "suffix: $2"
+                         shift 2
+                         ;;
+                 -C|--no-checksum)
+                         sum=""
+                         shift
+                         ;;
                  -o|--output)
                          out="$2"
                          echo "out: $2"
                          shift 2
                          ;;
-                 --) shift ; break ;;
+                 --)
+                         shift
+                         for f in "$@"; do
+                                 files="$files,$f"
+                         done
+                         break ;;
                  *) echo "Internal error!" ; exit 1 ;;
          esac
  done
- #COPP_MODS=-I
- chain=copp
+ perl -I../utils/ $IOTTA --conf "
- perl $COPP_MODS $IOTTA --conf "
  ctrl=Iotta::Ctrl::Chain
  chain=$chain
- chain/copp=feed;initmeta;read;mko;ids;write
+ chain/copp=feed;initmeta;read;cclean;${sum}p-objs;p-meth;p-ids;collect;cg-ids;cg-objs;cg-meth;templ;mko;write
- chain/ids=
+ chain/init=feed;initmeta;read;cclean;${sum}cg-init;mko;write
  mod/feed=Iotta::Feeder::Files
  mod/feed/files=$files
  mod/initmeta=Iotta::Copp::InitMeta
- mod/cmdline=Ioota::Input::CmdLine
+ mod/collect=Iotta::Copp::Collect
- mod/ids=Iotta::Copp::GetIDs
+ mod/collect/module=$module
+ mod/p-ids=Iotta::Copp::Parse::IDs
+ mod/p-objs=Iotta::Copp::Parse::Objs
+ mod/p-meth=Iotta::Copp::Parse::Meth
+ mod/cg-ids=Iotta::Copp::CodeGen::IDs
+ mod/cg-meth=Iotta::Copp::CodeGen::Meth
+ mod/cg-objs=Iotta::Copp::CodeGen::Objs
+ mod/cg-init=Iotta::Copp::CodeGen::InitFunc
+ mod/cg-init/suffix=$suff
+ mod/templ=Iotta::Copp::Template
  mod/read=Iotta::Input::File
+ mod/cclean=Iotta::Copp::CClean
+ mod/checksum=Iotta::Input::Checksum
  mod/write=Iotta::Output::File
  mod/mko=Iotta::Output::MkName
  mod/mko/template=$out
 Legend:


Removed from v.1.2
 


changed lines


 
Added in v.1.3
 Legend:


Removed from v.1.2
 


changed lines


 
Added in v.1.3
-Removed from v.1.2
+Added in v.1.3


Copyright © 2002-2006 Platon Group Site powered by Metafox CMS	Go to Top