Dasemu
40631362b3
Establishes version control for the personal Logseq DB fork before starting the server-client architecture migration and domain features described in docs/agent-guide and the approved implementation plan. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
49 lines
1.3 KiB
OCaml
49 lines
1.3 KiB
OCaml
type parsed_command =
|
|
| Version
|
|
| Graph of Graph.parsed
|
|
| List of List_command.parsed
|
|
| Upsert of Upsert.parsed
|
|
| Remove of Remove.parsed
|
|
| Search of Search.parsed
|
|
| Query of Query.parsed
|
|
| Show of Show.parsed
|
|
| Server of Server_command.parsed
|
|
| Sync of Sync.parsed
|
|
| Auth of Auth_command.parsed
|
|
| Agent of Agent.parsed
|
|
| Doctor of Doctor.parsed
|
|
| Debug of Debug.parsed
|
|
| Skill of Skill.parsed
|
|
| Completion of Completion.parsed
|
|
| Example of Example.parsed
|
|
|
|
type t = {
|
|
globals : Global_opts.t;
|
|
path : string Rrbvec.t;
|
|
command : parsed_command;
|
|
raw_args : string Rrbvec.t;
|
|
}
|
|
|
|
let make ~globals ~path ~command ~raw_args =
|
|
{ globals; path; command; raw_args }
|
|
|
|
let command_id t =
|
|
match t.command with
|
|
| Version -> Command_id.Version
|
|
| Graph p -> Graph.command_id p
|
|
| List p -> List_command.command_id p
|
|
| Upsert p -> Upsert.command_id p
|
|
| Remove p -> Remove.command_id p
|
|
| Search p -> Search.command_id p
|
|
| Query p -> Query.command_id p
|
|
| Show p -> Show.command_id p
|
|
| Server p -> Server_command.command_id p
|
|
| Sync p -> Sync.command_id p
|
|
| Auth p -> Auth_command.command_id p
|
|
| Agent p -> Agent.command_id p
|
|
| Doctor p -> Doctor.command_id p
|
|
| Debug p -> Debug.command_id p
|
|
| Skill p -> Skill.command_id p
|
|
| Completion p -> Completion.command_id p
|
|
| Example p -> Example.command_id p
|