SisMaker пре 3 година
родитељ
комит
663ba9387b
5 измењених фајлова са 13 додато и 13 уклоњено
  1. +8
    -8
      include/eFaw.hrl
  2. +1
    -1
      src/Faw/fwFMgr.erl
  3. +2
    -2
      src/Faw/fwQueue.erl
  4. +1
    -1
      src/Faw/fwWTP.erl
  5. +1
    -1
      src/eFaw.erl

+ 8
- 8
include/eFaw.hrl Прегледај датотеку

@ -1,15 +1,15 @@
-define(wMod, wMod). %%
-define(wFCnt, wFCnt). %%
-define(wTCnt, wTCnt). %%
-define(wTLive, wTLive). %% (s)
-define(fTpm, fTpm). %% fifo lifo
-define(fTLfl, fTLfl). %% 线 0
-define(fTMax, fTMax). %%
-define(wMod, wMod). %% worker Mod
-define(wFCnt, wFCnt). %% worker fixed count
-define(wTCnt, wTCnt). %% worker temp count
-define(wTLive, wTLive). %% temp worker idle time(s) after to die
-define(fTpm, fTpm). %% Factory task processing mode fifo lifo
-define(fTLfl, fTLfl). %% Factory task load line When the factory load exceeds this value, temp workers can be hired
-define(fTMax, fTMax). %% Maximum plant load Beyond this value, the factory will no longer accept tasks
-type fawOtp() :: {?wMod, atom()} |{?wFCnt, pos_integer()} |{?wTCnt, pos_integer()} |{?wTLive, pos_integer()} |{?fTpm, fifo | lifo} |{?fTLfl, pos_integer()} | {?fTMax, pos_integer()}.
-define(FawDefV, [
, {?wMod, fwWTP}
{?wMod, fwWTP}
, {?wFCnt, 30}
, {?wTCnt, 20}
, {?wTLive, 300}

+ 1
- 1
src/Faw/fwFMgr.erl Прегледај датотеку

@ -46,7 +46,7 @@ handleInfo({mChAddW, FName}, _State) ->
AddCnt = WTCnt + WFCnt - WorkerCnt,
case AddCnt > 0 of
true ->
hireW(AddCnt, FName, true);
eFaw:hireW(AddCnt, FName, true);
_ ->
ignore
end;

+ 2
- 2
src/Faw/fwQueue.erl Прегледај датотеку

@ -33,7 +33,7 @@ ins(Name, Values) ->
[ets:insert(Name, {erlang:unique_integer(), Value}) || Value <- Values],
true.
-spec out(Name :: atom()) -> empty | Value :: term().
-spec outF(Name :: atom()) -> empty | Value :: term().
outF(Name) ->
case ets:first_take(Name) of
[] ->
@ -42,7 +42,7 @@ outF(Name) ->
Value
end.
-spec out(Name :: atom()) -> empty | Value :: term().
-spec outL(Name :: atom()) -> empty | Value :: term().
outL(Name) ->
case ets:last_take(Name) of
[] ->

+ 1
- 1
src/Faw/fwWTP.erl Прегледај датотеку

@ -61,7 +61,7 @@ code_change(_OldVsn, State, _Extra) ->
work(task1, State) ->
State;
work(task1, State) ->
work(task2, State) ->
State;
work(_Task, State) ->
State.

+ 1
- 1
src/eFaw.erl Прегледај датотеку

@ -100,7 +100,7 @@ inWorks(FName, Works) ->
fwQueue:ins(FName, Works)
end.
-spec syncWork(FName :: atom(), Work :: term()) -> true | false.
-spec syncWork(FName :: atom(), RetTag :: atom(), Timeout :: pos_integer() | infinity, Work :: term()) -> true | false.
syncWork(FName, RetTag, Timeout, Work) ->
FTaskLen = fwQueue:size(FName),
FTMax = FName:getV(?fTMax),

Loading…
Откажи
Сачувај