Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Preparing for a new release.

git-svn-id: https://wings.svn.sourceforge.net/svnroot/wings/trunk@167 a0a82711-911a-0410-9f52-85ee3e23afd8
  • Loading branch information...
commit 0d846c917569caf317adb06f22e7a50371e6c856 1 parent 679abb2
@bjorng bjorng authored
Showing with 45 additions and 4 deletions.
  1. +2 −3 Makefile
  2. +42 −0 tools/verify_language_files
  3. +1 −1  vsn.mk
View
5 Makefile
@@ -3,13 +3,11 @@
#
# Top-level Makefile for building Wings 3D.
#
-# Copyright (c) 2001-2005 Bjorn Gustavsson
+# Copyright (c) 2001-2007 Bjorn Gustavsson
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# $Id: Makefile,v 1.23 2006/01/20 14:47:02 giniu Exp $
-#
include vsn.mk
all:
@@ -40,6 +38,7 @@ lang:
(cd intl_tools; $(MAKE))
(cd src; $(MAKE) lang)
(cd plugins_src; $(MAKE) lang)
+ escript tools/verify_language_files .
#
# Build installer for Windows.
View
42 tools/verify_language_files
@@ -0,0 +1,42 @@
+#!/usr/bin/env escript
+%% -*- erlang -*-
+%%
+%% verify_language_files --
+%%
+%% Verify that all language files are consultable.
+%%
+%% Copyright (c) 2007 Bjorn Gustavsson
+%%
+%% See the file "license.terms" for information on usage and redistribution
+%% of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+%%
+
+main([Root]) ->
+ Files = filelib:fold_files(Root, ".lang$", true,
+ fun(N, Acc) -> [N|Acc] end, []),
+ case verify_files(Files, 0) of
+ 0 ->
+ halt(0);
+ N ->
+ io:format("~p error(s)\n", [N]),
+ receive after 100 -> ok end,
+ halt(1)
+ end;
+main(_) ->
+ io:put_chars("usage: verify_language_files RootDirectory\n"),
+ halt(1).
+
+verify_files([F|Fs], Errors) ->
+ case file:consult(F) of
+ {ok,_} ->
+ verify_files(Fs, Errors);
+ {error,{Line,Mod,Reason}} ->
+ io:format("~s:~p: ~p\n", [F,Line,Mod:format_error(Reason)]),
+ verify_files(Fs, Errors+1);
+ {error,Reason} ->
+ io:format("~s: ~p\n", [F,Reason]),
+ verify_files(Fs, Errors+1)
+ end;
+verify_files([], Errors) -> Errors.
+
+
View
2  vsn.mk
@@ -1 +1 @@
-WINGS_VSN=0.99.00a
+WINGS_VSN=0.99.00b
Please sign in to comment.
Something went wrong with that request. Please try again.