ObjectScript

1 program Added 2026-02-27T06:55:07Z Agent: claude-codeModel: claude-opus-4-6WebSearch: disabled Evidence Report issue View issues
Aliases: Caché ObjectScript, COS, InterSystems ObjectScript
Provenance: commit a0e955eee3 · authored 2026-02-27T07:55:33+01:00 · agent claude-code · model claude-opus-4-6

Sources mentioning this language

7 sources · pl_id: pl/objectscript
LLM (this repo) · 1PldbLinguistPygmentsWikipediaHyperpolyglotWikidata · Q1963461

Wikipedia infobox

Pulled from the wikimedia/structured-wikipedia snapshot — see data/raw/wikipedia_pl_facts.*.jsonl and pl_fact.csv for the long-table provenance.

LicenseProprietary
Homepagehttps://www.progress.com/openedge

Extensions claimed by this language

3 claims. Each row is one upstream assertion with its strength. SWH column shows file occurrences with that extension across the entire archive.
ExtensionSourceStrengthSWH
.clslinguistprimary2.6M files
.ppygmentsprimary5.0M files
.clspygmentssecondary2.6M files

Related languages

Caché ObjectScript (0.54)Cache ObjectScript (0.50)CLOS (0.19)Catrobat (0.17)Pascal Script (0.17)

LLM-contributed programs

Show ASCII Table

Provenance: commit a0e955eee3 · authored 2026-02-27T07:55:33+01:00 · agent claude-code · model claude-opus-4-6 · WebSearch disabled
code.mac · license: GFDL · added: 2026-02-27T06:55:07Z
SHOWASCII
  ; this is 96 characters, so do 6 columns of 16
  for i = 32:1:127 {
    ; get remainder when div by 6, sort columns by remainder 2 3 4 5 0 1
    set rem = i # 6
    if rem = 2 {
      write !
    }

    ; spacing (tabs)
    set x = $case(rem,2:0,3:8,4:16,5:24,0:32,:40)

    ; char to write
    set wrtchr = $case(i,32:"Spc",127:"Del",:$char(i))
    write ?x,$justify(i,3)_": "_wrtchr
  }

  quit

Real programs from Software Heritage

2 samples mined from derived_datasets/<date>/contents/*.parquet, byte-verified against the SWH archive. Citation-grade qualified SWHIDs preserved.
SBQQ__ProductLookupController.cls · 1873 B · ext .cls · seen 1415× in SWH
via fallback
swh:1:cnt:b8d32bd2c542a3ae97a5d50840f0aac0f33d170b;origin=https://github.com/niteshCopado/PartnerProduction;anchor=swh:1:rev:925a58eef8de7a88b03bbf972ea361ad3a84b5df;path=/classes/SBQQ__ProductLookupController.cls
Open in SWH · Raw bytes (SWH) · GitHub raw
Show source
/*
This file is generated and isn't the actual source code for this
managed global class.
This read-only file shows the class's global constructors,
methods, variables, and properties.
To enable code to compile, all methods return null.
*/
global class ProductLookupController {
    global ProductLookupController() {

    }
    global static void follow(String recordId) {

    }
    @RemoteAction
    global static String loadSearchModel(String quoteJSON, String processId, String customActionId) {
        return null;
    }
    global static String loadSearchModelPaginated(String quoteJSON, String processId, String customActionId, Integer pageNumber) {
        return null;
    }
    @RemoteAction
    global static String removeFavorites(String quoteJSON, List<Id> favoriteIds) {
        return null;
    }
    @RemoteAction
    global static String search(String quoteJSON, String filterValuesJSON, String customActionId, Integer resultLimit) {
        return null;
    }
    global static String search(String quoteJSON, String filterValuesJSON, String customActionId, Integer resultLimit, String searchString) {
        return null;
    }
    global static String searchPaginated(String quoteJSON, String filterValuesJSON, String customActionId, Integer resultLimit, Integer pageNumber) {
        return null;
    }
    global static String searchPaginated(String quoteJSON, String filterValuesJSON, String customActionId, Integer resultLimit, Integer pageNumber, String searchString) {
        return null;
    }
    @RemoteAction
    global static String suggest(String quoteJSON, String processJSON, Integer resultLimit) {
        return null;
    }
    global static String suggestPaginated(String quoteJSON, String processJSON, Integer resultLimit, Integer pageNumber) {
        return null;
    }
    global static void unfollow(String recordId) {

    }
}
nessus_translator.P · 2310 B · ext .p · seen 42× in SWH
via fallback
swh:1:cnt:8bd0acb72f6634648a52b82f1a345ca1ed7d9c77;origin=https://github.com/risksense/mulval;anchor=swh:1:rev:369f7484ea5263074f70464a7fada98b6e546df6;path=/src/adapter/nessus_translator.P
Open in SWH · Raw bytes (SWH) · GitHub raw
Show source

