anchor.diff:              DistroAndLabel
       end.
   
  -ts_host_type() ->
  -    case os:getenv("TS_HOST_TYPE") of
  -        false -> "-";
  -        Val   -> Val
  -    end.
  -
   ts_extra_flatform_label() ->
       case os:getenv("TS_EXTRA_PLATFORM_LABEL") of
           false -> "-";
  
positive.code:                             io:format("Linux: ~s"
                                        "~n   Distro:                  ~s"
                                        "~n   TS Extra Platform Label: ~s"
                                        "~n   TS Host Type:            ~s"
                                        "~n   Product Name:            ~s"
                                        "~n",
                                        [Version, "Unknown SUSE", Label,
                                         ts_host_type(),
                                         linux_product_name()]),
                              throw({distro, {suse, simplify_label(Label)}})
                      end
  
negative.code:                             io:format("Linux: ~s"
                                        "~n   Distro:                  ~s"
                                        "~n   TS Extra Platform Label: ~s"
                                        "~n   Product Name:            ~s"
                                        "~n",
                                        [Version, DistroStr, Label,
                                         linux_product_name()]),
                              throw({distro,
                                     {montavista, simplify_label(Label)}});
  