This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-module(string_eqc). | |
-compile([export_all,nowarn_export_all]). | |
-include_lib("eqc/include/eqc.hrl"). | |
%%% | |
%%% Test most new functions in the new string module (PR #1330). | |
%%% | |
flat_chardata() -> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
colorBlur(#we{es=Etab}=We) -> | |
L0 = array:sparse_foldl( | |
fun(E, #edge{vs=Va,ve=Vb}, A) -> | |
Left0 = wings_va:edge_attrs(E, left, We), | |
Right0 = wings_va:edge_attrs(E, right, We), | |
Left = def_color(wings_va:attr(color, Left0)), | |
Right = def_color(wings_va:attr(color, Right0)), | |
[{Va,Left},{Va,Right},{Vb,Left},{Vb,Right}|A] | |
end, [], Etab), | |
[{V,Color}|L] = lists:sort(L0), |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/sh | |
# | |
# Suggested name for this script: git-clean-stale-branches | |
# | |
# This script will help to remove "stale" branches from a remote | |
# repository (by default the "origin" repository). Stale branches | |
# are any branches that does not exist in the local repository. | |
# | |
# This script should be run in the local repository. It will print | |
# out a git command to remove all branches from the remote repository |
NewerOlder