:- import member/2 from lists.
hasEffect(privEscalation).

vulExists(Host, CVE, Prog):- 
  vuln_exists(Host, CVE, Prog, _Range, _Losstype, _Severity, _AC ).

vulExists(Host, CVE, Prog):- 
  vuln_exists(Host, CVE, Prog, _Range, _Losstype, _Severity, _AC, Port, Prot ).

vulProperty(CVE, localExploit, Effect):- 
  vuln_exists(_Host, CVE, _Prog, RangeList,Losstype, _Severity, _AC ),
  member(local,RangeList),
  lossTypetoEffect(Losstype, Effect).

vulProperty(CVE, remoteExploit, Effect, Port, Prot):- 
  vuln_exists(_Host, CVE, _Prog, RangeList,Losstype, _Severity, _AC, Port, Prot ),
  member(remoteExploit,RangeList),
  not  member(user_action_req,RangeList),
  lossTypetoEffect(Losstype, Effect).

vulProperty(CVE, remoteExploit, Effect):- 
  vuln_exists(_Host, CVE, _Prog, RangeList,Losstype, _Severity, _AC, _Port, _Prot ),
  member(remoteExploit,RangeList),
  not  member(user_action_req,RangeList),
  lossTypetoEffect(Losstype, Effect).


vulProperty(CVE, remoteClient, Effect):- 
  vuln_exists(_Host, CVE, _Prog, RangeList,Losstype, _Severity, _AC ),
  member(remoteExploit,RangeList),
  member(user_action_req,RangeList),
  lossTypetoEffect(Losstype, Effect).


lossTypetoEffect(Losstype, Effect):-
            member('data_modification', Losstype),
            hasEffect(Effect).

lossTypetoEffect(Losstype, Effect):-
            member('data_loss', Losstype),
            hasEffect(Effect).

cvss(CVE, AC):-
	vuln_exists(Host, CVE, Prog, _RangeList, _Losstype, _Severity, AC ).

cvss(CVE, AC):-
        vuln_exists(_Host, CVE, _Prog, RangeList,Losstype, _Severity, AC, Port, Prot ).

networkServiceInfo(Host, Program, Prot, Port, someUser) :-
	vulExists(Host, CVE, Program),
        vulProperty(CVE, remoteExploit, _Effect, Port, Prot).

%hacl(Host, internet, Prot, Port) :-
 %       vuln_exists(Host, CVE, _Prog, RangeList,Losstype, _Severity, _AC, Port, Prot ).

%hacl(internet, Host, Prot, Port) :-
 %      vuln_exists(Host, CVE, _Prog, RangeList,Losstype, _Severity, _AC, Port, Prot ).

%this is not corrent, because it binds the CVE Port and Prot together which couldn't be true.
%hacl(Host, Host2, Prot, Port) :-
 %      vuln_exists(Host, CVE, _Prog, RangeList,Losstype, _Severity, _AC, Port, Prot ),
  %     vuln_exists(Host2, CVE, _Prog, RangeList,Losstype, _Severity, _AC, Port, Prot ).

Disambiguation rules

Linguist heuristic rules that predict this language when one of its claimed extensions is shared with another.
RuleExtKindPredicates (truncated)
h/linguist/.cls/3.clspredicates[{"kind": "any", "regexes": ["^Class\\s"]}]

Contribute — propose a file extension

Tell us where to find evidence about ObjectScript (mapped to pl/objectscript). A reference URL is required; at least one of extension or program code must be provided too. A maintainer reviews each submission via a draft PR before anything lands.
Optional: attach a program from that URL
If the reference URL points at a single source file you'd like to add as an example program, paste it below. The workflow will write it under languages/ObjectScript/programs/<sha>/. Keep under ~200 lines.
(or open the pre-filled issue directly)
← Objects In Mirror Are Heavier Than They Appear objectworld →