diff options
| author | fukachan <fukachan> | 2004-12-15 23:15:14 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-12-15 23:15:14 +0000 |
| commit | 35459512e25452cbe2ed623993ebb44d66a39093 (patch) | |
| tree | b6d42fc360b201c04e5df15b5a3a66464ba0f25c | |
| parent | fca3f677d96567ee601a58563fdda054207f1d81 (diff) | |
| download | fml8-35459512e25452cbe2ed623993ebb44d66a39093.tar.gz fml8-35459512e25452cbe2ed623993ebb44d66a39093.tar.bz2 fml8-35459512e25452cbe2ed623993ebb44d66a39093.zip | |
FNF
| -rwxr-xr-x | regress/fml4to8/gen_rules.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/regress/fml4to8/gen_rules.pl b/regress/fml4to8/gen_rules.pl index 9d2cfb47..c56f164b 100755 --- a/regress/fml4to8/gen_rules.pl +++ b/regress/fml4to8/gen_rules.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl # -# $FML$ +# $FML: gen_rules.pl,v 1.1 2004/12/09 03:45:12 fukachan Exp $ # use strict; @@ -92,6 +92,12 @@ sub _preamble print q! package FML::Merge::FML4::Rules; + +# Descriptions: translate fml4 rule to the corresponding fml8 one. +# Arguments: OBJ($self) +# HASH_REF($dispatch) HASH_REF($diff) STR($key) STR($value) +# Side Effects: none +# Return Value: STR sub translate { my ($self, $dispatch, $diff, $key, $value) = @_; |